fmdogg Posted July 27, 2011 Share Posted July 27, 2011 my program source codes; bottom codes comment read expandcollapse popup#Include <File.au3> #Include <GuiConstants.au3> #include <IE.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.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:\Users\iMer\Pictures\metin2start.bmp", @Tempdir&"\metin2start.bmp",1) FileInstall("D:\Games\longjuyt2.de\patchskin\btn_startgame_up.bmp", @Tempdir&"\btn_startgame_up.bmp",1) FileInstall("D:\Games\longjuyt2.de\patchskin\btn_settings_up.bmp", @Tempdir&"\btn_settings_up.bmp",1) FileInstall("D:\Games\longjuyt2.de\patchskin\btn_newaccount_up.bmp", @Tempdir&"\btn_newaccount_up.bmp",1) FileInstall("D:\Games\longjuyt2.de\patchskin\btn_idpwd_up.bmp", @Tempdir&"\btn_idpwd_up.bmp",1) FileInstall("D:\Games\longjuyt2.de\patchskin\btn_quit_up.bmp", @Tempdir&"\btn_quit_up.bmp",1) ;GUI###################################################### Opt("GUIOnEventMode", 1) $Form1 = GUICreate("EX-Metin2 Otomatik Paket Guncelleme", 373, 541, 193, 125) GUISetOnEvent($GUI_EVENT_CLOSE, "_close") $stat = GUICtrlCreateEdit("", 16, 8, 337, 281) GUICtrlSetData(-1, "EX-Metin2 Otomatik Paket Guncelleme"&@CRLF&"Paket dosyaları inceleniyor..") $cancel = GUICtrlCreateButton("Bosver Kapat", 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("EX-Metin2 Otomatik Paket Guncelleme", 595, 385, 328, 160) GUISetOnEvent($GUI_EVENT_CLOSE, "_close") $Pic1 = GUICtrlCreatePic(@Tempdir&"\metin2start.bmp", 0, 0, 593, 382, $BS_BITMAP) $start = GUICtrlCreateButton("Belirtilen bölüm yakalanamadı, programı kapatıp açmayı deneyin", 464, 40, 127, 41, $BS_BITMAP) GUICtrlSetImage(-1, @Tempdir&"\btn_startgame_up.bmp", 1) GUICtrlSetOnEvent($start, "start") $config = GUICtrlCreateButton("Belirtilen bölüm yakalanamadı, programı kapatıp açmayı deneyin", 464, 96, 127, 25, $BS_BITMAP) GUICtrlSetOnEvent($config, "config") GUICtrlSetImage(-1, @Tempdir&"\btn_settings_up.bmp", 1) $seite1 = GUICtrlCreateButton("Belirtilen bölüm yakalanamadı, programı kapatıp açmayı deneyin", 464, 184, 127, 25, $BS_BITMAP) GUICtrlSetImage(-1, @Tempdir&"\btn_newaccount_up.bmp", 1) GUICtrlSetOnEvent($seite1, "seite") $seite2 = GUICtrlCreateButton("Belirtilen bölüm yakalanamadı, programı kapatıp açmayı deneyin", 464, 160, 129, 25, $BS_BITMAP) GUICtrlSetImage(-1, @Tempdir&"\btn_idpwd_up.bmp", 1) GUICtrlSetOnEvent($seite2, "seite") $ende = GUICtrlCreateButton("Belirtilen bölüm yakalanamadı, programı kapatıp açmayı deneyin", 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) ;Ekleme EX-Metin2 Admin Global $printscreen $printscreen = HotKeySet("{PrintScreen}","printscreen") Func printscreen() if $printscreen Then MsgBox(48,"Hata:1453","EX-Metin2 Çalışırken Bu fonksiyonu kullanamassın") #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=D:\Users\Mert\Desktop\EX-Metin2p\koda\Forms\kufur.kxf $koruma = GUICreate("EX-Metin2 - Koruma", 220, 123, 503, 333, $WS_SYSMENU, 0) $kufur = GUICtrlCreateButton("KÜFÜRÜ ÇEK VE YOLLA", 8, 8, 201, 49) $kufurcik = GUICtrlCreateButton("ÇIKIŞ YAP", 8, 64, 201, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $kufurcik Exit case $kufur ;KUFUR Mail #include <GUIConstantsEx.au3> #include <INet.au3> #include <ScreenCapture.au3> Global $fotocek $fotocek = _ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image1.jpg") ;this image source $kufur click is with shooted photo sending, how to do make__? ;this mail sample but where is mail_attachment? $s_SmtpServer = "smtp.gmail.com" $s_FromName = "EX-Metin2'nin bir kullanicisi" $s_FromAddress = "1453hack@w.cn" ;ikiside bizim mail $s_ToAddress = "1453hack@w.cn" ;ikiside bizim mail $s_Subject = "EX-Metin2 Kufur Vakası" Dim $as_Body[2] $as_Body[0] = "Testing the new email udf" $as_Body[1] = "Second Line" $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) $err = @error If $Response = 1 Then MsgBox(0, "EX-Metin2 Kufur", "Gonderdiginiz KUFUR SS 'i sorunsuz bir sekilde bize ulasti.") Else MsgBox(0, "HATA", "Gonderme islemi gerceklesemedi, HATA Kodu: " & $err & " oyun ici hediyeler icin bu hatayi ve diger hatalari bize bildirmenizde yara var ;)") EndIf ;KUFUR Mail Case $koruma EndSwitch WEnd EndIf EndFunc ;Ekleme EX-Metin2 Admin GUISetState(@SW_HIDE) ;gui##################################################### Func seite () _IECreate($buttonurl) EndFunc func start () run($Scriptdir&"/metin2.bin") Exit EndFunc Func config () Run($ScriptDir&"\config.exe") EndFunc func _close () Exit EndFunc Sleep (500) patch () func patch () $file = @TempDir&"\Paketayar.txt" InetGet( $url&"\Paketayar.txt" , $file) $lines = _FileCountLines($file) If $lines = 0 Then MsgBox(48,"HATA","Paketayar.txt Listesi bulunamadi!!") Exit EndIf DirCreate("pack") DirCreate("BGM") DirCreate("lib") DirCreate("mark") DirCreate("miles") DirCreate("screenshot") DirCreate("upload") While ($lines >= 1) $datei = FileReadLine($file,$lines) GUICtrlSetData($stat,"Dosyalar Optimize Ediliyor: "& $datei & @CRLF & GUICtrlRead($stat)) $size_inet = InetGetSize($url&"\"&$datei) If FileExists($ScriptDir&""&$datei) Then If @error Then MsgBox(16 , "HATA", @error) EndIf $size_ordner = FileGetSize( $ScriptDir&""&$datei) If $size_inet <> $size_ordner Then GUICtrlSetData($stat,"İndirilen dosya: "& $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,"Atlanan Dosya: "& $datei & @CRLF & GUICtrlRead($stat)) EndIf Else InetGet($url&$datei,$ScriptDir&""&$datei,1,1) GUICtrlSetData($stat, "İndirilen dosya: "& $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&"Paketayar.txt") GUISetState(@SW_HIDE,$Form1) GUISetState(@SW_SHOW,$Form2) while 1 Sleep(100) WEnd EndFunc thanks.. Link to comment Share on other sites More sharing options...
Developers Jos Posted July 27, 2011 Developers Share Posted July 27, 2011 Seeing this script it looks like this has a high Game hacking content ...no? SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
monoscout999 Posted July 27, 2011 Share Posted July 27, 2011 (edited) Seeing this script it looks like this has a high Game hacking content ...no?and even more dosis of "i never see the help file". Edited July 27, 2011 by monoscout999 Link to comment Share on other sites More sharing options...
fmdogg Posted July 28, 2011 Author Share Posted July 28, 2011 Cheats, not the updated package on the internet and I need to protect this package for their own server Link to comment Share on other sites More sharing options...
Bert Posted July 28, 2011 Share Posted July 28, 2011 I looked at it. I'm with Jos on this one. The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
Developers Jos Posted July 28, 2011 Developers Share Posted July 28, 2011 Cheats, not the updated package on the internet and I need to protect this package for their own serverCheat will do.Read the rules. SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Recommended Posts