프레임 제어관련 http://www.autohotkey.com/forum/topic70428.html
[AHK_L] 현재 열려진 인터넷 창 값 가져오기
| AHK_L 은 이렇게... #include d:\COM.ahk IEGet( name="" ) { IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame ; Get active window if no parameter Name := ( Name="New Tab - Windows Internet Explorer" ) ? "about:Tabs" : RegExReplace( Name, " - (Windows|Microsoft) Internet Explorer" ) For pwb in ComObjCreate( "Shell.Application" ).Windows If ( pwb.LocationName = Name ) && InStr( pwb.FullName, "iexplore.exe" ) Return pwb } F3:: pwb := IEGet("Access an existing IE object - Microsoft Internet Explorer") pwb.Visible := True ; Make the IE object visible Sleep, 2000 test := pwb.document.documentElement.innerText MsgBox, %test% return ^r:: reload return |
Basic Ahk_L COM Tutorial for Webpages
This guide is not intended to replace the great work that other (more advanced) members have put into other guides. It is designed to help non-coders (n00bz) grasp the basic concepts of AutoHotkey_L COM.
This guide will focus on giving the reader a baseline understanding of the use of the Component Object Model(COM) which can be used to manipulate an application with designed with Document Object Model or DOM such as Internet Explorer.
Q: What is COM? (도대체 컴이 뭐유?)
The Component Object Model is a collection of automation objects that allows a user to interface with various methods and properties of an application.
Q: How do I use it in my script?
There is no easy answer to this question. Why? Because there are different commands to every type of COM object. For instance the methods for Internet Explorer are completely different from MS Office.
In this tutorial I will focus on using COM to script simple commands that will be used to automate IE. Before you can do anything with the IE DOM you have to create a handle to the application.
| Code (Copy): |
Pwb := ComObjCreate("InternetExplorer.Application")
|
"Pwb" or Pointer to a Web Browser is the common name for your handle to IE. Your script doesn't care what you name your Pointer you could name it "WhatAboutBob" if you really wanted to.
Now that you have a handle you need to do something with it. Think of it like the steering wheel of a car. Just because you have the wheel in your hands doesn't mean your driving the car.
| Code (Copy): |
Pwb.Visible := True
|
This is the next line of code you will HAVE to have. Your code can work without it but you won't be able to see anything going on. By default IE starts off in invisible mode. I'll go ahead and point out that ".Visible" is NOT AHK code. It is a built in method in the DOM. You can access it through any COM compatible language (Ruby,C++,ect).
| Code (Copy): |
Pwb.Navigate("Google.com")
|
At this point we have actually done something. That is open up an instance of IE and navigated to google.com. You could also store an address in a variable.
| Code (Copy): |
URL = Google.com
Pwb.Navigate(URL) |
What about accessing an already open web browser? Good Q! There is no simple command for this. Instead you will have to rely on a function (I did not write) to do this for you.
| Code (Copy): |
IEGet(Name="") ;Retrieve pointer to existing IE window/tab
{ IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame Name := ( Name="New Tab - Windows Internet Explorer" ) ? "about:Tabs" : RegExReplace( Name, " - (Windows|Microsoft) Internet Explorer" ) For Pwb in ComObjCreate( "Shell.Application" ).Windows If ( Pwb.LocationName = Name ) && InStr( Pwb.FullName, "iexplore.exe" ) Return Pwb } ;written by Jethrow |
If your thinking "Holy Heart Attack Batman!" fear not you don't need to understand how this function works to implement it into your script. What this function does is looks through the windows on your computer for IE and then for the tab name of the page you sent it OR default to the last activated tab.
| Code (Copy): |
Pwb := IEGet() ;Last active window/tab ;OR Pwb := IEGet("Google") ;Tab name you define can also be a variable |
Now that we can open IE and navigate to pages we can manipulate things now right? Wrong!
notice the loading bar at the bottom of the page or wherever your browser has it? That is your first adversary. You are going to have to tell your script to wait till your page is done loading.
| Code (Copy): |
IELoad(Pwb) ;You must send the function your Handle for it to work |
This is a function that is based of the iWeb function Tank built. If you don't care to understand how it works then just know that you must have this (or another similer) function on any script that deals with IE.
| Code (Expand - Copy): |
IELoad(Pwb) ;You need to send the IE handle to the function unless you define it as global. { If !Pwb ;If Pwb is not a valid pointer then quit Return False Loop ;Otherwise sleep for .1 seconds untill the page starts loading Sleep,100 Until (Pwb.busy) Loop ;Once it starts loading wait until completes Sleep,100 Until (!Pwb.busy) Loop ;optional check to wait for the page to completely load Sleep,100 Until (Pwb.Document.Readystate = "Complete") Return True } |
Now that you can access an existing page or launch a new one we can actually do something useful. Let's fill the search field. We are going to use the "Name" element to do this.
| Code (Copy): |
Pwb.Document.All.q.Value := "site:autohotkey.com tutorial" |
You can also set a form to a variable:
| Code (Copy): |
Website = site:autohotkey.com tutorial Pwb.Document.All.q.Value := Website |
You've just manipulated your first DOM object! Let's go over what we did just now.
This line of code probably doesn't mean anything to you at the moment so let's break it down to something that we all can understand.
Think of "Pwb" in our code as the top floor or roof of the building you happen to be on. You however want to do something in the basement since it's too wet and rainy to do anything on the roof. However to get to the basement you must travel through all the other floors between.
"Document" refers the the room directly below you in this example. The Document object holds EVERYTHING on any web page you see. But you must specify where your looking on the Document.
"All" specifies all the items including forms, tables, buttons, ect that you can control.
What is "q"??? Q happens to be the name of the search form. To figure out what the name of anything on a web page you should use a tool such as "Ahk Web Recorder." It's a handy tool that shows the information of any IE window you hover the mouse cursor over.
Now that we have the address of the element we want to work with "Value" is a method that alows you to change the content within.
Everything to the right side of the ":=" is what you want placed within the value you have selected. In this case we are going to search through the website "autohotkey.com" using the "site:" tool that is built into the Google search engine. That way Google will only search through a single website instead of browsing the entire WWW.
Now let's click the "Search" button.
| Code (Copy): |
Pwb.Document.All.btnG.Click() |
Here we use the "Click()" method. "Value" gives us access to data held within a form whereas "Click" activates a button.
So far we have covered: how to get a(n) existing or created IE handle, sleep till a page has loaded, set a form, and click a button. Here's what your code SHOULD look like. Minus the functions:
| Code (Copy): |
Pwb := IEGet("Google") ;IE instance already open and tab named google exists Pwb.Document.All.q.Value := "site:autohotkey.com tutorial" Pwb.Document.All.btnG.Click() IELoad(Pwb) ;or Pwb := ComObjCreate("InternetExplorer.Application") ;create a IE instance Pwb.Visible := True Pwb.Navigate("Google.com") IELoad(Pwb) Pwb.Document.All.q.Value := "site:autohotkey.com tutorial" Pwb.Document.All.btnG.Click() IELoad(Pwb) |
This guide is a work in progress I will continue to add more material as soon as I get more time and after editing the work I have done so far.
Please keep posts on this page to either requests for explanations or pointing out errors I have made here.
Thanks for reading.
Other Resources:
For a more advanced tutorial on this subject please see jethrow's tutorial at: http://www.autohotkey.com/forum/viewtopic.php?t=51020&start=0&postdays=0&postorder=asc&highlight= This is what I first started out with.
Last edited by Mickers on Thu May 12, 2011 4:26 pm; edited 6 times in total
While PWB.readystate <> 4
sleep 50
sleep 50
I don't see any reason why using all three available detection methods shouldn't be encouraged:
| Code (Copy): |
Loop
Sleep, 50 Until (pwb.readyState=4 && pwb.document.readyState="complete" && !pwb.busy) |
