XP-OEM修改器

1. 
   
2. #include <GUIConstants.au3>
   
3. #include <EditConstants.au3>
   
4. #include <array.au3>
   
5. #include <IE.au3>
   
6. Global $SFile
   
7. IniWrite(@SystemDir & "\oeminfo.ini", "Support Information", "", "")
   
8. GUICreate("XP-OEM修改器", 325 ,300)
   
9. GUICtrlCreateGroup("", 5, 1, 315, 295)
   
10. GUICtrlCreateLabel("注册到:", 170, 15)
    
11. $oemwink1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner")
    
12. $oemInput = GUICtrlCreateInput("", 170, 30, 145,16)
    
13. GUICtrlSetData($oemInput, ($oemwink1))
    
14. $oemwink2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization")
    
15. $oemInput2 = GUICtrlCreateInput("", 170, 50, 145,16)
    
16. GUICtrlSetData($oemInput2, ($oemwink2))
    
17. $oemwink3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId")
    
18. $oemInput3 = GUICtrlCreateInput("", 170, 70, 145,16)
    
19. GUICtrlSetData($oemInput3, ($oemwink3))
    
20. $oemwink4 = IniRead(@SystemDir & "\OemInfo.ini", "General", "Manufacturer", "")
    
21. GUICtrlCreateLabel("支持信息:", 170, 92)
    
22. $oemInput4 = GUICtrlCreateInput("", 170, 115, 145,16)
    
23. GUICtrlSetData($oemInput4, ($oemwink4))
    
24. $oemwink5 = IniRead(@SystemDir & "\OemInfo.ini", "General", "Model", "")
    
25. $oemInput5 = GUICtrlCreateInput("", 170, 140, 145,16)
    
26. GUICtrlSetData($oemInput5, ($oemwink5))
    
27. $oemInput6 = GUICtrlCreateEdit("", 10, 160, 305, 103, $ES_WANTRETURN)
    
28. $wink6 = IniReadSection(@SystemDir & "\oeminfo.ini", "Support Information")
    
29.     For $i = 1 To $wink6[0][0]
    
30. GUICtrlSetData($oemInput6, $wink6[$i][1]&@CRLF,"1")
    
31.     Next
    
32. $oempic = FileGetShortName(@SystemDir & "\OemLogo.bmp")
    
33. GUICtrlCreatePic($oempic, 15, 15, 145, 115)
    
34. $openoem = GUICtrlCreateButton("查看OEM", 10, 138, 70, 20)
    
35. $openpic = GUICtrlCreateButton("自定义图片", 85, 138, 80, 20)        
    
36. $oemButton1 = GUICtrlCreateButton("删除OEM信息",125, 265 ,80 ,25)
    
37. $oemButton2 = GUICtrlCreateButton("确 定",210, 265 ,50 ,25)
    
38. $oemButton3 = GUICtrlCreateButton("关 闭",265, 265 ,50 ,25)
    
39. $oemButton4 = GUICtrlCreateButton("访问论坛",40, 265 ,80 ,25)
    
40.   
    
41. GUISetState(@SW_SHOW)
    
42. While 1
    
43.         $nmsg = GUIGEtMsg()
    
44.         Select
    
45.                 Case $nmsg = $GUI_EVENT_CLOSE
    
46.                         ExitLoop
    
47.                                         Case $nmsg = $openpic
    
48. $message = "打开你所选的*.bmp格式"
    
49. $SFile = FileOpenDialog($message, @DesktopCommonDir & "", "不大于118X115的位图文件(*.bmp)", 1)
    
50.   IF $SFile Then
    
51.         GUICtrlCreatePic($SFile, 15, 15, 145, 115)
    
52. Sleep(500)
    
53.         $ok2oempic = GUICtrlCreatePic($SFile, 15, 15, 145, 115)
    
54. EndIf
    
55.                 Case $nmsg = $openoem
    
56.         Run("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl ")
    
57.         
    
58.                 Case $nmsg = $oemButton1
    
59.         FileDelete(@SystemDir & "\OemInfo.ini")
    
60.         FileDelete(@SystemDir & "\OemLogo.bmp")
    
61.                 MsgBox(64, "", "已经删除了OEM信息！")
    
62. While 1
    
63. $nMsg = GUIGetMsg()
    
64. Switch $nMsg
    
65. Case $GUI_EVENT_CLOSE
    
66. Exit
    
67. EndSwitch
    
68. WEnd
    
69.         Case $nmsg = $oemButton2
    
70.                 $oemokInput = GUICtrlRead ($oemInput)
    
71.                 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", "REG_SZ", $oemokInput)
    
72.                 $oemokInput2 = GUICtrlRead ($oemInput2)
    
73.                 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "REG_SZ", $oemokInput2)
    
74.                 $oemokInput3 = GUICtrlRead ($oemInput3)
    
75.                 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId", "REG_SZ", $oemokInput3)
    
76.                 $oemokInput4 = GUICtrlRead ($oemInput4)
    
77.                 $sIni =  @SystemDir & "\oeminfo.ini"
    
78.                 IniWrite(@SystemDir & "\OemInfo.ini", "General", "Manufacturer",$oemokInput4)
    
79.                 $oemokInput5 = GUICtrlRead ($oemInput5)
    
80.                 IniWrite(@SystemDir & "\OemInfo.ini", "General", "Model",$oemokInput5)
    
81.                                 $oemokInput6 = GUICtrlRead ($oemInput6)
    
82.                                 $t = StringSplit($oemokinput6, @LF)
    
83. For $i = 1 To UBound($t) - 1
    
84. $t[$i] = 'Line' & $i & '=' & $t[$i]
    
85. Next
    
86.                 IniWriteSection(@SystemDir & "\OemInfo.ini", "Support Information", _ArrayToString($t, @LF, 1))
    
87. FileCopy($SFile, @SystemDir & "\OemLogo.bmp")
    
88.         MsgBox(64, "", "OEM设置完毕，请点击 查看OEM")
    
89.         
    
90.                 Case $nmsg = $oemButton3
    
91.                 Exit
    
92.    Case $nmsg = $oemButton4
    
93.    $oIE = _IECreate ("https://www.ampc8.com/")
    
94. EndSelect
    
95.         WEnd
    

复制代码

下载看看找了好久了呀

实用就收藏。

来学习学习，谢谢分享

看看  

学习学习         

好东西，下载备用

源码吗，下载学习下。

试了下，很好。很漂亮啊

好东西，收藏

学习使人进步，哈哈……