I need to be able to connect to a team fortress 2 server straight from my idling program im making i have everything else i want in it but i cant think of how to get the one line to work here is my whole code for reference and ill post the problem line after it.
[SPOILER]
Code:
Public Class Form1
Dim streamer As IO.StreamReader
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("steam://rungameid/440-textmode -nosound -noipx -novid -nopreload -nojoy +volume 0 +connect")
End Sub
Private Sub AddToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToolStripMenuItem1.Click
ListBox1.Items.Add(ToolStripTextBox1.Text)
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
SaveFD.InitialDirectory = "C:\Users\Lucas\Desktop"
SaveFD.Title = "Save a Text file with servers in IP:PORT format"
SaveFD.Filter = "Text Files in IP:Port format|*.txt"
SaveFD.OverwritePrompt = True
Dim DidWork As Integer = OpenFD.ShowDialog()
If DidWork = DialogResult.OK Then
Dim S As New IO.StreamWriter(SaveFD.FileName)
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
S.WriteLine(ListBox1.Items.Item(i))
Next
S.Close()
End If
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
OpenFD.InitialDirectory = "C:\Users\Lucas\Desktop"
OpenFD.Title = "Open a Text file with servers in IP:PORT format"
OpenFD.Filter = "Text Files in IP:Port format|*.txt"
Dim DidWork As Integer = OpenFD.ShowDialog()
If DidWork = DialogResult.OK Then
ListBox1.Items.Clear()
Dim R As New IO.StreamReader(OpenFD.FileName)
Dim str() As String = R.ReadToEnd.Split(vbNewLine)
ListBox1.Items.AddRange(str)
R.Close()
End If
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
ListBox1.Items.Clear()
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("Made by fireXtract on 8/25/2012")
End Sub
Private Sub MultiLoaderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MultiLoaderToolStripMenuItem.Click
OpenFD.InitialDirectory = "C:\Users\Lucas\Desktop"
OpenFD.Title = "Open a Text file with servers in IP:PORT format"
OpenFD.Filter = "Text Files in IP:Port format|*.txt"
Dim DidWork As Integer = OpenFD.ShowDialog()
If DidWork = DialogResult.OK Then
Dim R As New IO.StreamReader(OpenFD.FileName)
Dim str() As String = R.ReadToEnd.Split(vbNewLine)
ListBox1.Items.AddRange(str)
R.Close()
End If
End Sub
End Class
[/SPOILER]
Problem lines
[SPOILER]
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("steam://rungameid/440-textmode -nosound -noipx -novid -nopreload -nojoy +volume 0 +connect'RIGHT HERE I WANT TO BE ABLE TO SAY WHAT I HAVE SELECTED FROM THE LISTBOX'")
End Sub
[/SPOILER]