[Tut] Polski Patcher Na Twój Serwer !

[srulian96]

[quote name=Ktos ' timestamp='1288279433' post='1563251]

Wszystko fajnie działa, ale czy mógłbyś mi zrobić żeby była ikona PL metina i aby po kliknięciu "Rozpocznij grę" wchodziło mi w konkretne spolszczenie?

Macie source:

 

 

#Include <File.au3>
#Include <GuiConstants.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#NoTrayIcon
Global $m2ordner = @ScriptDir
Global $ScriptDir = @ScriptDir
Global $TempDir = @TempDir
Global $url = "http://patches.cba.pl/update_patch/"
Global $adurl = "http://patches.cba.pl/update_patch/patch.html"
Global $fensterurl = "http://patches.cba.pl/update_patch/patch2.html"
Global $buttonurl = "http://reg.html"
FileInstall("E:\Nowy folder (3)\main.bmp", @Tempdir&"\main.bmp",1)
FileInstall("E:\Nowy folder (3)\btn_startgame_up.bmp", @Tempdir&"\btn_startgame_up.bmp",1)
FileInstall("E:\Nowy folder (3)\btn_settings_up.bmp", @Tempdir&"\btn_settings_up.bmp",1)
FileInstall("E:\Nowy folder (3)\btn_newaccount_up.bmp", @Tempdir&"\btn_newaccount_up.bmp",1)
FileInstall("E:\Nowy folder (3)\btn_idpwd_up.bmp", @Tempdir&"\btn_idpwd_up.bmp",1)
FileInstall("E:\Nowy folder (3)\btn_quit_up.bmp", @Tempdir&"\btn_quit_up.bmp",1)

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Isara - Patcher [ by KoDeR ]", 373, 541, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$stat = GUICtrlCreateEdit("", 16, 8, 337, 281)
GUICtrlSetData(-1, "[ Patcher by KoDeR ]"&@CRLF&"Rozpoczynanie patchowania...")
$cancel = GUICtrlCreateButton("Anuluj", 288, 496, 75, 25, 0)
GUICtrlSetOnEvent($cancel, "_close")

$Progress1 = GUICtrlCreateProgress(16, 464, 334, 17)
;16, 312, 340, 13
$oIE = _IECreateEmbedded()
$oIE_ctrl = GUICtrlCreateObj($oIE, 16, 312, 336, 136)
GUISetState(@SW_SHOW)
_IENavigate($oIE, $adurl) 
$Form2 = GUICreate("Isara - Patcher [ by KoDeR ]", 595, 385, 328, 160)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$Pic1 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 593, 382, $BS_BITMAP)
$start = GUICtrlCreateButton("(Not allowed)", 464, 40, 127, 41, $BS_BITMAP)
GUICtrlSetImage(-1, @Tempdir&"\btn_startgame_up.bmp", 1)
GUICtrlSetOnEvent($start, "start")
$config = GUICtrlCreateButton("(Not allowed)", 464, 96, 127, 25, $BS_BITMAP)
GUICtrlSetOnEvent($config, "config")
GUICtrlSetImage(-1, @Tempdir&"\btn_settings_up.bmp", 1)
$seite1 = GUICtrlCreateButton("(Not allowed)", 464, 184, 127, 25, $BS_BITMAP)
GUICtrlSetImage(-1, @Tempdir&"\btn_newaccount_up.bmp", 1)
GUICtrlSetOnEvent($seite1, "seite")
$seite2 = GUICtrlCreateButton("(Not allowed)", 464, 160, 129, 25, $BS_BITMAP)
GUICtrlSetImage(-1,  @Tempdir&"\btn_idpwd_up.bmp", 1)
GUICtrlSetOnEvent($seite2, "seite")
$ende = GUICtrlCreateButton("(Not allowed)", 464, 352, 127, 25, $BS_BITMAP)
GUICtrlSetImage(-1,  @Tempdir&"\btn_quit_up.bmp", 1)
GUICtrlSetOnEvent($ende, "_close")
$oIE1 = _IECreateEmbedded()
$oIE_ctrl1 = GUICtrlCreateObj($oIE1, 8, 8, 456, 376)
_IENavigate($oIE1, $fensterurl)

GUISetState(@SW_HIDE)

