[TuT]Napredni SA-MP Launcher (VB 2010)

Cao ljudi danas cu vam pokaza kako da napravite napredan SA-MP Launcher u Visual Basic 2010 (mogu sve verzije 2008 i novije)

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)

Lijepo 😉

Savrseno 🙂

muma. wrote on June 12, 2016, 4:47 pm:

Lijepo 😉

KNIGHTâ„¢ wrote on June 12, 2016, 7:42 pm:

Savrseno 🙂

Hvala obojici

Pohvale za trud 😄

|Harexe| wrote on June 12, 2016, 4:09 pm:

Cao ljudi danas cu vam pokaza kako da napravite napredan SA-MP Launcher u Visual Basic 2010 (mogu sve verzije 2008 i novije)

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)

Samo kad bi mogao da ubacis da moze nick da se upise, inace super!  😄

Evo da se moze ubacit i nickname:
Ubacite TExtbox i nazovete je Nickname
i sada iznad shell Shell(Join)ubaite sledeci kod i to je to:

        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\SAMP", "PlayerName", Nickname.Text)
        Shell(Join)

-BUMP-

Lijepo 😄

Fino,mogao bi uraditi jedan fini update gde ces ubaciti napredne funkcije i pojasniti iste  🙂

a dali moze neko da pomogne pokusavam napravit launcher slican kao u nb i sad napravio sam labele Ime_Prezime Password Connect i ono Buttone za FB i Forum.. sad trebam dalje instrukcije jer sam novi u ovom 😄 LP

leon9 wrote on August 11, 2016, 10:33 pm:

a dali moze neko da pomogne pokusavam napravit launcher slican kao u nb i sad napravio sam labele Ime_Prezime Password Connect i ono Buttone za FB i Forum.. sad trebam dalje instrukcije jer sam novi u ovom 😄 LP

Napisi na PM sta sve hos i ja cu ti objesnit