[Tutorial]Eigener SAMP Server Launcher

Hallo, ich diesem Tutorial möchte ich euch zeigen, wie Ihr ein eigenen Launcher für den SAMP Server erstellen könnt.
Wir werden einen Launcher erstellen, der nicht nur dein Spiel Startet sondern auch die NEWS anzeigt sowie Anzahl der Spieler und Admins.
____________________________________________________________________________________________________________________________________________
Was brauchen wir ?
1: Als erstes brauchen wir das Programm Visual Basic 2010 Express oder Visual Studio Community 2013.
Empfohlen ist den Visual Basic 2010 Express zu nehmen, wenn man andere Sprachen nicht braucht.
2: Connector/NET das brauchen wir um Mysql zu bedienen um die Anzahl der Spieler herauszufinden.
3: Eine Mysql Datenbank
4: Eine eigene WWW seite
5: Ein PAWN Script, welcher die Spieler anzahl vom Server ausließt. Beispiel [PAWN] Script - http://pastebin.com/jP8wFXQu
_____________________________________________________________________________________________________________________________________________
Der Anfang.

Wir Öffnen das Programm und starten ein neues Projekt, nun kommt unser Projekt Fenster.
Wir nutzen das Werkzeug, und fügen unsere Buttons ein.

• Paar Buttons um das Spiel zu Starten, TS3 Connect, Youtube, etc.
• PictureBox - dort setzen wir unser Logo vom Server ein.
• RichTextBox - dort werden die News vom Server angezeigt.
• 2x Label - dort wir die Spieleranzahl angezeigt und die Version des Launchers.
• Timer - den nutzen wir für die Aktualisierung der Spieler

Sobald wir den Timer zugefügt haben klicken wir Ihn nochmal an und ändern rechts unten in der ecke bei den Einstellungen, Enabled in true.
Den Interval stellen wir die Aktualisierung Zeit ein, 10000(millisekunden) 10000 ms = 10 sek.
Klicke nun auf ein Leeres Feld, auf der Rechten Seite findest du die Einstellungen,suche den Wert MinimumSitze und MaximumSitze,und änder sie in die größe wie die Aplikation. Findest du in dem gleichen Fenster unter size. Ändere ebenfalls MaximizeBox ins false.
Nun können wir unsere Elemente anpassen wie wir es möchten
_____________________________________________________________________________________________________________________________________________
6: Der Code
Wir klicken Doppelt auf den Button der für die Server Verbindung zuständig ist, dann sollte das erscheinen.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


End Sub

Dort fügen wir ein

Process.Start("samp://IP_SERVER")

Jetzt machen wir das gleiche und klicken auf den TeamspeakButton Doppelt. Und fügen dieses ein.

Process.Start("ts3server://IP_SERVER")

Jetzt der Button der zB zu unserer Hompage führen soll.

Process.Start("http://deine_seite.de/")

_____________________________________________________________________________________________________________________________________________
7: Laden der Aktuellen Sachen / News
Auf unserer WWW Seite erstellen wir eine neue txt Datei Namens neu.txt.
Jetzt klicken wir Doppelt auf die auf ein Leeres Feld in unserem Launcher
Im Code erstellt sich Form1_Load, das heißt, was passieren wird wenn die Aplikacjon Startet.
Ganz oben in diesem Code geben wir folgendes ein.

Imports System.Net

Dann im format Form1_Load erstellen wir einen neuen Client und löschen Proxy damit er schneller läuft.

Dim client As WebClient = New WebClient()
client.Proxy = Nothing

Zunächst laden wir nun den Inhalt der neu.txt runterins RichTextbox

Try
     RichTextBox1.Text = client.DownloadString("http://deine_seite.de/neu.txt")
Catch ex As Exception
     RichTextBox1.Text = vbNewLine & "ERROR."
End Try

.

Dank Try "Catch ex as exception" und "End Try" erhalten wir beim Fehler bzw Problem mit Download vom Launcher eine Nachricht das es ein Fehler gibt.
_____________________________________________________________________________________________________________________________________________
8:Anzahl der Spieler auslesen.
Wir installieren den vorher Runtergeladenen Connector/NET.
Als nächstes Wählen wir im Visual Basic oben Project -> Add Reference -> Browse (links) -> Browse (unten) und wählen MySql.Data.dll. aus.
Wenn wir es nun ausgewählt haben, heben wir ganz oben im code Folgendes ein.

