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

[harexew]

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:

Kod [Izaberi] Proširi


    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:

Kod [Izaberi] Proširi


    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:

Kod [Izaberi] Proširi


    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:

Kod [Izaberi] Proširi


Shell(Join)


I to je to nas launcher je spreman za pokretanje
Credits : Tony Sikora (osnovni kod)

[Muma]

Lijepo

[Depay01]

Savrseno

[harexew]

Lijepo

Savrseno

Hvala obojici

[Łuk@]

Pohvale za trud

[Jockz_Corleone]

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:

Kod [Izaberi] Proširi


    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:

Kod [Izaberi] Proširi


    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:

Kod [Izaberi] Proširi


    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:

Kod [Izaberi] Proširi


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! 

[harexew]

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:

Kod [Izaberi] Proširi


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


[harexew]

-BUMP-

[Softic]

Lijepo

[moosy42o]

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

[King2]

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

[harexew]

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