Jump to content

Gözat Butonu Sorunu

MertCanDinler

By MertCanDinler,
in AutoIT

 Share

Recommended Posts

MertCanDinler Newbie

MertCanDinler

Posted
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]

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

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]

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...