查看完整版本: 零点技术联盟宽带网关切换源码

零点技术联盟宽带网关切换源码

零点网关切换源码
首先感谢[url]http://www.autoit.net.cn/viewthr[/url] ... &extra=page%3D3的作者，今天看到这个源码。想起了一个在统治无盘上用的网关切换软件，于是借鉴了[url]http://www.autoit.net.cn/viewthr[/url] ... &extra=page%3D3中部门源码，并结合统治无盘的网关切换软件界面，用AU3重新打造了一个网关切换软件。
[attach]2388[/attach]

部份源码：[code]#include <GUIConstants.au3>
#include <process.au3>
#include <Constants.au3>
#include <array.au3>
#include <GuiTab.au3>
#include <File.au3>

$g_szVersion = "IpChange"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

$ipfile = @TempDir & "\ip.txt"
If FileExists(@TempDir & "\ip.txt") Then FileDelete(@TempDir & "\ip.txt")
RunWait(@ComSpec & " /c route print > " & $ipfile, "", @SW_HIDE)
$file = FileOpen($ipfile, 0)
$i = 1
Do
        $Gatewaydq = FileReadLine($file, $i)
        If @error = -1 Then ExitLoop
        If StringInStr($Gatewaydq, "Default Gateway") = 0 Then
                $i = $i + 1
                $Gateway = ""
        Else
                $line1 = $i
                $Gateway = StringTrimLeft(FileReadLine($file, $i), 18)
                ExitLoop
        EndIf
Until $i = 0
FileClose($file)
FileDelete($file)

;配置脚本检测
If Not FileExists(@ScriptDir & "\Proxy.ini") Then
        MsgBox(64, "提示：", "未找到线路切换配置文件", 5)  ;检查配置文件是否存在。
        IniWrite(@ScriptDir & "\Proxy.ini", "Proxy", "示例格式", "192.168.1.1")
        IniWrite(@ScriptDir & "\Proxy.ini", "Proxy", "线路二", "192.168.1.2")
        ShellExecute("Notepad.exe", "Proxy.ini", @ScriptDir)
        Exit[/code]源码下载地址：[attach]2387[/attach]
成品下载：
[attach]2385[/attach]
[attach]2386[/attach]

[[i] 本帖最后由 webhelp 于 2008-6-11 06:08 PM 编辑 [/i]]