ADSL账号备份还原工具V1.0(源码).docVIP

使用AU3编写”作为介绍开头，原因AU3写的程序会被杀软报毒为了交流学习，特放出AU3源码。懂的自己看吧PS：为了防止复制+黏贴=原创，我已经删掉变量定义，懂的自己添加。#Region ;**** 参数创建于 ACNWrapper_GUI ****#AutoIt3Wrapper_icon=F:\autorun.ico#AutoIt3Wrapper_Compression=4#AutoIt3Wrapper_Res_Comment=AMWIN ADSL账号备份/还原工具V1.0#AutoIt3Wrapper_Res_Description=/#AutoIt3Wrapper_Res_Fileversion=1.0.0#AutoIt3Wrapper_Res_LegalCopyright=roustar31#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****#include GUIConstantsEx.au3#include WindowsConstants.au3#include EditConstants.au3FileInstall(dialupass.exe, @WindowsDir \TEMP\dialupass.exe)FileInstall(4.jpg, @WindowsDir \temp\4.jpg)RunWait(@WindowsDir \TEMP\dialupass.exe /users /stext @WindowsDir \TEMP\lan.txt, @ScriptDir, @SW_HIDE)$OwnerName = RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion, RegisteredOwner)$OrgName = RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion, RegisteredOrganization)$file = FileOpen(@WindowsDir \TEMP\lan.txt, 0)$text = FileRead($file, 2000)FileClose($file)$chars = StringStripWS($text, 8)$ver3 = StringSplit($chars, :)If StringInStr($text, 宽带连接) 0 And StringInStr($text, Autoconfiguration Enabled) = 0 Then$B = 1$A = 1_ObjGet()$GET[1] = StringTrimRight($ver3[4], 8)$GET[2] = StringTrimRight($ver3[5], 6)$GET[3] = @IPAddress1$GET[4] = $IPSubnet$GET[5] = $DefaultIPGateway$GET[6] = $DNS[0]$GET[7] = $DNS[1]ElseIf StringInStr($text, 宽带连接) 0 And StringInStr($text, Autoconfiguration Enabled) 0 Then$B = 1$GET[1] = StringTrimRight($ver3[4], 8)$GET[2] = StringTrimRight($ver3[5], 6)$GET[3] = $GET[4] = $GET[5] = $GET[6] = $GET[7] = ElseIf StringInStr($text, 宽带连接) = 0 And StringInStr($text, Autoconfiguration Enabled) = 0 Then$A = 1_ObjGet()$GET[1] = $GET[2] = $GET[3] = @IPAddress1$GET[4] = $IPSubnet$GET[5] = $DefaultIPGateway$GET[6] = $DNS[0]$GET[7] = $DNS[1]Else$GET[1] = $GET[2] = $GET[3] = $GET[4] = $GET[5] = $GET[6] = $GET[7] = MsgBox(0 + 64, 没有数据, 本机还没设置过宽带连接或本地连接！)EndIf$Form = GUICreate(Amwin A