Icon changer

[Starstar 64]

how to add browse option instead of enter icon location.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <process.au3>
$DELAY = 250
$ICOnGUI = GUICreate("Icon Changer", 287, 140, 193, 115)
$ICONBrows = GUICtrlCreateLabel("Type Location:", 16, 40, 80, 17)
$ICONBrowsin = GUICtrlCreateInput("", 112, 40, 153, 21)
$SHORTCUT = GUICtrlCreateLabel("Shortcut Name:", 16, 80, 75, 17)
Dim $ES_PA,$ES_AU
$SHORTCUTIN = GUICtrlCreateInput("", 112, 80, 153, 21, BitOR($ES_PA,$ES_AU))
$btnOK = GUICtrlCreateButton("&GO!", 110, 110, 75, 25, 0)
$lblInfo = GUICtrlCreateLabel("Brows your Icon!", 48, 8, 196, 20)
$lblInfo = GUICtrlSetFont($lblInfo, 12, 800)
GUISetState(@SW_SHOW)
while 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $btnOK
$Brows = GUICtrlRead($ICONBrowsin)
If StringLen($Brows)=0 Then
MsgBox(64,"AdnanBaloch","Plese Type your Icon Location")
Else
$short = GUICtrlRead($SHORTCUTIN)
if StringLen($short) = 0 Then
MsgBox(64,"AdnanBaloch","Plese Type your Shortcut Name")
Else
$Brows = GUICtrlRead($ICONBrowsin)
$short = GUICtrlRead($SHORTCUTIN)
Send("#d")
Sleep($DELAY)
Sleep($DELAY)
ControlListView("", "", "SysListView321", "SelectClear")
$ControlID2 = ControlListView("", "", "SysListView321", "FindItem", $short, "")
ControlListView("", "", "SysListView321", "Select", $ControlID2)
Sleep($DELAY)
Sleep($DELAY)
Send("!{Enter}")
Sleep($DELAY)
WinWaitActive($short & " Properties")
Send("!c")
WinWaitActive("Change Icon")
Send("!l")
Sleep($DELAY)
Send($Brows)
Sleep($DELAY)
Send("!s") ;Cruser will go on Icon
Sleep($DELAY)
Send("{Enter}")
WinWaitActive($short & " Properties")
Send("!a")
Sleep($DELAY)
Send("{Enter}")
ExitLoop
EndIf
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
GUISetState(@SW_HIDE)
WinWaitClose($short & " Properties")
MsgBox(0, "Adnan Baloch", "Script wrote By Adnan Baloch")

Edited April 13, 2013 by adnanbaloch

[Nessie 30]

Take a look to FileOpenDialog and its related function.

Hi!

[Starstar 64]

thanks Nessie i do try it...

[water 2,116]

If you want a reliable script don't use Send. Send goes to the active window. So if a user move the focus to another window while your script runs you won't get the desired result.

[Starstar 64]

Thanks Water but which command i can use instead of send.

[guinness 1,495]

ControlSend. Look in the help file for syntax.

[water 2,116]

Please have a look at ControlSend in the help file.

[Starstar 64]

A thank you to all..............