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]
