سلا من این پلاگینو با مثال گرفتم GetDiskSerial
فقط مشکام اینکه می خوام فقط روی یک سیستم اجرا بشه
این کد آیا باید 10 رو به 1 تبدیل کنم اگه هست پس پیغام نمیده؟
**
**License Number of 1-1000.(Integer)
PluginSet("PlugIn","10")
PluginRun("PlugIn","LicenseNumber")
**
**Returns the Machine ID of the hard disk.
PluginRun("PlugIn","GetMachineID")
PluginGet("PlugIn","temp$")
LoadText("Text","temp$")
**
RunScript("Script_Decode")
**
************************************
** Serial Check
** Reads serial from registry
************************************
** Integer input parameter sets registry location:
** 1: HKEY_CLASSES_ROOT
** 2: HKEY_CURRENT_USER
** 3: HKEY_LOCAL_MACHINE
** 4: HKEY_USERS
** 5: HKEY_CURRENT_CONFIG
************************************
HKEY=2
PluginSet("PlugIn","HKEY")
**
KeyName$='MyApp v1.0'
AppName$='MyApp'
Address$='\Software\Microsoft\\'
Reg$=Address$+'|'+KeyName$+'|'+AppName$
PluginSet("PlugIn","Reg$")
PluginRun("PlugIn","RegistryRead")
PluginGet("PlugIn","c$")
If (c$=String$) Then
NextPage()
End
***********************************
** End Serial Check
***********************************
و یک سوال دیگه که اگه یک موقعی کاربر کل سیستم رو ارتقا داد
من باید از کجا بیدونم که کاریر دروق یا راست میگه شاید سیستم جدید خریده باشه؟
مرسی اگه راهنمایی با مثال بکنبد
فقط مشکام اینکه می خوام فقط روی یک سیستم اجرا بشه
این کد آیا باید 10 رو به 1 تبدیل کنم اگه هست پس پیغام نمیده؟
**
**License Number of 1-1000.(Integer)
PluginSet("PlugIn","10")
PluginRun("PlugIn","LicenseNumber")
**
**Returns the Machine ID of the hard disk.
PluginRun("PlugIn","GetMachineID")
PluginGet("PlugIn","temp$")
LoadText("Text","temp$")
**
RunScript("Script_Decode")
**
************************************
** Serial Check
** Reads serial from registry
************************************
** Integer input parameter sets registry location:
** 1: HKEY_CLASSES_ROOT
** 2: HKEY_CURRENT_USER
** 3: HKEY_LOCAL_MACHINE
** 4: HKEY_USERS
** 5: HKEY_CURRENT_CONFIG
************************************
HKEY=2
PluginSet("PlugIn","HKEY")
**
KeyName$='MyApp v1.0'
AppName$='MyApp'
Address$='\Software\Microsoft\\'
Reg$=Address$+'|'+KeyName$+'|'+AppName$
PluginSet("PlugIn","Reg$")
PluginRun("PlugIn","RegistryRead")
PluginGet("PlugIn","c$")
If (c$=String$) Then
NextPage()
End
***********************************
** End Serial Check
***********************************
و یک سوال دیگه که اگه یک موقعی کاربر کل سیستم رو ارتقا داد
من باید از کجا بیدونم که کاریر دروق یا راست میگه شاید سیستم جدید خریده باشه؟
مرسی اگه راهنمایی با مثال بکنبد
