Search found 538 matches

by rommmcek
Yesterday, 04:44
Forum: Ask For Help
Topic: AHK won't recognize Chrome Page Elements?
Replies: 5
Views: 122

Re: AHK won't recognize Chrome Page Elements?

May be this will give you some idea: #Include Chrome.ahk ChromeInst := new Chrome("ChromeProfile") PgInst := ChromeInst.GetPage() PgInst.Call("Page.navigate", {"url": "https://www.autohotkey.com/boards/ucp.php?mode=login"}) PgInst.WaitForLoad() send, {Tab 3} ; not needed, just for demo PgInst.Evalua...
by rommmcek
04 Jun 2019, 17:48
Forum: Ask For Help
Topic: Change Background Color of a Gui Hotkey Control. Topic is solved
Replies: 13
Views: 497

Re: Change Background Color of a Gui Hotkey Control. Topic is solved

Possible fix: #NoEnv #SingleInstance,Force global ShiftDown ; ... OnMessage(0x0F, "HotkeyCtrlEvent") ; WM_PAINT = 0x0F OnMessage(0x100, "Wm_KeyDown") OnMessage(0x101, "Wm_KeyUp") Return Wm_KeyDown(wp) { (wp=16)? ShiftDown:=1: "" } Wm_KeyUp(wp) { if (wp=9) { GuiControlGet, CFoc, Focus if (CFoc = "Edi...
by rommmcek
04 Jun 2019, 11:37
Forum: Ask For Help
Topic: Change Background Color of a Gui Hotkey Control. Topic is solved
Replies: 13
Views: 497

Re: Change Background Color of a Gui Hotkey Control. Topic is solved

Now sometimes focus sticks at overlaying Edit control, thus having unwanted effect.
Besides Sys key (Alt) invokes on my OS ugly system sound.
by rommmcek
04 Jun 2019, 10:52
Forum: Ask For Help
Topic: Change Background Color of a Gui Hotkey Control. Topic is solved
Replies: 13
Views: 497

Re: Change Background Color of a Gui Hotkey Control. Topic is solved

@iPhilip: Great condensed rewrite!

One thing remains: In a Gui with multiple controls can underlaying Hotkey control quite often pop up when manually changing the focus (via Tab key or mouse click)!
by rommmcek
03 Jun 2019, 09:34
Forum: Ask For Help
Topic: Change Background Color of a Gui Hotkey Control. Topic is solved
Replies: 13
Views: 497

Re: Change Background Color of a Gui Hotkey Control. Topic is solved

This code is simple and works pretty good. #NoEnv #SingleInstance,Force Gui, +hwndHw Gui, Color, d0c060, 4444444 Gui, Font, s14 cffff00 TAhoma Gui,Add,Hotkey, W280 x10 y6 vEdt1 gEdt1 hwndHedt1 Gui,Add,Edit, x10 y6 w280 vEdt2 hwndHedt2 Background00ffff, None Gui,Show, x1300 y150 OnMessage(0x133, "Foc...
by rommmcek
02 Jun 2019, 23:20
Forum: Ask For Help
Topic: Change Background Color of a Gui Hotkey Control. Topic is solved
Replies: 13
Views: 497

Re: Change Background Color of a Gui Hotkey Control. Topic is solved

Looks like nobody is interested. I guess it's wrong season (examens and pre-holydays time). It was just a (one) hint how could be done. But the script itself seems not to detect multiple keys when pressed (almost) simultaneously. That's why I attempted to assign all possible Hotkeys, but before fini...
by rommmcek
30 May 2019, 20:15
Forum: Ask For Help
Topic: Change Background Color of a Gui Hotkey Control. Topic is solved
Replies: 13
Views: 497

Re: Change Background Color of a Gui Hotkey Control. Topic is solved

Hi Hellbend! Your Gui designs are fantastic! iPhilip suggested using Edit Control. I found the script I believe has a potential to replace Hotkey Control with Edit. I don't have time (and knowledge) to finish it, but with help of other members might be doable. CoordMode, ToolTip, Screen SetFormat, I...
by rommmcek
29 May 2019, 17:57
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

I estimated the width value too low!
I captured a. The pic was 11 pixels in width. (gray difference mode value 50)
I reduced width to 7 pixels and incremented gray difference mode value to 255.
I managed to detect 50 spaces between two words.
by rommmcek
29 May 2019, 17:15
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

Oh, no! Don't use my def of Space! I use s14 size besides the physical size of the monitor matters too! …
To create your own definition just capture e.g. s reduce the width to 1/3 or the like (need to experiment) and use for gray difference mode value 255. That should do the trick!
by rommmcek
29 May 2019, 05:24
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

Thank you feiyue for the fix of the Pic() and FindText() as a whole! It's so easy to use that I didn't understand many advanced features. Now I learned a lot. If I got it correctelly the function, after initial match, for certain width ignores any undiffined character. That is conveniant for spaces ...
by rommmcek
28 May 2019, 17:46
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

