如何在 Visual Basic 中解码 JSON 字符串(无需下载程序)
Private Sub ViewHintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewHintToolStripMenuItem.Click
Dim instance As Net.WebClient = New Net.WebClient
Dim address As String = "https://pr2hub.com/files/artifact_hint.txt"
Dim returnValue As String
returnValue = instance.DownloadString(address)
Artifact.Text = returnValue
HintText.Show()
HintText.RichTextBox1.Text = returnValue
HintText.RichTextBox2.Text = returnValue
End Sub