EasyOEM 1.0 源码

EasyOEM 1.0 NT5\6 OEM信息快速修改工具是我的原创作品，最近开发1.2版，就想先把1.0的代码开源出来。
附件不想下载的话，请在运行EasyOEM后不关闭，在我的电脑（计算机）地址栏输入%temp%\cheng.tmp\easyoem\1.0提取。
源码仅在阿木电脑吧发布，源程序及截图见https://www.ampc8.com/forum.php?mod=viewthread&tid=5022

1. 
   
2. Global Const $ES_AUTOVSCROLL = 64
   
3. Global Const $ES_AUTOHSCROLL = 128
   
4. Global Const $ES_READONLY = 2048
   
5. Global Const $ES_WANTRETURN = 4096
   
6. Global Const $__EDITCONSTANT_WS_VSCROLL = 0x00200000
   
7. Global Const $__EDITCONSTANT_WS_HSCROLL = 0x00100000
   
8. Global Const $GUI_SS_DEFAULT_EDIT = BitOR($ES_WANTRETURN, $__EDITCONSTANT_WS_VSCROLL, $__EDITCONSTANT_WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL)
   
9. Global Const $GUI_EVENT_CLOSE = -3
   
10. Global Const $GUI_CHECKED = 1
    
11. Global Const $GUI_UNCHECKED = 4
    
12. Global Const $GUI_ENABLE = 64
    
13. Global Const $GUI_DISABLE = 128
    
14. Global Const $TCCM_FIRST = 0X2000
    
15. Global Const $WS_MINIMIZEBOX = 0x00020000
    
16. Global Const $WS_SYSMENU = 0x00080000
    
17. Global Const $WS_VSCROLL = 0x00200000
    
18. Global Const $WS_CAPTION = 0x00C00000
    
19. Global Const $WS_POPUP = 0x80000000
    
20. Global Const $GUI_SS_DEFAULT_GUI = BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU)
    
21. Break(0)
    
22. Dim $XTBB = "未知"
    
23. Dim $NT = "未知"
    
24. Dim $havelogo = 0
    
25. If @OSVersion = "WIN_XP" Then $XTBB = "XP"
    
26. If @OSVersion = "WIN_2000" Then $XTBB = "2K"
    
27. If @OSVersion = "WIN_2003" Then $XTBB = "2K3"
    
28. If @OSVersion = "WIN_XPe" Then $XTBB = "XP"
    
29. If @OSVersion = "WIN_VISTA" Then $XTBB = "VISTA"
    
30. If @OSVersion = "WIN_2008" Then $XTBB = "2K8"
    
31. If @OSVersion = "WIN_7" Then $XTBB = "W7"
    
32. If @OSVersion = "win_2008R2" Then $XTBB = "2K8R2"
    
33. If $XTBB = "未知" Then
    
34. MsgBox(0, "EasyOEM", "您的系统不支持EasyOEM!")
    
35. Exit
    
36. EndIf
    
37. If $XTBB = "XP" Or $XTBB = "2K" Then $NT = 5
    
38. If $XTBB = "2K3" Then $NT = 5
    
39. If $XTBB = "VISTA" Or $XTBB = "2K8" Then $NT = 6
    
40. If $XTBB = "W7" Or $XTBB = "2K8R2" Then $NT = 6
    
41. DirCreate(@TempDir & "\cheng.tmp\EasyOEM\1.0")
    
42. FileInstall("easyoem.ico", @TempDir & "\cheng.tmp\EasyOEM\1.0\EASYOEM.ico")
    
43. FileInstall("EASYOEM.bmp", @TempDir & "\cheng.tmp\EasyOEM\1.0\EASYOEM.bmp")
    
44. $Form1 = GUICreate("辰cheng - EasyOEM 1.0", 601, 363)
    
45. $Pic1 = GUICtrlCreatePic(@TempDir & "\cheng.tmp\EasyOEM\1.0\EASYOEM.bmp", 0, 0, 147, 362)
    
46. DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00080000)
    
