0

基本的に私がやりたいことは、ボタンをクリックすることです。これにより、テキストがテキストボックスに入れられ、その後に ?xml=1 が追加されます。誰かが私を助けたいと思っている場合、画像は私がやりたいことの下にあります

ここに私が意味するものがありますhttp://i.stack.imgur.com/2eatj.png

http://i.stack.imgur.com/aCoJ0.pngのように見えますが、?xml=1 をクリックするたびに下部に追加されます。これは、どの行をクリックしても問題ありません。最後に追加するだけです。

?xml=1 部分に使用しているのは TextBox1.Text &= "?xml=1" {Public Class Form1

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    TextBox1.Text &= "?xml=1"
End Sub

クラス終了}

4

1 に答える 1

1

フォームが不完全です。Steam64Id 番号を生成するには、さまざまな情報が必要です。

つまり、「Universe」、「AccountType」、「AccountInstance」、およびオフコースの「Account Number」が必要になります。

コンポーネント値の値を全体にまとめると、Steam64Id 番号になります。

下の画像で、それがどのように壊れているかを見ることができます。

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私の推測では、1 つだけが正しく、もう 1 つが間違っていると思います。

ID またはプロファイルに関係なく正しいフォルダーを取得したら、呼び出しが成功すると XML ドキュメントが返され、そこからデータを抽出する必要があります。

アップデートⅡ

今日は自由な時間があったので、このコードをノックアウトすることができました。画像をさらに下に移動します。Webページのスクレイピングを行う時間はありませんでしたが、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

ここに画像の説明を入力

于 2013-03-23T03:53:29.517 に答える