Pa hajmo da pocnemo:
Prvo cemo da uradimo dizajn:
1.Dodat cemo 1 Textbox i postavicemo pod Name : Adresa
2.---------------------||----------------- sa imenom : Sifra
3.Dodat cemo 1 Button i ostaviti deafult ime (Button1)
4.Ovi labli su samo za ukras nicemu drugom nesulze.
Sada idemo na kod:
1.Prvo cemo da nadjemo gdje se nalazi gta_sa.exe
To cemo preko sledece komande da nadjemo:
Dim readValue As String = Replace(withoutParts, "\", "/")
Dim NewValue As String = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\SAMP", "gta_sa_exe", Nothing)
Dim withoutParts As String = Replace(readValue, "\gta_sa.exe", "")
2.Sada cemo da zamijenimo gta_sa.exe sa samp.exe i usput da definisemo ip i pw za srv
To ide preko sledece komande:
Dim Server As String = "/samp.exe Adresa.Text Sifra.Text"
3.Sada cemo to sve da spojimu u jednu komandu
To ide preko ove komande:
Dim Join As String = withoutParts & Server
4.Sada cemo da definisemo sta da se desi kada neko klikne na Button
-Prvo idemo na Events pa dvokliknemo MouseClick
I tu ubacimo sledeci kod:
Shell(Join)
I to je to nas launcher je spreman za pokretanje
Credits : Tony Sikora (osnovni kod)