Func seite ()
   _IECreate($buttonurl)
EndFunc

func start ()
   run($Scriptdir&"\metin2.bin")
   Exit
EndFunc

Func config ()
   Run($ScriptDir&"\config.exe")
EndFunc


func _close ()
   Exit
EndFunc
Sleep (500)
patch ()


func patch ()
   $file = @TempDir&"\files.txt"
   InetGet( $url&"\files.txt" , $file)
   $lines = _FileCountLines($file)
   If $lines = 0 Then
       MsgBox(48,"Uwaga!","Niewykryto downloadu na serwerze!")
       Exit
   EndIf
   DirCreate("pack")
   DirCreate("BGM")
   DirCreate("lib")
   DirCreate("mark")
   DirCreate("miles")
   DirCreate("screenshot")
   DirCreate("upload")
FileDelete("pack\root.eix")
FileDelete("pack\locale_pl.eix")
   While ($lines >= 1) 
       $datei = FileReadLine($file,$lines)
       GUICtrlSetData($stat,"Sprawdzanie pliku: "& $datei & @CRLF & GUICtrlRead($stat))
	$size_inet = InetGetSize($url&"\"&$datei)
       If FileExists($ScriptDir&"\"&$datei) Then        
           If @error Then
               MsgBox(16 , "Fehler", @error)
           EndIf
           $size_ordner = FileGetSize( $ScriptDir&"\"&$datei)
           If $size_inet <> $size_ordner Then
               GUICtrlSetData($stat,"Pobieranie pliku: "& $datei & @CRLF & GUICtrlRead($stat))
               InetGet($url&$datei , $ScriptDir& "\" & $datei , 1 , 1)
               while 1
                   $hFileSize = FileGetSize($ScriptDir & "\" & $datei) 
                   $iPercent = round ( @InetGetBytesRead  /  $size_inet   *100) 
                   GUICtrlSetData($Progress1, $iPercent) 
               If $hFileSize = $size_inet Then 
               GUICtrlSetData($Progress1, 100)
               ExitLoop
           EndIf
           sleep (50)
       WEnd
       Else
           GUICtrlSetData($stat,"Sprawdzono plik: "& $datei & @CRLF & GUICtrlRead($stat))
           EndIf
       Else
           InetGet($url&$datei,$ScriptDir&"\"&$datei,1,1)
           GUICtrlSetData($stat, "Pobieranie pliku: "& $datei& @CRLF & GUICtrlRead($stat))
           while 1
               $hFileSize = FileGetSize($ScriptDir & "\" & $datei) 

               $iPercent = round ( @InetGetBytesRead  /  $size_inet   *100) 

               GUICtrlSetData($Progress1, $iPercent) 

           If $hFileSize = $size_inet Then 
               GUICtrlSetData($Progress1, 100)
               ExitLoop
           EndIf
           sleep (50)
       WEnd
       EndIf
       sleep (500)
       $lines = $lines-1
   WEnd
   FileDelete($TempDir&"files.txt")
   GUISetState(@SW_HIDE,$Form1)
   GUISetState(@SW_SHOW,$Form2)
while 1
   Sleep(100)
WEnd
EndFunc

 

 

robta co chceta ;D

[Ktos :D]

robta co chceta ;D

Łatwo powiedzieć, tylko że ja wg. nie czaje jak mam to zrobić, i jak później zapisać.

[srulian96]

[quote name=Ktos ' timestamp='1288290033' post='1564132]

Łatwo powiedzieć, tylko że ja wg. nie czaje jak mam to zrobić, i jak później zapisać.

poczytaj sobie o autoit - masz info np na tym forum :P

[Ktos :D]

poczytaj sobie o autoit - masz info np na tym forum :P

Teraz już załapałem ,tylko szkoda że nie da się zrobić aby uruchamiało przez jakieś konkretne spolszczenie.

[Schittset]

Automatyczna wiadomość.

 

Ten temat został przeniesiony z forum:

"MMORPG -> Metin2 -> Metin 2 - Serwery Prywatne -> Metin2 - Tworzenie serwerów prywatnych"

do:

"MMORPG -> Metin2 -> Metin 2 - Serwery Prywatne -> Metin2 - Tworzenie serwerów prywatnych -> Metin2 - Tutoriale i Download".