Jump to content

MertCanDinler

Üye
 View Profile  See their activity

  • Posts

    46

  • Joined

  • Last visited

 Content Type 

Posts posted by MertCanDinler

    Gözat Butonu Sorunu

    in AutoIT

    Posted

    Gözat Butonundan Seçtiğim Yere Dosyaları Kopyalamıyor :) Yardım Ederseniz Sevinirim..
    [codebox]#RequireAdmin
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=D:\Online Games\Silkroad\Silkroad.ico
    #AutoIt3Wrapper_outfile=iBot Auto Buff v2.8.exe
    #AutoIt3Wrapper_Res_Description=NoN_Stop
    #AutoIt3Wrapper_Res_Fileversion=2.8.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=NoN_Stop
    #Obfuscator_Parameters=/sf 1
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <Process.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIListView.au3>
    #include <GUIListBox.au3>
    #include <Clipboard.au3>
    #NoTrayIcon
    Global $timers[255]
    Global $handle = 0
    Global $ver = "2.7"
    Global $version

    Opt("TrayMenuMode", 3)
    Opt("WinDetectHiddenText", 1)
    Opt("GUIOnEventMode", 1)
    Opt("TrayOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Çalışmam 1", 771, 619, 107, 43)
    $MenuItem1 = GUICtrlCreateMenu("&Dosya")
    $exit = GUICtrlCreateMenuItem("Çıkış", $MenuItem1)
    $MenuItem2 = GUICtrlCreateMenu("&Yardım")
    $update = GUICtrlCreateMenuItem("Güncellemeleri Kontrol Et", $MenuItem2)
    $MenuItem3 = GUICtrlCreateMenuItem("", $MenuItem2)
    $about = GUICtrlCreateMenuItem("Hakkında", $MenuItem2)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 130)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60)
    $Group115 = GUICtrlCreateGroup("Bilgi", 405, 35, 350, 420)
    $logs = GUICtrlCreateList("", 410, 55, 340, 400)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateTabItem("")
    Logs("log1")
    Logs("log2")
    Logs("-----------------------------------------")
    $Button1 = GUICtrlCreateButton("Başlat",405, 555, 350, 25,0x0001)
    GUICtrlSetOnEvent(-1, "BTN1")
    $Button1 = GUICtrlCreateButton("gözat",405, 505, 350, 25,0x0001)
    GUICtrlSetOnEvent(-1, "BTN22")


    $Tab1 = GUICtrlCreateTab(8, 16, 393, 569)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("C6 V20")
    $Checkbox1111 = GUICtrlCreateCheckbox("Mod1", 20, 50, 150, 17)
    $TabSheet2 = GUICtrlCreateTabItem("C6 V40")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group5 = GUICtrlCreateGroup("Boş Alan", 10, 50, 185, 105)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")

    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateTabItem("")
    $logscontext = GUICtrlCreateContextMenu($logs)
    $clear_logs = GUICtrlCreateMenuItem("Temizle", $logscontext)
    GUISetState(@SW_SHOW)
    Func BTN22()
    Local $FSFolder = FileSelectFolder("Klasörünü seç", "0",7)
    Logs(" " & $FSFolder & " ")
    EndFunc
    Func BTN1()
    ProgressOn("FW Modder", "Fw niz Modlanıyor Lütfen Bekleyiniz", "0 %",605,132)
    For $i = 0 to 2 step 2
    progressSet( $i, $i & "%")
    Next
    If GUICtrlRead($Checkbox1111) = $GUI_CHECKED then Logs("seçim1 kurulum başladı")
    DirCopy(@ScriptDir & "\themes\", $FSFolder & "",)
    If GUICtrlRead($Checkbox1111) = $GUI_CHECKED then Logs("seçim1 kurulum bitti")
    For $i = 5 to 15 step 10
    progressSet( $i, $i & "%")
    Next
    ProgressSet(100 , "Yuppiiii Bitti =D", "By Mert Can")


    sleep(3000)
    ProgressOff()




    EndFunc

    GUISetOnEvent(-3, "_Exit")
    GUISetOnEvent(-4, "_Hide")
    GUICtrlSetOnEvent($update, "Update")
    GUICtrlSetOnEvent($exit, "_Exit")
    GUICtrlSetOnEvent($clear_logs, "ClearLogs")
    GUICtrlSetOnEvent($about, "About")
    TraySetOnEvent(-13, "_Tray")




    While 1
    Sleep(20)
    WEnd


    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    Func Logs($text)
    $string = '[' & Time() & ']' & " - "
    $string &= $text
    _GUICtrlListBox_InsertString($logs, $string, 0)
    EndFunc ;==>Logs


    Func ClearLogs()
    GUICtrlSetData($logs, '')
    Logs("Log1")
    Logs("Log2")
    Logs("-----------------------------------------")
    Logs("Temizlendi...")
    EndFunc ;==>ClearLogs


    Func Time()
    $IHOUR = @HOUR
    $IMIN = @MIN
    $ISEC = @SEC
    If $IHOUR = 0 Then $IHOUR = 24
    Return $IHOUR & ":" & $IMIN & ":" & $ISEC
    EndFunc ;==>Time

    [/codebox]
    Verdiği Hata
    [codebox]C:\Documents and Settings\Mert Can\Desktop\src\çal??ma 1.au3 (89) : ==> Variable used without being declared.:
    DirCopy(@ScriptDir & "\themes\", $FSFolder & "",)
    DirCopy(@ScriptDir & "\themes\", ^ ERROR[/codebox]

    Gözat Butonu

    in AutoIT

    Posted · Edited by MertCanDinler

    FileCopy İle Kopyalanacak Dosyaların Gözat Butonu ile seçilen Yere kopyalanmasını istiyorum bunu nasıl yaparız :)

×
×
  • Create New...