[Szukam] Launcher poradnik

[Petterz]

Szukam poradnika jak zrobić launcher do mc 1.6.4

Potrzebny mi jest kod startu 1.6.4 i jak to zapisać w Visual Basic!
DAJE DUZO REPUTACJI!

[GGoldRock2k]

'Importsy'

 

 

Imports System.Net

Imports System.Net.Sockets

Imports System.Diagnostics

 

 

 

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim proc As Process

ListBox1.Items.Clear()

For Each proc In Process.GetProcesses

ListBox1.Items.Add(proc.ProcessName)

Next

End Sub

 

'Minecraft'

 

 

 

 

Private Sub FastStart(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Dim`s'

Dim StartMC As String

Dim LoginMC As String

'Komendy'

StartMC = "javaw -Xmx1024m -Djava.library.path=%APPDATA%\.mcvrozax\versions\natives -cp %APPDATA%/.mcvrozax/libraries/net/sf/jopt-simple/jopt-simple/4.5/jopt-simple-4.5.jar;%APPDATA%/.mcvrozax/libraries/com/paulscode/codecjorbis/20101023/codecjorbis-20101023.jar;%APPDATA%/.mcvrozax/libraries/com/paulscode/codecwav/20101023/codecwav-20101023.jar;%APPDATA%/.mcvrozax/libraries/com/paulscode/libraryjavasound/20101123/libraryjavasound-20101123.jar;%APPDATA%/.mcvrozax/libraries/com/paulscode/librarylwjglopenal/20100824/librarylwjglopenal-20100824.jar;%APPDATA%/.mcvrozax/libraries/com/paulscode/soundsystem/20120107/soundsystem-20120107.jar;%APPDATA%/.mcvrozax/libraries/org/lwjgl/lwjgl/lwjgl/2.9.0/lwjgl-2.9.0.jar;%APPDATA%/.mcvrozax/libraries/org/lwjgl/lwjgl/lwjgl_util/2.9.0/lwjgl_util-2.9.0.jar;%APPDATA%/.mcvrozax/libraries/argo/argo/2.25_fixed/argo-2.25_fixed.jar;%APPDATA%/.mcvrozax/libraries/org/bouncycastle/bcprov-jdk15on/1.47/bcprov-jdk15on-1.47.jar;%APPDATA%/.mcvrozax/libraries/com/google/guava/guava/14.0/guava-14.0.jar;%APPDATA%/.mcvrozax/libraries/org/apache/commons/commons-lang3/3.1/commons-lang3-3.1.jar;%APPDATA%/.mcvrozax/libraries/commons-io/commons-io/2.4/commons-io-2.4.jar;%APPDATA%/.mcvrozax/libraries/net/java/jinput/jinput/2.0.5/jinput-2.0.5.jar;%APPDATA%/.mcvrozax/libraries/net/java/jutils/jutils/1.0.0/jutils-1.0.0.jar;%APPDATA%/.mcvrozax/libraries/com/google/code/gson/gson/2.2.2/gson-2.2.2.jar;%APPDATA%/.mcvrozax/versions/1.6.2/1.6.2.jar net.minecraft.client.main.Main --session SessionID --version 1.6.2 --gameDir %APPDATA%/.mcvrozax --assetsDir %APPDATA%/.mcvrozax/assets "

LoginMC = "--username=" & TextBox1.Text

'START!!!'

Shell("cmd.exe /c" & StartMC & LoginMC)

End Sub

 

 

 

 

'App Update'

 

 

Private Sub UpdaterAPP(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpAPP.Click

Try

Dim File As String = Application.StartupPath & "version.txt"

Dim MyVer As String = My.Application.Info.Version.ToString

My.Application.Info.Version.ToString()

If My.Computer.FileSystem.FileExists(File) Then

My.Computer.FileSystem.DeleteFile(File)

End If

My.Computer.Network.DownloadFile("http://wasza_strona.pl/version.txt", File)

Dim LastVer As String = My.Computer.FileSystem.ReadAllText(File)

If Not MyVer = LastVer Then

MsgBox("Aktualizacja Dostępna")

My.Computer.Network.DownloadFile("http://wasza_strona.pl/Mnazwa waszego launchera.exe", "LauncherByME.exe")

Rename("LauncherByME.exe", "LauncherByMEv2.0.exe")

MsgBox("Została Pobrana Nowa Wersja Programu, nowa wersja została uruchomiona")

Shell("LauncherByMEv2.0.exe")

Else

MsgBox("Posiadasz najnowszą wersję programu")

End If

Catch

MsgBox("Błąd Podczas Łączenia Z Serwerem")

End Try

End Sub

 

 

'Kliki'

 

'Szybkie przejśćia na wasze stronki'

 

 

Private Sub Facebook(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Process.Start("http://facebook.pl/VrozaX")

End Sub

 

Private Sub Twitch(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Process.Start("http://twitch.tv/VrozaX")

End Sub

 

Private Sub Twitter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Process.Start("http://twitter.com/VrozaX")

End Sub

 

Private Sub Youtube(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Process.Start("http://youtube.com/Vrozax")

End Sub

 

'ProcessKiller'

 

'Przydatne gdy mamy w ch** RAMu zajętego przez np. chrome.exe

 

'PS. Żeby Killer działał poprawnie w systemie Win7 opcjonalnie uruchamiamy launcher jako Administrator'

 

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

If ListBox1.SelectedItems.Count <= 0 Then

MessageBox.Show("WYBIERZ PROCES!", "Błąd(")

Return

End If

Dim p As System.Diagnostics.Process

For Each p In System.Diagnostics.Process.GetProcesses()

Dim arr() As String = _

ListBox1.SelectedItem.ToString().Split("-")

Dim sProcess As String = arr(0).Trim()

If p.ProcessName = sProcess Then

p.Kill()

MsgBox("Proces Zabity.")

Dim proc As Process

ListBox1.Items.Clear()

For Each proc In Process.GetProcesses

ListBox1.Items.Add(proc.ProcessName)

Next

End If

Next

ListBox1.Update()

Catch ex As Exception

End Try

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim proc As Process

ListBox1.Items.Clear()

For Each proc In Process.GetProcesses

ListBox1.Items.Add(proc.ProcessName)

Next

MsgBox("Lista odświeżona.", MsgBoxStyle.Exclamation)

End Sub

End Class

[Petterz]

Chcę poradnik a nie gotowy kod.

[Petterz]

@F5

[Gość]

Właśnie pisze prosty poradnik