简单的刷票程序

来源：互联网发布：淘宝拍卖会官网编辑：程序博客网时间：2024/05/16 11:00

使用软件：按键精灵

实现功能：对某网站进行重复登录后投票并且进入空间浏览

账号保存格式如下（新建.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("全部账号完成输入！")

这样就解放了纯粹的手上劳动力啦！

0 0