找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › ip等地址修改贵工具 求高手精简源代码
返回列表 发新帖
查看: 4908|回复: 4

[AU3基础] ip等地址修改贵工具 求高手精简源代码

[复制链接]
cvwyg
发表于 2011-9-25 19:45:51 | 显示全部楼层 |阅读模式
本帖最后由 cvwyg 于 2011-9-26 12:33 编辑

俺是个新新手～～搞个ip地址修改的～很简单～基本参考网上·～但是个gui，太复杂～～
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Outfile=IP地址修改器.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUICloseOnESC", 0);在按下 ESC 时不退出
Opt("TrayAutoPause", 0) ;右下角图标点击不暂停
Opt("TrayMenuMode", 1) ;这里是设置任务栏图标的菜单，AU3默认的是点击后暂停脚本，使用这个后将取消默认值，值保留现在脚本里面的菜单和操作


#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\au3\form1.kxf
$Form1_1 = GUICreate("IP地址修改器.exe", 624, 255, 192, 124)
$Label1 = GUICtrlCreateLabel("IP地址:", 16, 32, 39, 20)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Label2 = GUICtrlCreateLabel("子网掩码:", 296, 32, 51, 20)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Label3 = GUICtrlCreateLabel("DNS:", 16, 80, 30, 20)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Label4 = GUICtrlCreateLabel("网关:", 296, 80, 29, 20)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Label5 = GUICtrlCreateLabel("累加计算机名称和IP地址最后一位", 8, 168, 172, 20)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Button1 = GUICtrlCreateButton("累加+1", 216, 152, 65, 33)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Button2 = GUICtrlCreateButton("执行", 512, 208, 65, 33)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input1 = GUICtrlCreateInput("192", 72, 24, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input2 = GUICtrlCreateInput("168", 128, 24, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input3 = GUICtrlCreateInput("1", 184, 24, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input4 = GUICtrlCreateInput("2", 240, 24, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input5 = GUICtrlCreateInput("255", 352, 32, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input6 = GUICtrlCreateInput("255", 408, 32, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input7 = GUICtrlCreateInput("255", 464, 32, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input8 = GUICtrlCreateInput("0", 528, 32, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input9 = GUICtrlCreateInput("192", 72, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input10 = GUICtrlCreateInput("168", 128, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input11 = GUICtrlCreateInput("1", 184, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input12 = GUICtrlCreateInput("1", 240, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input13 = GUICtrlCreateInput("192", 352, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input14 = GUICtrlCreateInput("168", 408, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input15 = GUICtrlCreateInput("1", 464, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input16 = GUICtrlCreateInput("2", 528, 72, 41, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Label6 = GUICtrlCreateLabel(" 计算机名称：", 16, 120, 73, 20)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$student = GUICtrlCreateInput("student", 104, 112, 65, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Input18 = GUICtrlCreateInput("2", 184, 112, 65, 24)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Button3 = GUICtrlCreateButton("一致", 320, 152, 65, 33)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Button4 = GUICtrlCreateButton("默认一", 416, 152, 65, 33) ;默认一为本机电脑IP地址
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Button5 = GUICtrlCreateButton("默认二", 512, 152, 65, 33) ;默认二为一般局域网电脑IP地址
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")
$Label7 = GUICtrlCreateLabel("DNS2默认为202.197.64.6    计算机名称为student_XX", 8, 200, 300, 20)
GUICtrlSetFont(-1, 8.5, 400, 0, "微软雅黑")

$MenuItem1 = TrayCreateItem("关于")
TrayCreateItem("")
$MenuItem2 = TrayCreateItem("退出工具")

TraySetState()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Dim $name, $name1, $name2, $xxx, $student01
$name = IniRead("ip_name.ini", "NAME", "name", "") ;开始时读取配置文件ip_name.ini
$name1 = IniRead("ip_name.ini", "NAME", "name1", "")
$name2 = IniRead("ip_name.ini", "NAME", "name2", "")

$ip = IniRead("ip_name.ini", "IP", "ip", "")
$ip1 = IniRead("ip_name.ini", "IP", "ip1", "")
$ip2 = IniRead("ip_name.ini", "IP", "ip2", "")
$ip3 = IniRead("ip_name.ini", "IP", "ip3", "")
$ip4 = IniRead("ip_name.ini", "IP", "ip4", "")

$mask = IniRead("ip_name.ini", "MASK", "mask", "")
$mask1 = IniRead("ip_name.ini", "MASK", "mask1", "")
$mask2 = IniRead("ip_name.ini", "MASK", "mask2", "")
$mask3 = IniRead("ip_name.ini", "MASK", "mask3", "")
$mask4 = IniRead("ip_name.ini", "MASK", "mask4", "")

$dns = IniRead("ip_name.ini", "DNS", "dns", "")
$dns1 = IniRead("ip_name.ini", "DNS", "dns1", "")
$dns2 = IniRead("ip_name.ini", "DNS", "dns2", "")
$dns3 = IniRead("ip_name.ini", "DNS", "dns3", "")
$dns4 = IniRead("ip_name.ini", "DNS", "dns4", "")

$gate = IniRead("ip_name.ini", "GATE", "gate", "")
$gate1 = IniRead("ip_name.ini", "GATE", "gate1", "")
$gate2 = IniRead("ip_name.ini", "GATE", "gate2", "")
$gate3 = IniRead("ip_name.ini", "GATE", "gate3", "")
$gate4 = IniRead("ip_name.ini", "GATE", "gate4", "")


GUICtrlSetData($Input1, $ip1) ;读取后写入到input里面
GUICtrlSetData($Input2, $ip2)
GUICtrlSetData($Input3, $ip3)
GUICtrlSetData($Input4, $ip4)

GUICtrlSetData($Input5, $dns1)
GUICtrlSetData($Input6, $dns2)
GUICtrlSetData($Input7, $dns3)
GUICtrlSetData($Input8, $dns4)

GUICtrlSetData($Input9, $mask1)
GUICtrlSetData($Input10, $mask2)
GUICtrlSetData($Input11, $mask3)
GUICtrlSetData($Input12, $mask4)

GUICtrlSetData($Input13, $gate1)
GUICtrlSetData($Input14, $gate2)
GUICtrlSetData($Input15, $gate3)
GUICtrlSetData($Input16, $gate4)

GUICtrlSetData($student, $name1)
GUICtrlSetData($Input18, $name2)


TraySetClick(8) ;按下鼠标次要按键(通常右键)

$dns002 = "202.197.64.6" ;其他dns（以后再加吧）

While 1
        _ReduceMemory(@AutoItPID) ;内存整理

        $msg = TrayGetMsg() ;右击图标菜单事件
        If $msg = $MenuItem2 Then
                Exit
        EndIf
        If $msg = $MenuItem1 Then
                MsgBox("", "关于", "就这样吧～～！！！")
        EndIf

        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1 ;累加按钮
                        leijia()
                Case $Button2 ;执行按钮
                        ip_xiugai_func()
                        name_xiugai_func()
                        $tishi = MsgBox(1 + 32, "IP地址修改", "OK！已经搞好了，现在需要重启您的电脑～！" & @CRLF & "" & @CRLF & "" & @CRLF & "6秒钟后将自动关闭并重启~", 6)
                        Select
                                Case $tishi = 1 Or $tishi = -1
                                        Shutdown(2)
                                Case $tishi = 2
                                        WinClose("IP地址修改")
                        EndSelect
                Case $Button3 ;一致按钮
                        $ip04 = GUICtrlRead($Input4)
                        GUICtrlSetData($Input18, $ip04)
                        name_fun()
                        ip_func()
                Case $Button4 ; 默认一按钮
                        moren_1_func()
                Case $Button5 ; 默认二按钮
                        moren_2_func()
        EndSwitch
WEnd

Func leijia() ;累加
        $Input04 = GUICtrlRead($Input4)
        $Input018 = GUICtrlRead($Input18)
        If $Input04 < 254 Then ;判断ip地址是否大于254
                $Input04 = $Input04 + 1 ;叠加+1
                $Input018 = $Input018 + 1
                GUICtrlSetData($Input4, $Input04)
                GUICtrlSetData($Input18, $Input018)
        ElseIf $Input04 >= 254 Then ;提示错误并恢复默认
                MsgBox(64, "提示", "IP地址不能大于或等于255或者小于等于1" & @CRLF & "现在将恢复ip最后一位默认为2")
                GUICtrlSetData($Input4, "2")
                GUICtrlSetData($Input18, "2")
        EndIf
        name_fun() ;并且执行写入ini函数
        ip_func()
EndFunc   ;==>leijia

Func name_fun() ;写入ini的name
        Dim $name, $name01, $name02, $student01
        $student01 = GUICtrlRead($student)
        $name02 = GUICtrlRead($Input18)
        $name = $student01 & "_" & $name02
        IniWrite("ip_name.ini", "NAME", "name1", $student01)
        IniWrite("ip_name.ini", "NAME", "name2", $name02)
        IniWrite("ip_name.ini", "NAME", "name", $name)

EndFunc   ;==>name_fun

Func ip_func() ;写入ini的ip
        Dim $Input01, $Input02, $Input03, $Input04
        $Input01 = GUICtrlRead($Input1)
        $Input02 = GUICtrlRead($Input2)
        $Input03 = GUICtrlRead($Input3)
        $Input04 = GUICtrlRead($Input4)
        $ip = $Input01 & "." & $Input02 & "." & $Input03 & "." & $Input04
        IniWrite("ip_name.ini", "IP", "ip1", $Input01)
        IniWrite("ip_name.ini", "IP", "ip2", $Input02)
        IniWrite("ip_name.ini", "IP", "ip3", $Input03)
        IniWrite("ip_name.ini", "IP", "ip4", $Input04)
        IniWrite("ip_name.ini", "IP", "ip", $ip)
EndFunc   ;==>ip_func

Func dns_func() ;写入ini的dns
        Dim $Input05, $Input06, $Input07, $Input08
        $Input05 = GUICtrlRead($Input5)
        $Input06 = GUICtrlRead($Input6)
        $Input07 = GUICtrlRead($Input7)
        $Input08 = GUICtrlRead($Input8)
        $dns = $Input05 & "." & $Input06 & "." & $Input07 & "." & $Input08
        IniWrite("ip_name.ini", "DNS", "dns1", $Input05)
        IniWrite("ip_name.ini", "DNS", "dns2", $Input06)
        IniWrite("ip_name.ini", "DNS", "dns3", $Input07)
        IniWrite("ip_name.ini", "DNS", "dns4", $Input08)
        IniWrite("ip_name.ini", "DNS", "dns", $dns)
        MsgBox("", "dns", $dns)
EndFunc   ;==>dns_func

Func mask_func() ;写入ini的mask（子网掩码）
        Dim $Input09, $Input010, $Input011, $Input012
        $Input09 = GUICtrlRead($Input9)
        $Input010 = GUICtrlRead($Input10)
        $Input011 = GUICtrlRead($Input11)
        $Input012 = GUICtrlRead($Input12)
        $mask = $Input09 & "." & $Input010 & "." & $Input011 & "." & $Input012
        IniWrite("ip_name.ini", "MASK", "mask1", $Input09)
        IniWrite("ip_name.ini", "MASK", "mask2", $Input010)
        IniWrite("ip_name.ini", "MASK", "mask3", $Input011)
        IniWrite("ip_name.ini", "MASK", "mask4", $Input012)
        IniWrite("ip_name.ini", "MASK", "mask", $mask)
        MsgBox("", "mask", $mask)
EndFunc   ;==>mask_func

Func gate_func() ;写入ini的gate（网关）
        Dim $Input013, $Input014, $Input015, $Input016
        $Input013 = GUICtrlRead($Input13)
        $Input014 = GUICtrlRead($Input14)
        $Input015 = GUICtrlRead($Input15)
        $Input016 = GUICtrlRead($Input16)
        $gate = $Input013 & "." & $Input014 & "." & $Input015 & "." & $Input016
        IniWrite("ip_name.ini", "GATE", "gate1", $Input013)
        IniWrite("ip_name.ini", "GATE", "gate2", $Input014)
        IniWrite("ip_name.ini", "GATE", "gate3", $Input015)
        IniWrite("ip_name.ini", "GATE", "gate4", $Input016)
        IniWrite("ip_name.ini", "GATE", "gate", $gate)
        MsgBox("", "gate", $gate)
EndFunc   ;==>gate_func

Func ip_xiugai_func() ;修改IP地址函数
        RunWait('netsh interface ip set address name = "本地连接" source = static addr = ' & $ip & ' mask = ' & $mask & ' gateway = ' & $gate & ' gwmetric = 0', "c:\windows\system32", @SW_HIDE)
        RunWait('netsh interface ip set dns name = "本地连接" source = static addr = ' & $dns & ' register = PRIMARY', @SystemDir, @SW_HIDE)
        RunWait('netsh interface ip add dns name = "本地连接" addr = ' & $dns002 & ' index=2', @SystemDir, @SW_HIDE)
EndFunc   ;==>ip_xiugai_func

Func name_xiugai_func() ;修改name函数
        RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", "REG_SZ", $name)
        RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $name)
        RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Hostname", "REG_SZ", $name)
EndFunc   ;==>name_xiugai_func

Func moren_1_func() ;默认一函数
        GUICtrlSetData($Input1, "218")
        GUICtrlSetData($Input2, "196")
        GUICtrlSetData($Input3, "119")
        GUICtrlSetData($Input4, "246")

        GUICtrlSetData($Input5, "202")
        GUICtrlSetData($Input6, "197")
        GUICtrlSetData($Input7, "64")
        GUICtrlSetData($Input8, "6")

        GUICtrlSetData($Input9, "255")
        GUICtrlSetData($Input10, "255")
        GUICtrlSetData($Input11, "255")
        GUICtrlSetData($Input12, "0")

        GUICtrlSetData($Input13, "218")
        GUICtrlSetData($Input14, "196")
        GUICtrlSetData($Input15, "119")
        GUICtrlSetData($Input16, "254")

        GUICtrlSetData($student, "way")
        GUICtrlSetData($Input18, "pig")

        name_fun() ;并执行写入ini
        ip_func()
        mask_func()
        gate_func()
        dns_func()

EndFunc   ;==>moren_1_func

Func moren_2_func() ;默认二函数
        GUICtrlSetData($Input1, "192")
        GUICtrlSetData($Input2, "168")
        GUICtrlSetData($Input3, "1")
        GUICtrlSetData($Input4, "2")

        GUICtrlSetData($Input5, "192")
        GUICtrlSetData($Input6, "168")
        GUICtrlSetData($Input7, "1")
        GUICtrlSetData($Input8, "1")

        GUICtrlSetData($Input9, "255")
        GUICtrlSetData($Input10, "255")
        GUICtrlSetData($Input11, "255")
        GUICtrlSetData($Input12, "0")

        GUICtrlSetData($Input13, "192")
        GUICtrlSetData($Input14, "168")
        GUICtrlSetData($Input15, "1")
        GUICtrlSetData($Input16, "1")

        GUICtrlSetData($student, "student")
        GUICtrlSetData($Input18, "2")

        name_fun() ;并执行写入ini
        ip_func()
        mask_func()
        gate_func()
        dns_func()

EndFunc   ;==>moren_2_func

Func _ReduceMemory($i_PID = -1);整理内存
        If $i_PID <> -1 Then
                Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
                Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
                DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
        Else
                Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
        EndIf

        Return $ai_Return[0]
EndFunc   ;==>_ReduceMemory
include, IP地址, IP地址, 网上, 修改器

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
wei999
发表于 2011-9-25 20:27:09 | 显示全部楼层
是够多的啊，。。。。
回复

举报

xms77
发表于 2011-9-25 21:06:08 | 显示全部楼层
回复 1# cvwyg
请问楼主，内存整理的目的是什么？
回复

举报

cvwyg
 楼主| 发表于 2011-9-25 22:33:33 | 显示全部楼层
回复 3# xms77


    那个是单门整理au3程序的内存的～效果很明显～～
不加内存6m多，加后就600k左右～～～
原来抄袭网上的～～后来一直用～～～
回复

举报

hzxymkb
发表于 2011-9-25 23:02:43 | 显示全部楼层
请看本版置顶的帖子！
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-10 22:41 , Processed in 0.098163 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表