Selam Forum Herkes Kendi Serverine Göre Pack Yapmak İster.Bende Size Bunu Öğreticeğim!
Bazı Arkadaşlar Alıntı Falan Yazmış Görücez Birazdan Kim Eme Hırsızı Kim İftiracı.
İlk Olarak Bu Programı İndiriniz.
[Linkleri görebilmek için üye olun veya giriş yapın.] [/hide[/url]]
İndirdikden Sonra Rardan Cıkartınız.
İçinde Metin2.au3 Die Bi Dosya Var Onu Not Defterinde Acınız.(c++ Programıyla Daha Kapsamlı Editleye Bilirsiniz)
Açtıktan Sonra İçinde Pack Sisteminin Yazılmış Oldugu script Var.Ben Türkçeleştirdim.Chinesee43 Yazan Yerleri Serverinize
Göre Ayarlayıp Kullana Bilirsiniz.Butonlar Resimleri Türkçedir.
Yaptıktan Sonra İndirdiginiz Klösörde scriptleri Exe Ye Cevirmek İçin
Program Olucak Onu Acıyoruz.
Source(AutoIt .au3 File ) Yazan Kısım script Not Defteriyle Acıp
Editlediginizi Secin.
Destination (.Exe/.au3 File) Yazan Yer Nereye Exe Olarak Kayıt
Edilmesi Gerektigi Yeri Gösterceksiniz.
Custom Icon (/.ico File) Yazan Kısım Da Programınızın Simgesidir
Ben Size Metin2 Nin Simgesini Dosyaya Atmış Olarak.
Vericeğim Onu Yapabilirsiniz.
Pack Klösöründe patch.ini Var Ondan Linkleri Görmesi İcin Koydum Exe Nizi Oraya Kayıt Edin.
script Exe Dönüştürücü Klösöründe Aut2exe.exe İle scripti Exeye Dönüştürüceksiniz.
İcon Simgede Size Verdigim Hazır Bir Simgedir
Autoİt Hata Verirse Bunu İndirip
[Linkleri görebilmek için üye olun veya giriş yapın.]Compile script to .exe İle Devam Ediniz.
script
Alıntı:
#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 = FileReadLine($scriptDir & "\patch.ini" 1)
Global $adurl = FileReadLine ($scriptDir & "\patch.ini"2)
Global $fensterurl = FileReadLine ($scriptDir & "\patch.ini"3)
Global $buttonurl = FileReadLine ($scriptDir & "\patch.ini"4)
FileInstall("C:\Documents and Settings\ADEM\metin2start.bmp" @Tempdir&"\metin2start.bmp"1)
FileInstall("E:\Metin2t\patchs kin\btn_startgame_up.bmp" @Tempdir&"\btn_startgame_up.bm p"1)
FileInstall("E:\Metin2t\patchs kin\btn_settings_up.bmp" @Tempdir&"\btn_settings_up.bmp "1)
FileInstall("E:\Metin2t\patchs kin\btn_newaccount_up.bmp" @Tempdir&"\btn_newaccount_up.b mp"1)
FileInstall("E:\Metin2t\patchs kin\btn_idpwd_up.bmp" @Tempdir&"\btn_idpwd_up.bmp"1 )
FileInstall("E:\Metin2t\patchs kin\btn_quit_up.bmp" @Tempdir&"\btn_quit_up.bmp"1)
;GUI########################## ############################
Opt("GUIOnEventMode" 1)
$Form1 = GUICreate("Metin2 Oto Pack By Chinesee43" 373 541 193 125)
GUISetOnEvent($GUI_EVENT_CLOSE "_close")
$stat = GUICtrlCreateEdit("" 16 8 337 281)
GUICtrlSetData(-1 "((`~Pack Baslatılıyor.~´))"&@CRLF&"File s Kontrol Ediliyor...")
$cancel = GUICtrlCreateButton("Çıkış" 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("Metin2 OtoPack By Chinesee43" 595 385 328 160)
GUISetOnEvent($GUI_EVENT_CLOSE "_close")
$Pic1 = GUICtrlCreatePic(@Tempdir&"\me tin2start.bmp" 0 0 593 382 $BS_BITMAP)
$start = GUICtrlCreateButton("(Not allowed)" 464 40 127 41 $BS_BITMAP)
GUICtrlSetImage(-1 @Tempdir&"\btn_startgame_up.bm p" 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.b mp" 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)
;gui########################## ###########################
Func seite ()
_IECreate($buttonurl)
EndFunc
func start ()
run($scriptdir&"/metin2.exe")
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"Hata""Pack Listesi Bulunamadı!")
Exit
EndIf
DirCreate("pack")
DirCreate("BGM")
DirCreate("lib")
DirCreate("mark")
DirCreate("miles")
DirCreate("upload")
While ($lines >= 1)
$datei = FileReadLine($file$lines)
GUICtrlSetData($stat"Tamamlan dı!: "& $datei & @CRLF & GUICtrlRead($stat))
$size_inet = InetGetSize($url&"\"&$datei)
If FileExists($scriptDir&""&$date i) Then
If @error Then
MsgBox(16 "Fehler" @error)
EndIf
$size_ordner = FileGetSize( $scriptDir&""&$datei)
If $size_inet <> $size_ordner Then
GUICtrlSetData($stat"Pack İndiriliyor: "& $datei & @CRLF & GUICtrlRead($stat))
InetGet($url&$datei $scriptDir& "" & $datei 1 1)
while 1
$hFileSize = FileGetSize($scriptDir & "" & $datei) ;Wie viel wurde schon geladen.
$iPercent = round ( @InetGetBytesRead / $size_inet *100) ;Rechen Operation ? O.O
GUICtrlSetData($Progress1 $iPercent) ;Progressbar einstellen
If $hFileSize = $size_inet Then
GUICtrlSetData($Progress1 100)
ExitLoop
EndIf
sleep (50)
WEnd
Else
GUICtrlSetData($stat"Dosyalar Kontrol Ediliyor!: "& $datei & @CRLF & GUICtrlRead($stat))
EndIf
Else
InetGet($url&$datei$scriptDir &""&$datei11)
GUICtrlSetData($stat "Dosya İndiriliyor!: "& $datei& @CRLF & GUICtrlRead($stat))
while 1
$hFileSize = FileGetSize($scriptDir & "" & $datei) ;Wie viel wurde schon geladen.
$iPercent = round ( @InetGetBytesRead / $size_inet *100) ;Rechen Operation ? O.O
GUICtrlSetData($Progress1 $iPercent) ;Progressbar einstellen
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
video link
Konu: Herkes Kendi Pack Dosyasını Olusturabilecek...!! // By FORZA66 Farkıyla... 
25/4/2010, 14:49
