小波哥哥叫幫忙投票的網(wǎng)站有驗(yàn)證碼,從網(wǎng)站下載的發(fā)送post包刷票的軟件不能直接使用。所以寫(xiě)了這個(gè)腳本。
通過(guò)大漠插件識(shí)別驗(yàn)證碼,輸入后模擬鼠標(biāo)點(diǎn)擊投票。
字庫(kù)文件內(nèi)容(bobo.txt):
F01E020040080701E0F43C9E1783C0700800$7$0.0.50$13
7FFFFF18670CC198718B1F21E$6$0.0.69$13
18270DC1F07C1D8738C3B81E0180$2$1.0.65$13
7C1FFF1FE38C618E5FF9EF0C0$8$0.0.69$13
FE1FC2184308610C21843083307C078$5$0.0.63$13
01C0F87F066FFFFFC03006004$4$0.0.50$13
18270DC1F07C1D8730C3F83E0080$2$1.0.65$13
7E3FE70660CC398671CBFF3FE$9$0.0.72$13
00700600C619C17C3D8F31C3F07C060$3$0.0.60$13
00700600C619C17C3D8F31C3707C070$3$0.0.60$13
701FFFFF8$1$1.3.38$13
F01E020040080701E0F43C9E1783C0700$7$0.0.49$13
7FFFFF00E00C0180300BFF3FE$0$0.0.65$13
按鍵源碼:
//綁定web按鍵
Call Plugin.Web.Bind("wqm.exe")
Call Plugin.Web.Go("投票網(wǎng)址")
Call Plugin.Web.SetSize(1024,800)
//綁定大漠插件
Set dm = createobject("dm.dmsoft")
dm.SetPath ("d:")
dm_ret = dm.SetDict(0, "bobo.txt")
hwnd = dm.GetMousePointWindow()
Delay 1000
dm_ret = dm.BindWindow(hwnd, "dx2", "windows", "windows", 0)
Rem 投票
//記錄時(shí)間和IP地址
Call Plugin.Web.ClearTemp
IPa = Lib.網(wǎng)絡(luò).獲得外網(wǎng)IP地址()
Tim = Plugin.GetSysInfo.GetDateTime()
Call Plugin.File.WriteFileEx("d:\log.txt", Tim & " " &IPa)
//投票網(wǎng)址
Call Plugin.Web.Go("投票網(wǎng)址")
//選擇投票人
Call Plugin.Web.HtmlClick("type:checkbox&value:83")
Delay 100
//識(shí)別驗(yàn)證碼并輸入
s = dm.Ocr(490, 461, 556, 490, "000000-000000", 1.0)
Call Plugin.Web.HtmlInput(s, "id:code")
Delay 100
//確認(rèn)投票
Call Plugin.Web.HtmlClick("tag:INPUT&value:確認(rèn)投票")
Delay 1500
//確定按鈕
KeyPress "Space", 1
Delay 100
KeyPress "Space", 1
Delay 100
KeyPress "Space", 1
//確定按鈕后臺(tái)實(shí)現(xiàn)方案(驗(yàn)證無(wú)效)
//hwnd1 = dm.FindWindow("", "來(lái)自網(wǎng)頁(yè)的消息")
//dm_ret = dm.BindWindow(hwnd1, "dx", "normal", "normal", 0)
//dm.KeyPress 32
//斷網(wǎng)
Plugin.Net.HangUp
Delay 200
//撥號(hào)
Rem 撥號(hào)
OnLine = Plugin.Net.DialUp("ADSL")
If OnLine = False Then
Delay 1000
Goto 撥號(hào)
Else
Goto 投票
End If