自动点击搜索器问题出在那里，请看一下

skyit

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <ACN_String.au3>
Opt("TrayMenuMode", 1)
Global $Paused,$record,$Edit
HotKeySet("!b", "Pause")
HotKeySet("{ESC}", "ESC")
Func Pause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func ESC()
FileWriteLine($record, GUICtrlRead ($Edit))
FileClose($record)
    Exit 0
EndFunc

$Form1 = GUICreate("i-Money1.0自动搜索器",700,530)
$Group1 = GUICtrlCreateGroup("", 8, 8, 684, 470)
$oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE,16, 24, 668, 444)
$Edit = GUICtrlCreateEdit("", 15, 480, 500,50)
GUICtrlSetBkColor(-1, 0xFFFFE1)
GUICtrlSetColor(-1, 0x008000)
$Button = GUICtrlCreateButton("登 陆", 608, 490, 44, 20)
GUISetState(@SW_SHOW)
$oIE.navigate("http://www.v232.com/?fenger520o")
GUICtrlSetData($Edit,"i-Money1.0自动搜索器----赚钱记录 By lynfr8 "&@YEAR&@MON&@WDAY&@CRLF)
$i=0
$record =FileOpen('record.txt',1)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    Case $Button
   getmoney()
    EndSwitch
WEnd

Func getmoney()
While 1
   $i=$i+1
     $M =$i*0.012
     $pos = WinGetPos("i-Money1.0自动搜索器")
$file =FileOpen('sogou.txt',0)
$rand=Random(1,10,1)
$line = FileReadLine($file,$rand)
ClipPut ($line)
MouseClick("", $pos[0]+418 , $pos[1]+259)
$get = ClipGet ()
SendX($get,0)
MouseClick("left", $pos[0]+510 , $pos[1]+259,1,2)
GUICtrlSetData($Edit,"完成第"&$i&'次自动搜索','a')
Sleep(1000)
GUICtrlSetData($Edit,"--->已经赚了"&$M&'元'&@CRLF,'a')

$oIE.navigate("http://www.v232.com/?fenger520o")
_IELoadWait($oIE)
WEnd
EndFunc

skyit

请大家自己测试一下，这个代码不是我的。是在百度搜索出来的！会出错

gold13

没有定义SendX($get,0)这个函数哦！我猜这个是用于输出汉字功能的Send()函数。
Func SendX($Str,$n1)
        For $i = $n1 To StringLen($Str)
                Send("{ASC "&StringToBinary(StringMid($Str,$i,1)&" ")&"}")
                Next
EndFunc
用以上程序就可以了。
要输出汉字，不一定要用这个方法，用剪贴板要快点，方法如下：
ClipPut($get)
ClipGet()
Send("^v")

skyit

你能把代码整理了发出来吗！