Olen tekemässä ohjelmaa joka mm. tunnistaa Internet Explorerin avonaiset ikkunat mitkä käyttäjä on avannut.
Tämä alla oleva koodi on ajastimessa joka "vakoilee" koska käyttäjä avaa uuden Internet Explorerin ikkunan.
Kuten huomaatte se on nimettykin nerokkaasti "tmrSpying" :)
Dim IE As InternetExplorer
Dim WIN As New ShellWindows
Public WithEvents Browser As InternetExplorer
Private Sub tmrSpying_Timer()
For Each IE In WIN
Set Browser = IE
Next
Set WIN = Nothing
End Sub
Sitten tämä seuraava koodi tunnistaa ennen kuin käyttäjä menee uudelle sivulle että mikä on tämän hetkisen sivuston osoite ja näin ollen ilmoittaa siitä hänelle (ei ohjelmani oikeasti tälläistä ilmoitusta anna, mutta havainnollistan vain nyt sen toimintaperiaatetta).
Private Sub Browser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
MsgBox Browser.LocationURL
End Sub
Tässä koodissa ei ole mitään vikaa, se toimii kun unelma kunnes käyttäjä avaa jonkin linkin jo avonaisesta Internet Explorerin ikkunasta uuteen ikkunaan tai siis yksinkertaisesti avaa kaksi Internet Explorerin ikkunaa päälekkäin niin tämä koodi ei toimi enää muuta kuin siinä ikkunassa minkä käyttäjä on avannut ensimmäisenä.
For Each IE In WIN
Set Browser = IE
Next
Se laittaa muistiin kyllä jokaisen avonaisen IE:n ikkunan, mutta ei pysty kutsumaan tuolla Browser_BeforeNavigate2 tapahtumalla muita avonaisia ikkunoita kuin sitä ensimmäistä auki olevaa ikkunaa ja jos käyttäjä sulkee sen, niin koko ohjelmani ei toimi enää.
Eli kysymykseni nyt kuuluukin kuinka saan tuon Browser tapahtuman toimimaan KAIKISSA avonaisissa Internet Explorerin ikkunoissa vaikka käyttäjä availisi uusia ikkunoita, sulkisi vanhoja tai tekisi mitä vaan?
Koodissani tarvitsee olla pakollisesti tuo Browser_BeforeNavigate2 tapahtuma tai muuten se ei toimi.
Internet Explorerin ikkunat
minähänse
0
144
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104504859Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa151732Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves941478Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä531359Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.231337Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos531228Oho! Maajussi-Kallelta pakit saanut morsioehdokas Miss Suomi -kisoissa! Tunnistaisitko hänet nyt?
Hmm, tunnistaisitko?!? Onnea missihulinoihin! Lue lisää ja katso kuvat: https://www.suomi24.fi/viihde/oho-maajussi-01075Myönnän sinulle nyt
Että olen erittäin mustasukkainen sinusta jo nyt. Ikävä on tämä tunne, kun tietämättömyyden solista nousee myrkkyä miele541010Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.57895Olen käyttäytynyt ristiriitaisesti
eikä minusta varmaankaan ota mitään selvää. Se johtuu siitä, kun järki sanoo ei, ei, ei ja sydän sanoo kyllä, kyllä, kyl61879