- UID
- 41283
注册时间2007-12-15
阅读权限10
最后登录1970-1-1
周游历练
TA的每日心情 | 开心 2024-11-26 22:00 |
---|
签到天数: 5 天 [LV.2]偶尔看看I
|
PB的程序,先PBKILL发现
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 PARENT.sle_2.text = "5CCLUB") OR PARENT.sle_2.text = "樱园阁酒店") OR upper(PARENT.sle_2.text) = "5CCLUB") THEN //0
messagebox("提示","注册成功!!!")
RETURN
END IF //0
ls_hotel_name = PARENT.sle_2.text
IF PARENT.sle_1.text = convert10to16(f_get_py(ls_hotel_name)) THEN //4
messagebox("信息","注册成功,感谢您购买")
ELSE //4
messagebox("信息","你输入的注册号码不正确")
END IF //4
RETURN
IF PARENT.sle_1.text = convert10to16(f_get_py(ls_hotel_name)) THEN //4
messagebox("信息","注册成功,感谢您购买")
ELSE //4
messagebox("信息","你输入的注册号码不正确")
END IF //4
然后又找到f_get_py(ls_hotel_name)这个函数
//Public function f_get_py (string hz) returns string
//string hz
string qsss
string retstr
integer qlen
integer hb
integer lb
integer i
integer h
integer l
qsss = trim(hz)
qlen = len(qsss)
hb = 176
lb = 160
retstr = ""
i = 1
do while i <= qlen
h = asc(mid(qsss,i,1))
if h < 160 then
retstr = retstr + char(h)
i = i + 1
else
l = asc(mid(qsss,i + 1,1))
choose case h
case hb
if l <= lb + 36 then
retstr = retstr + "A"
else
retstr = retstr + "B"
end if
case hb + 1
retstr = retstr + "B"
case hb + 2
if l <= lb + 32 then
retstr = retstr + "B"
else
retstr = retstr + "C"
end if
case hb + 3
retstr = retstr + "C"
case hb + 4
if l <= lb + 77 then
retstr = retstr + "C"
else
retstr = retstr + "D"
end if
case hb + 5
retstr = retstr + "D"
case hb + 6
if l <= lb + 73 then
retstr = retstr + "D"
else
retstr = retstr + "E"
end if
case hb + 7
if l <= lb + 1 then
retstr = retstr + "E"
else
retstr = retstr + "F"
end if
case hb + 8
if l <= lb + 32 then
retstr = retstr + "F"
else
retstr = retstr + "G"
end if
case hb + 9
if l <= lb + 93 then
retstr = retstr + "G"
else
retstr = retstr + "H"
end if
case hb + 10
retstr = retstr + "H"
case hb + 11
if l <= lb + 86 then
retstr = retstr + "H"
else
retstr = retstr + "J"
end if
case + 14 >=
retstr = retstr + "J"
case hb + 15
if l <= lb + 6 then
retstr = retstr + "J"
else
retstr = retstr + "K"
end if
case hb + 16
if l <= lb + 11 then
retstr = retstr + "K"
else
retstr = retstr + "L"
end if
case hb + 17
retstr = retstr + "L"
case hb + 18
if l <= lb + 71 then
retstr = retstr + "L"
else
retstr = retstr + "M"
end if
case hb + 19
retstr = retstr + "M"
case hb + 20
if l <= lb + 34 then
retstr = retstr + "M"
else
retstr = retstr + "N"
end if
case hb + 21
if l <= lb + 21 then
retstr = retstr + "N"
else
if l <= lb + 29 then
retstr = retstr + "O"
else
retstr = retstr + "P"
end if
end if
case hb + 22
if l <= lb + 57 then
retstr = retstr + "P"
else
retstr = retstr + "Q"
end if
case hb + 23
retstr = retstr + "Q"
case hb + 24
if l <= lb + 26 then
retstr = retstr + "Q"
else
if l <= lb + 85 then
retstr = retstr + "R"
else
retstr = retstr + "S"
end if
end if
case + 26 >=
retstr = retstr + "S"
case hb + 27
if l <= lb + 88 then
retstr = retstr + "S"
else
retstr = retstr + "T"
end if
case hb + 28
retstr = retstr + "T"
case hb + 29
if l <= lb + 57 then
retstr = retstr + "T"
else
retstr = retstr + "W"
end if
case hb + 30
if l <= lb + 83 then
retstr = retstr + "W"
else
retstr = retstr + "X"
end if
case + 32 >=
retstr = retstr + "X"
case hb + 33
if l <= lb + 24 then
retstr = retstr + "X"
else
retstr = retstr + "Y"
end if
case + 35 >=
retstr = retstr + "Y"
case hb + 36
if l <= lb + 48 then
retstr = retstr + "Y"
else
retstr = retstr + "Z"
end if
case + 39 >=
retstr = retstr + "Z"
case else
retstr = retstr + "%"
end choose
i = i + 2
end if
loop
还有这个函数
convert10to16
//Public function convert10to16 (string mstring) returns string
//string mstring
string ls_first
string ls_second
string ls_16
string ls_return
string ls_dec_9="9"
string ls_dec_0="0"
string ls_dec_a="A"
long ll_start=1
integer li_char
integer li_hex=16
integer li_int
integer li_hexlen=2
integer li_dec=10
integer li_char_spacebar
ls_return = ""
FOR ll_start = 1 TO len(mstring) //1
li_char = asc(mid(mstring,ll_start,1))
li_char_spacebar = li_char
ls_16 = ""
DO UNTIL li_char <= 0 //5
li_int = mod(li_char,li_hex)
li_char = int(li_char / li_hex)
IF li_int >= li_dec THEN //8
ls_16 = char(li_int - 10 + asc(ls_dec_a)) + ls_16
CONTINUE
END IF //8
ls_16 = string(li_int) + ls_16
LOOP //5
li_char = len(ls_16)
IF li_char < li_hexlen THEN //14
ls_16 = ls_dec_0 + ls_16
END IF //14
ls_return = ls_return + ls_16
NEXT //1
RETURN ls_return
我稍微能看懂一点,放到VB里面,老是错误,请各位大老大不吝赐教。
[ 本帖最后由 walili 于 2010-1-2 09:44 编辑 ] |
|