tarafından Cuma Mayıs 14, 2010 7:25 pm[align=center]Merhaba Arkadaslar Bugun Server?n?za Pack Sistemi Yapmaya Gelicez Gercekten Öenmli Bir Konu Server?n?z ?çin Gecelim Anlat?ma
?lk Olarak Verdigim Linkleti Dosyay? ?ndirin:
[Linkleri görebilmek için üye olun veya giriş yapın.]
?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
Kod:
#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.~´))"[Linkleri görebilmek için üye olun veya giriş yapın.] 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
Detayl? Anlat?mla Hala Yapamayanlar ?çin Big Grin Video Linki
[Linkleri görebilmek için üye olun veya giriş yapın.]
: [Linkleri görebilmek için üye olun veya giriş yapın.]
Tek Dosyaya Giremeyen Arkadaslar?m ?çin uploaded.to : [Linkleri görebilmek için üye olun veya giriş yapın.]]
?lk Olarak Verdigim Linkleti Dosyay? ?ndirin:
[Linkleri görebilmek için üye olun veya giriş yapın.]
?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
Kod:
#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.~´))"[Linkleri görebilmek için üye olun veya giriş yapın.] 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
Detayl? Anlat?mla Hala Yapamayanlar ?çin Big Grin Video Linki
[Linkleri görebilmek için üye olun veya giriş yapın.]
: [Linkleri görebilmek için üye olun veya giriş yapın.]
Tek Dosyaya Giremeyen Arkadaslar?m ?çin uploaded.to : [Linkleri görebilmek için üye olun veya giriş yapın.]]
