Server'a Pack Sistemi Yapmak [Detaylı Anlatım]

tarafından **uÄŸur** Paz Ocak 23, 2011 10:20 am

uÄŸur: Admin; Mesaj Sayısı : 2372
Karizma Puanı : 7113
Kayıt tarihi : 02/04/10

Post n°1

Server'a Pack Sistemi Yapmak [Detaylı Anlatım]

Mesaj tarafından uÄŸur Paz Ocak 23, 2011 10:20 am

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.~´))"&@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

Detaylı Anlatımla Hala Yapamayanlar İçin Video Linki

[Linkleri görebilmek için üye olun veya giriş yapın.]

Arkadaslarmız Forumda Kopyalama Olmadığı İçin Kodu Alamadılar Bende Txt Olarak Upload Ettim

Upload By CrisVector : [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.]

000]Metin2UseR]

Kral Forum

Kral Forum

Kral Forum

Server'a Pack Sistemi Yapmak [Detaylı Anlatım]

Server'a Pack Sistemi Yapmak [Detaylı Anlatım]

Similar topics

Similar topics

Arama

Sonuç : Mesajlar Konular
çıkıntı araştırma