RWBaker

Running Version: MetroUDF-V4.0.1 with Windows 10 The attached file defines and uses two radio groups. Group 1 works fine, Group 2 does not work correctly. Could you look into this? Thanks, RWBaker Radio Demo.au3

Great! Thanks a lot...I was looking in the SciTE directory and there it is in: "C:\Documents and Settings\<user name>\". I appreciate your swift and accurate help!! RW Baker

I lost the content of my main disk. Before the crash I had backed up the total content of the disk. Now, in searching through the disk backup, I have not been able to find backup for the following: Long ago, I had entered a lot of abbreviations, in a file that contained, it seems, many other SciTE abbreviations. My abbreviations could be called up when I used SciTE to edit an AU3 file: I would type, say, rwb0^b (^ stands for Ctrl) and my stored abbreviation for "rwb0" would replace "rwb0". I'm pretty sure that I entered my abbreviations in a file in the Scite directory...but, despite much searching, I cannot find the file that has these abbreviations on the disk backup. I'm very sorry if this is vague...can anyone tell me what this file might be named? Thanks, RW Baker

Sorry...I've been away...Yes: [:ALLKEYS:] and [:SPECIAL:] classes. RW Baker

Great job on the IsPressedEx script! In looking through it in detail, I have however found one minor problem. The script that I just copied from the above link, does not see apostrophes('). I have found that the fix for this involves only two changes: In IsPressedEx_UDF.au3: line 103 (which is within function: _IsPressedEx()) reads: $iKeysPressed = __KeysPressedCheck_Proc(1, 221, -1, $iWait, $iTFormat, $vDLL) should be: $iKeysPressed = __KeysPressedCheck_Proc(1, 222, -1, $iWait, $iTFormat, $vDLL) the same correction in: line 160 (which is within function: _IsPressedEx()) reads: $iKeysPressed = __KeysPressedCheck_Proc(136, 221, -1, $iWait, $iTFormat, $vDLL) should read: $iKeysPressed = __KeysPressedCheck_Proc(136, 222, -1, $iWait, $iTFormat, $vDLL) Thanks, RW Baker

I must be missing something...execution stops when I respond to the first MsgBox below?? Can you help? RWBaker #include <BlockInputEx.au3> MsgBox(0,"","Start blocking for 5 seconds...") _BlockInputEx(-1) Sleep(5000) _BlockInputEx(0) MsgBox(0,"","Input unblocked now.") ; execution is terminated after response to this statement??? MsgBox(0,"","Input unblocked now 2.") ; this statement is not executed??? Exit

??THe code works fine for me??...no "teleporting"!

On savescript(): The cancel logic is fine. I am inclined to just fill in a dummy default file name, something like the following and let the user change it: $filesave = FileSaveDialog($title, $move_to_dir, "Scripts (*.au3)", 2 + 16, "afile.au3") I have been thinking about the need for the Func idle(). I had a hunch that it was not needed, so: * I removed all "Call idle()" statements in the whole script * I removed the "Func idle()" statement and its matching "EndFunc ;==>idle", so that control "runs into" the idle while loop, as follows: ........no change above here in the script TrayCreateItem("") $quititem = TrayCreateItem("Quit Program CTRL+ Q") While True $msg = TrayGetMsg() Select ........ the same body of the Select here EndSelect WEnd ........rest of the script with no call idle's Without the Func idle and the "Call"s, the script runs exactly as before!!!! Simplifies maintenance, too...it's so easy to forget adding those "Call idle()" statements! RW_Baker

"savescript" is a very good addition. Here are some notes on the last version that you submitted: In Func movescript(): There is no Call("idle") before the return (I originally forgot to put it in) In Func savescript(): The Call("idle") is in the else of the last if statement...it shoud be moved to before the Return. Also: The first statement in this func has "$move_to_dir" as the second argument to FileSaveDialog...the quotes should be removed giving: $filesave = FileSaveDialog("Save File", $move_to_dir, "Scripts (*.au3)", 2) In Func help(): There is no Call("idle") before the Return (I originally forgot to put it in) RW_Baker

OK, here is my latest version...do let me know if you have any suggestions, etc. CODEMsgBox(64, "First time use note:", "You must check out the Consts below! Especially the first, $move_to_dir!")Exit #include <Misc.au3> ;Script: au3 on Clip.au3 - Allows the user to execute and/or edit au3 code from the Clipboard. ;Original Author: Bozzman - copied from the AutoIt user forum on 10/24/2008. ;Revised by RW_Baker on 10/26/2008. _Singleton("au3 on Clip", 0) AutoItWinSetTitle(@ScriptName) ;These consts must be checked for your use: Const $move_to_dir = "F:\AutoIt" ;<- The move operation moves the temp file to this directory. Const $temp_file_name = "\DebugScript.au3" ;<- The temp file name preceeded by a "\" Const $temp_file_path = @TempDir & $temp_file_name ;<- The full temp file path HotKeySet("^r", "runscript") HotKeySet("^s", "openscript") HotKeySet("^m", "movescript") HotKeySet("^q", "quit") HotKeySet("^?", "help") #cs The original settings: HotKeySet("^q","runscript") HotKeySet("^w","openscript") HotKeySet("^s","quit") #ce If FileExists($temp_file_path) Then FileDelete($temp_file_path) ; get rid of old temp file Opt("TrayAutoPause", 0) Opt("TrayMenuMode", 1) TraySetClick(16) TrayCreateItem("Made By Bozzman") TrayCreateItem("") TrayCreateItem("") $scripthelpitem = TrayCreateItem("Help CTRL+?") $scriptitem = TrayCreateItem("Run Clipbord Script CTRL+R") $scriptopenitem = TrayCreateItem("Open Clipbord Script CTRL+S") $scriptmoveitem = TrayCreateItem("Move Saved File CTRL+M") TrayCreateItem("") $quititem = TrayCreateItem("Quit Program CTRL+ Q") help() Call("idle") Func idle() While True $msg = TrayGetMsg() Select Case $msg = 0 ContinueLoop Case $msg = $scriptitem Call("runscript") Case $msg = $scriptopenitem Call("openscript") Case $msg = $scripthelpitem Call("help") Case $msg = $scriptmoveitem Call("movescript") Case $msg = $quititem Call("quit") EndSelect WEnd EndFunc ;==>idle Func runscript() $Code = ClipGet() $File = FileOpen($temp_file_path, 2) FileWrite($File, $Code) FileClose($File) Run(@ProgramFilesDir & "\Autoit3\autoit3.exe " & @TempDir & $temp_file_name) Call("idle") EndFunc ;==>runscript Func openscript() $Code = ClipGet() $the_file = $temp_file_path $File = FileOpen($temp_file_path, 2) FileWrite($File, $Code) FileClose($File) Run(@ProgramFilesDir & "\Autoit3\SciTE\SciTE.exe " & @TempDir & $temp_file_name) Call("idle") EndFunc ;==>openscript Func movescript() If FileExists($temp_file_path) Then $did_move = FileMove($temp_file_path, $move_to_dir) If $did_move Then MsgBox(64, @ScriptName, "The move was successful.", 3) Else MsgBox(64, @ScriptName, "The move cannot be done because the file already exists in: " & $move_to_dir, 3) EndIf Else MsgBox(64, @ScriptName, "There is no file to move.", 3) EndIf Return EndFunc ;==>movescript Func quit() MsgBox(64, @ScriptName, "Program termination.", 2) Exit EndFunc ;==>quit Func help() $help = "CTRL+r -> Run the script" & @CRLF $help &= "CTRL+s -> Open the script" & @CRLF $help &= "CTRL+m -> Move the script to: " & $move_to_dir & @CRLF $help &= "CTRL+q -> Quit the program" & @CRLF $help &= 'CTRL+? -> Help(Note: you must hold "Shift" down, too.)' MsgBox(0, "Help:", $help) Return EndFunc ;==>help #cs ; Copy to the Clipboard for testing: #include <Date.au3> MsgBox(64,@ScriptName,"testing...should be Monday, it is: "&_DateDayOfWeek(2)) #ce

I like the idea in your script and I am still playing around with your code to adapt to my needs. Here are some comments: 1. Looks like the two "FileDelete($File)" statements should be: "FileDelete(@TempDir & "\DebugScript.au3")" 2. I have actually removed these deletes because this allows the editing of the temp file and doing a "Save As". I placed "FileDelete(@TempDir & "\DebugScript.au3")" at the top of the script. 3. I have added a "move" Hotkey to save the contents of the temp file. 4. I've added a "help" HotKey. 5. For my work I do not need to substitute full paths for the include files...so I have removed $Code (StringReplace). Thanks for the good work! RW Baker

Maybe you want: but and press spacebar.....? RW Baker

SORRY....everything is now fine!!!!! My dumb! I had an AutoIt script running in the background that I completely forgot about because it is started silently at start-up. So that suppressed the install overwrite of the AutoIt3.exe file. Grrrrr. All of your responses really helped me, thanks! RW Baker

Thanks a lot...I already installed it twice...I'll just keep looking. Again, I appreciate the prompt confirmation that yours works fine! RW Baker

If I execute: MsgBox(0,"",@AutoItUnicode) I get an undefined macro error... I'm trying to use: "...\AutoIt3\Include\GuiListView.au3"...it is an AutoIt library include file (I didn't write it). A typical use in this include file is (line 325): If @AutoItUnicode Then $tBuffer = DllStructCreate("wchar Text[4096]") Else $tBuffer = DllStructCreate("char Text[4096]") EndIf Right now, I don't know where to look...everything else is working fine for me in v3.2.12.0. RW Baker