Was ist SteamCMDHelper
SteamCMDHelper ist ein Tool das dir das erstellen von Steam Dedicated Servern Leichter macht & Skripts zum Updaten erstellen kann.
Wie Funktionierts
? Zuerst Ladet ihr Steamcmd über den Helper dannach wählt ihr euren Server den ihr erstellen wollt aus erstellt entweder ein Skript oder ihr drückt auf Make my Server alles weitere zeigt euch dann Steamcmd.
Wenn ihr einen Premium Server erstellen wollt (ein Server wofür ihr das spiel gekauft haben müsst dann gebt eure Steam Daten rechts ein Wählt euren Server aus drückt auf Make my Server oder erstellt ein Skript.
Wenn ihr einen Premium Server erstellen wollt (ein Server wofür ihr das spiel gekauft haben müsst dann gebt eure Steam Daten rechts ein Wählt euren Server aus drückt auf Make my Server oder erstellt ein Skript.
Virustotal
[Only registered and activated users can see links. Click Here To Register...]
Das Tool wurde in Visual Basic erstellt.
Und sorry ich bin noch kompletter Anfänger in VB.
Bevor wieder jemand sagt das wäre ein Virus ich will nur eure Daten ihr müsste es ja nicht probieren und Falls doch hab ich ja noch den Source Code.
Code
Imports System
Imports System.Net
Imports System.IO
Public Class Form1
Private WithEvents downloader As New Net.WebClient()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("steamcmd.exe /k " + TextBox1.Text)
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
TextBox1.Text = ""
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\CounterStrikeSourceServer\ +app_update 232330 validate +quit"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\SounterStrike1.6Server\ +app_update 90 validate +quit"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\DayofDefeatSourceServer\ +app_update 232290 validate +quit"
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\7DaystoDieServer\ +app_update 294420 validate +quit"
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\HalfLifeDeathmatchServer\ +app_update 255470 validate +quit"
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\HalfLifeDeathmatch2Server\ +app_update 232370 validate +quit"
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\KillingFloor2Server\ +app_update 232130 validate +quit"
End Sub
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\Left4DeadServer\ +app_update 222840 validate +quit"
End Sub
Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\Left4Dead2Server\ +app_update 222860 validate +quit"
End Sub
Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\ZombiePanicSourceServer\ +app_update 17505 validate +quit"
End Sub
Private Sub RadioButton11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\ARKSurvivalEvolvedServer\ +app_update 376030 validate +quit"
End Sub
Private Sub RadioButton12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton12.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\TheForestServer\ +app_update 556450 validate +quit"
End Sub
Private Sub RadioButton13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton13.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton13.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\CounterStrikeGlobalOffensive\ +app_update 556450 validate +quit"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton27.Checked = False
RadioButton28.Checked = False
TextBox1.Text = ""
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
TextBox3.UseSystemPasswordChar = False
If CheckBox1.CheckState = CheckState.Unchecked Then
TextBox3.UseSystemPasswordChar = True
End If
End Sub
Private Sub RadioButton14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton14.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton14.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\KillingFloorServer\ +app_update 215350 validate +quit"
End If
End Sub
Private Sub RadioButton15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton15.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton15.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\ContagionServer\ +app_update 238430 validate +quit"
End If
End Sub
Private Sub RadioButton16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton16.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton16.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\Arma3Server\ +app_update 233780 validate +quit"
End If
End Sub
Private Sub RadioButton17_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton17.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton17.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\ARKSurvivaloftheFittestDedicatedServer\ +app_update 445400 validate +quit"
End If
End Sub
Private Sub RadioButton18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton18.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton18.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\RedOrchestraServer\ +app_update 223240 validate +quit"
End If
End Sub
Private Sub RadioButton19_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton19.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton19.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\RedOrchestra2Server\ +app_update 212542 validate +quit"
End If
End Sub
Private Sub RadioButton20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton20.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton20.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SniperEliteV2Server\ +app_update 208050 validate +quit"
End If
End Sub
Private Sub RadioButton21_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton21.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton21.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SniperElite3Server\ +app_update 266910 validate +quit"
End If
End Sub
Private Sub RadioButton22_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton22.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton22.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\TheHauntedHellsReachServer\ +app_update 43210 validate +quit"
End If
End Sub
Private Sub RadioButton23_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton23.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton23.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SeriousSamHDServer\ +app_update 41005 validate +quit"
End If
End Sub
Private Sub RadioButton24_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton24.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton24.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SeriousSam3Server\ +app_update 41080 validate +quit"
End If
End Sub
Private Sub RadioButton25_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton25.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\JustCause2Server\ +app_update 261140 validate +quit"
End Sub
Private Sub RadioButton26_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton26.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\GarrysModServer\ +app_update 4020 validate +quit"
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SaveFileDialog1.Title = "Script"
SaveFileDialog1.Filter = "Batch File|*.bat"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim writefile As IO.StreamWriter
writefile = New IO.StreamWriter(SaveFileDialog1.FileName.ToCharArr ay)
writefile.WriteLine("steamcmd" & " " & (TextBox1.Text))
writefile.Close()
End If
End Sub
Private Sub RadioButton27_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton27.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton27.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\HomefrontServer\ +app_update 55280 validate +quit"
End If
End Sub
Private Sub RadioButton28_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton28.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\RustServer\ +app_update 258550 validate +quit"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell("taskkill /im " & "cmd.exe")
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Please note to download and create a server you need steamcmd and a internet connection.")
If My.Computer.FileSystem.FileExists(My.Application.I nfo.DirectoryPath & "/steamcmd.exe") Then
MsgBox("SteamCMD found.")
Else
MsgBox("SteamCMD not found.")
End If
Timer1.Start()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim p As New ProcessStartInfo
p.Arguments = "/e,/steamcmd.exe," & My.Application.Info.DirectoryPath
p.FileName = "explorer.exe"
Process.Start(p)
End Sub
Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
MsgBox("Downloading Steam CMD Now.")
ProgressBar1.Visible = True
downloader = New WebClient
downloader.DownloadFileAsync(New Uri("https://drive.google.com/uc?authuser=0&id=1Tk7JJ6Ye8cN28Q9BBA8kJEumbAY6b2Ph &export=download"), My.Application.Info.DirectoryPath & "/steamcmd.exe")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Maximum Then ProgressBar1.Value = 0
End Sub
End Class
Imports System.Net
Imports System.IO
Public Class Form1
Private WithEvents downloader As New Net.WebClient()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("steamcmd.exe /k " + TextBox1.Text)
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
TextBox1.Text = ""
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\CounterStrikeSourceServer\ +app_update 232330 validate +quit"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\SounterStrike1.6Server\ +app_update 90 validate +quit"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\DayofDefeatSourceServer\ +app_update 232290 validate +quit"
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\7DaystoDieServer\ +app_update 294420 validate +quit"
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\HalfLifeDeathmatchServer\ +app_update 255470 validate +quit"
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\HalfLifeDeathmatch2Server\ +app_update 232370 validate +quit"
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\KillingFloor2Server\ +app_update 232130 validate +quit"
End Sub
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\Left4DeadServer\ +app_update 222840 validate +quit"
End Sub
Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\Left4Dead2Server\ +app_update 222860 validate +quit"
End Sub
Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\ZombiePanicSourceServer\ +app_update 17505 validate +quit"
End Sub
Private Sub RadioButton11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\ARKSurvivalEvolvedServer\ +app_update 376030 validate +quit"
End Sub
Private Sub RadioButton12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton12.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\TheForestServer\ +app_update 556450 validate +quit"
End Sub
Private Sub RadioButton13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton13.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton13.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\CounterStrikeGlobalOffensive\ +app_update 556450 validate +quit"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton27.Checked = False
RadioButton28.Checked = False
TextBox1.Text = ""
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
TextBox3.UseSystemPasswordChar = False
If CheckBox1.CheckState = CheckState.Unchecked Then
TextBox3.UseSystemPasswordChar = True
End If
End Sub
Private Sub RadioButton14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton14.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton14.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\KillingFloorServer\ +app_update 215350 validate +quit"
End If
End Sub
Private Sub RadioButton15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton15.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton15.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\ContagionServer\ +app_update 238430 validate +quit"
End If
End Sub
Private Sub RadioButton16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton16.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton16.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\Arma3Server\ +app_update 233780 validate +quit"
End If
End Sub
Private Sub RadioButton17_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton17.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton17.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\ARKSurvivaloftheFittestDedicatedServer\ +app_update 445400 validate +quit"
End If
End Sub
Private Sub RadioButton18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton18.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton18.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\RedOrchestraServer\ +app_update 223240 validate +quit"
End If
End Sub
Private Sub RadioButton19_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton19.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton19.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\RedOrchestra2Server\ +app_update 212542 validate +quit"
End If
End Sub
Private Sub RadioButton20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton20.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton20.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SniperEliteV2Server\ +app_update 208050 validate +quit"
End If
End Sub
Private Sub RadioButton21_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton21.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton21.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SniperElite3Server\ +app_update 266910 validate +quit"
End If
End Sub
Private Sub RadioButton22_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton22.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton22.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\TheHauntedHellsReachServer\ +app_update 43210 validate +quit"
End If
End Sub
Private Sub RadioButton23_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton23.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton23.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SeriousSamHDServer\ +app_update 41005 validate +quit"
End If
End Sub
Private Sub RadioButton24_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton24.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton24.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\SeriousSam3Server\ +app_update 41080 validate +quit"
End If
End Sub
Private Sub RadioButton25_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton25.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\JustCause2Server\ +app_update 261140 validate +quit"
End Sub
Private Sub RadioButton26_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton26.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\GarrysModServer\ +app_update 4020 validate +quit"
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SaveFileDialog1.Title = "Script"
SaveFileDialog1.Filter = "Batch File|*.bat"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim writefile As IO.StreamWriter
writefile = New IO.StreamWriter(SaveFileDialog1.FileName.ToCharArr ay)
writefile.WriteLine("steamcmd" & " " & (TextBox1.Text))
writefile.Close()
End If
End Sub
Private Sub RadioButton27_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton27.CheckedChanged
If TextBox2.Text = "" Then
MsgBox("You need to Login")
If TextBox3.Text = "" Then
RadioButton27.Checked = False
End If
Else
TextBox1.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
RadioButton7.Checked = False
RadioButton8.Checked = False
RadioButton9.Checked = False
RadioButton10.Checked = False
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton25.Checked = False
RadioButton26.Checked = False
RadioButton28.Checked = False
TextBox1.Text = "+login " & TextBox2.Text & " " & TextBox3.Text & " +force_install_dir .\HomefrontServer\ +app_update 55280 validate +quit"
End If
End Sub
Private Sub RadioButton28_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton28.CheckedChanged
TextBox1.Clear()
RadioButton13.Checked = False
RadioButton14.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
RadioButton17.Checked = False
RadioButton18.Checked = False
RadioButton19.Checked = False
RadioButton20.Checked = False
RadioButton21.Checked = False
RadioButton22.Checked = False
RadioButton23.Checked = False
RadioButton24.Checked = False
RadioButton27.Checked = False
TextBox1.Text = "+login anonymous +force_install_dir .\RustServer\ +app_update 258550 validate +quit"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell("taskkill /im " & "cmd.exe")
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Please note to download and create a server you need steamcmd and a internet connection.")
If My.Computer.FileSystem.FileExists(My.Application.I nfo.DirectoryPath & "/steamcmd.exe") Then
MsgBox("SteamCMD found.")
Else
MsgBox("SteamCMD not found.")
End If
Timer1.Start()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim p As New ProcessStartInfo
p.Arguments = "/e,/steamcmd.exe," & My.Application.Info.DirectoryPath
p.FileName = "explorer.exe"
Process.Start(p)
End Sub
Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
MsgBox("Downloading Steam CMD Now.")
ProgressBar1.Visible = True
downloader = New WebClient
downloader.DownloadFileAsync(New Uri("https://drive.google.com/uc?authuser=0&id=1Tk7JJ6Ye8cN28Q9BBA8kJEumbAY6b2Ph &export=download"), My.Application.Info.DirectoryPath & "/steamcmd.exe")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Maximum Then ProgressBar1.Value = 0
End Sub
End Class