[Prośba]Napisze mi ktoś downloader z funkcją patchera ?

[kamil7877]

Witam nie mam teraz czasu jestem na wakacjach ale chciałbym się zapytać czy ktoś napisze (nie wiem jak to określić) zrobi downloader z funkcją patchera ?

[Gość LastPhoenix450]

Nawet jeśli ktoś potrafi to nie napisze Ci - od tak na zawołanie, oprócz tego handel na MPC jest zabroniony.

 

"STOP IDIOTYCZNYM PROŚBOM O GOTOWY KOD"... słyszałeś to kiedyś?

 

 

Jednakże naprowadzę Cię, aczkolwiek nie wiem dokładnie ocb.?

"funkcja patchera" - sprecyzuj się.

//Zakładam ,że chodzi o metka, a jak nie to sobie przerób

Łap kod na pobranie pliku:

My.Computer.Network.DownloadFile("www.twojastrona.pl/plik.exe", "tutaj ścieżka do zapisania np. pack/locale.epk")[/left]

I sprawdzenie wagi (polecam CRC):

'locale_pl.epk[/left]

Dim fi As FileInfo = New FileInfo("pack/locale_pl.epk")
Dim waga As Integer = fi.Length
TextBox2.Text = "" & waga & ""
TextBox1.Text = "locale_pl.epk jest aktualizowany..."
If TextBox2.Text = "1795328" Then ' tutaj polecam zrobić tą zmienną
TextBox1.Text = "Plik locale_pl.epk został zaktualizowany"
Else
My.Computer.FileSystem.DeleteFile("pack/locale_pl.epk")
My.Computer.Network.DownloadFile("www.twojastrona.pl/plik.exe", "tutaj ścieżka do zapisania np. pack/locale.epk")
TextBox1.Text = "locale_pl.epk został zaktualizowany"
End If
'Koniec patchowania locale_pl.epk

[color=#00ffff]Polecam zrobić zmienną i pobierać ją z neta [/color]

Launch strony www:

Process.Start("www.twojastrona.pl")

 

Masz, to jest jeszcze moja stara, lamerska i dumbassowa, funkcja do czyszczenia z kamera (bez wysyłania info do adm)

 

'Zabezpieczenie przed Kamer Modem
If My.Computer.FileSystem.FileExists("Metin2Mod.exe") Then
My.Computer.FileSystem.DeleteFile("Metin2Mod.exe")
My.Computer.FileSystem.DeleteFile("mod_config.cfg")
My.Computer.FileSystem.DeleteFile("teleportcords.cfg")
My.Computer.FileSystem.DeleteFile("whispername.cfg")
My.Computer.FileSystem.DeleteFile("locale.cfg")
My.Computer.FileSystem.DeleteFile("AutoPot.cfg")
My.Computer.FileSystem.DeleteFile("serverinfo.py")
My.Computer.FileSystem.DeleteFile("AutoLogin.exe")
TextBox1.Text = ("Wczytuję")
'root.epk
My.Computer.FileSystem.DeleteFile("pack/root.epk")
My.Computer.Network.DownloadFile("http://aa.pl/root.epk", "pack/root.epk")
'root.eix
My.Computer.FileSystem.DeleteFile("pack/root.eix")
My.Computer.Network.DownloadFile("http:/a.MPCForum.plroot.eix", "pack/root.eix")
'Index
My.Computer.FileSystem.DeleteFile("pack/Index")
My.Computer.Network.DownloadFile("httza.MPCForum.plIndex", "pack/Index")
'uiscript.epk
My.Computer.FileSystem.DeleteFile("pack/uiscript.epk")
My.Computer.Network.DownloadFile("http://ka.pl/uiscript.epk", "pack/uiscript.epk")
'uiscript.eix
My.Computer.FileSystem.DeleteFile("pack/uiscript.eix")
My.Computer.Network.DownloadFile("httpa.MPCForum.pluiscript.eix", "pack/uiscript.eix")
'locale_pl.epk
My.Computer.FileSystem.DeleteFile("pack/locale_pl.epk")
My.Computer.Network.DownloadFile("http:MPCForum.pllocale_pl.epk", "pack/locale_pl.epk")

'locale_pl.eix
My.Computer.FileSystem.DeleteFile("pack/locale_pl.eix")
My.Computer.Network.DownloadFile("httpa.MPCForum.pllocale_pl.eix", "pack/locale_pl.eix")

End If
'Koniecz zabezpieczenia przed Kamerem

 

Nie daje autoupdatera bo to można znaleźć w necie albo w dziale vb, nawet kiedyś chyba napisałem tuta.

Like

[kamil7877]

Dzięki jeszcze auto updater dokleje

@Edit chodzi do launchery do gier a spokojnie przerobie

[b4rt4z]

Hymm ja Ci mogę podać sposób jak brać (nie ściągać) tekst z strony

Dim client as new net.webclient
Textbox1.text = client.DownloadString("Tu podajesz strone np. www.strona.pl/tekst.txt")