簡單的刷票程式
使用軟體:按鍵精靈
實現功能:對某網站進行重複登入後投票並且進入空間瀏覽
賬號儲存格式如下(新建.txt檔案):
wangerxiao001
12345678
wangerxiao003
12345678
wangerxiao004
12345678
wangerxiao005
12345678
程式程式碼:
text = Plugin.File.ReadFileEx("C:\Users\Silas\Desktop\login.txt")
arrZM = Split(text, "|")
For i = 0 To UBound(arrZM) -1 Step 2
zhanghao = arrZM(i)
mima = arrzm(i + 1)
TracePrint "帳號是" & zhanghao & "密碼是" & mima
//下面開啟主頁並輸入帳號和密碼登入
PID = Plugin.Web.Bind("wqm.exe")
HwndMain = Plugin.Window.Foreground()
Call Plugin.Web.SetSize(1000,700)
Call Plugin.Web.Go("http://www.wuhaneduyun.cn/portal/html/wuhan/")
Call Plugin.Web.HtmlInput(zhanghao,"id:info_username&frame:0")
Call Plugin.Web.HtmlInput(mima,"id:info_password&frame:0")
Call Plugin.Web.HtmlClick("id:loginyc&frame:0")
Call Plugin.Web.Go("XXX")
Call Plugin.Web.LeftClick(450, 500)
Delay 500
Call Plugin.Web.TabGoto(1)
Delay 500
Call Plugin.Web.ScrollTo(0, 1880)
Delay 500
Call Plugin.Web.LeftClick(171, 140)
Delay 1000
Call Plugin.Web.LeftClick(459, 140)
Delay 1000
Call Plugin.Web.LeftClick(744, 140)
Delay 1000
Call Plugin.Web.LeftClick(171, 178)
Delay 1000
Call Plugin.Web.LeftClick(459, 178)
Delay 1000
Call Plugin.Web.LeftClick(917,407)
Delay 1000
Call Plugin.Web.Tips("登陸成功,進空間成功!")
Delay 15000
//等待投票時間,15秒
Call Plugin.Window.Close(HwndMain)
Delay 5000
Next
Call Plugin.Web.Tips("全部賬號完成輸入!")
這樣就解放了純粹的手上勞動力啦!