您的表格不完整,需要各种信息来生成 Steam64Id 编号。
即,您将需要“Universe”、“AccountType”、“AccountInstance”,当然还有“Account Number”。
当您将组件值值放在一起时,您最终会得到 Steam64Id 编号。
您可以在下图中看到它是如何分解的。
更多信息可以在 Steam 开发者页面上找到
https://developer.valvesoftware.com/wiki/SteamID
更新
如果您在其中输入帐号的文本框称为 txtSource,并且您输入的数字为 0123456789,并且在添加“?xml = 1”后要写入的文本框称为 txtDestination,则将其传输过来的代码是
txtDestination.text = txtSource.text & "?xml=1"
如果您想在添加 URL 的同时将其传输过来,那么它将是
txtDestination.text = "http://steamcommunity.com/ID/" & txtSource.text & "?xml=1"
或者
txtDestination.text = "http://steamcommunity.com/PROFILES/" & txtSource.text & "?xml=1"
仍然存在一些未解决的问题,因为您尚未澄清它是 ID 还是配置文件,因此当您将其重写为 URL 时,它会是http://steamcommunity.com/ID/0123456789?xml=1还是会它是http://steamcommunity.com/PROFILES/0123456789?xml=1我猜只有一个是对的,另一个是错的。
一旦您获得了正确的文件夹(无论是其 ID 还是 Profiles),成功的调用将返回一个 XML 文档,您必须从中提取数据。
更新二
好吧,我今天有一些空闲时间,所以我设法敲掉了这段代码,它与图像一起向下,我没有时间进行网页抓取,但我相信会有很多关于 SO 的示例其他用户问过类似问题的地方。希望这足以让您上路。
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Reference As Long
If Trim(TextBox1.Text) <> "" Then
If IsNumeric(TextBox1.Text) Then
Reference = Shell("c:\program files\internet explorer\iexplore.exe http://steamcommunity.com/profiles/" & Trim(TextBox1.Text) & "?xml=1")
Else
Reference = Shell("c:\program files\internet explorer\iexplore.exe http://steamcommunity.com/id/" & Trim(TextBox1.Text) & "?xml=1")
End If
Else
MsgBox("No steam Id entered!", MsgBoxStyle.Critical, "Error")
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If Trim(TextBox2.Text) <> "" Then
TextBox3.Text = "http://steamcommunity/friends/add/" & TextBox2.Text
Else
MsgBox("No steam 64 Id specified!", MsgBoxStyle.Critical, "Error")
End If
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim Reference As Long
If Trim(TextBox3.Text) <> "" Then
Reference = Shell("c:\program files\internet explorer\iexplore.exe " & Trim(TextBox3.Text))
Else
MsgBox("No steam 64 Id specified!", MsgBoxStyle.Critical, "Error")
End If
End Sub