Button events
//clicked (none) returns long [pbm_bnclicked]
A decimal usercount
String ls_cpu_bz
String ls_py
String ls_jqm_bz
String ls_hotel_name
String ls_py2
The integer loginok
//Has had been Shielded.
IF (((((((upper (PARENT. Sle_2. Text)="DVCHEN" OR upper (PARENT. Sle_2. Text)="DVCHEN [OCN]") OR upper (PARENT. Sle_2. Text)="DVCHEN [D4S]") OR upper (PARENT. Sle_2. Text)="CHINADFORCE") OR upper (PARENT. Sle_2. Text)="CHINAOCN") OR the PARENT. Sle_2. Text="5 cclub") OR the PARENT. Sle_2. Text="sakura garden hotel") OR upper (PARENT. Sle_2. Text)="5 cclub") THEN//1
Messagebox (" prompt ", "registered success!!!!!!
")RETURN
END the IF//1
Ls_hotel_name=PARENT. Sle_2. Text
IF the PARENT. Sle_1. Text=convert10to16 (f_get_py (ls_hotel_name)) THEN//6
Messagebox (" information ", "registered successfully, thank you for purchasing the top software")
The ELSE//6
Messagebox (" information ", "the registration number you entered is not correct")
END IF//6
RETURN
Function a
//Public function convert10to16 (string mstring) returns the string
//string mstring
String ls_first
String ls_second
String ls_16
String ls_return
String ls_dec_9
String ls_dec_0="0"
String ls_dec_a="A"
Long ll_start=1
The integer li_char
The integer li_hex=16
The integer li_int
The integer li_hexlen=2
The integer li_dec=10
The integer li_char_spacebar
//Has had been Shielded.
Ls_return=""
Ll_start=1
LABEL_KENSHU_2:
IF len (mstring) & gt;=ll_start THEN//3
Li_char=asc (mid (mstring ll_start, 1))
Li_char_spacebar=li_char
Ls_16=""
The ELSE//3
RETURN ls_return
END the IF//3
DO UNTIL li_char & lt;=0
Li_int=mod (li_char li_hex)
Li_char=int (li_char/li_hex)
IF li_int & gt;=li_dec THEN//14
Ls_16=char (li_int - 10 + asc (ls_dec_a)) + ls_16
The ELSE//14
Ls_16=string (li_int) + ls_16
END the IF//14
LOOP
Li_char=len (ls_16)
IF li_char & lt; Li_hexlen THEN//21
Ls_16=ls_dec_0 + ls_16
END the IF//21
Ls_return=ls_return + ls_16
Ll_start + +
GOTO LABEL_KENSHU_2
Function 2
//Public function f_get_py (string hz) returns the string
//string hz
String QSSS
String retstr
The integer qlen
The integer hb
The integer lb
The integer I
The integer h
The integer l
The integer KenShuChooseCase_1
//Has had been Shielded.
QSSS=trim (hz)
Qlen=len (QSSS)
Hb=176
Lb=160
Retstr=""
I=1
The DO WHILE I & lt;=qlen
H=asc (mid (QSSS, I, 1))
IF h & lt; THEN/160/10
Retstr=retstr + char (h)
I=I + 1
The ELSE//10
L=asc (mid (QSSS, I + 1, 1))
KenShuChooseCase_1=h
IF hb=KenShuChooseCase_1 THEN//17
IF l & lt;=19 lb + 36 THEN//
Retstr=retstr + "A"
GOTO LABEL_KENSHU_237
END the IF//19
Retstr=retstr + "B"
ELSEIF hb + 1=KenShuChooseCase_1 THEN//17
Retstr=retstr + "B"
ELSEIF hb + 2=KenShuChooseCase_1 THEN//17
IF l & lt;=31 lb + 32 THEN//
Retstr=retstr + "B"
GOTO LABEL_KENSHU_237
END the IF//31
Retstr=retstr + "C"
ELSEIF hb + 3=KenShuChooseCase_1 THEN//17
Retstr=retstr + "C"
ELSEIF hb + 4=KenShuChooseCase_1 THEN//17
IF l & lt; 43=lb + 77 THEN//
Retstr=retstr + "C"
GOTO LABEL_KENSHU_237
END the IF//43
Retstr=retstr + "D"
ELSEIF hb + 5=KenShuChooseCase_1 THEN//17
Retstr=retstr + "D"
ELSEIF hb + 6=KenShuChooseCase_1 THEN//17
IF l & lt;=73 THEN/lb +/55
Retstr=retstr + "D"
GOTO LABEL_KENSHU_237
END the IF//55
Retstr=retstr + "E"
ELSEIF hb + 7=KenShuChooseCase_1 THEN//17
IF l & lt;=1 THEN/lb +/63
Retstr=retstr + "E"
GOTO LABEL_KENSHU_237
//SHU_ERROR: DEMO_SCRIPT_LIMIT.
CodePudding user response:
You got is the source code, but also let the other people do?Lazy people can't lazy to this point
CodePudding user response:
Serious agree!CodePudding user response:
Eyes see flowers, this is not hard to myself?CodePudding user response:
Agree with the first floor, besides, so many, see received all!CodePudding user response:
To the first floor, almost be fooled, thought is what other language,