Sign in to follow this  
Followers 0
fmdogg

my program, error line 56

6 posts in this topic

my program source codes;

bottom codes comment read

#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..

Share this post


Link to post
Share on other sites



#3 ·  Posted (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 by monoscout999

Share this post


Link to post
Share on other sites

Cheats, not the updated package on the internet and I need to protect this package for their own server

Share this post


Link to post
Share on other sites

Cheats, not the updated package on the internet and I need to protect this package for their own server

Cheat will do.

Read the rules.


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0