Pieter Posted April 14, 2006 Share Posted April 14, 2006 For some reason, the Insert filename dialog shows up when I press ALT+SHIFT+D instead of the Add a new wallpaper dialog. I don't know why. Can somebody tell me?expandcollapse popup; ---------------------------------------------------------------------------- ; ; AutoIt Version: 3.1.0 ; Author: Pieter De Decker ; ; Script Function: ; Adds wallpapers to the Wallpaper directory of Wallpaper Manager ; ; ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <GuiConstants.au3> Break(0) #NoTrayIcon Opt("GUIOnEventMode", 1) HotKeySet("!+d", "AddWP") HotKeySet("!+x", "ExitWPD") ; Generate Add window GuiCreate("Add a new wallpaper", 371, 124,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) GUISetOnEvent($GUI_EVENT_CLOSE, "CancelAddWP") $PhotoDownloadURL = GuiCtrlCreateInput("http://", 10, 50, 350, 20) $Introtext = GuiCtrlCreateLabel("Please enter the URL of the wallpaper that you want to add.", 10, 10, 340, 30) $Btn_OK = GuiCtrlCreateButton("Download", 10, 90, 170, 30) GUICtrlSetOnEvent( $Btn_OK, "Downloader") $Btn_Cancel = GuiCtrlCreateButton("Cancel", 190, 90, 170, 30) GUICtrlSetOnEvent( $Btn_Cancel, "CancelAddWP") GUISetState(@SW_HIDE, "Add a new wallpaper") ; Generate Filename window GuiCreate("Insert filename", 371, 124,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) GUISetOnEvent($GUI_EVENT_CLOSE, "CancelAddWP") $FileName = GuiCtrlCreateInput("", 10, 50, 350, 20) $Introtext2 = GuiCtrlCreateLabel("Please enter a filename.", 10, 10, 340, 30) $Btn_OK2 = GuiCtrlCreateButton("Save", 10, 90, 170, 30) GUICtrlSetOnEvent($Btn_OK, "HideFilenameWindow") $Btn_Cancel2 = GuiCtrlCreateButton("Cancel", 190, 90, 170, 30) GUICtrlSetOnEvent($Btn_Cancel, "CancelAddWP") ; Hide both windows GUISetState( @SW_HIDE, "Add a new wallpaper") GUISetState( @SW_HIDE, "Insert filename") IdleMode() ; Wait, that's all you have to do... Func IdleMode() While 1 ; endless waiting loop Sleep(500) ; some sleep to be sure not to overload the machine WEnd EndFunc ; Time for some action, user requested to add a new wallpaper Func AddWP() GuiSetState( @SW_SHOW, "Add a new wallpaper") $clipbrdstring = ClipGet() If StringInStr($clipbrdstring, "http://") = 1 And StringInStr($clipbrdstring, ".jpg") = 1 Or StringInStr($clipbrdstring, ".bmp") = 1 Or StringInStr($clipbrdstring, ".gif") = 1 Then GUICtrlSetData( $PhotoDownloadURL, $clipbrdstring) EndIf EndFunc ; We're ready to start the download Func Downloader() GUISetState( @SW_HIDE, "Add a new wallpaper") Opt("TrayIconHide", 0) $PhotoDownloadURL_Text = GUICtrlRead($PhotoDownloadURL) $PhotoFilenamePos = StringInStr($PhotoDownloadURL_Text, "/", 0, -1) $PhotoFilenamePos = $PhotoFileNamePos + 1 $PhotoFilename = StringMid($PhotoDownloadURL_Text, $PhotoFilenamePos) GUICtrlSetData($FileName, $PhotoFilename) GUISetState( @SW_SHOW, "Insert filename") TrayTip("Wallpaper Manager", "Downloading new wallpaper...", 5, 1) InetGet(GUICtrlRead($PhotoDownloadURL), @ScriptDir & "\Wallpapers\" & $PhotoFilename, 0, 0) TrayTip("Wallpaper Manager", "Download complete.", 5, 1) Sleep(5000) Opt("TrayIconHide", 1) EndFunc ; Run this after running the file name dialog thingy Func HideFilenameWindow() GUISetState( @SW_HIDE, "Insert filename") EndFunc ; Run this when users cancels the add process Func CancelAddWP() GUISetState( @SW_HIDE, "Add a new wallpaper") GUISetState( @SW_HIDE, "Insert filename") IdleMode() EndFunc ; Simple hotkey definition to quit Func ExitWPD() Exit EndFunc iPod + Online calendars = iPodCALsync Link to comment Share on other sites More sharing options...
GaryFrost Posted April 14, 2006 Share Posted April 14, 2006 look at the guicreate lines and the guisetstate lines: remove IdleMode where not needed. expandcollapse popup; ---------------------------------------------------------------------------- ; ; AutoIt Version: 3.1.0 ; Author: Pieter De Decker ; ; Script Function: ; Adds wallpapers to the Wallpaper directory of Wallpaper Manager ; ; ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <GuiConstants.au3> Break(0) #NoTrayIcon Opt("GUIOnEventMode", 1) HotKeySet("!+d", "AddWP") HotKeySet("!+x", "ExitWPD") ; Generate Add window $GUI_ADD = GUICreate("Add a new wallpaper", 371, 124, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)); Assign handle to var. $PhotoDownloadURL = GUICtrlCreateInput("http://", 10, 50, 350, 20) $Introtext = GUICtrlCreateLabel("Please enter the URL of the wallpaper that you want to add.", 10, 10, 340, 30) $Btn_OK = GUICtrlCreateButton("Download", 10, 90, 170, 30) $Btn_Cancel = GUICtrlCreateButton("Cancel", 190, 90, 170, 30) GUISetState(@SW_HIDE, "Add a new wallpaper") ; Generate Filename window $GUI_INSERT = GUICreate("Insert filename", 371, 124, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) ; Assign handle to var. $FileName = GUICtrlCreateInput("", 10, 50, 350, 20) $Introtext2 = GUICtrlCreateLabel("Please enter a filename.", 10, 10, 340, 30) $Btn_OK2 = GUICtrlCreateButton("Save", 10, 90, 170, 30) $Btn_Cancel2 = GUICtrlCreateButton("Cancel", 190, 90, 170, 30) GUISetOnEvent($GUI_EVENT_CLOSE, "CancelAddWP") GUICtrlSetOnEvent($Btn_OK, "Downloader") GUICtrlSetOnEvent($Btn_Cancel, "CancelAddWP") GUICtrlSetOnEvent($Btn_OK2, "HideFilenameWindow") GUICtrlSetOnEvent($Btn_Cancel2, "CancelAddWP") ; Hide both windows GUISetState(@SW_HIDE, $GUI_ADD); use the handle GUISetState(@SW_HIDE, $GUI_INSERT); use the handle IdleMode() ; Wait, that's all you have to do... Func IdleMode() While 1 ; endless waiting loop Sleep(500) ; some sleep to be sure not to overload the machine WEnd EndFunc ;==>IdleMode ; Time for some action, user requested to add a new wallpaper Func AddWP() GUISetState(@SW_SHOW, $GUI_ADD); use the handle $clipbrdstring = ClipGet() If StringInStr($clipbrdstring, "http://") = 1 And StringInStr($clipbrdstring, ".jpg") = 1 Or StringInStr($clipbrdstring, ".bmp") = 1 Or StringInStr($clipbrdstring, ".gif") = 1 Then GUICtrlSetData($PhotoDownloadURL, $clipbrdstring) EndIf EndFunc ;==>AddWP ; We're ready to start the download Func Downloader() GUISetState(@SW_HIDE, $GUI_ADD) Opt("TrayIconHide", 0) $PhotoDownloadURL_Text = GUICtrlRead($PhotoDownloadURL) $PhotoFilenamePos = StringInStr($PhotoDownloadURL_Text, "/", 0, -1) $PhotoFilenamePos = $PhotoFilenamePos + 1 $PhotoFilename = StringMid($PhotoDownloadURL_Text, $PhotoFilenamePos) GUICtrlSetData($FileName, $PhotoFilename) GUISetState(@SW_SHOW, $GUI_INSERT) TrayTip("Wallpaper Manager", "Downloading new wallpaper...", 5, 1) InetGet(GUICtrlRead($PhotoDownloadURL), @ScriptDir & "\Wallpapers\" & $PhotoFilename, 0, 0) TrayTip("Wallpaper Manager", "Download complete.", 5, 1) Sleep(5000) Opt("TrayIconHide", 1) EndFunc ;==>Downloader ; Run this after running the file name dialog thingy Func HideFilenameWindow() GUISetState(@SW_HIDE, $GUI_ADD); use the handle GUISetState(@SW_HIDE, $GUI_INSERT); use the handle EndFunc ;==>HideFilenameWindow ; Run this when users cancels the add process Func CancelAddWP() GUISetState(@SW_HIDE, $GUI_ADD); use the handle GUISetState(@SW_HIDE, $GUI_INSERT); use the handle EndFunc ;==>CancelAddWP ; Simple hotkey definition to quit Func ExitWPD() Exit EndFunc ;==>ExitWPD SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
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