Imports MySql.Data.MySqlClient

und ebenfalls oben unter

"Public Class Form1

geben wir ein um mit dem Server zu Connecten.

Dim SQL_HOST As String = "HOSTNAME"
Dim SQL_USER As String = "NAME"
Dim SQL_PASSWORD As String = "PASSWORT"
Dim SQL_DB As String = "DATENBANK"

Jetzt Fügen wir eine Funktion über die zeile

End Class

Private Sub aktualisiere() 
End Sub

ein und fügen in die Funktion folgendes ein.

Dim MysqlConn As MySqlConnection
Dim data As MySqlDataReader
Dim adapter As New MySqlDataAdapter
Dim command As New MySqlCommand
Dim spieler As Integer = 0
Dim admins As Integer = 0


MysqlConn = New MySqlConnection()
MysqlConn.ConnectionString = "server=" & SQL_HOST & ";" & "user id=" & SQL_USER & ";" & "password=" & SQL_PASSWORD & ";" & "database=" & SQL_DB


Try
    MysqlConn.Open()
Catch ex As Exception
    MessageBox.Show("ERROR Melde dich bei einem Administratoren")
End Try

Nun die Anzahl der Administratoren

Try
command.CommandText = "SELECT ilosc FROM online WHERE typ='spieler'"
command.Connection = MysqlConn
adapter.SelectCommand = command
data = command.ExecuteReader
While data.Read()
    spieler = data(0).ToString
End While
data.Close()


command.CommandText = "SELECT anzahl FROM online WHERE typ='admins'"
command.Connection = MysqlConn
adapter.SelectCommand = command
data = command.ExecuteReader
While data.Read()
    admins = data(0).ToString
End While
data.Close()
Catch ex as exception
    Label1.Text = "ERROR melde dich bei einem Administratoren!"
End Try

ebenfalls müssen wir noch unsere Daten im label speichern.

Label1.Text = "Spieler online: " & spieler & " (und noch " & admins & " administratoren)"

Um die Spieler Anzahl bei Start des Launchers zu Aktualisieren fügen wir unten im Form1_Load ein

aktualisieren()

Das gleiche machen wir jetzt mit dem Timer den wir vorher eingefügt haben, Doppelklick und fügen das gleiche ein, so sieht es dann aus.

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        aktualisieren()
End Sub

Nun sind wir Fertig und können unseren Launcher Starten! Nicht vergessen das Script unserem Server einzufügen was wir vorher erstellt hatten.
_____________________________________________________________________________________________________________________________________________
9: Fast das Ende Info zur neuer Version vom Launcher.
Doppelklick auf My Projekt (Rechts) -> Assembly Information -> ändern wie File Version auf namen unsers Launchers.
Als nächstes erstellen wir auf unserer WWW Seite neue datei namens (version.txt) und schreiben die Version des Launchers rein.
Im Form1_Load, geben wir folgendes ein.

Try
Dim version As String = client.DownloadString("http://deine_seite.de/version.txt")
If Not (version = Application.ProductVersion) Then
     MessageBox.Show("Es gibt eine neue Launcher Version" & vbNewLine & "Besuche die http://deine_seite.de/ um sie Runterzuladen" & vbNewLine & "Es wird Empfohlen die neue Version zu nutzen.", "Bitte aktualisieren", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
    MessageBox.Show("Es gab ein Fehler bei dem Download. Melde dich bei einem Administrator", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

Nun wird jedes Mal ein Fenster kommen, sobald eine neue Version vorhanden ist.

Der ganze Code: http://pastebin.com/Tq1h66yf

Ich hoffe es könnte euch helfen ;=)

lg Alex

Bin noch ein Anfänger, werde ich mir für die Zukunft merken. Freue mich auf Tipps von Profis.

@[LnD]JustMe.77 einen aktuellen Screen habe ich jetzt nicht, war länger her als ich damit gespielt hatte.

Ich werde mich da noch schlau machen, und es mir alles anschauen.
Danke für die Rückmeldungen.

Hatte den ganzen Code noch nicht gepostet.
http://pastebin.com/Tq1h66yf

//push