Skip to main content

Forumdervis W.

Beta
-

ForumDervis - Genel Forum Sitesi'a hoş geldiniz!

Merhaba, Ziyaretçi! Ben Mini; size yardımcı olabilmek için buradayım. İçerik sağlayıcı paylaşım sitemize eriştiğiniz için çok mutluyuz. Giriş yaparak, birbirinden güzel içeriklerimizden kolaylıkla faydalanabilirsiniz. Kayıtlı değilseniz, hemen ücretsiz ve kolay bir şekilde kayıt olabilirsiniz. Sizi de ailemize bekliyoruz.

(Giriş yapmamış kullanıcılar tarafından görüntülenir.)

Özel mesaj engelinizi kaldırmak için tıklayın ;

servere pack yapımı

18-03-2015, Saat: 07:07 PM
#1
Çevrimdışı
~~Merhaba Arkadaslar Bugun Serverınıza Pack Sistemi Yapmaya Gelicez Gercekten Önemli Bir Konu Serverınız İçin Gecelim Anlatımaİlk Olarak Verdigim Linkleti Dosyayı İndirin:
İndirmek İçin Tıklayınız!
İ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
İndirmek İçin Tıklayınız!
 Compile Script to .exe İle Devam Ediniz.
 Script
 
PHP Kod:
#Include <File.au3>
 #Include <GuiConstants.au3>
 #include <IE.au3>
 #include <WindowsConstants.au3>
 #include <ButtonConstants.au3>
 #include <GUIConstant+++.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")
 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(-"((`~Pack Baslatılıyor.~´))"&@CRLF&"File s Kontrol Ediliyor...")
 $cancel GUICtrlCreateButton("Çıkış" 288 496 75 25 0)
 GUICtrlSetOnEvent($cancel "_close")[/b][b] $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(-@Tempdir&"\btn_startgame_up.bm p" 1)
 GUICtrlSetOnEvent($start "start")
 $config GUICtrlCreateButton("(Not allowed)" 464 96 127 25 $BS_BITMAP)
 GUICtrlSetOnEvent($config "config")
 GUICtrlSetImage(-@Tempdir&"\btn_settings_up.bmp " 1)
 $seite1 GUICtrlCreateButton("(Not allowed)" 464 184 127 25 $BS_BITMAP)
 GUICtrlSetImage(-@Tempdir&"\btn_newaccount_up.b mp" 1)
 GUICtrlSetOnEvent($seite1 "seite")
 $seite2 GUICtrlCreateButton("(Not allowed)" 464 160 129 25 $BS_BITMAP)
 GUICtrlSetImage(-@Tempdir&"\btn_idpwd_up.bmp" 1)
 GUICtrlSetOnEvent($seite2 "seite")
 $ende GUICtrlCreateButton("(Not allowed)" 464 352 127 25 $BS_BITMAP)
 GUICtrlSetImage(-@Tempdir&"\btn_quit_up.bmp" 1)
 GUICtrlSetOnEvent($ende "_close")
 $oIE1 _IECreateEmbedded()
 $oIE_ctrl1 GUICtrlCreateObj($oIE1 8 8 456 376)
 _IENavigate($oIE1 $fensterurl)[/b][b] GUISetState(@SW_HIDE)
 ;gui########################## ###########################
 Func seite ()
 _IECreate($buttonurl)
 EndFunc[/b][b] func start ()
 run($Scriptdir&"/metin2.exe")
 Exit
 EndFunc
[/b][b] Func config ()
 Run($ScriptDir&"\config.exe")
 EndFunc[/b]
[
b] func _close ()
 Exit
 EndFunc
 Sleep 
(500)
 patch ()[/b]
[
b] 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.[/b][b] $iPercent = round ( @InetGetBytesRead / $size_inet *100) ;Rechen Operation ? O.O[/b][b] GUICtrlSetData($Progress1 $iPercent) ;Progressbar einstellen[/b][b] 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
http://www.toofiles.com/tr/oip/documents...see43.html Arkadaslarmız Forumda Kopyalama Olmadığı İçin Kodu Alamadılar Bende Txt Olarak Upload Ettim Upload By CrisVector : http://www.tekdosya.com/files/LI39563LI/...e.rar.html Tek Dosyaya Giremeyen Arkadaslarım İçin uploaded.to : http://ul.to/z0yz2hℂ⋆ ShooтєЯ ℂ⋆ FarkıyLa...!! ßir TeşekküR'ü Çoq Görmeyin Lütfen Emeqe Sayqı !
Darkness
19-03-2015, Saat: 04:39 PM
#2
Çevrimdışı
Paylaşımlar için teşekkürler
OhneName

Hızlı Menü:

Konuyu Okuyanlar: 1 Ziyaretçi
970x91
buca escort cialis fiyat viagra fiyatı

Forumdervis

Türkiyenin en güncel forum sitesi

Task