Skip to content

Instantly share code, notes, and snippets.

@JoeGlines
JoeGlines / Original Google search.ahk
Created October 23, 2020 15:06
Before learning how easy GUIs are with AutoHotkey
InputBox, Search, Search sites with Google:,,,700, 100
if (Search= "") or (Error = 1)
return
Run, chrome.exe "http://www.google.com/search?q=%Search%+site:stackoverflow.com"
Run, chrome.exe "http://www.google.com/search?q=%Search%+site:https://stackoverflow.com/questions/tagged/autohotkey"
Run, chrome.exe "http://www.google.com/search?q=%Search%+site:autohotkey.com"
return
@JoeGlines
JoeGlines / Google_Search_with GUI.ahk
Created October 23, 2020 15:05
Adding a GUI to my search tool
;**************************************
;~ gui,+AlwaysOnTop
gui, font, S12 ;Change font size to 12
Gui, Add, GroupBox, x0 w460 h150, Search ;add a groupbox
gui, Add, Checkbox, x20 y30 checked1 vahk, AutoHotkey.com ;first checkbox and move down / over a bit
gui, Add, Checkbox, checked0 vstack, StackOverflow.com
gui, Add, Checkbox, checked1 vstackAHK, StackOverflow.com/AutoHotkey
gui, Add, Checkbox, checked0 vMicro,Microsoft.com
gui, Add, Checkbox, checked0 vTech,TechOntheNet.com
gui, Add, Text, x10 y+20, Search for:
global responses:={"run Notepad":"RunNotepad"
,"Turn volume down":"TurnVolumeDown"
,"Turn volume up":"TurnVolumeUp"
,"Turn Screen Off":"TurnScreenOff"
,"Turn Screen On":"TurnscreenOn"
,"Launch the Automator":"lta"}
;~ https://www.autohotkey.com/boards/viewtopic.php?t=35737 by scriptor2016 ; For voice recognition to work you need Microsoft SAPI installed in your PC, some versions of Windows don't support voice recognition though.
; You may also need to train voice recognition in Windows so that it will understand your voice.
#Persistent
#SingleInstance, Force
global pspeaker := ComObjCreate("SAPI.SpVoice") ;plistener := ComObjCreate("SAPI.SpSharedRecognizer")
plistener:= ComObjCreate("SAPI.SpInprocRecognizer") ; For not showing Windows Voice Recognition widget.
paudioinputs := plistener.GetAudioInputs() ; For not showing Windows Voice Recognition widget.
plistener.AudioInput := paudioinputs.Item(0) ; For not showing Windows Voice Recognition widget.
ObjRelease(paudioinputs) ; Release object from memory, it is not needed anymore.
;~ #Include <default_Settings>
;**************************************
;~ https://www.autohotkey.com/boards/viewtopic.php?t=35737 by scriptor2016 ; For voice recognition to work you need Microsoft SAPI installed in your PC, some versions of Windows don't support voice recognition though.
; You may also need to train voice recognition in Windows so that it will understand your voice.
;~ https://answers.microsoft.com/en-us/windows/forum/all/what-languages-does-microsoft-speech-recognition/cb5eaf9d-7391-4ab5-8ce9-f1e44096c853?auth=1
#Persistent
#SingleInstance, Force
global pspeaker := ComObjCreate("SAPI.SpVoice") ;plistener := ComObjCreate("SAPI.SpSharedRecognizer")
mail := ComObjActive("Outlook.Application").GetNameSpace("MAPI").GetDefaultFolder[6] ; Access the Session NameSpace
;~ mail := ComObjActive("Outlook.Application").GetNameSpace("MAPI").GetDefaultFolder[0] ; Access the Session NameSpace
myDestFolder := mail.Folders("CCY")
numb := myDestFolder.Items.Count
MsgBox % numb
Loop % mail.Items.Count
{
; if Instr(mail.Items[A_Index].SenderName,"JoeTazz") {
if Instr(mail.Items[A_Index].Subject,"commented on") {
#SingleInstance, Force
;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses. They're structured in a way to make learning AHK EASY
; Right now you can get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
Browser_Forward::Reload
Browser_Back::
;************************************************************
pwb := WBGet()
;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses. They're structured in a way to make learning AHK EASY
; Right now you can get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
pwb := ComObjCreate("InternetExplorer.Application") ;create IE Object
pwb.visible:=True ; Set the IE object to visible
pwb.Navigate("https://www.facebook.com/login.php") ;Navigate to URL
while pwb.busy or pwb.ReadyState != 4 ;Wait for page to load
Sleep, 100
;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses. They're structured in a way to make learning AHK EASY
; Right now you can get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
pwb := WBGet()
MsgBox % IsObject(pwb)
MsgBox % pwb.LocationURL
MsgBox % Var:=pwb.document.GetElementsByTagName("Input")[0].Value ;Get value
MsgBox % Var:=pwb.document.GetElementsByTagName("LI")[5].Value ;Don't use this- it doesn't pull back anything helpfu
MsgBox % Var:=pwb.document.GetElementsByTagName("LI")[5].OuterHTML ;Get InnerText
:o:tac.::http://the-automator.com
:o:tst.::{#}Include &lt;default_Settings&gt;`rRAlt`::`nBrowser_Forward`::Reload`r`nRControl`::`nBrowser_Back`::`r`;{* 60}`r`n