字符串转换成十六进制
public function strtohex(byval strs as string) as string
dim abyts() as byte
dim byttemp as byte
dim strtemp as string
dim llocation as long
abyts = strconv(strs, vbfromunicode)
for llocation = 0 to ubound(abyts)
byttemp = abyts(llocation)
strtemp = hex(byttemp)
strtemp = right("00" & strtemp, 2)
strtohex = strtohex & strtemp
next llocation
end function
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
