Windows XP2003 序列号更换工具au3源码

1. 
   
2. #include <GUIConstants.au3>
   
3. #include <Constants.au3>
   
4. _wmiset()
   
5. $strComputer = "."
   
6. $objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2")
   
7. ;Global $colComputers
   
8. $colComputers = $objWMIService.ExecQuery("Select * from win32_WindowsProductActivation")
   
9.             
   
10. $hgui = GUICreate("Windows XP/2003 序列号更换工具", 260, 110)
    
11. GuiSetIcon("shell32.dll",162, $hgui)
    
12. 
    
13. Dim $Setkey = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID")
    
14. GUICtrlCreateLabel("系统序列号：更换序号请按照以下格式输入", 20, 10, 300, 20)
    
15. GUICtrlSetColor(-1,0xff0000)
    
16.    $Key = GUICtrlCreateInput("",20, 30,230, 25)
    
17.    GUICtrlSetData($key, DecodeProductKey($Setkey))
    
18.    $readbutton = GUICtrlCreateButton("修改", 20, 80, 100, 25)
    
19.    $exitbutton = GUICtrlCreateButton("退出", 150, 80, 100, 25)
    
20.   
    
21.   
    
22.    GUISetState(@SW_SHOW)
    
23. While 1
    
24. $msg = GUIGetMsg()
    
25.    Select
    
26. Case $msg = $readbutton
    
27. $readkey = GUICtrlRead($Key)
    
28. If $readkey = "" then
    
29.     MsgBox(16,"错误","你确定你输入的序列号没错吗？")
    
30.     Else
    
31. $Setkey=StringReplace($readkey,"-","")
    
32. 
    
33. 
    
34. ;MsgBox(0,"sdlkfj",$Setkey)
    
35. 
    
36. ;for $obj In $colComputers
    
37. 
    
38.    
    
39.     ;$Obj.SetProductKey ($Setkey)
    
40.     if @error = 0 then
    
41. MsgBox(64,"恭喜！！！","您的 Windows CD-KEY 修改成功。请检查系统属性。")
    
42. Endif
    
43. if @error <> 0 then
    
44. 
    
45. MsgBox(16,"失败","修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。")
    
46. 
    
47. Endif
    
48.    
    
49.     ;Next
    
50.     Endif
    
51. Case $msg = $GUI_EVENT_CLOSE   Or $msg = $exitbutton
    
52. Exit
    
53.    EndSelect
    
54. WEnd
    
55. 
    
56. Func DecodeProductKey($BinaryDPID)
    
57. Local $bKey[15]
    
58. Local $sKey[29]
    
59. Local $Digits[24]
    
60. Local $Value = 0
    
61. Local $hi = 0
    
62. Local $n = 0
    
63. Local $i = 0
    
64. Local $dlen = 29
    
65. Local $slen = 15
    
66. Local $Result
    
67. $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "")
    
68. $BinaryDPID = StringMid($BinaryDPID, 105, 30)
    
69. For $i = 1 To 29 Step 2
    
70. $bKey[Int($i / 2) ] = Dec(StringMid($BinaryDPID, $i, 2))
    
71. Next
    
72. For $i = $dlen - 1 To 0 Step - 1
    
73. If Mod(($i + 1), 6) = 0 Then
    
74. $sKey[$i] = "-"
    
75. Else
    
76. $hi = 0
    
77. For $n = $slen - 1 To 0 Step - 1
    
78. $Value = BitOR(BitShift($hi, -8), $bKey[$n])
    
79. $bKey[$n] = Int($Value / 24)
    
80. $hi = Mod($Value, 24)
    
81. Next
    
82. $sKey[$i] = $Digits[$hi + 1]
    
83. EndIf
    
84. Next
    
85. For $i = 0 To 28
    
86. $Result = $Result & $sKey[$i]
    
87. Next
    
88. Return $Result
    
89. EndFunc
    
90. 
    
91. 
    
92. Func _wmiset()
    
93. ;制作：叁恨居士
    
94. ;功能：判断系统是否存在WMI服务，没有便退出。如果没有运行，便将WMI服务设置启动类型为自动并运行它。
    
95. $foo = Run(@ComSpec & " /c sc query winmgmt", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
    
96. $lines = ""
    
97. While 1
    
98. $line = StdoutRead($foo)
    
99. If @error Then ExitLoop
    
100.     $lines &= $line
     
101. Wend
     
102. $lines = StringSplit($lines,@CRLF,1)
     
103. For $x = 1 To $lines[0]
     
104.        If StringInStr($lines[$x], "1060")   Then
     
105.             MsgBox(32,"错误","本软件运行所需的服务不存在")
     
106.             ExitLoop
     
107.                Exit
     
108. ElseIf StringInStr($lines[$x], "STOPPED") Then
     
109.             RunWait(@ComSpec & ' /c sc config winmgmt start= auto', @SystemDir, @SW_HIDE)
     
110.        RunWait(@ComSpec & ' /c sc start winmgmt', @SystemDir, @SW_HIDE)
     
111.              ExitLoop
     
112. EndIf
     
113. Next
     
114. EndFunc

复制代码

这个可以有的