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.
(http://image.prntscr.com/image/0e6b7c1f4df246c8a52cc5ef3c1530e9.png)
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
(http://image.prntscr.com/image/c45488f69fd6472db8abaea4db84b844.png)
I tu ubacimo sledeci kod:
Shell(Join)
I to je to nas launcher je spreman za pokretanje
Credits : Tony Sikora (osnovni kod)
Lijepo ;)
Savrseno :)
Pohvale za trud :D
Citat: |Harexe| poslato Jun 12, 2016, 18:09:20 POSLE PODNE
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.
(http://image.prntscr.com/image/0e6b7c1f4df246c8a52cc5ef3c1530e9.png)
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
(http://image.prntscr.com/image/c45488f69fd6472db8abaea4db84b844.png)
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! :D
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 :D
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 :D LP
Citat: leon9 poslato Avgust 12, 2016, 00:33:14 PRE PODNE
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 :D LP
Napisi na PM sta sve hos i ja cu ti objesnit