[转帖]普通人能做的OEM信息修改工具（附AU3源码）

－－－－－－－－－－－－－－－－－－－－－－－－－－－－

AU3源码：


#NoTrayIcon
#include <GUIConstants.au3>
Opt("guicloseonesc",0)
Opt("GUIOnEventMode", 1)

Dim $info[21]

;读取相关信息
$1=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization")
$2=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner")
$3=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductId")
$4=IniRead(@SystemDir & "\oeminfo.ini","General","Manufacturer","")
$5=IniRead(@SystemDir & "\oeminfo.ini","General","Model","")
$6=IniReadSection(@SystemDir & "\oeminfo.ini","Support Information")
for $i =1 to 20
$info[$i]=IniRead(@SystemDir & "\oeminfo.ini", "Support Information","line" & $i,"")
Next

;主窗体
$form=GUICreate("OEM修改",420,450)
GUICtrlCreateGroup("",220,60,185,200)
$label1=GUICtrlCreateLabel("注册到:",230,75,80,20)
$input1=GUICtrlCreateInput($1,230,100,120,20)
$input2=GUICtrlCreateInput($2,230,125,120,20)
$input3=GUICtrlCreateInput($3,230,150,160,20)

$label2=GUICtrlCreateLabel("计算机:",230,185,80,20)
$input4=GUICtrlCreateInput($4,230,205,160,20)
$input5=GUICtrlCreateInput($5,230,230,160,20)
$name="无|Dell|HP|IBM|Lenovo|LG|三星|方正|长城|海尔|神州|七喜|海信|明基|宏碁"
$label1=GUICtrlCreateLabel("品牌预置:",40,200,100,25)
$combo=GuiCtrlCreatecombo("", 40, 220, 120, 100)
$data=GUICtrlSetData(-1,$name,"无")
$button2=GUICtrlCreateButton("退 出",230,405,70,25)
$button3=GUICtrlCreateButton("应 用",330,405,70,25)
$editname1=$info[1] & @CRLF & $info[2] & @CRLF & $info[3] & @CRLF &$info[4] & @CRLF &$info[5] & @CRLF &$info[6] & @CRLF &$info[7] & @CRLF &$info[8] & @CRLF &$info[9] & @CRLF &$info[10]
$editname2=$info[11] & @CRLF & $info[12] & @CRLF & $info[13] & @CRLF &$info[14] & @CRLF &$info[15] & @CRLF &$info[16] & @CRLF &$info[17] & @CRLF &$info[18] & @CRLF &$info[19] & @CRLF &$info[20]

$label2=GUICtrlCreateLabel("技术支持信息:",40,260,100,25)
$edit=GUICtrlCreateEdit($editname1 & @CRLF & $editname2,40,280,360,100)


GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUICtrlSetOnEvent($combo, "choose")
GUICtrlSetOnEvent($button2, "quit")
GUICtrlSetOnEvent($button3, "yingyong")

GUISetState(@SW_SHOW)

;空闲状态
While 1
Sleep(1000)
WEnd

『本文转自 自由天空http://www.freeskycd.cn/bbs 』
原文链接：http://www.freeskycd.cn/bbs/viewthread.php?tid=2662&extra=page%3D1

太强大了,源码也出来了,感谢了.

应该支持windows7才好

我就被骗过，方正的笔记本！！！

有源码的更好...我喜欢.

深度出的有这个工具，好用

;自定义函数

