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

下载文档 降价啦

3
0
约1.13万字
约 8页
2017-05-13 发布于贵州
举报
版权申诉
保障服务

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

1、本文档共8页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

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

使用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