vb6转16进制 

Public Function xEncode(ByVal strEncode As String) As String
If strEncode <> "" Then
     var_51 = "0x"
For i = 1 To Len(strEncode)
     var_50 = Hex(AscW(CStr(Mid(strEncode, i, 1))))
     var_51 = var_51 & var_50
Next
    xEncode = CStr(var_51)
End If
End Function

　　

posted @ 2016-08-27 17:46  comsky  阅读(612)  评论(0)  编辑  收藏  举报