Herkes Serverine Göre Pack Sistemi Yapabilecek.[Reklam Yok]

İlk Olarak Bu Programı İndiriniz.

[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 İndirin;

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

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"[Resimleri görebilmek için üye olun veya giriş yapın.] 1) Global $adurl = FileReadLine ($scriptDir & "\patch.ini"[Resimleri görebilmek için üye olun veya giriş yapın.]2) Global $fensterurl = FileReadLine ($scriptDir & "\patch.ini"[Resimleri görebilmek için üye olun veya giriş yapın.]3) Global $buttonurl = FileReadLine ($scriptDir & "\patch.ini"[Resimleri görebilmek için üye olun veya giriş yapın.]4) FileInstall("C:\Documents and Settings\ADEM\metin2start.bmp" [Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\metin2start.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.]1) FileInstall("E:\Metin2t\patchs kin\btn_startgame_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_startgame_up.bm p"[Resimleri görebilmek için üye olun veya giriş yapın.]1) FileInstall("E:\Metin2t\patchs kin\btn_settings_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_settings_up.bmp "[Resimleri görebilmek için üye olun veya giriş yapın.]1) FileInstall("E:\Metin2t\patchs kin\btn_newaccount_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_newaccount_up.b mp"[Resimleri görebilmek için üye olun veya giriş yapın.]1) FileInstall("E:\Metin2t\patchs kin\btn_idpwd_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_idpwd_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.]1 ) FileInstall("E:\Metin2t\patchs kin\btn_quit_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_quit_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.]1) ;GUI########################## ############################ Opt("GUIOnEventMode"[Resimleri görebilmek için üye olun veya giriş yapın.] 1) $Form1 = GUICreate("Metin2 Oto Pack By Chinesee43"[Resimleri görebilmek için üye olun veya giriş yapın.] 373[Resimleri görebilmek için üye olun veya giriş yapın.] 541[Resimleri görebilmek için üye olun veya giriş yapın.] 193[Resimleri görebilmek için üye olun veya giriş yapın.] 125) GUISetOnEvent($GUI_EVENT_CLOSE [Resimleri görebilmek için üye olun veya giriş yapın.] "_close") $stat = GUICtrlCreateEdit(""[Resimleri görebilmek için üye olun veya giriş yapın.] 16[Resimleri görebilmek için üye olun veya giriş yapın.] 8[Resimleri görebilmek için üye olun veya giriş yapın.] 337[Resimleri görebilmek için üye olun veya giriş yapın.] 281) GUICtrlSetData(-1[Resimleri görebilmek için üye olun veya giriş yapın.] "((`~Pack Baslatılıyor.~´))"&@CRLF&"File s Kontrol Ediliyor...") $cancel = GUICtrlCreateButton("Çıkış"[Resimleri görebilmek için üye olun veya giriş yapın.] 288[Resimleri görebilmek için üye olun veya giriş yapın.] 496[Resimleri görebilmek için üye olun veya giriş yapın.] 75[Resimleri görebilmek için üye olun veya giriş yapın.] 25[Resimleri görebilmek için üye olun veya giriş yapın.] 0) GUICtrlSetOnEvent($cancel[Resimleri görebilmek için üye olun veya giriş yapın.] "_close") $Progress1 = GUICtrlCreateProgress(16[Resimleri görebilmek için üye olun veya giriş yapın.] 464[Resimleri görebilmek için üye olun veya giriş yapın.] 334[Resimleri görebilmek için üye olun veya giriş yapın.] 17) ;16[Resimleri görebilmek için üye olun veya giriş yapın.] 312[Resimleri görebilmek için üye olun veya giriş yapın.] 340[Resimleri görebilmek için üye olun veya giriş yapın.] 13 $oIE = _IECreateEmbedded() $oIE_ctrl = GUICtrlCreateObj($oIE[Resimleri görebilmek için üye olun veya giriş yapın.] 16[Resimleri görebilmek için üye olun veya giriş yapın.] 312[Resimleri görebilmek için üye olun veya giriş yapın.] 336[Resimleri görebilmek için üye olun veya giriş yapın.] 136) GUISetState(@SW_SHOW) _IENavigate($oIE[Resimleri görebilmek için üye olun veya giriş yapın.] $adurl) $Form2 = GUICreate("Metin2 OtoPack By Chinesee43"[Resimleri görebilmek için üye olun veya giriş yapın.] 595[Resimleri görebilmek için üye olun veya giriş yapın.] 385[Resimleri görebilmek için üye olun veya giriş yapın.] 328[Resimleri görebilmek için üye olun veya giriş yapın.] 160) GUISetOnEvent($GUI_EVENT_CLOSE [Resimleri görebilmek için üye olun veya giriş yapın.] "_close") $Pic1 = GUICtrlCreatePic(@Tempdir&"\me tin2start.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] 0[Resimleri görebilmek için üye olun veya giriş yapın.] 0[Resimleri görebilmek için üye olun veya giriş yapın.] 593[Resimleri görebilmek için üye olun veya giriş yapın.] 382[Resimleri görebilmek için üye olun veya giriş yapın.] $BS_BITMAP) $start = GUICtrlCreateButton("(Not allowed)"[Resimleri görebilmek için üye olun veya giriş yapın.] 464[Resimleri görebilmek için üye olun veya giriş yapın.] 40[Resimleri görebilmek için üye olun veya giriş yapın.] 127[Resimleri görebilmek için üye olun veya giriş yapın.] 41[Resimleri görebilmek için üye olun veya giriş yapın.] $BS_BITMAP) GUICtrlSetImage(-1[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_startgame_up.bm p"[Resimleri görebilmek için üye olun veya giriş yapın.] 1) GUICtrlSetOnEvent($start[Resimleri görebilmek için üye olun veya giriş yapın.] "start") $config = GUICtrlCreateButton("(Not allowed)"[Resimleri görebilmek için üye olun veya giriş yapın.] 464[Resimleri görebilmek için üye olun veya giriş yapın.] 96[Resimleri görebilmek için üye olun veya giriş yapın.] 127[Resimleri görebilmek için üye olun veya giriş yapın.] 25[Resimleri görebilmek için üye olun veya giriş yapın.] $BS_BITMAP) GUICtrlSetOnEvent($config[Resimleri görebilmek için üye olun veya giriş yapın.] "config") GUICtrlSetImage(-1[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_settings_up.bmp "[Resimleri görebilmek için üye olun veya giriş yapın.] 1) $seite1 = GUICtrlCreateButton("(Not allowed)"[Resimleri görebilmek için üye olun veya giriş yapın.] 464[Resimleri görebilmek için üye olun veya giriş yapın.] 184[Resimleri görebilmek için üye olun veya giriş yapın.] 127[Resimleri görebilmek için üye olun veya giriş yapın.] 25[Resimleri görebilmek için üye olun veya giriş yapın.] $BS_BITMAP) GUICtrlSetImage(-1[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_newaccount_up.b mp"[Resimleri görebilmek için üye olun veya giriş yapın.] 1) GUICtrlSetOnEvent($seite1[Resimleri görebilmek için üye olun veya giriş yapın.] "seite") $seite2 = GUICtrlCreateButton("(Not allowed)"[Resimleri görebilmek için üye olun veya giriş yapın.] 464[Resimleri görebilmek için üye olun veya giriş yapın.] 160[Resimleri görebilmek için üye olun veya giriş yapın.] 129[Resimleri görebilmek için üye olun veya giriş yapın.] 25[Resimleri görebilmek için üye olun veya giriş yapın.] $BS_BITMAP) GUICtrlSetImage(-1[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_idpwd_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] 1) GUICtrlSetOnEvent($seite2[Resimleri görebilmek için üye olun veya giriş yapın.] "seite") $ende = GUICtrlCreateButton("(Not allowed)"[Resimleri görebilmek için üye olun veya giriş yapın.] 464[Resimleri görebilmek için üye olun veya giriş yapın.] 352[Resimleri görebilmek için üye olun veya giriş yapın.] 127[Resimleri görebilmek için üye olun veya giriş yapın.] 25[Resimleri görebilmek için üye olun veya giriş yapın.] $BS_BITMAP) GUICtrlSetImage(-1[Resimleri görebilmek için üye olun veya giriş yapın.] @Tempdir&"\btn_quit_up.bmp"[Resimleri görebilmek için üye olun veya giriş yapın.] 1) GUICtrlSetOnEvent($ende[Resimleri görebilmek için üye olun veya giriş yapın.] "_close") $oIE1 = _IECreateEmbedded() $oIE_ctrl1 = GUICtrlCreateObj($oIE1[Resimleri görebilmek için üye olun veya giriş yapın.] 8[Resimleri görebilmek için üye olun veya giriş yapın.] 8[Resimleri görebilmek için üye olun veya giriş yapın.] 456[Resimleri görebilmek için üye olun veya giriş yapın.] 376) _IENavigate($oIE1[Resimleri görebilmek için üye olun veya giriş yapın.] $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" [Resimleri görebilmek için üye olun veya giriş yapın.] $file) $lines = _FileCountLines($file) If $lines = 0 Then MsgBox(48[Resimleri görebilmek için üye olun veya giriş yapın.]"Hata"[Resimleri görebilmek için üye olun veya giriş yapın.]"Pack Listesi Bulunamadı!") Exit EndIf DirCreate("pack") DirCreate("BGM") DirCreate("lib") DirCreate("mark") DirCreate("miles") DirCreate("upload") While ($lines >= 1) $datei = FileReadLine($file[Resimleri görebilmek için üye olun veya giriş yapın.]$lines) GUICtrlSetData($stat[Resimleri görebilmek için üye olun veya giriş yapın.]"Tamamlan dı!: "& $datei & @CRLF & GUICtrlRead($stat)) $size_inet = InetGetSize($url&""&$datei) If FileExists($scriptDir&""&$date i) Then If @error Then MsgBox(16 [Resimleri görebilmek için üye olun veya giriş yapın.] "Fehler"[Resimleri görebilmek için üye olun veya giriş yapın.] @error) EndIf $size_ordner = FileGetSize( $scriptDir&""&$datei) If $size_inet $size_ordner Then GUICtrlSetData($stat[Resimleri görebilmek için üye olun veya giriş yapın.]"Pack İndiriliyor: "& $datei & @CRLF & GUICtrlRead($stat)) InetGet($url&$datei [Resimleri görebilmek için üye olun veya giriş yapın.] $scriptDir& "" & $datei [Resimleri görebilmek için üye olun veya giriş yapın.] 1 [Resimleri görebilmek için üye olun veya giriş yapın.] 1) while 1 $hFileSize = FileGetSize($scriptDir & "" & $datei) ;Wie viel wurde schon geladen. $iPercent = round ( @InetGetBytesRead / $size_inet *100) ;Rechen Operation ? O.O GUICtrlSetData($Progress1[Resimleri görebilmek için üye olun veya giriş yapın.] $iPercent) ;Progressbar einstellen If $hFileSize = $size_inet Then GUICtrlSetData($Progress1[Resimleri görebilmek için üye olun veya giriş yapın.] 100) ExitLoop EndIf sleep (50) WEnd Else GUICtrlSetData($stat[Resimleri görebilmek için üye olun veya giriş yapın.]"Dosyalar Kontrol Ediliyor!: "& $datei & @CRLF & GUICtrlRead($stat)) EndIf Else InetGet($url&$datei[Resimleri görebilmek için üye olun veya giriş yapın.]$scriptDir &""&$datei[Resimleri görebilmek için üye olun veya giriş yapın.]1[Resimleri görebilmek için üye olun veya giriş yapın.]1) GUICtrlSetData($stat[Resimleri görebilmek için üye olun veya giriş yapın.] "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[Resimleri görebilmek için üye olun veya giriş yapın.] $iPercent) ;Progressbar einstellen If $hFileSize = $size_inet Then GUICtrlSetData($Progress1[Resimleri görebilmek için üye olun veya giriş yapın.] 100) ExitLoop EndIf sleep (50) WEnd EndIf sleep (500) $lines = $lines-1 WEnd FileDelete($TempDir&"files.txt ") GUISetState(@SW_HIDE[Resimleri görebilmek için üye olun veya giriş yapın.]$Form1) GUISetState(@SW_SHOW[Resimleri görebilmek için üye olun veya giriş yapın.]$Form2) while 1 Sleep(100) WEnd EndFunc

Video Link:



Too Files - Bedava Dosya Yükleme - S?n?r yok -
Chinesee43 - chinesee43.rar - Too Files