Dim SteamID32 As String = "STEAM_0:0:numbershere"
Dim num1 As Integer = Integer.Parse(SteamID32.Substring(10))
Dim num2 As Integer = Integer.Parse(SteamID32.Substring(8, 9))
Dim UserID32 As Integer = (num1 * 2) + num2
Label1.Text = "U:1:" + UserID32.ToString
答案 0 :(得分:3)
您需要指定Substring
的第二个参数的长度:
Dim num2 As Integer = SteamID32.Substring(8, 1) 'num2 = 0'