[AppleScript] 纯文本查看 复制代码
PROCEDURE Click
SET HEADING OFF
SET CONSOLE OFF
SET SAFETY OFF
SET TALK OFF
aa = ''
IF thisform..tag='do'
LOCAL owmi, as, object, olocal, as, object, ohardware, as, object, object1, as, object, lccpuid, lcmac, lchdid, lcserial
owmi = CREATEOBJECT("WbemScripting.SWbemLocator")
olocal = owmi.connectserver(".", "root\cimv2")
ohardware = olocal.execquery("SELECT * FROM Win32_Processor")
FOR EACH object1 IN ohardware
lccpuid = object1.properties_('ProcessorId').value
EXIT
ENDFOR
ad = ALLTRIM(lccpuid)
ELSE
ad = ALLTRIM(())
ENDIF
ad = RTRIM(ad)
IF ad<>'ZZK'
aaa = ALLTRIM(STR(LENC(ad)+33))+"-"
ad = RIGHT(ad, 8)
FOR i = 1 TO 8
IF ISDIGIT(ad)=.T.
aa = aa+LEFT(ad, 1)
ENDIF
ad = RIGHT(ad, 8-i)
ENDFOR
ELSE
ad = ALLTRIM(getidesn())
ad = RTRIM(ad)
aaa = ALLTRIM(STR(LENC(ad)+33))+"-"
ad = RIGHT(ad, 8)
FOR i = 1 TO 8
IF ISDIGIT(ad)=.T.
aa = aa+LEFT(ad, 1)
ENDIF
ad = RIGHT(ad, 8-i)
ENDFOR
ENDIF
IF ad='ZZK'
QUIT
ENDIF
IF VAL(aa)=0
aa = '27825'
ENDIF
a2w = ALLTRIM(STR(VAL(aa)*6*4+2))
hyh = STRTRAN(eee, "—", "-")
hyh = STRTRAN(hyh, "_", "-")
IF ALLTRIM(hyh)==aaa+a2w
this.caption = "成 功"
IF FILE(GETENV('WINDIR')+'\system32\syssd.dll')=.T.
ERASE GETENV('WINDIR')+'\system32\syssd.dll'
ENDIF
DECLARE INTEGER RegOpenKey IN Win32API INTEGER, STRING @, INTEGER @
DECLARE INTEGER RegCreateKey IN Win32API INTEGER, STRING @, INTEGER @
DECLARE INTEGER RegSetValueEx IN Win32API INTEGER, STRING, INTEGER, INTEGER, STRING, INTEGER
csubkey = 'Software\栋桦工作室\3D彩票公式机'
nresult = 0
IF regopenkey(BITSET(0, 31)+2, @csubkey, @nresult)<>0
regcreatekey(BITSET(0, 31)+2, csubkey, @nresult)
ENDIF
lpbdata = aaa+a2w
lpbdata = lpbdata+CHR(0)
cbdata = LEN(lpbdata)
regsetvalueex(nresult, 'ID', 0, 1, lpbdata, cbdata)
lpbdata = "ZZKDDF@126.com"
lpbdata = lpbdata+CHR(0)
cbdata = LEN(lpbdata)
regsetvalueex(nresult, 'E-mail', 0, 1, lpbdata, cbdata)
MESSAGEBOX("请重新运行确认!"+CHR(13), 32, "栋桦提示: ")
owsh = CREATEOBJECT("wscript.shell")
owsh.run("3djsj.exe")
QUIT
ELSE
IF this.tag='3'
MESSAGEBOX("您已多次录入错误注册码!"+CHR(13), 32, "栋桦提示: ")
QUIT
ENDIF
MESSAGEBOX("您录入注册码错误!请核对后再录入!"+CHR(13), 32, "栋桦提示: ")
this.tag = ALLTRIM(STR(VAL(this.tag)+1))
ENDIF
ENDPROC