Skommel's CapShift not working in Chrome

[kunkel321]

This is Skommel's excellent CapShift "one hour software."
https://www.dcmembers.com/skrommel/download/capshift/

He has the ahk file in his download, but below is a version with a bunch of MsgBox debug stops that I put.   I'm trying to figure out why it doesn't work in Chrome browser edit fields.  Works fine in Notepad.  I'm trying to use the conver-to-UPPER CASE feature from the popup.  In Chrome the text doesn't get converted.... CapShift merely pastes whatever is on the clipboard.  It seems there's a hickup at line 274 (Send, ^C).   The hickup is not consistent though... Sometimes the selected text does get copied to the clipboard, but the app still fails. 

Thoughts?  I just poseted this at the AutoHotkey forum too.

Code: Autohotkey [Select]

1. ;CAPshift.ahk
2. ;Slows down and extends the CapsLock key.
3. ; Also slows down F1, Insert, NumLock and ScrollLock
4. ;
5. ;Hold for 0.5 sec to toggle caps lock on or off.
6. ;Hold for 1 sec to show a menu that converts selected text to
7. ; UPPER CASE, lower case, Title Case or iNVERT cASE.
8. ;
9. ;If the keyboard is idle for 120 seconds, CapsLock is turned off.
10. ;
11. ;Skrommel @2005
12.  
13. #NoEnv
14. #SingleInstance,Force
15. AutoTrim,Off
16. StringCaseSense,On
17. SetBatchLines,-1
18. SetWinDelay,0
19.  
20. applicationname=CAPshift
21.  
22. Gosub,READINI
23. Gosub,TRAYMENU
24.  
25. WinGet,oldid,ID,A
26.  
27. SetTimer,ACTIVEWIN,500
28.  
29. time:=A_TickCount
30. Loop
31. {
32.   Input,key,L1 T1 V,{LControl}{RControl}{LAlt}{RAlt}{LShift}{RShift}{LWin}{RWin}{AppsKey}{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}{Left}{Right}{Up}{Down}{Home}{End}{PgUp}{PgDn}{Del}{Ins}{BS}{Capslock}{Numlock}{PrintScreen}{Pause}
33.   If (ErrorLevel<>"Timeout")
34.     time:=A_TickCount
35.   If (A_TickCount-time>=capslockidle*1000)
36.   {
37.     If capslockidle>0
38.     If (GetKeyState("CapsLock","T"))
39.       SetCapsLockState,Off
40.     time:=A_TickCount
41.   }
42. }
43. Return
44.  
45.  
46. ACTIVEWIN:
47. WinGet,id,ID,A
48. WinGetClass,class,ahk_id %id%
49. If id=
50.   id=%oldid%
51. If class=Shell_TrayWnd
52.   id=%oldid%
53. If id=AutoHotkey
54.   id=%oldid%
55. oldid=%id%
56. Return
57.  
58.  
59. DELAY:
60. Gosub,TRAYTIP
61. hotkey=%A_ThisHotkey%
62. IfInString,hotkey,$
63.   StringTrimLeft,hotkey,hotkey,1
64. If hotkey=CapsLock
65.   Gosub,CAPSLOCK
66. Else
67.   Gosub,THEREST
68. Return
69.  
70.  
71. THEREST:
72. counter=500
73. Loop,5
74. {
75.   If showstatus=1
76.     ToolTip,%hotkey% in %counter% ms
77.   Sleep,100
78.   counter-=100
79.   GetKeyState,state,%hotkey%,P
80.   If state=U
81.     Break
82. }
83. If showstatus=1
84.   ToolTip,
85. If counter=0
86. If hotkey=F1
87.   Send,{%hotkey%}
88. Else
89. {
90.   GetKeyState,state,%hotkey%,T
91.   If state=U
92.   {
93.     If hotkey=NumLock
94.       SetNumLockState,On
95.     If hotkey=ScrollLock
96.       SetScrollLockState,On
97.     If hotkey=Insert
98.       Send,{%hotkey%}
99.     If showstatus=1
100.       ToolTip,%hotkey% On
101.   }
102.   Else
103.   {
104.     If hotkey=NumLock
105.       SetNumLockState,Off
106.     If hotkey=ScrollLock
107.       SetScrollLockState,Off
108.     If hotkey=Insert
109.       Send,{%hotkey%}
110.     If showstatus=1
111.       ToolTip,%hotkey% Off
112.   }
113.   SetTimer,TOOLTIPOFF,On
114. }
115. KeyWait,%hotkey%
116. Return
117.  
118.  
119. CAPSLOCK:
120. counter=1000
121. Loop,10
122. {
123.   If showstatus=1
124.     ToolTip,%hotkey% in %counter% ms
125.   Sleep,100
126.   counter-=100
127.   If counter=500
128.     SoundPlay,%SYSTEMROOT%\Media\ding.wav
129.   GetKeyState,state,%hotkey%,P
130.   If state=U
131.     Break
132. }
133. If showstatus=1
134.   ToolTip,
135. If counter=0
136.   Gosub,MENU
137. Else
138. If counter<600
139. {
140.   GetKeyState,state,%hotkey%,T
141.   If state=D
142.     Gosub,OFF
143.   Else
144.     Gosub,ON
145. }
146. Return
147.  
148.  
149. TRAYTIP:
150. status=
151. key=Insert
152. Gosub,GETSTATE
153. key=CapsLock
154. Gosub,GETSTATE
155. key=NumLock
156. Gosub,GETSTATE
157. key=ScrollLock
158. Gosub,GETSTATE
159. If showstatus=1
160.   TrayTip,Status,%status%,10
161. Return
162.  
163.  
164. GETSTATE:
165. GetKeyState,state,%key%,T
166. If state=D
167.   status=%status%%key%`n
168. Return
169.  
170.  
171. MENU:
172. Menu,convert,Add
173. Menu,convert,Delete
174. Menu,convert,Add,CAPshift,TOGGLE
175. Menu,convert,Add,
176. Menu,Convert,Add,CapsLock &On,On
177. Menu,Convert,Add,&CapsLock Off,Off
178. Menu,convert,Add,
179. Menu,convert,Add,&UPPER CASE,UPPER
180. Menu,convert,Add,&lower case,LOWER
181. Menu,convert,Add,&Title Case,TITLE
182. Menu,convert,Add,&iNVERT cASE,INVERT
183. Menu,convert,Add,&RaNDoM CaSE,RANDOM
184. Menu,convert,Add,Replace user &chars,REPLACE
185. Menu,convert,Add,
186. Menu,convert,Add,&Settings...,SETTINGS
187. Menu,convert,Add,&About...,ABOUT
188. Menu,convert,Add,E&xit,EXIT
189. Menu,convert,Default,CapShift
190. Menu,convert,Show
191. Return
192.  
193.  
194. TRAYMENU:
195. Menu,Tray,NoStandard
196. Menu,Tray,DeleteAll
197. Menu,Tray,Add,CAPshift,TOGGLE
198. Menu,Tray,Add,
199. Menu,Tray,Add,CapsLock &On,On
200. Menu,Tray,Add,&CapsLock Off,Off
201. Menu,Tray,Add,
202. Menu,Tray,Add,&UPPER CASE,UPPER
203. Menu,Tray,Add,&lower case,LOWER
204. Menu,Tray,Add,&Title Case,TITLE
205. Menu,Tray,Add,&iNVERT cASE,INVERT
206. Menu,Tray,Add,&RaNDoM CaSE,RANDOM
207. Menu,Tray,Add,Replace user &chars,REPLACE
208. Menu,Tray,Add,
209. Menu,Tray,Add,&Settings...,SETTINGS
210. Menu,Tray,Add,&About...,ABOUT
211. Menu,Tray,Add,E&xit,EXIT
212. Menu,Tray,Default,CapShift
213. Menu,Tray,Tip,%applicationname%
214. Return
215.  
216.  
217. TOOLTIPON:
218. Return
219.  
220.  
221. TOOLTIPOFF:
222. If showstatus=1
223.   ToolTip,
224. SetTimer,TOOLTIPOFF,Off
225. Gosub,TRAYTIP
226. Return
227.  
228.  
229. ON:
230. SetCapsLockState,On
231. If showstatus=1
232.   ToolTip,CapsLock On
233. SetTimer,TOOLTIPOFF,On
234. Return
235.  
236.  
237. OFF:
238. SetCapsLockState,Off
239. If showstatus=1
240.   ToolTip,CapsLock Off
241. SetTimer,TOOLTIPOFF,On
242. Return
243.  
244.  
245. TOGGLE:
246. GetKeyState,state,CapsLock,T
247. If state=D
248. {
249.   SetCapsLockState,Off
250.   If showstatus=1
251.     ToolTip,CapsLock Off
252. }
253. Else
254. {
255.   SetCapsLockState,On
256.   If showstatus=1
257.     ToolTip,CapsLock On
258. }
259. SetTimer,TOOLTIPOFF,On
260. Return
261.  
262.  
263. CUT:
264. oldclipboard:=ClipboardAll
265.  
266. MsgBox clp just saved to oldClp which is %oldClipboard%  ;####################################debug
267.  
268. WinActivate,ahk_id %id%
269. WinWaitActive,ahk_id %id%,,1
270. WinGetClass,class,ahk_id %id%
271. If class In Progman,WorkerW,Explorer,CabinetWClass
272.   Send,{F2}
273. Sleep,500
274. Send,^c
275. ClipWait,1
276. string=%clipboard%
277.  
278. msgbox bottom of CUT sub`nstr is %string%  ;####################################debug
279.  
280. Return
281.  
282.  
283. PASTE:
284. WinActivate,ahk_id %id%
285. WinWaitActive,ahk_id %id%,,1
286.  
287. MsgBox now at paste sub and str is %string% ;####################################debug
288.  
289. If class In Progman,WorkerW,Explorer,CabinetWClass
290.   Send,{F2}
291. clipboard=%string%
292.  
293. MsgBox just before send`nclipbrd is %Clipboard%`noldClipbrd %oldclipboard% ;####################################debug
294.  
295. Send,^v
296. Clipboard:=oldclipboard
297. oldclipboard=
298. Return
299.  
300.  
301. UPPER:
302.  
303. MsgBox top of upper sub  ;####################################debug
304.  
305. Gosub,CUT
306.  
307. MsgBox before stringUpper str is %string% ;####################################debug
308.  
309. StringUpper,string,string
310.  
311. MsgBox after stringUpper str is %string%  ;####################################debug
312.  
313. Gosub,PASTE
314. If showstatus=1
315.   ToolTip,Selection converted to UPPER CASE
316. SetTimer,TOOLTIPOFF,On
317. Return
318.  
319.  
320. LOWER:
321. Gosub,CUT
322. StringLower,string,string
323. Gosub,PASTE
324. If showstatus=1
325.   ToolTip,Selection converted to lower case
326. SetTimer,TOOLTIPOFF,On
327. Return
328.  
329.  
330. TITLE:
331. Gosub,CUT
332. StringLower,string,string,T
333. Gosub,PASTE
334. If showstatus=1
335.   ToolTip,Selection converted to Title Case
336. SetTimer,TOOLTIPOFF,On
337. Return
338.  
339.  
340. INVERT:
341. Gosub,CUT
342. StringLen,length,string
343. Loop,%length%
344. {
345.   StringLeft,char,string,1
346.   If char Is Upper
347.     StringLower,char,char
348.   Else
349.   If char Is Lower
350.     StringUpper,char,char
351.   StringTrimLeft,string,string,1
352.   string=%string%%char%
353. }
354. If showstatus=1
355.   ToolTip,Selection converted to iNVERTED cASE
356. SetTimer,TOOLTIPOFF,On
357. Gosub,PASTE
358. Return
359.  
360.  
361. RANDOM:
362. Gosub,CUT
363. StringLen,length,string
364. Loop,%length%
365. {
366.   StringLeft,char,string,1
367.   Random,random,1,2
368.   If random=1
369.     StringLower,char,char
370.   Else
371.     StringUpper,char,char
372.   StringTrimLeft,string,string,1
373.   string=%string%%char%
374. }
375. If showstatus=1
376.   ToolTip,Selection converted to RaNDoM CaSE
377. SetTimer,TOOLTIPOFF,On
378. Gosub,PASTE
379. Return
380.  
381.  
382. REPLACE:
383. AutoTrim,Off
384. StringCaseSense,On
385. Gosub,CUT
386. Loop,%swapcount%
387. {
388.   from:=swap_%A_Index%_1
389.   to:=swap_%A_Index%_2
390.   StringReplace,string,string,%A_Space%,.space.,All
391.   StringReplace,string,string,%A_Tab%,.tab.,All
392.   StringReplace,string,string,`r,.return.,All
393.   StringReplace,string,string,`n,.newline.,All
394.   StringReplace,string,string,`,,.comma.,All
395.   StringReplace,string,string,`;,.semicolon.,All
396.   StringReplace,string,string,%from%,%to%,All
397.   StringReplace,string,string,.space.,%A_Space%,All
398.   StringReplace,string,string,.tab.,%A_Tab%,All
399.   StringReplace,string,string,.return.,`r,All
400.   StringReplace,string,string,.newline.,`n,All
401.   StringReplace,string,string,.comma.,`,,All
402.   StringReplace,string,string,.semicolon.,`;,All
403. }
404. If showstatus=1
405.   ToolTip,Selection's User chars replaced
406. SetTimer,TOOLTIPOFF,On
407. Gosub,PASTE
408. Return
409.  
410.  
411. ABOUT:
412. Gui,99:Destroy
413. Gui,99:Margin,20,20
414. Gui,99:Add,Picture,xm Icon1,%applicationname%.exe
415. Gui,99:Font,Bold
416. Gui,99:Add,Text,x+10 yp+10,%applicationname% v1.7
417. Gui,99:Font
418. Gui,99:Add,Text,y+10,CAPshift slows down and extends the CapsLock key.
419. Gui,99:Add,Text,y+5,It also slows down F1, Insert, NumLock and ScrollLock.
420. Gui,99:Add,Text,y+10,- Hold down CapsLock for .5 sec to toggle CapsLock on or off.
421. Gui,99:Add,Text,y+10,- Hold for 1 sec to show a menu that converts selected text to
422. Gui,99:Add,Text,y+5,UPPER CASE, lower case, Title Case, iNVERT cASE, RaNDoM CaSE  
423. Gui,99:Add,Text,y+5,or to Replace user defined chars as defined in CAPshift.ini.
424. Gui,99:Add,Text,y+10,- If the keyboard is idle for 120 seconds, CapsLock is turned off.
425.  
426. Gui,99:Add,Picture,xm y+20 Icon5,%applicationname%.exe
427. Gui,99:Font,Bold
428. Gui,99:Add,Text,x+10 yp+10,1 Hour Software by Skrommel
429. Gui,99:Font
430. Gui,99:Add,Text,y+10,For more tools, information and donations, please visit
431. Gui,99:Font,CBlue Underline
432. Gui,99:Add,Text,y+5 G1HOURSOFTWARE,www.1HourSoftware.com
433. Gui,99:Font
434.  
435. Gui,99:Add,Picture,xm y+20 Icon7,%applicationname%.exe
436. Gui,99:Font,Bold
437. Gui,99:Add,Text,x+10 yp+10,DonationCoder
438. Gui,99:Font
439. Gui,99:Add,Text,y+10,Please support the contributors at
440. Gui,99:Font,CBlue Underline
441. Gui,99:Add,Text,y+5 GDONATIONCODER,www.DonationCoder.com
442. Gui,99:Font
443.  
444. Gui,99:Add,Picture,xm y+20 Icon6,%applicationname%.exe
445. Gui,99:Font,Bold
446. Gui,99:Add,Text,x+10 yp+10,AutoHotkey
447. Gui,99:Font
448. Gui,99:Add,Text,y+10,This tool was made using the powerful
449. Gui,99:Font,CBlue Underline
450. Gui,99:Add,Text,y+5 GAUTOHOTKEY,www.AutoHotkey.com
451. Gui,99:Font
452.  
453. Gui,99:Show,,%applicationname% About
454. hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND
455. OnMessage(0x200,"WM_MOUSEMOVE")
456. Return
457.  
458. 1HOURSOFTWARE:
459.  Run,http://www.1hoursoftware.com,,UseErrorLevel
460. Return
461.  
462. DONATIONCODER:
463.  Run,http://www.donationcoder.com,,UseErrorLevel
464. Return
465.  
466. AUTOHOTKEY:
467.  Run,http://www.autohotkey.com,,UseErrorLevel
468. Return
469.  
470. 99GuiClose:
471.  Gui,99:Destroy
472.   OnMessage(0x200,"")
473.   DllCall("DestroyCursor","Uint",hCur)
474. Return
475.  
476. WM_MOUSEMOVE(wParam,lParam)
477. {
478.   Global hCurs
479.   MouseGetPos,,,,ctrl
480.   If ctrl in Static13,Static17,Static21
481.     DllCall("SetCursor","UInt",hCurs)
482.   Return
483. }
484. Return
485.  
486. EXIT:
487. ExitApp
488.  
489.  
490.  
491. SETTINGS:
492. Gosub,READINI
493. Run,CAPshift.ini
494. Return
495.  
496.  
497. READINI:
498. IfNotExist,CAPshift.ini
499. {
500.   inifile=;CAPshift.ini
501.   inifile=%inifile%`n`;[Settings]
502.   inifile=%inifile%`n`;capslockidle=120    `;0-999  0=Off  Seconds to wait before turning off CapsLock when the keyboard is idle
503.   inifile=%inifile%`n`;showstatus=1        `;0,1    0=Hide  1=Show  Hide or show the status windows
504.   inifile=%inifile%`n`;delaycapslock=1     `;0,1    0=Ignore CapsLock  1=Delay F1
505.   inifile=%inifile%`n`;delayf1=1           `;0,1    0=Ignore F1  1=Delay F1
506.   inifile=%inifile%`n`;delayinsert=1
507.   inifile=%inifile%`n`;delayscrolllock=1
508.   inifile=%inifile%`n`;delaynumlock=1
509.   inifile=%inifile%`n`;
510.   inifile=%inifile%`n`;ae=æ                `;Chars to replace=Chars to replace with
511.   inifile=%inifile%`n`;oe=ø                `;Special characters:
512.   inifile=%inifile%`n`;aa=å                `;  .space. .tab. .return. .newline. .comma. .semicolon.
513.   inifile=%inifile%`n`;AE=Æ
514.   inifile=%inifile%`n`;OE=Ø
515.   inifile=%inifile%`n`;AA=Å
516.   inifile=%inifile%`n`;AA=Å
517.   inifile=%inifile%`n`;.return..newline..return..newline.=  ;Removes empty lines
518.   inifile=%inifile%`n
519.   inifile=%inifile%`n[Settings]
520.   inifile=%inifile%`ncapslockidle=120
521.   inifile=%inifile%`nshowstatus=1
522.   inifile=%inifile%`ndelaycapslock=1
523.   inifile=%inifile%`ndelayf1=1
524.   inifile=%inifile%`ndelayinsert=1
525.   inifile=%inifile%`ndelayscrolllock=1
526.   inifile=%inifile%`ndelaynumlock=1
527.   inifile=%inifile%`n
528.   inifile=%inifile%`nae=æ
529.   inifile=%inifile%`noe=ø
530.   inifile=%inifile%`naa=å
531.   inifile=%inifile%`nAE=Æ
532.   inifile=%inifile%`nOE=Ø
533.   inifile=%inifile%`nAA=Å
534.   FileAppend,%inifile%,CAPshift.ini
535.   inifile=
536. }
537. IniRead,capslockidle,CAPshift.ini,Settings,capslockidle
538. IniRead,showstatus,CAPshift.ini,Settings,showstatus
539. IniRead,delaycapslock,CAPshift.ini,Settings,delaycapslock
540. IniRead,delayf1,CAPshift.ini,Settings,delayf1
541. IniRead,delayinsert,CAPshift.ini,Settings,delayinsert
542. IniRead,delayscrolllock,CAPshift.ini,Settings,delayscrolllock
543. IniRead,delaynumlock,CAPshift.ini,Settings,delaynumlock
544.  
545. If delaycapslock=1
546.   Hotkey,$CapsLock,DELAY
547. If delayf1=1
548.   Hotkey,$F1,DELAY
549. If delayinsert=1
550.   Hotkey,$Insert,DELAY
551. If delaynumlock=1
552.   Hotkey,$NumLock,DELAY
553. If delayscrolllock=1
554.   Hotkey,$ScrollLock,DELAY
555.  
556. swapcount=0
557. Loop,Read,CAPshift.ini
558. {
559.   StringLeft,char,A_LoopReadLine,1
560.   If char=`;
561.     Continue
562.   IfInString,A_LoopReadLine,[Settings]
563.     Continue
564.   If A_LoopReadLine Contains capslockidle=,showstatus=,delaycapslock=,delayf1=,delayinsert=,delayscrolllock=,delaynumlock=
565.     Continue
566.   IfNotInString,A_LoopReadLine,=
567.     Continue
568.   swapcount+=1
569.   StringSplit,swap_%swapcount%_,A_LoopReadLine,=
570. }
571. Return