UC知道http://www.baidu.com/s?wd=中国际博览会&tn=tonyous_pg&bar=
来源：百度知道 编辑：UC知道 时间：2024/05/27 18:37:50
http://www.baidu.com/s?wd=中国际博览会&tn=tonyous_pg&bar=
如我要用VB进行编码后再传给wd,输出后再进行转换编码
我可以多写几个例子给你们看,
比如:http://www.zh108/.cn/index.htm?name=中国
但是我要通过编码后再传给name
转换后:http://www.zh108/.cn/index.htm?name=d$#sag%
注:name=d$#sag% 是一个比如?
请高手们帮我一个忙
帮到忙的,再给你100分
通过VB进行编码,
Dim name As String
Dim i As Integer
Text2.Text = ""
For i = 1 To Len(Text1.Text)
name = name & Hex(Asc(Mid(Text1.Text, i, 1)))
Next i
TABWeb1.OpenURL ("http://localhost:21568/IE108HEM/InsertCode.aspx?name=" & name)
然后通过C#解码
我是这样
如我要用VB进行编码后再传给wd,输出后再进行转换编码
我可以多写几个例子给你们看,
比如:http://www.zh108/.cn/index.htm?name=中国
但是我要通过编码后再传给name
转换后:http://www.zh108/.cn/index.htm?name=d$#sag%
注:name=d$#sag% 是一个比如?
请高手们帮我一个忙
帮到忙的,再给你100分
通过VB进行编码,
Dim name As String
Dim i As Integer
Text2.Text = ""
For i = 1 To Len(Text1.Text)
name = name & Hex(Asc(Mid(Text1.Text, i, 1)))
Next i
TABWeb1.OpenURL ("http://localhost:21568/IE108HEM/InsertCode.aspx?name=" & name)
然后通过C#解码
我是这样
编码表是谁设定的？有编码对应表，就好办了
这个你要设200分，还要追加。
这个供参考
'网址中类似“%D2%BB”的编码与汉字的相互转换
'例子需控件：Command1
Private Sub Form_Load()
Command1.Caption = "编码转换"
End Sub
Private Sub Command1_Click()
Dim nStr As String, Str1 As String
nStr = "http://www.zh108/.cn/index.htm?name=中国"
' Str1 = ChinaStr(nStr) '16 进制编码 转 汉字
' nStr = "http://passport.baidu.com/?business&aid=6&un=一○○度#2"
Str1 = ChinaStr(nStr, True) '汉字转 16 进制编码
MsgBox nStr & vbCrLf & vbCrLf & "转变后是：" & vbCrLf & vbCrLf & Str1, vbInformation
End Sub
Private Function ChinaStr(nStr As String, Optional ToHex As Boolean) As String
'将字符串中汉字编码 与 汉字 互换：（例如“%D2%BB%A1%F0%A1%F0%B6%C8”就是“一○○度”）
&