47. $Label1 = GUICtrlCreateLabel("欢迎使用EasyOEM——NT5\6 OEM快速设置工具", 147, 8, 432, 25)
    
48. GUICtrlSetFont(-1, 16, 400, 0, "黑体")
    
49. $Label2 = GUICtrlCreateLabel("当前系统版本：", 152, 32, 88, 17)
    
50. If $XTBB = "XP" Then $XTBBWIN = "Windows XP NT5"
    
51. If $XTBB = "2K" Then $XTBBWIN = "Windows 2000 NT5"
    
52. If $XTBB = "2K3" Then $XTBBWIN = "Windows 2003 NT5"
    
53. If $XTBB = "VISTA" Then $XTBBWIN = "Windows Vista NT6"
    
54. If $XTBB = "2008" Then $XTBBWIN = "Windows 2008 NT6"
    
55. If $XTBB = "W7" Then $XTBBWIN = "Windows 7 NT6"
    
56. If $XTBB = "2008R2" Then $XTBBWIN = "Windows 2008R2 NT6"
    
57. $Label3 = GUICtrlCreateLabel($XTBBWIN, 240, 32, 286, 17)
    
58. $Tab1 = GUICtrlCreateTab(152, 48, 441, 297)
    
59. $TabSheet1 = GUICtrlCreateTabItem("OEM修改")
    
60. $Group1 = GUICtrlCreateGroup("LOGO预览(浏览后生效)", 160, 80, 137, 145)
    
61. $Pic2 = GUICtrlCreatePic("", 168, 96, 120, 120)
    
62. GUICtrlCreateGroup("", -99, -99, 1, 1)
    
63. $Label4 = GUICtrlCreateLabel("品牌:", 304, 88, 31, 17)
    
64. $Input1 = GUICtrlCreateInput("", 336, 88, 249, 21)
    
65. $Label5 = GUICtrlCreateLabel("型号:", 304, 112, 31, 17)
    
66. $Input2 = GUICtrlCreateInput("", 336, 112, 249, 21)
    
67. $Label6 = GUICtrlCreateLabel("服务时间(NT6):", 304, 136, 90, 17)
    
68. $Input3 = GUICtrlCreateInput("", 392, 136, 193, 21)
    
69. $Label7 = GUICtrlCreateLabel("技术热线(NT6):", 304, 160, 90, 17)
    
70. $Input4 = GUICtrlCreateInput("", 392, 160, 193, 21)
    
71. $Label8 = GUICtrlCreateLabel("网站(NT6):", 304, 184, 66, 17)
    
72. $Input5 = GUICtrlCreateInput("", 368, 184, 217, 21)
    
73. $Label9 = GUICtrlCreateLabel("LOGO(名为OEMLOGO.BMP):", 304, 208, 150, 17)
    
74. $Button1 = GUICtrlCreateButton("浏览(&B)", 440, 205, 75, 19)
    
75. $Label11 = GUICtrlCreateLabel("技术支持信息(NT5，限制20行):", 160, 227, 214, 17)
    