;预设品牌
Func choose()
if GUICtrlRead($combo)="Dell" Then
GUICtrlSetData($edit,"戴尔中文技术支持网站"& @CRLF & "http://www.dell.com.cn/" & @CRLF & "免费电话服务:"& @CRLF &"800-858-0888"& @CRLF & "戴尔技术支持信箱:"& @CRLF &"support@us.dell.com")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"Dell Computer Corporation")
GUICtrlSetData($input5,"Dell 系列电脑")
EndIf
if GUICtrlRead($combo)="HP" Then
GUICtrlSetData($edit,"欢迎购买惠普电脑。如有任何疑问,"& @CRLF &"请与当地客户服务中心联系。"& @CRLF &""& @CRLF &"惠普服务热线 周一至周五 8:30-18:00"& @CRLF &"800-820-2255 021-2898-2255"& @CRLF &"技术支持 http://www.hp.com")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"HP Corporation")
GUICtrlSetData($input5,"惠普系列电脑")
EndIf
if GUICtrlRead($combo)="IBM" Then
GUICtrlSetData($edit,"")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"IBM Corporation")
GUICtrlSetData($input5,"IBM Personal Computer")
EndIf
if GUICtrlRead($combo)="Lenovo" Then
GUICtrlSetData($edit,"为保护您的每一分投资，联想（北京）有限公司"& @CRLF &"向您提供一系列的服务与支持，当您遇到硬件故"& @CRLF &"障和不能解决的软件故障，请与当地维修站或联"& @CRLF &"想集团客户服务中心联系。具体内容请参见随机"& @CRLF &"保修证书中的服务指南部分。"& @CRLF &""& @CRLF &"联想服务网站：http://www.lenovo.com"& @CRLF &"联想阳光技术咨询热线：010-82879500")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"联想(北京)有限公司")
GUICtrlSetData($input5,"联想系列电脑")
EndIf
if GUICtrlRead($combo)="LG" Then
GUICtrlSetData($edit,"")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"LG 电子")
GUICtrlSetData($input5,"")
EndIf
if GUICtrlRead($combo)="三星" Then
GUICtrlSetData($edit,"三星电子中国服务总部向您提供一系列的服务与支持，"& @CRLF &"当您遇到硬件故障和不能解决的软件故障时，"& @CRLF &"请与当地维修站或三星电子服务中心联系。"& @CRLF &"三星服务中心：800－810－5858"& @CRLF &"三星电子服务中心：http://www.samsungservice.com.cn"& @CRLF &"SAMSUNG 系列电脑合法预装Microsoft Windows"& @CRLF &"为了保证品质及服务，请认明Windows 正版标签")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"SAMSUNG (三星电子)")
GUICtrlSetData($input5,"三星系列电脑")
EndIf
if GUICtrlRead($combo)="方正" Then
GUICtrlSetData($edit,"")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"方正科技电脑系统有限公司")
GUICtrlSetData($input5,"方正电脑")
EndIf
if GUICtrlRead($combo)="长城" Then
GUICtrlSetData($edit,"欢迎你购买长城电脑。如有任何疑问，请与当地客户服务中心联系。"& @CRLF &"长城网站：http://greatwall.com.cn"& @CRLF &"支持邮箱：service@greatwall.com.cn"& @CRLF &"免费服务电话：800-8100285 / 010-82737575")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"长城计算机集团公司")
GUICtrlSetData($input5,"嘉翔系列")
EndIf
if GUICtrlRead($combo)="海尔" Then
GUICtrlSetData($edit,"热线服务电话：800-8203999"& @CRLF &"服务监督电话：0532-8939999")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"海尔3C连锁有限公司")
GUICtrlSetData($input5,"乘龙系列")
EndIf
if GUICtrlRead($combo)="神州" Then
GUICtrlSetData($edit,"客服信箱： service@hasee.com"& @CRLF &"免费咨询电话：8008307108"& @CRLF &"技术支持热线：0755－84710365")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"神舟电脑有限公司")
GUICtrlSetData($input5,"神舟系列")
EndIf
if GUICtrlRead($combo)="七喜" Then
GUICtrlSetData($edit,"欢迎你购买七喜电脑。如有任何疑问，请与当地客户服务中心联系。"& @CRLF &"七喜网站：http://www.hedy.com.cn"& @CRLF &"支持邮箱：support@hedy.com.cn")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"七喜电脑股份有限公司")
GUICtrlSetData($input5,"喜笛系列")
EndIf
if GUICtrlRead($combo)="海信" Then
GUICtrlSetData($edit,"欢迎购买海信电脑。如有任何疑问,"& @CRLF &"请与当地客户服务中心联系"& @CRLF &"海信集团用户服务中心服务热线（总）∶0532-3091111"& @CRLF &"全天24小时开通,为您服务！ 服务信箱：service@hisense.com")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"海信计算机有限公司")
GUICtrlSetData($input5,"海信系列电脑")
EndIf
if GUICtrlRead($combo)="明基" Then
GUICtrlSetData($edit,"客户咨询服务"& @CRLF &"如果您在使用中有与产品相关的技术问题需要咨询时，"& @CRLF &"欢迎您拨打明基技术支持专线：0512-68092520，"& @CRLF &"由我们的工程师为您提供专业解答；"& @CRLF &"或登录明基服务网站：http://service.benq.com.cn"& @CRLF &"获得上述服务。")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"明基电脑")
GUICtrlSetData($input5,"明基系列电脑")
EndIf
if GUICtrlRead($combo)="宏碁" Then
GUICtrlSetData($edit,"宏碁（中国）向您提供一系列的服务与支持，"& @CRLF &"当您遇到硬件故障和不能解决的软件故障时，"& @CRLF &"请与当地维修站或宏碁宏碁维修中心联系。"& @CRLF &"宏碁服务热线：010-68472323"& @CRLF &"宏基服务网站：http://www.acer.com.cn"& @CRLF &""& @CRLF &"Acer宏碁电脑合法预装Microsoft Windows"& @CRLF &"为了保证品质及服务，请认明Windows正版标签")
GUICtrlSetData($input1,"")
GUICtrlSetData($input2,"")
GUICtrlSetData($input4,"ACER（宏碁）")
GUICtrlSetData($input5,"宏碁系列电脑")
EndIf
EndFunc

Func yingyong()
;注册名称等修改
GUICtrlSetState($button3, $GUI_DISABLE)
$a=GUICtrlRead($input1)
$b=GUICtrlRead($input2)
$c=GUICtrlRead($input3)
$d=GUICtrlRead($input4)
$e=GUICtrlRead($input5)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization","REG_SZ",$a)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner","REG_SZ",$b)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductId","REG_SZ",$c)
IniWrite(@SystemDir & "\oeminfo.ini","General","Manufacturer",$d)
IniWrite(@SystemDir & "\oeminfo.ini","General","Model",$e)

;技术支持信息修改
$getedit=GUICtrlRead($edit)
$split=StringSplit($getedit,@LF)
if $split[0]> 1 Then
for $i=1 to $split[0]
IniWrite(@SystemDir & "\oeminfo.ini","Support Information","line" & $i,$split[$i])
Next
Else
for $i= 1 to $6[0][0]
IniWrite(@SystemDir & "\oeminfo.ini","Support Information","line" & $i,"")
Next
EndIf
GUICtrlSetState($button3, $GUI_ENABLE)
MsgBox(0,"消息","修改完成",1)
EndFunc

Func quit()
Exit
EndFunc

『本文转自 自由天空http://www.freeskycd.cn/bbs 』
原文链接：http://www.freeskycd.cn/bbs/viewthread.php?tid=2662&extra=page%3D1