|
[注意]深山红叶启动光盘(WinPE&PE Builder)讨论专帖(违令者必删)
[这个贴子最后由wang6610在 2005/04/15 09:35am 第 1 次编辑]
建议高手编一个自动投票机.以下是用au3和vbs编的两个例程:
再加上,自动删cookie,和自动拨号模块,
au3
; <AUT2EXE VERSION: 3.1.0.4>
; --------------------------------------------------------------------
--------
; <AUT2EXE INCLUDE-START: F:\login.au3>
; --------------------------------------------------------------------
--------
run (@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE
http://www.ahedu.gov.cn/2005websites/vote2005/")
WinWaitActive("全省首届优秀教育网站评","全省首届优秀教育网站评比在线投
票")
;send("{space}");解定号码位置
Sleep (200)
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{space}")
;send("1084");输入号码,写上自己的号码
send("{TAB}")
;Sleep (100)
;send("6688148");这个是密码
Sleep (100)
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{Enter}");完成
; --------------------------------------------------------------------
--------
; <AUT2EXE INCLUDE-END: F:\login.au3>
; --------------------------------------------------------------------
--------
vbs
iepath="C:\Progra~1\Intern~1\IEXPLORE.EXE http://www.ahedu.gov.cn/2005websites/vote2005/"
set wshshell = createobject("wscript.shell")
wshshell.run iepath
';WScript.Sleep 2000 ';一秒
wscript.sleep 10000
WshShell.AppActivate "gwregege"
wshshell.SendKeys "{TAB}"
wscript.sleep 70
wshshell.SendKeys "{TAB}"
wshshell.SendKeys "{TAB}"
wscript.sleep 70
wshshell.SendKeys "sgddsgds"
wscript.sleep 70
wshshell.SendKeys "{TAB}"
wscript.sleep 70
wshshell.SendKeys "{TAB}"
wscript.sleep 70
wshshell.SendKeys "{ENTER}"
';wscript.sleep 1000
';wshshell.SendKeys "{ENTER}"
以上是一个自动登录宽带网的代码,高手可以改一下
做到只输校验码即可投票就好了!!!!
|
|