2个回答
展开全部
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim S1 As String
Dim S2 As String
Dim S3 As String
Dim I1 As String
S1 = "\u652f\u4ed8\u5b9d"
S1 = Trim(S1)
Do While Len(S1) > 1
I1 = InStr(1, S1, "\u")
If I1 > 0 Then
S3 = S3 & Strings.Left(S1, I1 - 1)
S2 = "&H" & Mid(S1, I1 + 2, 4)
S2 = ChrW(S2)
S3 = S3 & S2
S1 = Strings.Right(S1, Len(S1) - I1 - 5)
Else
S3 = S3 & S1
S1 = ""
End If
Loop
MsgBox(S3)
End Sub
Dim S1 As String
Dim S2 As String
Dim S3 As String
Dim I1 As String
S1 = "\u652f\u4ed8\u5b9d"
S1 = Trim(S1)
Do While Len(S1) > 1
I1 = InStr(1, S1, "\u")
If I1 > 0 Then
S3 = S3 & Strings.Left(S1, I1 - 1)
S2 = "&H" & Mid(S1, I1 + 2, 4)
S2 = ChrW(S2)
S3 = S3 & S2
S1 = Strings.Right(S1, Len(S1) - I1 - 5)
Else
S3 = S3 & S1
S1 = ""
End If
Loop
MsgBox(S3)
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Storm代理
2023-08-29 广告
"StormProxies是全球大数据IP资源服务商，其住宅代理网络由真实的家庭住宅IP组成，可为企业或个人提供满足各种场景的代理产品。点击免费测试（注册即送1G流量）StormProxies有哪些优势？1、IP+端口提取形式，不限带宽，I...
点击进入详情页
本回答由Storm代理提供
展开全部
\uxxxx是什么编码？没见过，你还是指Unicode？
更多追问追答
追问
比如：
\u652f\u4ed8\u5b9d5
反应过来是“支付宝”这三个汉字！
追答
你是说JScript.Encode加密解密是吧？vb.net的没搞过，一般Java中才会用到，以下是一个示例程序代码：
将以下代码复制到记事本，然后另存为“ABC.htm”，双击打开即可使用。
.......代码超过999个字了百度不让发，是JS代码你要是需要的话邮箱给我发你。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