There was a bug. Run the code, type in e.g. : zba and press Search Gui, +AlwaysOnTop Gui, Font, s14 Gui, Add, Edit, w295 vFindName Gui, Add, Button, w295 gSearch, Search Gui, Show, x1400 y150 `t Gui, Show, x1400 y150 `t a:=Ord("a"), Txt_%a%:="|<a>*136$10.7lzq3MA0lzTzUw3sRznvU" b:=Ord("b"), Txt_%b%:=...
by rommmcek
28 May 2019, 17:06
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

Just made edit on the previous page. Take a look how to distinguish them! Edit2!!! (Sorry, I'm helping you with one eye - not concentrated) parsing edited & than use Joint wich : loop, parse, % Trim(StrReplace(FindName, " ")) ; parse each character Text.=Txt_%Ord(A_LoopField)% if (ok:=FindText(0, 0,...
by rommmcek
28 May 2019, 16:40
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

Try this idea (e.g. a_Code is: 177$9.DXyMs3DvzsS7zvvU etc. ;~ ... Gui, Show, x1400 y150 `t Txt_a:="|<a>*a_Code" Txt_b:="|<b>*b_Code" ;~ ... Txt_z:="|<z>*z_Code" Txt_A:="|<A>*A_Code" Txt_B:="|<B>*B_Code" ;~ ... Txt_Z:="|<Z>*Z_Code" ;~ ... ;~ etc. return Search: Text:="" GuiControlGet, FindName loop, ...
by rommmcek
28 May 2019, 15:12
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

This works for me: t1:=A_TickCount Text.="|<S>*139$14.3w3zlkCM1a0NU0S03y0Dw0DU0T03s0q0RsCDz0z2" Text.="|<s>*141$10.Dlzi7k3k7w3s1k3kTzXwU" if (ok:=FindText(0, 0, A_ScreenWidth, A_ScreenHeight, 0.1, 0.1, Text, 1, 1, JoinText:=1)) { CoordMode, Mouse X:=ok.1.1, Y:=ok.1.2, W:=ok.1.3, H:=ok.1.4, Comment:=...
by rommmcek
28 May 2019, 13:31
Forum: Scripts and Functions
Topic: FindText - Capture screen image into text and then find it Topic is solved
Replies: 311
Views: 74341

Re: FindText - Capture screen image into text and then find it Topic is solved

Try:if (ok:=FindText(0, 0, A_ScreenWidth, A_ScreenHeight, 0.1, 0.1, PicN(FindName), 1, 1, JoinText:=1))
P.s.: Why don't you capture Soul Points as one entity? I think it would be less prone to fail!
by rommmcek
21 May 2019, 15:58
Forum: Scripts and Functions
Topic: for youtube
Replies: 4
Views: 387

Re: for youtube

Not much more, then described above. The code is a real mess so it's not to publish (and have no time to clean it up). If you're interested, I can send you a PM?
by rommmcek
21 May 2019, 14:25
Forum: Scripts and Functions
Topic: for youtube
Replies: 4
Views: 387

Re: for youtube

Hi! - I like triggering download via monitoring Clipboard. So should be possible to get action from e.g. Virtual Machine. - In your script is a small bug. Global variable mp3x should be assigned in autoexec section, to avoid Waring when manually copying url. - There is script to programmatically Get...
by rommmcek
21 May 2019, 02:40
Forum: Scripts and Functions
Topic: MS Paint: rotate by scaling/shearing (stretching/skewing)
Replies: 2
Views: 307

Re: MS Paint: rotate by scaling/shearing (stretching/skewing)

Very nice extension of a rather simple tool (Paint)! P.s.: I ran into trouble rotating big pics. So I made makeshift fix for rotate by 3 shears (w-Hotkey). Very little tested! (Win10, Dpi: 125%, HD-1920x1080 - if it matters) ;================================================== ;MS Paint: rotate by sc...
by rommmcek
05 May 2019, 13:12
Forum: Scripts and Functions
Topic: QuickSort: any thoughts to improve this?
Replies: 22
Views: 986

Re: QuickSort: any thoughts to improve this?

Hi!
Quick sort is a nice algorithm. However I have truble with your version/translation for big files.
Crash for files above ca. 200k lines (alphanumerical), and above ca. 6k lines (by length).
by rommmcek
27 Apr 2019, 07:54
Forum: Ask For Help
Topic: how do Paste the text on the clipboard without losing the paragraph marker you just copied? Topic is solved
Replies: 3
Views: 210

Re: how do Paste the text on the clipboard without losing the paragraph marker you just copied? Topic is solved

Looks like you find above approach usable. Here is more condensed version and one if document is already opened: wd := ComObjCreate("Word.Application") ; Create an application object wd.Visible := true ; Make the application visible wd.Documents.Open(A_ScriptDir "\Hi.doc") wd.Activate wd.Selection.F...

Go to advanced search