76. $Edit1 = GUICtrlCreateEdit("", 160, 244, 289, 65, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
    
77. GUICtrlSetData(-1, StringFormat(""))
    
78. $Checkbox1 = GUICtrlCreateCheckbox("将2345导航设为IE首页", 160, 320, 305, 17)
    
79. GUICtrlSetState(-1, $GUI_CHECKED)
    
80. $Button2 = GUICtrlCreateButton("应用(&A)", 472, 312, 105, 25)
    
81. $Label17 = GUICtrlCreateLabel("注册到(NT5):", 456, 232, 126, 17)
    
82. $Input7 = GUICtrlCreateInput("", 456, 256, 129, 21)
    
83. $Input8 = GUICtrlCreateInput("", 456, 280, 129, 21)
    
84. If $NT = 5 Then
    
85. GUICtrlSetState($Input3, $GUI_DISABLE)
    
86. GUICtrlSetState($Input4, $GUI_DISABLE)
    
87. GUICtrlSetState($Input5, $GUI_DISABLE)
    
88. EndIf
    
89. If $NT = 6 Then
    
90. GUICtrlSetState($Edit1, $GUI_DISABLE)
    
91. GUICtrlSetState($Input7, $GUI_DISABLE)
    
92. GUICtrlSetState($Input8, $GUI_DISABLE)
    
93. EndIf
    
94. $TabSheet3 = GUICtrlCreateTabItem("帮助")
    
95. $Label10 = GUICtrlCreateLabel("辰cheng - EasyOEM NT5\6 OEM快速修改工具", 160, 80, 420, 17)
    
96. GUICtrlSetColor(-1, 0x0000FF)
    
97. $Label12 = GUICtrlCreateLabel("作者博客:http://hi.baidu.com/辰cheng_", 160, 104, 423, 17)
    
98. GUICtrlSetColor(-1, 0xFF0000)
    
99. $Label13 = GUICtrlCreateLabel("支持网站:http://www.2345.com/?kaa001", 160, 128, 423, 17)
    
100. GUICtrlSetColor(-1, 0xFF0000)
     
101. $Label14 = GUICtrlCreateLabel("本软件可以检测Windows系统版本，如果此版本支持EasyOEM，EasyOEM就会根据", 160, 152, 430, 17)
     
102. GUICtrlSetColor(-1, 0x008000)
     
103. $Label15 = GUICtrlCreateLabel("系统版本来选择OEM修改项目。现支持Windows2000\XP\2003\Vista\2008(R2)\7", 160, 176, 428, 17)
     
104. GUICtrlSetColor(-1, 0x008000)
     
105. $Label16 = GUICtrlCreateLabel("Windows操作系统，以后版本会支持更多的Windows新系统。", 160, 200, 432, 17)
     
106. GUICtrlSetColor(-1, 0x008000)
     
107. $Label18 = GUICtrlCreateLabel("当OEM修改完成后，按一下[应用(A)]，就修改成功了！", 160, 224, 431, 17)
     
108. GUICtrlSetColor(-1, 0x008000)
     
109. $Label19 = GUICtrlCreateLabel("别忘了支持作者，将2345网址导航设为IE首页！", 160, 248, 254, 17)
     
110. GUICtrlSetColor(-1, 0xFF0000)
     
111. $Label20 = GUICtrlCreateLabel("注意:本程序误报率较高，但本程序不会伤害您的系统，如有误报请放行。", 160, 272, 390, 17)
     
112. GUICtrlSetColor(-1, 0x800000)
     
113. $TabSheet4 = GUICtrlCreateTabItem("关于")
     
114. $Edit2 = GUICtrlCreateEdit("", 160, 149, 425, 153, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
     
115. GUICtrlSetData(-1, StringFormat("辰cheng - EasyOEM NT5\6 OEM快速修改工具\r\n\r\n\r\n本程序由辰cheng编写，您可以随意传播本程序，但传播带来的后果作者不承担责任。\r\n\r\n编程：AutoIt\r\n\r\n感谢roustar31、pppyyy02的源码参考。\r\n\r\n感谢168kingmu对博客的支持。\r\n\r\n还有一些不知道昵称的人。\r\n\r\n博客：http://hi.baidu.com/辰cheng\r\n\r\n网址导航：http://www.2345.com/?kaa001\r\n\r\n辰cheng 二〇一二年一月"))
     
116. GUICtrlSetBkColor(-1, 0xFFFFFF)
     
117. $Icon1 = GUICtrlCreateIcon(@TempDir & "\cheng.tmp\EasyOEM\1.0\EASYOEM.ico", -1, 160, 88, 48, 48)
     
118. $Label21 = GUICtrlCreateLabel("EasyOEM 1.0", 208, 88, 360, 17)
     
119. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
     
120. $Label22 = GUICtrlCreateLabel(" NT5\6  OEM快速修改工具 ", 208, 104, 144, 17)
     
121. $Label23 = GUICtrlCreateLabel("(C) 2012 辰cheng原创作品", 216, 120, 353, 17)
     
122. $LINK1 = GUICtrlCreateLabel("作者博客", 160, 320, 52, 17)
     
123. GUICtrlSetCursor(-1, 0)
     
124. GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
     
125. GUICtrlSetColor(-1, 0x0000FF)
     
126. $LINK2 = GUICtrlCreateLabel("支持网站", 216, 320, 52, 17)
     
127. GUICtrlSetCursor(-1, 0)
     
128. GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
     
129. GUICtrlSetColor(-1, 0x0000FF)
     
130. GUICtrlCreateTabItem("")
     
131. GUISetState(@SW_SHOW)
     
132. While 1
     
133. $nMsg = GUIGetMsg()
     
134. Switch $nMsg
     
135. Case $GUI_EVENT_CLOSE
     
136. DirRemove(@TempDir & "\cheng.tmp\EasyOEM\1.0", 1)
     
137. Exit
     
138. Case $Checkbox1
     
139. If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED Then
     
140. $2345 = MsgBox(25 + 1 + 23 + 200 + 6 + 50, "EasyOEM", "您确定要这样做吗？" & @LF & "这样会让作者失去收益，导致程序停止开发新版本。" & @LF & "2345网址也是特别优秀的网址导航站。", 0, $Form1)
     
141. If $2345 = 2 Then GUICtrlSetState($Checkbox1, $GUI_CHECKED)
     
142. EndIf
     
143. Case $LINK1
     
144. Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://hi.baidu.com/%B3%BDcheng_/home")
     
145. Case $LINK2
     
146. Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.2345.com/?kaa001")
     
147. Case $Button1
     
148. $openlogo = FileOpenDialog("选择BMP格式的LOGO(请先改名为OEMLOGO.BMP)", @MyDocumentsDir, "名为OEMLOGO.BMP的图片(OEMLOGO.BMP)", 1, "OEMLOGO.BMP", $Form1)
     
149. GUICtrlSetImage($Pic2, $openlogo)
     
150. If $openlogo <> 0 Then $havelogo = 1
     
151. Case $Button2
     
152. GUICtrlSetState($Input1, $GUI_DISABLE)
     
153. GUICtrlSetState($Input2, $GUI_DISABLE)
     
154. GUICtrlSetState($Button2, $GUI_DISABLE)
     
155. GUICtrlSetState($Button1, $GUI_DISABLE)
     
156. GUICtrlSetState($Checkbox1, $GUI_DISABLE)
     
157. If $NT = 5 Then
     
158. GUICtrlSetState($Edit1, $GUI_DISABLE)
     
159. GUICtrlSetState($Input7, $GUI_DISABLE)
     
160. GUICtrlSetState($Input8, $GUI_DISABLE)
     
161. EndIf
     
162. If $NT = 6 Then
     
163. GUICtrlSetState($Input1, $GUI_DISABLE)
     
164. GUICtrlSetState($Input2, $GUI_DISABLE)
     
165. GUICtrlSetState($Input3, $GUI_DISABLE)
     
166. GUICtrlSetState($Input4, $GUI_DISABLE)
     
167. GUICtrlSetState($Input5, $GUI_DISABLE)
     
168. EndIf
     
169. If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
     
170. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "http://www.2345.com/?kaa001")
     
171. $var = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page")
     
172. If $var <> "http://www.2345.com/?kaa001" Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "http://www.2345.com/?kaa001")
     
