Sign in to follow this  
Followers 0
richardmcyr

Use listboxes to execute programs

13 posts in this topic

hello guys,

I got a question since I'm a bit new to autoit. I just want to know how to do it.

I want to create a program using autoit with listboxes. I select the items I want in the left field, click on the arrow to put it on the right field and then click on a button called execute so "all" the programs in my list will execute. How can I do this ?I got a sample code that i started so you all know what i mean.

any help would be appreciated

;This programm execute a programm from the listbox programm
; depending of the type of the programm different type of run is done
; the programm tyep can be .
; VBS , EXeEand REG
; the list of the programm is from a text file call listprog.txt
;the order of the fields is
; programm number, Type, Name, OS,Language,desctiption separate with coma
; 100.00,NumLock.reg,reg,WindowsXp,Francais,This programm activate numlock at startup
;101.00,screensaver.exe,Exe,Windows7,English,This programm change the scrensaver
;102.00,wallpaper.vbs,VBS,All,All,This programm change the wallpaper
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$FormList = GUICreate("List programm", 561, 372, 665, 206)
$ListProg = GUICtrlCreateList("", 8, 8, 233, 279)
GUICtrlSetData(-1, "Item1|Item2|Item3|Item4|Item5")
$Btnto = GUICtrlCreateButton(">", 268, 15, 30, 25)
$BtnAllto = GUICtrlCreateButton(">>", 268, 48, 31, 25)
$BtnRemove = GUICtrlCreateButton("<", 269, 81, 31, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$BtnRemoveAll = GUICtrlCreateButton("<<", 269, 114, 32, 25)
$ListBoxToExecute = GUICtrlCreateList("", 312, 8, 233, 279)
$BtnExecute = GUICtrlCreateButton("&Execute", 200, 345, 75, 25)
$BtnCancel = GUICtrlCreateButton("&Cancel", 280, 345, 75, 25)
$LblName = GUICtrlCreateLabel("LblName", 152, 304, 46, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblNoProg = GUICtrlCreateLabel("LblNoProg", 8, 304, 54, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblDescription = GUICtrlCreateLabel("LblDescription", 232, 304, 71, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblType = GUICtrlCreateLabel("LblType", 72, 304, 42, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblOs = GUICtrlCreateLabel("LblOs", 344, 304, 31, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblLangage = GUICtrlCreateLabel("LblLangage", 408, 304, 60, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Type = ""
$dir = "c:\prog"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $BtnCancel
   Exit
  Case $BtnExecute
   GUICtrlSetState($LblNoProg, $GUI_SHOW)
   GUICtrlSetState($LblType, $GUI_SHOW)
   GUICtrlSetState($LblName, $GUI_SHOW)
   GUICtrlSetState($LblDescription, $GUI_SHOW)
   GUICtrlSetState($LblOs, $GUI_SHOW)
   GUICtrlSetState($LblLangage, $GUI_SHOW)
   If $Type = "reg" Then
    $cmd = $dir & "\NumLock.reg"
    If FileExists($cmd) Then
     RunWait("REGEDIT /S " & $dir & "\clavierFRCwin7.reg")
    Else
     MsgBox(16, "File error", $cmd & " File not found ")
    EndIf
   Else
    If $Type = "VBS" Then
     $cmd = $dir & '\setwallpaper.vbs'
     If FileExists($cmd) Then
      RunWait('cscript "' & $cmd & '"', $dir, @SW_HIDE)
     Else
      MsgBox(16, "File error", $cmd & " File not found ")
     EndIf
    Else
     If $Type = "exe" Then
      $cmd = "\screensaver.exe"
      If FileExists($cmd) Then
       RunWait($cmd)
      Else
       MsgBox(16, "File error", $cmd & " File not found ")
      EndIf
     EndIf
    EndIf
   EndIf
EndSwitch
WEnd

Share this post


Link to post
Share on other sites



I think this can help you.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$FormList = GUICreate("List programm", 561, 372, 665, 206)
$ListProg = GUICtrlCreateList("", 8, 8, 233, 279)
GUICtrlSetData(-1, "Item1|Item2|Item3|Item4|Item5")
$Btnto = GUICtrlCreateButton(">", 268, 15, 30, 25)
$BtnAllto = GUICtrlCreateButton(">>", 268, 48, 31, 25)
$BtnRemove = GUICtrlCreateButton("<", 269, 81, 31, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$BtnRemoveAll = GUICtrlCreateButton("<<", 269, 114, 32, 25)
$ListBoxToExecute = GUICtrlCreateList("", 312, 8, 233, 279)
$BtnExecute = GUICtrlCreateButton("&Execute", 200, 345, 75, 25)
$BtnCancel = GUICtrlCreateButton("&Cancel", 280, 345, 75, 25)
$LblName = GUICtrlCreateLabel("LblName", 152, 304, 46, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblNoProg = GUICtrlCreateLabel("LblNoProg", 8, 304, 54, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblDescription = GUICtrlCreateLabel("LblDescription", 232, 304, 71, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblType = GUICtrlCreateLabel("LblType", 72, 304, 42, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblOs = GUICtrlCreateLabel("LblOs", 344, 304, 31, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblLangage = GUICtrlCreateLabel("LblLangage", 408, 304, 60, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Type = ""
$dir = "c:prog"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $BtnCancel
   Exit
   case $Btnto
    $read = GUICtrlRead($ListProg)
    GUICtrlSetData($ListBoxToExecute, $read)
    GUICtrlSetState($BtnRemove, $GUI_ENABLE)
   Case $BtnRemoveAll
    GUICtrlSetData($ListBoxToExecute, "")
  Case $BtnExecute
 $read4 = GUICtrlRead($ListBoxToExecute)
 ;here u can put ur action. MsgBox is an example.
   MsgBox(0, "Your action", "hi i am ur action")
   GUICtrlSetState($LblNoProg, $GUI_SHOW)
   GUICtrlSetState($LblType, $GUI_SHOW)
   GUICtrlSetState($LblName, $GUI_SHOW)
   GUICtrlSetState($LblDescription, $GUI_SHOW)
   GUICtrlSetState($LblOs, $GUI_SHOW)
   GUICtrlSetState($LblLangage, $GUI_SHOW)
   If $Type = "reg" Then
    $cmd = $dir & "NumLock.reg"
    If FileExists($cmd) Then
     RunWait("REGEDIT /S " & $dir & "clavierFRCwin7.reg")
    Else
     MsgBox(16, "File error", $cmd & " File not found ")
    EndIf
   Else
    If $Type = "VBS" Then
     $cmd = $dir & 'setwallpaper.vbs'
     If FileExists($cmd) Then
      RunWait('cscript "' & $cmd & '"', $dir, @SW_HIDE)
     Else
      MsgBox(16, "File error", $cmd & " File not found ")
     EndIf
    Else
     If $Type = "exe" Then
      $cmd = "screensaver.exe"
      If FileExists($cmd) Then
       RunWait($cmd)
      Else
       MsgBox(16, "File error", $cmd & " File not found ")
      EndIf
     EndIf
    EndIf
   EndIf
EndSwitch
WEnd

I also did the $BtnRemoveAll :)


I feel nothing.It feels great.

Share this post


Link to post
Share on other sites

Thanks for your Help.

But I want to know how to fill the listbox1 form a text files and then execute the correct code.

the list of the programm is from a text file call listprog.txt

the order of the fields is

programm number, Type, Name, OS,Language,description,path separate with coma

100.00,NumLock.reg,reg,WindowsXp,Francais,This programm activate numlock at startup,c:\prog

;101.00,screensaver.exe,Exe,Windows7,English,This programm change the scrensaver,c:\prog

;102.00,wallpaper.vbs,VBS,All,All,This programm change the wallpaper, c:\regfile

regards

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Try this one.

Generates the 1st list bot with all kinds.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$FormList = GUICreate("List programm", 561, 400, 665, 206)
$ListProg = GUICtrlCreateList("", 8, 8, 233, 279)
GUICtrlSetData(-1, "")
$Btnto = GUICtrlCreateButton(">", 268, 15, 30, 25)
$BtnAllto = GUICtrlCreateButton(">>", 268, 48, 31, 25)
$BtnRemove = GUICtrlCreateButton("<", 269, 81, 31, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$BtnRemoveAll = GUICtrlCreateButton("<<", 269, 114, 32, 25)
$ListBoxToExecute = GUICtrlCreateList("", 312, 8, 233, 279)
$BtnExecute = GUICtrlCreateButton("&Execute", 200, 345, 75, 25)
$BtnCancel = GUICtrlCreateButton("&Cancel", 280, 345, 75, 25)
$LblName = GUICtrlCreateLabel("LblName", 152, 304, 46, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblNoProg = GUICtrlCreateLabel("LblNoProg", 8, 304, 54, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblDescription = GUICtrlCreateLabel("LblDescription", 232, 304, 71, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblType = GUICtrlCreateLabel("LblType", 72, 304, 42, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblOs = GUICtrlCreateLabel("LblOs", 344, 304, 31, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblLangage = GUICtrlCreateLabel("LblLangage", 408, 304, 60, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Type = ""
$dir = "c:prog"
While 1
$nMsg = GUIGetMsg()
If $nMsg = $fileitem Then
   $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
   GUICtrlSetData($ListProg, $file)
   EndIf
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $BtnCancel
   Exit
   case $Btnto
    $read = GUICtrlRead($ListProg)
    GUICtrlSetData($ListBoxToExecute, $read)
    GUICtrlSetState($BtnRemove, $GUI_ENABLE)
   Case $BtnRemoveAll
    GUICtrlSetData($ListBoxToExecute, "")
  Case $BtnExecute
$read4 = GUICtrlRead($ListBoxToExecute)
;here u can put ur action. MsgBox is an example.
   MsgBox(0, "Your action", "hi i am ur action")
   GUICtrlSetState($LblNoProg, $GUI_SHOW)
   GUICtrlSetState($LblType, $GUI_SHOW)
   GUICtrlSetState($LblName, $GUI_SHOW)
   GUICtrlSetState($LblDescription, $GUI_SHOW)
   GUICtrlSetState($LblOs, $GUI_SHOW)
   GUICtrlSetState($LblLangage, $GUI_SHOW)
   If $Type = "reg" Then
    $cmd = $dir & "NumLock.reg"
    If FileExists($cmd) Then
     RunWait("REGEDIT /S " & $dir & "clavierFRCwin7.reg")
    Else
     MsgBox(16, "File error", $cmd & " File not found ")
    EndIf
   Else
    If $Type = "VBS" Then
     $cmd = $dir & 'setwallpaper.vbs'
     If FileExists($cmd) Then
      RunWait('cscript "' & $cmd & '"', $dir, @SW_HIDE)
     Else
      MsgBox(16, "File error", $cmd & " File not found ")
     EndIf
    Else
     If $Type = "exe" Then
      $cmd = "screensaver.exe"
      If FileExists($cmd) Then
       RunWait($cmd)
      Else
       MsgBox(16, "File error", $cmd & " File not found ")
      EndIf
     EndIf
    EndIf
   EndIf
EndSwitch
WEnd

Is this what ur trying to do???

Edited by ileandros

I feel nothing.It feels great.

Share this post


Link to post
Share on other sites

Here's an example that might be close to what you're looking for, it's not 100% complete and there might be issues with it, but this should get you started in the right direction.

;This programm execute a programm from the listbox programm
; depending of the type of the programm different type of run is done
; the programm tyep can be .
; VBS , EXeEand REG
; the list of the programm is from a text file call listprog.txt
;the order of the fields is
; programm number, Type, Name, OS,Language,desctiption separate with coma
; 100.00,NumLock.reg,reg,WindowsXp,Francais,This programm activate numlock at startup
;101.00,screensaver.exe,Exe,Windows7,English,This programm change the scrensaver
;102.00,wallpaper.vbs,VBS,All,All,This programm change the wallpaper
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
Global $ProgList = "Item1|Item2|Item3|Item4|Item5|", $ProgList1 = $ProgList, $ExecuteList, $ExecuteList1
$FormList = GUICreate("List programm", 561, 372, 665, 206)
$ListProg = GUICtrlCreateList("", 8, 8, 233, 279)
GUICtrlSetData(-1, $ProgList)
$Btnto = GUICtrlCreateButton(">", 268, 15, 30, 25)
$BtnAllto = GUICtrlCreateButton(">>", 268, 48, 31, 25)
$BtnRemove = GUICtrlCreateButton("<", 269, 81, 31, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$BtnRemoveAll = GUICtrlCreateButton("<<", 269, 114, 32, 25)
$ListBoxToExecute = GUICtrlCreateList("", 312, 8, 233, 279)
$BtnExecute = GUICtrlCreateButton("&Execute", 200, 345, 75, 25)
$BtnCancel = GUICtrlCreateButton("&Cancel", 280, 345, 75, 25)
$LblName = GUICtrlCreateLabel("LblName", 152, 304, 46, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblNoProg = GUICtrlCreateLabel("LblNoProg", 8, 304, 54, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblDescription = GUICtrlCreateLabel("LblDescription", 232, 304, 71, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblType = GUICtrlCreateLabel("LblType", 72, 304, 42, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblOs = GUICtrlCreateLabel("LblOs", 344, 304, 31, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblLangage = GUICtrlCreateLabel("LblLangage", 408, 304, 60, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Type = ""
$dir = "c:prog"
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Btnto
            GUICtrlSetState($BtnRemove, $GUI_ENABLE)
            $ExecuteList &= GUICtrlRead($ListProg) & "|"
            GUICtrlSetData($ListBoxToExecute, "|" & $ExecuteList)
            $ProgList = StringReplace($ProgList, GUICtrlRead($ListProg )  & "|", "")
            GUICtrlSetData($ListProg, "|" & $ProgList)
        Case $BtnAllto
            $ExecuteList = $ProgList1
            GUICtrlSetState($BtnRemove, $GUI_ENABLE)
            GUICtrlSetData($ListBoxToExecute, "|" & $ExecuteList)
            GUICtrlSetData($ListProg, "")
            $ProgList = ""
;~          $ProgList = $ProgList1
        Case $BtnRemove
            GUICtrlSetData($ListProg, GUICtrlRead($ListBoxToExecute) & "|")
            $ProgList &= GUICtrlRead($ListBoxToExecute) & "|"
            $ExecuteList = StringReplace($ExecuteList, GUICtrlRead($ListBoxToExecute )  & "|", "")
            ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $ExecuteList = ' & $ExecuteList & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
            GUICtrlSetData($ListProg, "|" & $ProgList)
            GUICtrlSetData($ListBoxToExecute, "|" & $ExecuteList)
        Case $BtnRemoveAll
            $ProgList = $ProgList1
            GUICtrlSetState($BtnRemove, $GUI_DISABLE)
            GUICtrlSetData($ListProg, "|" & $ProgList)
            GUICtrlSetData($ListBoxToExecute, "")
            $ExecuteList = ""
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BtnCancel
            Exit
        Case $BtnExecute
            GUICtrlSetState($LblNoProg, $GUI_SHOW)
            GUICtrlSetState($LblType, $GUI_SHOW)
            GUICtrlSetState($LblName, $GUI_SHOW)
            GUICtrlSetState($LblDescription, $GUI_SHOW)
            GUICtrlSetState($LblOs, $GUI_SHOW)
            GUICtrlSetState($LblLangage, $GUI_SHOW)
            If $Type = "reg" Then
                $cmd = $dir & "NumLock.reg"
                If FileExists($cmd) Then
                    RunWait("REGEDIT /S " & $dir & "clavierFRCwin7.reg")
                Else
                    MsgBox(16, "File error", $cmd & " File not found ")
                EndIf
            Else
                If $Type = "VBS" Then
                    $cmd = $dir & 'setwallpaper.vbs'
                    If FileExists($cmd) Then
                        RunWait('cscript "' & $cmd & '"', $dir, @SW_HIDE)
                    Else
                        MsgBox(16, "File error", $cmd & " File not found ")
                    EndIf
                Else
                    If $Type = "exe" Then
                        $cmd = "screensaver.exe"
                        If FileExists($cmd) Then
                            RunWait($cmd)
                        Else
                            MsgBox(16, "File error", $cmd & " File not found ")
                        EndIf
                    EndIf
                EndIf
            EndIf
    EndSwitch
WEnd

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Thanks again

Not really want I want,

I want to fill the listbox from the attach file

regards

post-70445-0-75603300-1329845836_thumb.j

listprog.txt.txt

Share this post


Link to post
Share on other sites

Thanks again

post-70445-0-75603300-1329845836_thumb.j

listprog.txt.txt

Not really want I want,

I want to fill the listbox from the attach file

regards

Share this post


Link to post
Share on other sites

What do you want to show in the listbox? The whole line, or just part of it? I'm not sure what it is you're looking for.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

I want to see

programm number, Name, OS,Language,description.

if it is possible with mouse over it will be apreciate

regards

Share this post


Link to post
Share on other sites

Here's how you'd read it from a text file called listprog.txt that's located in the same folder as the script is located (@ScriptDir)

;This programm execute a programm from the listbox programm
; depending of the type of the programm different type of run is done
; the programm tyep can be .
; VBS , EXeEand REG
; the list of the programm is from a text file call listprog.txt
;the order of the fields is
; programm number, Type, Name, OS,Language,desctiption separate with coma
; 100.00,NumLock.reg,reg,WindowsXp,Francais,This programm activate numlock at startup
;101.00,screensaver.exe,Exe,Windows7,English,This programm change the scrensaver
;102.00,wallpaper.vbs,VBS,All,All,This programm change the wallpaper
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
Global $ProgList = "", $File, $Text
$File = FileOpen(@ScriptDir & "listprog.txt")
While 1
    $Text = FileReadLine($File)
    If @error = -1 Then ExitLoop
    $ProgList &= $Text & "|"
WEnd

Global $ProgList1 = $ProgList, $ExecuteList, $ExecuteList1
$FormList = GUICreate("List programm", 561, 372, 665, 206)
$ListProg = GUICtrlCreateList("", 8, 8, 233, 279)
GUICtrlSetData(-1, $ProgList)
$Btnto = GUICtrlCreateButton(">", 268, 15, 30, 25)
$BtnAllto = GUICtrlCreateButton(">>", 268, 48, 31, 25)
$BtnRemove = GUICtrlCreateButton("<", 269, 81, 31, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$BtnRemoveAll = GUICtrlCreateButton("<<", 269, 114, 32, 25)
$ListBoxToExecute = GUICtrlCreateList("", 312, 8, 233, 279)
$BtnExecute = GUICtrlCreateButton("&Execute", 200, 345, 75, 25)
$BtnCancel = GUICtrlCreateButton("&Cancel", 280, 345, 75, 25)
$LblName = GUICtrlCreateLabel("LblName", 152, 304, 46, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblNoProg = GUICtrlCreateLabel("LblNoProg", 8, 304, 54, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblDescription = GUICtrlCreateLabel("LblDescription", 232, 304, 71, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblType = GUICtrlCreateLabel("LblType", 72, 304, 42, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblOs = GUICtrlCreateLabel("LblOs", 344, 304, 31, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$LblLangage = GUICtrlCreateLabel("LblLangage", 408, 304, 60, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$Type = ""
$dir = "c:prog"
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Btnto
            GUICtrlSetState($BtnRemove, $GUI_ENABLE)
            $ExecuteList &= GUICtrlRead($ListProg) & "|"
            GUICtrlSetData($ListBoxToExecute, "|" & $ExecuteList)
            $ProgList = StringReplace($ProgList, GUICtrlRead($ListProg) & "|", "")
            GUICtrlSetData($ListProg, "|" & $ProgList)
        Case $BtnAllto
            $ExecuteList = $ProgList1
            GUICtrlSetState($BtnRemove, $GUI_ENABLE)
            GUICtrlSetData($ListBoxToExecute, "|" & $ExecuteList)
            GUICtrlSetData($ListProg, "")
            $ProgList = ""
;~          $ProgList = $ProgList1
        Case $BtnRemove
            GUICtrlSetData($ListProg, GUICtrlRead($ListBoxToExecute) & "|")
            $ProgList &= GUICtrlRead($ListBoxToExecute) & "|"
            $ExecuteList = StringReplace($ExecuteList, GUICtrlRead($ListBoxToExecute) & "|", "")
            GUICtrlSetData($ListProg, "|" & $ProgList)
            GUICtrlSetData($ListBoxToExecute, "|" & $ExecuteList)
        Case $BtnRemoveAll
            $ProgList = $ProgList1
            GUICtrlSetState($BtnRemove, $GUI_DISABLE)
            GUICtrlSetData($ListProg, "|" & $ProgList)
            GUICtrlSetData($ListBoxToExecute, "")
            $ExecuteList = ""
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BtnCancel
            Exit
        Case $BtnExecute
            GUICtrlSetState($LblNoProg, $GUI_SHOW)
            GUICtrlSetState($LblType, $GUI_SHOW)
            GUICtrlSetState($LblName, $GUI_SHOW)
            GUICtrlSetState($LblDescription, $GUI_SHOW)
            GUICtrlSetState($LblOs, $GUI_SHOW)
            GUICtrlSetState($LblLangage, $GUI_SHOW)
            If $Type = "reg" Then
                $cmd = $dir & "NumLock.reg"
                If FileExists($cmd) Then
                    RunWait("REGEDIT /S " & $dir & "clavierFRCwin7.reg")
                Else
                    MsgBox(16, "File error", $cmd & " File not found ")
                EndIf
            Else
                If $Type = "VBS" Then
                    $cmd = $dir & 'setwallpaper.vbs'
                    If FileExists($cmd) Then
                        RunWait('cscript "' & $cmd & '"', $dir, @SW_HIDE)
                    Else
                        MsgBox(16, "File error", $cmd & " File not found ")
                    EndIf
                Else
                    If $Type = "exe" Then
                        $cmd = "screensaver.exe"
                        If FileExists($cmd) Then
                            RunWait($cmd)
                        Else
                            MsgBox(16, "File error", $cmd & " File not found ")
                        EndIf
                    EndIf
                EndIf
            EndIf
    EndSwitch
WEnd

This should get you started, you can format the string returned to eliminate the path being shown, but I'll leave that up to you to figure out. Not sure what you mean by "with mouse over" but maybe GUICtrlSetToolTip is what you're looking for.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

That perfect.

But how to tell to the programm to execute one by one the list at the right.

For the tooltips box see attached file.

Thanks.

post-70445-0-98810600-1329854257_thumb.j

Share this post


Link to post
Share on other sites

You have to do some of the work yourself, try a few things and come back if you hit a snag.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Thanks again for your help.

I tried to do something and I don't know how to do it . Can you help me again.

Now what I want to do is;

Read the contents of th listboxtoexecute

put in array

and loop this array() and do the if statement

Thank you

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0