Post by gongnl » 20 Mar 2017, 07:57
我找了个类似例子:
Code: Select all
Gui Add, ActiveX, w500 h300 vwb, Shell.Explorer
wb.Navigate("http://ahkscript.org")
while wb.busy
sleep 100
doc := wb.document
ComObjConnect(doc, "Doc_")
Gui, Show
Return
GuiClose:
ExitApp
Doc_OnClick(doc) {
MsgBox, % doc.parentWindow.event.srcElement.OuterHtml
}
修改如下:
Code: Select all
#Persistent
wb := ComObjCreate("InternetExplorer.Application")
wb.Navigate("http://www.baidu.com")
while wb.busy
sleep 100
doc := wb.document
ComObjConnect(doc, "Doc_")
Return
Doc_OnClick(doc) {
MsgBox, % doc.parentWindow.event.srcElement.OuterHtml
}
ok
我找了个类似例子:
[code]Gui Add, ActiveX, w500 h300 vwb, Shell.Explorer
wb.Navigate("http://ahkscript.org")
while wb.busy
sleep 100
doc := wb.document
ComObjConnect(doc, "Doc_")
Gui, Show
Return
GuiClose:
ExitApp
Doc_OnClick(doc) {
MsgBox, % doc.parentWindow.event.srcElement.OuterHtml
}[/code]
修改如下:
[code]
#Persistent
wb := ComObjCreate("InternetExplorer.Application")
wb.Navigate("http://www.baidu.com")
while wb.busy
sleep 100
doc := wb.document
ComObjConnect(doc, "Doc_")
Return
Doc_OnClick(doc) {
MsgBox, % doc.parentWindow.event.srcElement.OuterHtml
}
[/code]
ok