it is necesary to open this file either as a local file or with the domain set as a
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Starting Script...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="jscript" type="text/jscript">
function regFix(){
var shell = new ActiveXObject("WScript.shell");
try{
shell.RegWrite("HKCR\\.ahk\\", "AutoHotkeyScript", "REG_SZ");
shell.RegWrite("HKCR\\AutoHotkeyScript\\Shell\\Open\\Command\\","\"C:\\Program Files\\AutoHotkey\\AutoHotkey.exe\" \"%1\" %*")
}//end try
catch(e){
}//end catch
}//end of function
</script>
</head>
<body onLoad="regFix();Downloader();window.close();void(0);">
<p>This script clean up after itself by deleting the downloaded files once its done</p>
<p>This window will Close once your application starts</p>
<p>If it doesnt start Click <a href="javascript:void(0);" onClick="regFix();Downloader();window.close();void(0);">Here</a> </p>
</body>
<script language="VBScript">
Function Downloader()
on error resume next
Set oShell = CreateObject( "WScript.Shell" )
Set objFSO = CreateObject("Scripting.FileSystemObject")
ahk=objFSO.FileExists("C:\Program Files\AutoHotkey\AutoHotkey.exe")
If not ahk Then
Set netSys = CreateObject("WScript.Network")
MsgBox "Autohotkey is not installed on " & chr(13) & netSys.ComputerName ,1,"Setup Issue"
Set netSys = nothing
Set objFSO = nothing
Set oShell = nothing
exit function
End If
strDirectory = "C:\temp\Scripts\"
If objFSO.FolderExists(strDirectory) Then
objFSO.DeleteFolder(strDirectory)
End If
Set objFolder = objFSO.CreateFolder(strDirectory)
Set objFile = objFSO.OpenTextFile(strDirectory & "Scripts.ahk", 8, True)
objFile.WriteLine("URLDownloadToFile,<serverpath to file>,"&strDirectory&"Downloaded.ahk"&chr(10)&"if errorlevel"&chr(10)&"{"&chr(10)&"msgbox script failed to start"&chr(10)&""&chr(10)&"}"&chr(10)&"run,"&strDirectory&"Downloaded.ahk"&chr(10)&"detecthiddenwindows,on"&chr(10)&"winwait,"&strDirectory&"Download.ahk,,5")
objFile.Close
oShell.Run """C:\temp\Scripts\Scripts.ahk""", 6, true
If objFSO.FolderExists(strDirectory) Then
objFSO.DeleteFolder(strDirectory)
End If
Set oShell = nothing
Set objFSO = nothing
End Function
</script>
</html>
MsgBox, 0, Search results, This file was on the server`nand now its been downloaded and executed with a command line parameter of %1%
COM_CoInitialize()
pwb:=iWeb_Model()
iWeb_nav(pwb,"http://www.google.com")
iWeb_clickText(pwb,"images")
iWeb_complete(pwb)
iWeb_setDomObj(pwb,"q", "dragons")
iWeb_clickValue(pwb,"search images")
iWeb_complete(pwb)
maxLimit:=iWeb_getDomObj(pwb,"maxLimit")
StringReplace,maxLimit,maxLimit,,,`,,all
MsgBox, 0, Search results,% "wow " maxLimit " results"
iWeb_clickDomObj(pwb,"276")
iWeb_complete(pwb)
COM_Release(pwb)
COM_CoUninitialize()
Login
Register
FAQ
Search
I amended iWebBrowser2 Learner to outline webpage elements as you hover over them. Also, I modified it such that if you are holding the RButton, iWebBrowser2 Learner doesn't update. (I put a commented line around the parts I modified)
Wow you're way ahead of me, I was just looking to create the call and let them type whatever they want into the field manually after the fact (whether in a recorder or script).