高手帮忙
| For i=1 To Len(Str) c=mid(Str,i,1) iCode =Asc(c) If iCode<0 Then iCode = iCode + 65535//这里为什么要加65535呀 If iCode>255 Then iLow = Left(Hex(Asc(c)),2)//这里的Hex函数是什么意思的 iHigh =Right(Hex(Asc(c)),2) toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)//这里在高位和地位前面加个H有什么用呀 Else toByte = toByte & chrB(AscB(c)) End If Next End function |
