我自己写了这个模拟手工操作的工具已经激活成功了好多号了,可惜就是不知道POST怎么操作。
代码如下。#NoTrayIcon
HotKeySet ("{F9}","quit")
$id=InputBox("账号设置","请输入您的账号!","","",200,80)
MsgBox(0,"提示","程序开始后可以按F9退出。")
If WinExists("天之翼OL-账号激活") Then
Sleep(100)
WinActivate("天之翼OL-账号激活")
Sleep(200)
MouseClick("left",510,340,1,1)
Send("{tab 4}")
Send($id)
Send("{tab}")
Send($id)
Else
Run("C:\Program Files\Internet Explorer\iexplore.exe http://tzyol.7uif.com/activation.html")
WinWaitActive("天之翼OL-账号激活")
WinSetState("天之翼OL-账号激活","",@SW_MAXIMIZE)
Sleep(1000)
MouseClick("left",510,353,1,1)
Sleep(200)
Send($id)
Send("{tab}")
Send($id)
EndIf
While 1
InetGet("http://vote.newgame.17173.com/taohao.php?id=401","souce.txt",1)
$str=FileRead("souce.txt")
$1=StringSplit($str,"red>",1)
$2=StringSplit($1[2],"</font>",1)
$CODE=$2[1]
MouseClick("left",510,423,2,1)
Send($CODE)
Send("{enter}")
Sleep(200)
MouseClick("left",510,423,2,1)
Sleep(200)
WEnd
Func quit()
Exit
EndFunc
|