Jump to content

my program, error line 56


Recommended Posts

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

Link to comment
Share on other sites

  • Developers

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.

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

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...