173. EndIf
     
174. If GUICtrlRead($Input1) = "" Then MsgBox(64, "EasyOEM", "如果没有品牌，某些项目可能会修改失效！正在试图修改。")
     
175. If $NT = 5 Then NT5()
     
176. If $NT = 6 Then NT6()
     
177. EndSwitch
     
178. WEnd
     
179. Func NT5()
     
180. $a = GUICtrlRead($Input1)
     
181. $b = GUICtrlRead($Input2)
     
182. If $havelogo = 1 Then
     
183. $f = $openlogo
     
184. FileCopy($f, @SystemDir, 1)
     
185. EndIf
     
186. $g = GUICtrlRead($Input7)
     
187. $h = GUICtrlRead($Input8)
     
188. IniDelete(@SystemDir & "\oeminfo.ini", "Support Information")
     
189. IniDelete(@SystemDir & "\oeminfo.ini", "General")
     
190. If FileExists(@SystemDir & "\oeminfo.ini") = 0 Then FileInstall("oeminfo.ini", @SystemDir & "\oeminfo.ini")
     
191. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "REG_SZ", $h)
     
192. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", "REG_SZ", $g)
     
193. IniWrite(@SystemDir & "\oeminfo.ini", "General", "Manufacturer", $a)
     
194. IniWrite(@SystemDir & "\oeminfo.ini", "General", "Model", $b)
     
