怎么修改IT自动换代理IP~大侠来帮忙!

gyjyeo

源码如下,大家放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[0], 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

gyjyeo

别沉了啊，大侠呢？