ahmed9100 Posted May 21, 2010 Posted May 21, 2010 i have a problem like this \/ #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 160, 144, 392, 216) $1 = GUICtrlCreateButton("Button1", 8, 8, 137, 33, $WS_GROUP) $1 = GUICtrlCreateButton("Button2", 8, 48, 137, 33, $WS_GROUP) $1 = GUICtrlCreateButton("Button3", 8, 88, 137, 33, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $1 MsgBox("","","") EndSwitch WEnd how can i define the first button and the next and the next and if i made it like this #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 160, 144, 392, 216) GUICtrlCreateButton("Button1", 8, 8, 137, 33, $WS_GROUP) GUICtrlCreateButton("Button2", 8, 48, 137, 33, $WS_GROUP) GUICtrlCreateButton("Button3", 8, 88, 137, 33, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $1 MsgBox("","","") EndSwitch WEnd is there any way to know the button name ! and i know i can rename every button but i need another way
JohnOne Posted May 21, 2010 Posted May 21, 2010 Probably via a load of functions including ControlGetText() amongs others and writing a heap of unessesary code to navigate around the correct way. Ive honestly no Idea why you would wnt to do such a thing, what are you trying to accomplish? AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans.
adik2dmax666 Posted May 21, 2010 Posted May 21, 2010 I suggest to use KodaIt will make GUI at ease. First learn computer science and all the theory. Next develop a programming style. Then forget all that and just hack. -George Carrette[sub]GD Keylogger Creator (never released)[/sub][sub]Garena Autojoin v3.0[/sub]
JohnOne Posted May 21, 2010 Posted May 21, 2010 The OP has used koda, and then edited it to remove the variables he/she wants to to avoid using. AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans.
ahmed9100 Posted May 21, 2010 Author Posted May 21, 2010 i making a backup script and here is the code this code to chose the program and the backup folder option that work good expandcollapse popup#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GuiButton.au3> #include <GuiImageList.au3> #Include <Array.au3> #include <GuiListView.au3> #Include <File.au3> #include <Misc.au3> $dll = DllOpen("user32.dll") If Not FileExists("data") Then DirCreate("data") EndIf #Region ### START Koda GUI section ### Form=c:\users\el-zaeem\desktop\backup\bacckup form.kxf $Form1_1 = GUICreate("Z - Backup", 607, 560, 230, 132) $Group1 = GUICtrlCreateGroup("", 8, 8, 585, 201) $path_source = GUICtrlCreateInput("", 72, 43, 497, 21) $browes_source = GUICtrlCreateButton("Browse", 16, 40, 49, 25, $WS_GROUP) $Browes_b_dir = GUICtrlCreateButton("Browse", 17, 131, 49, 25, $WS_GROUP) $path_b_dir = GUICtrlCreateInput("", 73, 134, 497, 21) $icon = GUICtrlCreateButton("", 17, 160, 49, 41, $WS_GROUP) $add = GUICtrlCreateButton("Add", 496, 168, 73, 25, $WS_GROUP) $folder_to_b = GUICtrlCreateButton("Browse", 17, 86, 49, 25, $WS_GROUP) $F2p_path = GUICtrlCreateInput("", 73, 89, 497, 21) $Label3 = GUICtrlCreateLabel("Application dire", 17, 24, 76, 17) $Label4 = GUICtrlCreateLabel("Folder to backup", 17, 69, 84, 17) $Label5 = GUICtrlCreateLabel("Backup dir", 16, 114, 55, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup(" Options ", 8, 216, 585, 57) $Checkbox1 = GUICtrlCreateCheckbox("Start lancher on computer startup", 24, 240, 177, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE) Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER) $hListView = GUICtrlCreateListView("Application|Source folder|backupfolder|Application source", 8, 304,585, 201,-1,$iExWindowStyle) _GUICtrlListView_SetColumnWidth($hListView, 0, 180) _GUICtrlListView_SetColumnWidth($hListView, 1, 200) _GUICtrlListView_SetColumnWidth($hListView, 2, 200) _GUICtrlListView_SetColumnWidth($hListView, 3, 200) $Label1 = GUICtrlCreateLabel("Application List", 9, 280, 95, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $ok = GUICtrlCreateButton("ok", 500, 518, 81, 25, $WS_GROUP) $Delete = GUICtrlCreateButton("Delete", 400, 518, 81, 25, $WS_GROUP) $list_icon = GUICtrlCreateButton("", 8, 510, 49, 41, $WS_GROUP) $restore = GUICtrlCreateButton("Restore", 100, 518, 81, 25, $WS_GROUP) $edit = GUICtrlCreateButton("Edit", 300, 518, 81, 25, $WS_GROUP) $backup = GUICtrlCreateButton("backup", 200, 518, 81, 25, $WS_GROUP) $Label2 = GUICtrlCreateLabel("Made by Elzaem", 512, 280, 82, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### _GUICtrlListView_RegisterSortCallBack($hListView, False) fill() $b1 = 0 While 1 $nMsg = GUIGetMsg() If _IsPressed("01", $dll) Then $selected = _GUICtrlListView_GetSelectionMark($hListView) if $selected = -1 Then Else $delto = _GUICtrlListView_GetItemText($hListView, $selected,3) $iconfile_to_use = $delto $array = StringSplit($iconfile_to_use, '\', 1) $name = $array[$array[0]] $newname = StringReplace($name,".exe","") $hImage = _GUIImageList_Create(32, 32, 5, 3, 6) _GUIImageList_AddIcon($hImage, $iconfile_to_use, 0, True) _GUICtrlButton_SetImageList($list_icon, $hImage,4) EndIf EndIf Switch $nMsg case $browes_source $file = FileOpenDialog("Select file", @ProgramFilesDir & "", "Application (*.exe)", 1 + 4 ) If @error Then GUICtrlSetData($path_source,"") Else $iconfile_to_use = $file $array = StringSplit($iconfile_to_use, '\', 1) $name = $array[$array[0]] $newname = StringReplace($name,".exe","") $hImage = _GUIImageList_Create(32, 32, 5, 3, 6) _GUIImageList_AddIcon($hImage, $iconfile_to_use, 0, True) _GUICtrlButton_SetImageList($icon, $hImage,4) GUICtrlSetData($path_source,$file) EndIf case $folder_to_b $var = FileSelectFolder("Choose a folder.", "") if $var = "" Then GUICtrlSetData($F2p_path,"") EndIf GUICtrlSetData($F2p_path,$var) case $Browes_b_dir $var2 = FileSelectFolder("Choose a folder.", "") if $var2 = "" Then GUICtrlSetData($path_b_dir,"") EndIf GUICtrlSetData($path_b_dir,$var2) case $add if $b1 = 0 Then if GUICtrlRead($path_source) = "" or GUICtrlRead($F2p_path) = "" or GUICtrlRead($path_b_dir) = "" Then MsgBox("Error","Notic","Please choose backup and restore folders") Else $array = StringSplit(GUICtrlRead($path_source), '\', 1) $name = $array[$array[0]] $newname = StringReplace($name,".exe","") IniWrite(@ScriptDir & "\data\" & $newname & ".ini","info","name",$name) IniWrite(@ScriptDir & "\data\" & $newname & ".ini","info","source",GUICtrlRead($path_source)) IniWrite(@ScriptDir & "\data\" & $newname & ".ini","info","surcedir",GUICtrlRead($F2p_path)) IniWrite(@ScriptDir & "\data\" & $newname & ".ini","info","backupdir",GUICtrlRead($path_b_dir)) _GUICtrlListView_DeleteAllItems($hListView) fill() EndIf EndIf Case $hListView _GUICtrlListView_SortItems($hListView, GUICtrlGetState($hListView)) case $Delete if $b1 = 0 Then $selected = _GUICtrlListView_GetSelectionMark($hListView) $delto = _GUICtrlListView_GetItemText($hListView, $selected) $newname = StringReplace($delto,".exe",".ini") FileDelete(@ScriptDir & "\data\" & $newname) _GUICtrlListView_DeleteAllItems($hListView) fill() EndIf case $ok Exit DllClose($dll) Case $GUI_EVENT_CLOSE Exit DllClose($dll) case $edit $selected = _GUICtrlListView_GetSelectionMark($hListView) if $selected = -1 Then Else $delto = _GUICtrlListView_GetItemText($hListView, $selected,0) $newdata = StringReplace($delto,"exe","ini") GUICtrlSetData($path_source,"") GUICtrlSetData($F2p_path,"") GUICtrlSetData($path_b_dir,"") $AP_path = _GUICtrlListView_GetItemText($hListView, $selected,3) $sur_path = _GUICtrlListView_GetItemText($hListView, $selected,1) $back_path = _GUICtrlListView_GetItemText($hListView, $selected,2) GUICtrlSetData($path_source,$AP_path) GUICtrlSetData($F2p_path,$sur_path) GUICtrlSetData($path_b_dir,$back_path) EndIf EndSwitch WEnd Func fill() $member=_FileListToArray(@ScriptDir & "\data") If @Error Then MsgBox (0,"","No data Found.") Else $filecount = $member[0] if $filecount = "0" Then Else $i = 0 Do $i = $i + 1 $name1 = IniRead(@ScriptDir & "\data\" &$member[$i] ,"info","name","Error") $ip1 = IniRead(@ScriptDir & "\data\" &$member[$i] ,"info","source","Error") $phone1 = IniRead(@ScriptDir & "\data\" &$member[$i] ,"info","surcedir","Error") $mac1 = IniRead(@ScriptDir & "\data\" &$member[$i] ,"info","backupdir","Error") GUICtrlCreateListViewItem($name1 &"|"& $phone1 & "|"& $mac1 & "|" & $ip1, $hListView) Until $i = $filecount EndIf EndIf EndFunc and i have the problem in this code and i dont like to use list so i made this expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GuiImageList.au3> #include <GuiButton.au3> #Include <Array.au3> #Include <File.au3> $member=_FileListToArray(@ScriptDir & "\data\") If @Error Then MsgBox (0,"","No Application Found.") Else $filecount = $member[0] $hi = 45 $hight = 138 $hig = 0 Do $hight = $hight + $hi $hig = $hig + 1 Until $hig = $filecount $hight = $hight - $hi $Form1 = GUICreate("Luncher", 175, $hight, 829, 123) $Group1 = GUICtrlCreateGroup("", 8, 8, 161, 49) $Label1 = GUICtrlCreateLabel("Select Application", 16, 20, 143, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x800000) GUICtrlCreateGroup("", -99, -99, 1, 1) if $filecount = "0" Then Else $hi1 = 45 $hight1 = 65 $hig1 = 0 Do $hight1 = $hight1 + $hi1 $hig1 = $hig1 + 1 Until $hig1 = $filecount $hight1 = $hight1 - $hi1 $Group2 = GUICtrlCreateGroup("", 8, 64, 161, $hight1) $h5 = 45 $bhight = 80 $i = 0 Do $i = $i + 1 $file = IniRead(@ScriptDir & "\data\" &$member[$i] ,"info","source","Error") $iconfile_to_use = $file $array = StringSplit($iconfile_to_use, '\', 1) $name = $array[$array[0]] $newname = StringReplace($name,".exe","") $hImage = _GUIImageList_Create(32, 32, 5, 3, 6) _GUIImageList_AddIcon($hImage, $iconfile_to_use, 0, True) $b = GUICtrlCreateButton($newname, 16, $bhight, 145, 41, $WS_GROUP) _GUICtrlButton_SetImageList($b, $hImage) $bhight = $bhight + $h5 Until $i = $filecount EndIf EndIf GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $b MsgBox("","","") ;- here is the problem i dont know what to write <_< EndSwitch WEnd
ahmed9100 Posted May 21, 2010 Author Posted May 21, 2010 (edited) thx guys for trying to help i have find a way to do what i want i used array like this #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Array.au3> Local $avArray[4] #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 160, 144, 392, 216) $avArray[1] = GUICtrlCreateButton("Button1", 8, 8, 137, 33, $WS_GROUP) $avArray[2] = GUICtrlCreateButton("Button2", 8, 48, 137, 33, $WS_GROUP) $avArray[3] = GUICtrlCreateButton("Button3", 8, 88, 137, 33, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $avArray[1] MsgBox("","","1") Case $avArray[2] MsgBox("","","2") Case $avArray[3] MsgBox("","","3") EndSwitch WEnd thx again every one Edited May 21, 2010 by ahmed9100
ahmed9100 Posted May 21, 2010 Author Posted May 21, 2010 this is the last code expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GuiImageList.au3> #include <GuiButton.au3> #Include <Array.au3> #Include <File.au3> $member=_FileListToArray(@ScriptDir & "\data\") If @Error Then MsgBox (0,"","No Application Found.") Exit Else $filecount = $member[0] $hi = 45 $hight = 138 $hig = 0 Do $hight = $hight + $hi $hig = $hig + 1 Until $hig = $filecount $hight = $hight - $hi $Form1 = GUICreate("Luncher", 175, $hight, 829, 123) $Group1 = GUICtrlCreateGroup("", 8, 8, 161, 49) $Label1 = GUICtrlCreateLabel("Select Application", 16, 20, 143, 27) GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x800000) GUICtrlCreateGroup("", -99, -99, 1, 1) if $filecount = "0" Then Else $hi1 = 45 $hight1 = 65 $hig1 = 0 Do $hight1 = $hight1 + $hi1 $hig1 = $hig1 + 1 Until $hig1 = $filecount $hight1 = $hight1 - $hi1 $Group2 = GUICtrlCreateGroup("", 8, 64, 161, $hight1) $h5 = 45 $bhight = 80 $i = 0 Do $i = $i + 1 $file = IniRead(@ScriptDir & "\data\" &$member[$i] ,"info","source","Error") $iconfile_to_use = $file $array = StringSplit($iconfile_to_use, '\', 1) $name = $array[$array[0]] $newname = StringReplace($name,".exe","") $hImage = _GUIImageList_Create(32, 32, 5, 3, 6) _GUIImageList_AddIcon($hImage, $iconfile_to_use, 0, True) $member[$i] = GUICtrlCreateButton($newname, 16, $bhight, 145, 41, $WS_GROUP) _GUICtrlButton_SetImageList($member[$i], $hImage) $bhight = $bhight + $h5 Until $i = $filecount EndIf EndIf GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() $i = 0 Do $i = $i + 1 Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $member[$i] MsgBox("","",$i) EndSwitch Until $i = $member[0] WEnd
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now