run iexplorer with an url
Code: Select all
RunProgram("iexplore.exe", "http://www.bbc.com/","")
Delay(3000)
Code: Select all
vbs = ~""
vbs + ~"Dim w, winTitle, IE" + #LF$
vbs + ~"winTitle = \"BBC - Homepage - Internet Explorer\"" + #LF$
vbs + ~" For each w in createobject(\"shell.application\").windows" + #LF$
vbs + ~" If instr(1, typename(w.document),\"htmldocument\", vbTextCompare) > 0 then" + #LF$
vbs + ~" If instr(1, w.document.title, sWinTitle, vbTextCompare) = 1 then " + #LF$
vbs + ~" set IE = w" + #LF$
vbs + ~" End If" + #LF$
vbs + ~" End If" + #LF$
vbs + ~" Next" + #LF$
Code: Select all
;-TOP
; Comment : Modul ActiveScript Example 4
; Link to ActiveScript : https://www.purebasic.fr/english/viewtopic.php?f=12&t=71399
; Link to SmartTags : https://www.purebasic.fr/english/viewtopic.php?f=12&t=71399#p527089
; Link to VariantHelper : https://www.purebasic.fr/english/viewtopic.php?f=12&t=71399#p527090
; ***************************************************************************************
XIncludeFile "Modul_ActiveScript.pbi"
;XIncludeFile "Modul_SmartTags.pb"
;XIncludeFile "VariantHelper.pb"
UseModule ActiveScript
;UseModule ActiveSmartTags
; -------------------------------------------------------------------------------------
Global vbs.s, result.s
; Variable als Rumtime definieren zum Zugriff aus VB-Script
Runtime result
RunProgram("iexplore.exe", "http://www.bbc.com/","")
Delay(3000)
; Daten anlegen
; VB-Script schreiben
vbs = ~""
vbs + ~"Dim w, winTitle, IE" + #LF$
vbs + ~"winTitle = \"BBC - Homepage - Internet Explorer\"" + #LF$
vbs + ~" For each w in createobject(\"shell.application\").windows" + #LF$
vbs + ~" If instr(1, typename(w.document),\"htmldocument\", vbTextCompare) > 0 then" + #LF$
vbs + ~" If instr(1, w.document.title, sWinTitle, vbTextCompare) = 1 then " + #LF$
vbs + ~" set IE = w" + #LF$
vbs + ~" End If" + #LF$
vbs + ~" End If" + #LF$
vbs + ~" Next" + #LF$
;vbs + ~"Set IE = CreateObject(\"InternetExplorer.Application\")" + #LF$
vbs + ~"IE.Navigate \"www.purebasic.com\"" + #LF$
vbs + ~"IE.Visible = True 'or hide" + #LF$
vbs + ~"Do While IE.busy = True" + #LF$
vbs + ~" Runtime.Sleep 5000" + #LF$
vbs + ~"Loop" + #LF$
vbs + ~"Runtime.String(\"result\") = IE.document.documentElement.outerHTML" + #LF$
;vbs + ~"IE.Quit" + #LF$
If NewActiveScript()
Debug "************************************************************"
Debug vbs
Debug "************************************************************"
ParseScriptText(vbs)
FreeActiveScript()
Debug "************************************************************"
Debug result
EndIf