vb 十六进制转字符串
Public Function HexToStr(ByVal strs As String) As String
Dim i As Integer, tmp As String, n
If Len(strs) Mod 2 Then Exit Function
For i = 1 To Len(strs) Step 2
n = Val("&H" & Mid(strs, i, 2))
If n < 0 Or n > 127 Then
n = Val("&H" & Mid(strs, i, 4))
i = i + 2
End If
tmp = tmp & Chr(n)
Next i
HexToStr = tmp
End Function
Private Sub Command1_Click()
Text2.Text = HexToStr(Text1.Text)
End Sub
Private Sub Form_Load()
Text1.Text = "E3809053696D656EE38091E78E89E69E973C3C3C2A41
2E6C7379E68898E9989FE8BF9EE8B7B3E69C8DE58AA1E599A8"
End Sub
如上代码，只能转出乱码
“銆怱imen銆戠帀鏋? < <*A.lsy鎴橀槦杩炶烦链嶅姟鍣”
有人说这个字符串要这么转“它的编码是UTF8的Unicode字符，这个
想还原字符就有些麻烦了，首先从16进制转为UTF8格式，然后转为
数值，最后转ASCII，还原后的字符串为结果”
具体操作怎么做
相关问答：
我有自动生成序列号的程序，但是怎么跟打包后的安装程序结合在一起，在安装时提示用户输入序列号，正确后再继续安装？？？
方法1：你可以在运行程序后输入序列号注册，很多软件都是这样的。
方法2：使用Setu ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
