Hallo!
Miit obigen Code sollen Seiten geladen werden. Es treten jedoch ein paar Merkwürdigkeiten auf.
Lade ich nur Internetseiten funktioniert alles. Lade ich aber zusätzlich eine lokale Seite funktioniert nur das Laden, das Aktivieren des IE sowie "Sleep" und "SendKeys" funktionieren dann nicht. Lade ich die lokale Seite alleine funktioniert war das Aktivieren des IE, aber "Sleep" und "SendKeys" greifen nicht. Gibt es eine Erklärung für dieses Verhalten?
"SendKeys" funktioniert auch nur wenn ich das "x" zeitversetzt sende, sonst kommt "SendKeys" nur bis zum "Space" und verschluckt das "x".
Grüßle, René
Visual Basic-Quellcode
- IEAddress = Array("http://www.rholtz-office.de","https://www.vb-paradise.de")
- Set IEApp = CreateObject("InternetExplorer.Application")
- With IEApp
- .visible = True
- .Navigate IEAddress(0)
- For lngSiteCount = 1 to UBound(IEAddress)
- .Navigate IEAddress(lngSiteCount), CLng(4096)
- Next
- End With
- Set wmi = GetObject("winmgmts:")
- Set system = wmi.instancesOf("win32_process")
- For Each process In system
- If lcase(process.name)="iexplore.exe" Then
- Set WshShell = CreateObject("WScript.Shell")
- With WshShell
- .AppActivate "Internet Explorer"
- End with
- WScript.Sleep(2000)
- With WshShell
- .SendKeys "% "
- End With
- WScript.Sleep(500)
- With WshShell
- .SendKeys "x"
- End With
- Exit For
- End If
- Next
- Set IEApp = Nothing
Miit obigen Code sollen Seiten geladen werden. Es treten jedoch ein paar Merkwürdigkeiten auf.
Lade ich nur Internetseiten funktioniert alles. Lade ich aber zusätzlich eine lokale Seite funktioniert nur das Laden, das Aktivieren des IE sowie "Sleep" und "SendKeys" funktionieren dann nicht. Lade ich die lokale Seite alleine funktioniert war das Aktivieren des IE, aber "Sleep" und "SendKeys" greifen nicht. Gibt es eine Erklärung für dieses Verhalten?
"SendKeys" funktioniert auch nur wenn ich das "x" zeitversetzt sende, sonst kommt "SendKeys" nur bis zum "Space" und verschluckt das "x".
Grüßle, René