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

  • Hey Leute.
    Ich habe noch etwas auf meinem Desktop gefunden. :)
    Es ist ein unfertiger Launcher mit paar kleinen Funktionen.


    Config: (Müsst ihr ändern)

    Spoiler anzeigen
     Label1.Text = wc.DownloadString("http://DeineSeite/Home.txt")
    Eure Domain mit einer Home.txt (Home ist über FTP änderbar!)

    Label3.Text = wc.DownloadString("http://DeineSeite/Updates.txt")
    Eure Domain mit einer Updates.txt (Updates könnt ihr halt per FTP einfügen!)

    Spoiler anzeigen
    Process.Start("ts3server://SERVERIP"
    IP - Adresse von eurem Teamspeak Server.

    Spoiler anzeigen
    ("samp://ServerIP")
    Eure Samp Server IP


    Screens:





    Diese .dll's sind Wichtig, damit der Launcher Funktioniert!
    http://www.file-upload.net/dow…--tigtf--rdieuhr.rar.html


    Virustotal:
    https://www.virustotal.com/de/…7448/analysis/1367431336/


    Source:


    Code
    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



    /Edit :
    Sobald ihr F5 drückt, zeigt Visual Basic einen Fehler an. Das ist normal, weil Visual Basic die benötigten .dll's nicht auslesen kann.
    Deshalb, müsst ihr die gespeicherte .exe in den Ordner tun, wo die .dll's sind!


    /Edit2:
    Projektmappe:
    http://www.file-upload.net/dow…Survival-Junkies.rar.html
    Virustotal:
    https://www.virustotal.com/de/…c36f/analysis/1367517608/

  • Die ist ein Launcher :)
    Updates/News - Über FTP Änderbar. z.B. Was wurde eingefügt z.B. neues LSPD dies das.
    Verbinden/Connecten - Mit Teamspeak bzw. SAMP Direkt Verbinden/Connecten.


    PxL Du musst aus deinem Projekts Ordner die .exe in den Ordner ziehen wo die .dll sind. Denn Visual basic, kann die .dlls nicht finden :)

  • du hast den sourecode ja mit reingetan, ich möchte das ganze ja nun bearbeiten, jedoch werden mir mit vb 2010 express fehlermeldungen angezeigt wenn ich f5 drücke


    Dann beheb diese?

  • Zitat

    C:\Users\NAME\Documents\Visual Studio 2010\Projects\Projektname\Projektname\bin\Debug

    Da ist die .exe ! Sobald du auf das "grüne Zeichen" 'start' drückst, kommt ja ne Fehlermeldung. Die .exe wird Trotzdem erstellt!
    Dann einfach in den Ordner verschieben, wo die .dll's sind

  • viel zu basic und die idee selber ist auch sowas von alt :d, es gibt eine tonne voller launcher für samp und ts3 und der
    code ist einfach viel zu einfach :( , design ist ok aber sieht auch nicht wirklich schick aus meines erachtens.


    2/10 Brotfischen.


    mfg kyle


    PxL :


    du musst die panel sowie labels im interface sprich in die form reinziehen , weil so hast ud keinen panel drin sowie keine labels.
    geh auf form1.vb und dann zeihst du aus dem toolbox einfach ein panel sowie label raus oder halt einfach die sachen die du brauchst.

  • do.de - Domain-Offensive - Domains für alle und zu super Preisen