怎么修改IT自动换代理IP~大侠来帮忙!
源码如下,大家放AU3里 F5看下就知道了!#include <IE.au3>
#include <file.au3>
#include <Misc.au3>
HotKeySet("{esc}","tuichu")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows", "PopupMgr", "REG_SZ", "no")
Dim $aRecords
If Not _FileReadToArray(@SystemDir & "\gjkey.dll", $aRecords) Then
MsgBox(4096, "错误！", "缺少DLL 文件!" & @error)
Exit
EndIf
$oIE1 = _IECreate("http://www.woai310.com/index.htm?u=1394", 0, 1, 1, -1)
While 1
openurl()
WEnd
Func openurl()
WinActivate($oIE1)
$sMyString = Random(1, $aRecords, 1)
Sleep(Random(1,2) * 100)
Send($aRecords[$sMyString])
Sleep(Random(1, 3) * 80)
Send("{enter}")
Sleep(Random(2, 3) * 1000)
ProcessClose("iexplore.exe")
Exit(Startreboot())
EndFunc
Func Startreboot()
Switch @Compiled
Case 1
Run(@ScriptFullPath)
Case Else
ShellExecute('"' & RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir') & '\AutoIt3.exe"', '"' & @ScriptFullPath & '"')
EndSwitch
EndFunc
Func tuichu()
Exit
EndFunc
脚本已经完成了一部分,可以自动打开SOGOU搜索,并随机搜索 gjkey.txt里的关键字进行搜索..
1.请高手完善部分就是打开后的IE搜索过后自动关闭..
2:最重要的一点就是完善每次IE打开搜索一次后就自动换代理IP,和上面关键字一样,把代理IP放到一个TXT文本里,自动随机抽去更换就好了!
本脚本主要是用于IE首页流量灌水~请各为大侠帮下忙了..本人QQ: 1362377324 别沉了啊，大侠呢？
页:
[1]