MertCanDinler Posted November 4, 2011 Share Posted November 4, 2011 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] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted November 4, 2011 Share Posted November 4, 2011 Global $FSFolder satırını en başa ekle. edit: bu sorunu çözer ama yine de sağlıklı değil, daha kontrollü yazmalısın programını. Quote Link to comment Share on other sites More sharing options...
blue_life Posted November 4, 2011 Share Posted November 4, 2011 Evet daha kontrollü yazmalısın. Ayrıca konuyla ilgili birden fazla konu açmamaya özen göster! Ben kısaca hatalı kısmı düzelteyim... [codebox]#RequireAdmin #NoTrayIcon #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> Global $timers[255] Global $handle = 0 Global $ver = "2.7" Global $version Opt("TrayMenuMode", 3) Opt("WinDetectHiddenText", 1) Opt("GUIOnEventMode", 1) Opt("TrayOnEventMode", 1) Global $FSFolder Global $Form1 = GUICreate("Çalışmam 1", 771, 619) GUISetOnEvent(-3, "_Exit") $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) GUICtrlSetOnEvent($exit, "_Exit") GUICtrlSetOnEvent($clear_logs, "ClearLogs") ; Burdaki fonkisyonlar kod içeriğinde yok! ;~ GUISetOnEvent(-4, "_Hide") ;~ GUICtrlSetOnEvent($update, "Update") ;~ GUICtrlSetOnEvent($about, "About") ;~ TraySetOnEvent(-13, "_Tray") GUISetState(@SW_SHOW) Func BTN22() $FSFolder = FileSelectFolder("Klasörünü seç", "0", 7, "", $Form1) Logs(" " & $FSFolder & " ") EndFunc ;==>BTN22 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 ;==>BTN1 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] Quote Link to comment Share on other sites More sharing options...
MertCanDinler Posted November 4, 2011 Author Share Posted November 4, 2011 kopyalama işlemi yapmıyor Quote Link to comment Share on other sites More sharing options...
blue_life Posted November 4, 2011 Share Posted November 4, 2011 [color="#0000FF"][b]DirCopy(@ScriptDir & "\themes", $FSFolder & "\",1)[/b][/color] Quote Link to comment Share on other sites More sharing options...
MertCanDinler Posted November 4, 2011 Author Share Posted November 4, 2011 benim daha çok uğraşmam gerek adam gibi bir şey yapabilmek için saol Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.