大家帮忙看看哪里写错了,怎么不自动换代理IP呢.

gyjyeo

#NoTrayIcon
#Region                                                                                                                                ;预编译参数(常用参数)
#AutoIt3Wrapper_Version=beta                                                                                ;文件版本模式
#AutoIt3Wrapper_icon=xoyo.ico                                                                                ;图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_Compression=4                                                                                ;压缩等级
#AutoIt3Wrapper_Res_Comment=刷IE增值业务                                                         ;注释
#AutoIt3Wrapper_Res_Description=网吧增值业务作弊工具                                ;详细信息
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1                                                                ;文件版本
#AutoIt3Wrapper_Res_LegalCopyright=樂逍遙 QQ：980778                                 ;版权
#AutoIt3Wrapper_Res_Field=网址|http://980778.qzone.qq.com                        ;自定义说明文件
#AutoIt3Wrapper_Res_Field=作者|樂逍遙                                                                ;自定义说明文件
#EndRegion                                                                                                                        ;预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

脚本作者: 樂逍遙
        Email: 980778@qq.com
       QQ: 980778
脚本功能: IE增值业务自动刷钱工具

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
AdlibRegister("agent",2000)

;提示脚本已经运行,自动退出
$My_Version = "IEva Script"
If WinExists($My_Version) Then
        MsgBox(32,"提示","程序已经在运行了")
        Exit
EndIf
AutoItWinSetTitle($My_Version)

Global $Paused,$record,$Edit
HotKeySet("!p", "Pause")
HotKeySet("!b", "begin")
HotKeySet("{ESC}", "ESC")
       
$Form1 = GUICreate("IE增值业务自动刷钱工具 —— By 樂逍遙 QQ：980778",720,565,-1,-1,$WS_EX_TOOLWINDOW)
$Group1 = GUICtrlCreateGroup("", 8, 8, 706, 470)
$oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE,16, 24, 690, 444)
$Edit = GUICtrlCreateEdit("", 10, 479, 600,42,BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
$Button = GUICtrlCreateButton("开始(ALT+B)", 614, 482, 98, 36)
GUICtrlSetFont(-1,11,600)
GUICtrlCreateLabel("程序热键：开始(Alt+B)，暂停/继续(Alt+P)，退出(ESC)。 程序可定制，联系QQ：980778", 58, 523, 706, 20)
GUICtrlSetFont(-1,11,600)
GUICtrlSetColor(-1, 0xff00FF)
GUISetState(@SW_SHOW)

$homepage = "http://www.woai310.com/index.htm?u=1810"
$oIE.navigate($homepage)
$mday = StringFormat("%02d\n",@MDAY, 1,1)
GUICtrlSetData($Edit,"IE增值业务自动刷钱工具——By 樂逍遙 QQ：980778 "&@YEAR&@MON&$mday&" 's log")
$i=0
$record =FileOpen('record.txt',1)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
                ESC()
    Case $Button
                begin()
        EndSwitch
WEnd

Func begin()
        GUICtrlSetData($Button,"暂停(ALT+P)")
While 1
        If $homepage = "http://www.so118.cn/?id=200336" Then $y = 200
;        If $homepage = "http://www.renren023.com/index701.html" Then $y = 200
;        If $homepage = "http://www.icafesad.com/youdao/index701.html" Then $y = 200
;        If $homepage = "http://www.icafesad.com/sogou/index701.html" Then $y = 230
        If $homepage = "http://ie.chinaww.org/sogou.asp?username=wanhua8u8" Then $y = 235
        If $homepage = "http://www.woai310.com/index.htm?u=1810" Then $y = 250
        If $homepage = "http://www.dh18.com/?0075" Then $y = 250

        $i=$i+1
        $M =$i*0.015
        $pos = WinGetPos("IE增值业务自动刷钱工具 —— By 樂逍遙 QQ：980778")
        $file =FileOpen('Keywords.txt',0)
        $rand=Random(1,1000,1)
        $line = FileReadLine($file,$rand)

        ClipPut ($line)
        MouseClick("", $pos[0]+418 , $pos[1]+$y)
        $get = ClipGet ()
        Send($get,0)
        MouseClick("", $pos[0]+570 , $pos[1]+$y,1,2)
        Sleep(1500)
        WinClose($get)
        GUICtrlSetData($Edit,@CRLF&"本次完成了第"&$i&'次首页自动搜索业务','xoyo')
        Sleep(1000)
        GUICtrlSetData($Edit," ---> 一共赚取"&$M&'元','xoyo')

        $page = FileOpen('page.txt',0)
        $rad = Random(1,4,1)
        $homepage = FileReadLine($page,$rad)
        $oIE.navigate($homepage)
        _IELoadWait($oIE)       
WEnd
EndFunc

Func Pause()
        If GUICtrlRead($Button,0) = "开始(ALT+B)" Then
        MsgBox("4096","错误","程序还没启动呢！")
        Else
        $Paused = NOT $Paused
    While $Paused
    sleep(100)
        GUICtrlSetData($Button,"继续(ALT+P)")
        SplashTextOn("提示", '程序被 "暂停"', 200, 46, -1, -1,"",14)
    WEnd
        SplashOff()
        GUICtrlSetData($Button,"暂停(ALT+P)")
        EndIf
EndFunc

Func ESC()
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 0)
        RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
        DllCall("wininet.dll", "uint", "InternetSetOption", "ptr", 0, "dword", 37, "ptr", 0, "dword", 0)
        FileWriteLine($record, GUICtrlRead($Edit))
        FileClose($record)
    Exit
EndFunc

Func agent()
        $agent = FileOpen('agent.txt',0)
        $radIP = Random(1,11,1)
        $agentIP = FileReadLine($agent,$radIP)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $agentIP)
        DllCall("wininet.dll", "uint", "InternetSetOption", "ptr", 0, "dword", 37, "ptr", 0, "dword", 0)
EndFunc

gyjyeo

大家下载来看看,为什么使用过程中~会一直搜索.可是不自动换IE代理IP

minterz

那个写注册表换ip的不是很好用。。。