195. $getedit = GUICtrlRead($Edit1)
     
196. $split = StringSplit($getedit, @LF)
     
197. If FileExists(@SystemDir & "\oemlogo.bmp") = 1 Then FileDelete(@SystemDir & "\oemlogo.bmp")
     
198. If $split[0] > 1 Then
     
199. For $i = 1 To $split[0]
     
200. IniWrite(@SystemDir & "\oeminfo.ini", "Support Information", "line" & $i, $split[$i])
     
201. Next
     
202. ElseIf $split[0] = 1 Then
     
203. IniWrite(@SystemDir & "\oeminfo.ini", "Support Information", "line1", $split[1])
     
204. EndIf
     
205. If GUICtrlRead($Input1) <> "" Then MsgBox(64, "EasyOEM", "NT5OEM信息修改完成。", 0, $Form1)
     
206. GUICtrlSetState($Input1, $GUI_ENABLE)
     
207. GUICtrlSetState($Input2, $GUI_ENABLE)
     
208. GUICtrlSetState($Button2, $GUI_ENABLE)
     
209. GUICtrlSetState($Button1, $GUI_ENABLE)
     
210. GUICtrlSetState($Checkbox1, $GUI_ENABLE)
     
211. GUICtrlSetState($Edit1, $GUI_ENABLE)
     
212. GUICtrlSetState($Input7, $GUI_ENABLE)
     
213. GUICtrlSetState($Input8, $GUI_ENABLE)
     
214. EndFunc
     
215. Func NT6()
     
216. If $havelogo = 1 Then
     
217. $logo = $openlogo
     
218. FileCopy($logo, @SystemDir & "\oobe\Info", 9)
     
219. EndIf
     
220. $oser = GUICtrlRead($Input1)
     
221. $pc = GUICtrlRead($Input2)
     
222. $phone = GUICtrlRead($Input4)
     
223. $time = GUICtrlRead($Input3)
     
224. $net = GUICtrlRead($Input5)
     
225. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "logo")
     
226. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer")
     
227. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Model")
     
228. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportHours")
     
229. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportPhone")
     
230. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportURL")
     
231. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "logo", "REG_SZ", @SystemDir & "\oobe\Info\oemlogo.bmp")
     
232. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer", "REG_SZ", $oser)
     
233. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Model", "REG_SZ", $pc)
     
234. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportHours", "REG_SZ", $time)
     
235. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportPhone", "REG_SZ", $phone)
     
236. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportURL", "REG_SZ", $net)
     
237. If GUICtrlRead($Input1) <> "" Then MsgBox(64, "EasyOEM", "NT6OEM信息修改完成。", 0, $Form1)
     
238. GUICtrlSetState($Input2, $GUI_ENABLE)
     
239. GUICtrlSetState($Button2, $GUI_ENABLE)
     
240. GUICtrlSetState($Button1, $GUI_ENABLE)
     
241. GUICtrlSetState($Checkbox1, $GUI_ENABLE)
     
242. GUICtrlSetState($Input1, $GUI_ENABLE)
     
243. GUICtrlSetState($Input2, $GUI_ENABLE)
     
244. GUICtrlSetState($Input3, $GUI_ENABLE)
     
245. GUICtrlSetState($Input4, $GUI_ENABLE)
     
246. GUICtrlSetState($Input5, $GUI_ENABLE)
     
247. EndFunc
     

复制代码

附件:

很喜欢。顶一个

来学习了 谢谢啊

强大啊 支持

谢谢分享源码。