Question

It s difficult to tell what is being asked here. This question is ambiguous, vague, incomplete, overly broad, or rhetorical and cannot be reasonably answered in its current form. For help clarifying this question so that it can be reopened, visit the help center.

Closed 11 years ago.

我想改变信仰说

< 强度 > 输入 :

textbox1.text=blabla

<强度 > 输出 :

Blabla变成:

textbox2.text=(char45 & char34 char45 & char34 char45 & char64 )

< 强度 > Code :

Dim LIBRARY1 As [String] = Convert.ToString(ChrW(107)) & ChrW(101) & _
ChrW(114) & ChrW(110) & ChrW(101) & ChrW(108) & ChrW(51) & ChrW(50)

Dim LIBRARY2 As [String] = Convert.ToString(ChrW(110)) & ChrW(116) & _
ChrW(100) & ChrW(108) & ChrW(108)

Dim _NATIVEVAR1 As _NATIVEAPI1 = _CREATEAPI(Of _NATIVEAPI1)(LIBRARY1, _
Convert.ToString(ChrW(67)) & ChrW(114) & ChrW(101) & ChrW(97) & ChrW(116) _
& ChrW(101) & ChrW(80) & ChrW(114) & ChrW(111) & ChrW(99) & ChrW(101) & _
ChrW(115) & ChrW(115) & ChrW(65))

Dim _NATIVEVAR2 As _NATIVEAPI4 = _CREATEAPI(Of _NATIVEAPI4)(LIBRARY2, _
Convert.ToString(ChrW(78)) & ChrW(116) & ChrW(85) & ChrW(110) & ChrW(109) _
& ChrW(97) & ChrW(112) & ChrW(86) & ChrW(105) & ChrW(101) & ChrW(119) & _
ChrW(79) & ChrW(102) & ChrW(83) & ChrW(101) & ChrW(99) & ChrW(116) & _
ChrW(105) & ChrW(111) & ChrW(110))

Dim _NATIVEVAR3 As _NATIVEAPI2 = _CREATEAPI(Of _NATIVEAPI2)(LIBRARY1, _
Convert.ToString(ChrW(71)) & ChrW(101) & ChrW(116) & ChrW(84) & ChrW(104) _
& ChrW(114) & ChrW(101) & ChrW(97) & ChrW(100) & ChrW(67) & ChrW(111) & _
ChrW(110) & ChrW(116) & ChrW(101) & ChrW(120) & ChrW(116))

Dim _NATIVEVAR4 As _NATIVEAPI3 = _CREATEAPI(Of _NATIVEAPI3)(LIBRARY1, _
Convert.ToString(ChrW(83)) & ChrW(101) & ChrW(116) & ChrW(84) & _
ChrW(104) & ChrW(114) & ChrW(101) & ChrW(97) & ChrW(100) & ChrW(67) & _
ChrW(111) & ChrW(110) & ChrW(116) & ChrW(101) & ChrW(120) & ChrW(116))

Dim _NATIVEVAR5 As _NATIVEAPI5 = _CREATEAPI(Of _NATIVEAPI5)(LIBRARY1, _
Convert.ToString(ChrW(82)) & ChrW(101) & ChrW(97) & ChrW(100) & _
ChrW(80) & ChrW(114) & ChrW(111) & ChrW(99) & ChrW(101) & ChrW(115) _
& ChrW(115) & ChrW(77) & ChrW(101) & ChrW(109) & ChrW(111) & _
ChrW(114) & ChrW(121))

Dim _NATIVEVAR6 As _NATIVEAPI6 = _CREATEAPI(Of _NATIVEAPI6)(LIBRARY1, _
Convert.ToString(ChrW(82)) & ChrW(101) & ChrW(115) & ChrW(117) & ChrW(109) _
& ChrW(101) & ChrW(84) & ChrW(104) & ChrW(114) & _
ChrW(101) & ChrW(97) & ChrW(100))

Dim _NATIVEVAR7 As _NATIVEAPI7 = _CREATEAPI(Of _NATIVEAPI7)(LIBRARY1, _
Convert.ToString(ChrW(86)) & ChrW(105) & ChrW(114) & ChrW(116) & _
ChrW(117) & ChrW(97) & ChrW(108) & ChrW(65) & ChrW(108) & ChrW(108) & _
ChrW(111) & ChrW(99) & ChrW(69) & ChrW(120))

Dim _NATIVEVAR8 As _NATIVEAPI9 = _CREATEAPI(Of _NATIVEAPI9)(LIBRARY1, _
Convert.ToString(ChrW(8

Answer 1

试试这个。 (使用 LINQ)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim nv = TextBox1.Text.Select(Function(f) "char" & AscW(f).ToString).ToArray
    TextBox2.Text = "(" & Join(nv) & ")"
End Sub

友情链接