[Veröffentl. ][VB] [Launcher v.0.1] [SIMPLE]

Public Class Form1	Dim Zeit As String = Nothing	Dim Stunde As String = Nothing	Dim Minute As String = Nothing	Dim Sekunde As String = Nothing	Dim isshown As Boolean = False	Dim wc As New System.Net.WebClient   Private Declare Function GPSL_SetTextLineData Lib "gpcomms.dll" (ByVal wTextPosX As Short, ByVal wTextPosY As Short, ByVal LPCTSTR As String, ByVal dwTextColor As Integer, ByVal bBlackBackground As Boolean, ByVal cSize As Byte, ByVal bTextBold As Boolean, ByVal cFontFamily As Byte) As Boolean	Private Declare Function GPSL_ShowText Lib "gpcomms.dll" (ByVal bShowIt As Boolean) As Boolean	Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short	Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer	Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)	Private Const Key_NONE As Integer = &H0	Private Const WM_HOTKEY As Integer = &H312	Const KEYEVENTF_EXTENDEDKEY = &H1	Const KEYEVENTF_KEYUP = &H2	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  	Stunde = Now.Hour    	Minute = Now.Minute    	Sekunde = Now.Second    	If Stunde.Length = 1 Then        	Stunde = "0" & Stunde    	End If    	If Minute.Length = 1 Then        	Minute = "0" & Minute    	End If    	If Sekunde.Length = 1 Then        	Sekunde = "0" & Sekunde    	End If    	Zeit = Stunde & ":" & Minute & ":" & Sekunde    	Label2.Text = Zeit    	GPSL_SetTextLineData(0, 0, Zeit, Color.FromArgb(255, 255, 0, 0).ToArgb, False, 20, False, 0)    	GPSL_ShowText(True)	End Sub	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    	Timer1.Enabled = True    	Panel2.Hide()    	Panel3.Hide()    	Panel1.Show()    	wc = New System.Net.WebClient()    	Label1.Text = wc.DownloadString("http://DEINESEITE/Home.txt")    	Label3.Text = wc.DownloadString("http://DEINESEITE/Updates.txt")    	wc.Dispose()	End Sub	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click    	Panel3.Show()    	Panel2.Hide()    	Panel1.Hide()	End Sub	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click    	Panel1.Show()    	Panel2.Hide()    	Panel3.Hide()	End Sub	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click    	Panel2.Show()    	Panel1.Hide()    	Panel3.Hide()	End Sub	Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click	End Sub	Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click    	Process.Start("ts3server://TEAMSPEAKIP" & TextBox1.Text & "/?port=" & TextBox2.Text & "&nickname=" & TextBox3.Text & "")	End Sub	Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click    	System.Diagnostics.Process.Start("samp://SAMPSERVERIP:PORT")	End SubEnd Class