 |
 |
 |
 |
 |
Over the years I’ve done a lot in Excel. Often I leverage my Excel function Library which is, at best, a work in progress. I commissioned Maestrith, author of AHK Studio, to review it. We worked through what did & didn’t work plus optimized a few things.
AutoHotkey Excel Function Library
#SingleInstance,Force
Random:=[],Dup:=[],Items:=[]
for a,b in StrSplit("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") ;put whatever characters you want in here
Random.Push(b) ;Add each character to Random Array
InputBox,Count,How Many Codes,How Many Codes do you want?
InputBox,Length,How Long For Each Code,How Long?
While(Items.MaxIndex()<Count){ ;Keep iterating until you have enough "keys"
Out:="" ;Clear out variable
while(StrLen(Out)<Length){
Random,Digit,0,% Random.MaxIndex() ;keep max lenght of random at right level
Out.=Random[Digit] ;append the Random digit to out.
}
if(!Dup[Out])
Items.Push(Out),Dup[Out]:=1 ;Add key to object
}
for a,b in Items ;Iterate over list
Total.=b "`n" ;Add to total with new line
msgbox % Clipboard:=Total
Web Scraping is Amazing! Being able to automate Chrome with AutoHotkey has been a long-term goal of mine! In this video I (quickly) walk through a function I wrote to leverage GeekDude’s Chrome.ahk class. You can get the class here or read more about it on the AutoHotkey forum.
There’s lots more to do but I wanted to share this to help others get started using the above Class. 🙂
Here is the code I demonstrate in the below video where I demonstrate setting text in Chrome with AutoHotkey.
#Include B:\Progs\AutoHotkey_L\AHK Work\WebPage\Chrome\Examples\Chrome.ahk ;GeekDude Class ; https://github.com/G33kDude/Chrome.ahk https://autohotkey.com/boards/viewtopic.php?t=42890
Tab:=Chm_Create_Instance("C:\Users\joe\AppData\Local\Google\Chrome\User Data\Default") ;Create instance using default Profile
Chm_Navigate(Tab,"http://the-automator.com") ;Navigate to a URL
Chm_Set(Tab,Method:="Class",Attribute:="s",Index:=2,Property:="v",Value:="Just a test")
;~ Chm_Set(Tab,Method:="Name",Attribute:="s",Index:=2,Property:="v",Value:="Just another test")
;~ Chm_Set(Tab,Method:="tag",Attribute:="Input",Index:=1,Property:="v",Value:="Just a test")
;~ Chm_Set(Tab,Method:="ID",Attribute:="cat",Index:=2,Property:="v",Value:="11")
;********************Chrome Set Property******* Propterty= i=innerText v=Value o=outerHTML****************************
Chm_Set(Tab,Method="Class",Attribute="hfeed",Index=1,Property="i",Value=""){
;***********Class*******************
if (Format("{:L}",Method)="class"){ ;Case-insensitive check to see if method = Class
if (Format("{:L}",Property)="o") ;If Property="o" then set OuterHTML
Tab.Evaluate("document.getElementsByClassName('" Attribute "')[" Index-1 "].outerHTML='" Value "'").Value
Else if (Format("{:L}",Property)="v") ;If Property="v" then set Value
Tab.Evaluate("document.getElementsByClassName('" Attribute "')[" Index-1 "].value='" Value "'").Value
Else if (Format("{:L}",Property)="i") ;If Property="i" then set innerText
Tab.Evaluate("document.getElementsByClassName('" Attribute "')[" Index-1 "].innerText='" Value "'").Value
} ;***********Tag*******************
Else if (Format("{:L}",Method)="tag"){ ;Case-insensitive check to see if method = Tag
if (Format("{:L}",Property)="o") ;If Property="o" then set OuterHTML
Tab.Evaluate("document.getElementsByTagName('" Attribute "')[" Index-1 "].outerHTML='" Value "'").Value
Else if (Format("{:L}",Property)="v") ;If Property="v" then set Value
Tab.Evaluate("document.getElementsByTagName('" Attribute "')[" Index-1 "].value='" Value "'").Value
Else if (Format("{:L}",Property)="i") ;If Property="i" then set innerText
Tab.Evaluate("document.getElementsByTagName('" Attribute "')[" Index-1 "].innerText='" Value "'").Value
} ;***********Name*******************
Else if (Format("{:L}",Method)="Name"){ ;Case-insensitive check to see if method = Name
if (Format("{:L}",Property)="o") ;If Property="o" then set OuterHTML
Tab.Evaluate("document.getElementsByName('" Attribute "')[" Index-1 "].outerHTML='" Value "'").Value
Else if (Format("{:L}",Property)="v") ;If Property="v" then set Value
Tab.Evaluate("document.getElementsByName('" Attribute "')[" Index-1 "].value='" Value "'").Value
Else if (Format("{:L}",Property)="i") ;If Property="i" then set innerText
Tab.Evaluate("document.getElementsByName('" Attribute "')[" Index-1 "].innerText='" Value "'").Value
} ;***********ID*******************
Else if (Format("{:L}",Method)="id"){ ;Case-insensitive check to see if method = ID
if (Format("{:L}",Property)="o") ;If Property="o" then set OuterHTML
Tab.Evaluate("document.getElementById('" Attribute "').outerHTML='" Value "'").Value
Else if (Format("{:L}",Property)="v") ;If Property="v" then set Value
Tab.Evaluate("document.getElementById('" Attribute "').value='" Value "'").Value
Else if (Format("{:L}",Property)="i") ;If Property="i" then set innerText
Tab.Evaluate("document.getElementById('" Attribute "').innerText='" Value "'").Value
} Else{ MsgBox fix Method- Valid values are: Name, Class, Tag, ID (case of text does not matter)
}
}
;********************Create instance and use a path to profile***********************************
Chm_Create_Instance(Profile_Path=""){
if !(Profile_Path){
FileCreateDir, ChromeProfile ;Make sure folder exists
ChromeInst := new Chrome("ChromeProfile") ;Create a new Chrome Instance
}Else{
try ChromeInst := new Chrome(Profile_Path) ;Create for profile lookup prfile by putting this in your url in Chrome chrome://version/
}
return Tab := ChromeInst.GetTab() ;Connect to Active tab
}
;********************Navigate to page***********************************
;~ Chm_Navigate(Tab,"http://the-automator.com")
Chm_Navigate(Tab,URL){
Tab.Call("Page.navigate", {"url": URL}) ;Navigate to URL
Tab.WaitForLoad() ;Wait for page to finish loading
}
Here’s the video walking through how to use the function with the above
In our first hour of today’s AutoHotkey webinar we talked about working with multiple scripts in AutoHotkey. How you can break out functions into separate files and leverage the library.
In the Second Hour we did Q&A and discussed other things we typically automate.
The two scripts we highlighted were: Dictionary by Fanatic Guru and iThesauras based of Dictionary by rommmecek.
Order of search
Benefits of using Library: 1) Code maintenance, 2) Fewer files to keep track of, etc. 3) Easier to read code
Negatives of using Library: Sharing code can be a bit more complex
Sharing data between scripts: Command line ParametersAutoHotkey.exe [Switches] [Script Filename] [Script Parameters]
CompiledScript.exe [Switches] [Script Parameters]
Script Parameters:
Pros: Simple, reliable
Cons: Only works when starting up, One-direction, Only passes strings/variables
Pass String between scripts with OnMessage
Pros: Simple to Use
Cons: Code is somewhat complex, A bit resource intensive, Pass single variable
Create a Temporary Environment Variable and stores it, until reboot, in Registery under: HKCU\VolatileEnvironment
Pros: Easy to use, Variable is Accessible after “sender” exits, Fast, Can use objects / dot-notation
Cons: Pass variables/strings, Character limitation
Registers a unique CLSID (Computer Licence Security ID) in registry (A CLSID is a globally unique identifier that identifies a COM class object. If your server or container allows linking to its embedded objects, you need to register a CLSID for each supported class of objects.)
Pros:Can pass objects, Functions, Variables,Strings, Bi-directional, Super Fast
Cons: Code is more complex, Can’t use FOR loops to iterate over Objects, Can slow some when passing large data
|
|
|
|
|
