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.]][/url]
Compile
script to .exe İle Devam Ediniz.
script
Alıntı:
#Include
#Include
#include
#include
#include
#include
#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