by sak2010 16/08/10, 03:58 am
การเขียนสคริ๊ปและการสร้างไฟล์ Patch.exe จริงๆแล้วการสร้างโปรแกรมเพื่อการลงทะเบียน
มีอยู่หลายลักษณะ หลายรูปแบบ แล้วแต่ความคิดสร้างสรรของแต่ละคน ฉนั้นท่านต้องค้นคิดด้วยตนเอง
------------------------------------------------------------------------------------------------------------
อันนี้เป็นโค๊ด Patcher สำหรับโปรแกรม IDM ..ลงไว้ให้2อย่างให้เลือก เพื่อการทดลอง คือ
โค๊ดลงทะเบียนและโค๊ดถอนลงทะเบียน โดยเข้าไปดูการเปลี่ยนแปลงของ Data ใน Registry ตามที่อยู่นี้
Register.reg (ลงทะเบียน)
- Code:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager]
"LName"="NoPE"
"Serial"="XXXXX-XXXXX-XXXXX-XXXXX"
"FName"="mine "
"Email"="nope@front.ru"
"AdvIntDriver"=dword:00000001
XXXXX หมายถึง Serial Number ที่ท่านต้องเปลี่ยนตามความเป็นจริง
----------------------------------------------------------------------------
UnRegister.reg (ถอนลงทะเบียน)
- Code:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager]
"LName"="NoPE"
"Serial"="-"
"FName"="mine "
"Email"="nope@front.ru"
"AdvIntDriver"=dword:00000001
------------------------------------------------------
Register.au3 - Code:
$readRet = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "Serial")
If $readRet <> '' Then
MsgBox(64, "", "ท่านลงทะเบียนไว้แล้ว ไม่ต้องลงซ้ำอีก.", 3)
Exit
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "Email", "REG_SZ", "nope@front.ru")
Sleep(500)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "FName", "REG_SZ", "mine ")
Sleep(500)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "LName", "REG_SZ", "NoPE")
Sleep(500)
$writRet = RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "Serial", "REG_SZ", "XXXXX-XXXXX-XXXXX-XXXXX") ;Change XXXXX is Serial Number
If $writRet = 1 Then
ToolTip("Registration complete.", 370, 300, "")
Sleep(3000)
ToolTip("")
EndIf
EndIf
-------------------------------------------------------
Register.vbs - Code:
Dim ShellObj, ret
Set ShellObj=CreateObject("WScript.Shell")
ShellObj.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager")
ret = ShellObj.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager\Serial")
If ret <> "" Then
ShellObj.Popup "ลงทะเบียนไว้แล้ว ไม่ต้องลงซ้ำอีก.",2,"", 0
Else
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\Email", "nope@front.ru ", "REG_SZ"
WScript.Sleep 500
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\FName", "mine \ ", "REG_SZ"
WScript.Sleep 500
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\LName", "NoPE", "REG_SZ"
WScript.Sleep 500
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\Serial", "XXXXX-XXXXX-XXXXX-XXXXX", "REG_SZ"
ShellObj.Popup "ลงทะเบียนเรียบร้อย.",2,"", 64
End If
Set ShellObj=Nothing
WScript.Quit()
แก้ไขล่าสุดโดย sak2010 เมื่อ 17/08/10, 06:18 pm, ทั้งหมด 9 ครั้ง