自动点击搜索器问题出在那里，请看一下
#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+418 , $pos+259)
$get = ClipGet ()
SendX($get,0)
MouseClick("left", $pos+510 , $pos+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
请大家自己测试一下，这个代码不是我的。是在百度搜索出来的！会出错 本帖最后由 gold13 于 2011-4-16 23:09 编辑
没有定义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") 你能把代码整理了发出来吗！
页:
[1]