急求DOS批处理程序,完成自动投票功能!~高分悬赏。

发布网友 发布时间：2024-10-16 14:44

我来回答

共3个回答

热心网友 时间：2024-11-08 18:56

cmd批处理就比较繁琐，（要不停的打开和关闭Internet Explorer的）

给你vbs代码吧
完善了一下用vbs发送键的方式自动完成

Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set A = WMI.ExecQuery("Select * From Win32_DesktopMonitor")
For Each B in A
W = B.ScreenWidth
H = B.ScreenHeight
Next
Set WMI = Nothing

On Error Resume Next
Do Until i = 100 '100代表投票100次
i = i + 1
aErr = WS.Run ("Rasdial 宽带连接名称 帐号 密码",vbHide, true)
If aErr = 0 Then
WS.Popup "宽带已连接.... ", 4 ,"提示" , 4096+64
End If
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://www.zhyww.cn/zhuanti/jgzx/jgpxgzz.html"
IE.AddressBar = 0
IE.ToolBar = 0
IE.StatusBar = 0
IE.Visible = 1
IE.Left = 0
IE.Top = 0
IE.Width = W
IE.Height = H
Do While (IE.Busy) :Loop
Do While (IE.ReadyState<>4) :WScript.Sleep 10 :Loop
Wscript.Sleep 1000*3
delayedSendKeys "{Tab 20} {BREAK} {Enter}"'这里Tab 20就是按Tab 20次选中要投票的那人，自己改
Wscript.Sleep 1000*8 '最后15表示延时15秒，用于投票
WS.Run "taskkill /fi "&"""windowTitle eq http://www.zhyww.cn/zhyvote/view*"""&" /f",vbHide, true
aErr = WS.Run ("Rasdial 宽带连接名称 /d",vbHide, true)
If aErr = 0 Then
WS.Popup "宽带已断开.... ", 4 ,"提示" ,4096+48
End If
IE.Quit
Wscript.Sleep 1000*8
Loop

Sub delayedSendKeys(str)
WScript.Sleep 500
WS.SendKeys str
End Sub

热心网友 时间：2024-11-08 19:02

嘿嘿你这招肯定行不通，投票网站一般是记录IP，同一个IP不能重复投票。去找个专门刷分的软件吧，DOS没法完成。

热心网友 时间：2024-11-08 19:00

搞个自动换ip软件