Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
Topmaster_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 15.09.2007
Beiträge: 32

Popups(Layer)wegklicken
Verfasst am: 18.07.2009, 16:35

Mein Problem ist etwas komisch und ich weiß auch nicht wirklich ob ihr mir dabei helfen könnt.
Ich Programmiere zurezit einen "Webproxy-Layer klicker".
Über ein Webbrowser element rufe ich die Seite auf vorher lösche ich immer die cockies und den cache und sezte einen neuen Proxy.
Nun über den Proxy lädt das Programm halt meine Seite und nach 3,5 sek kommt der Layer reingefolgen z.b von Layer ADS .de

Der Code des Buttons die man klicken kann sieht wiefolgt aus:

Code:

<div style="float: right;">
      <a href="#" onclick="bookmark(location.hash.split('|')[1],location.hash.split('|')[2]);return false;"><img src="http://layer-ads.de/img/layer/branding/inad/t2.png" alt="" onmouseover="this.src='http://layer-ads.de/img/layer/branding/inad/t2_o.png'" onmouseout="this.src='http://layer-ads.de/img/layer/branding/inad/t2.png'" border="0"></a>
      <a href="#" onclick="top.location.href=location.hash.split('|')[1];return false;"><img src="http://layer-ads.de/img/layer/branding/inad/t3.png" alt="" onmouseover="this.src='http://layer-ads.de/img/layer/branding/inad/t3_o.png'" onmouseout="this.src='http://layer-ads.de/img/layer/branding/inad/t3.png'" border="0"></a>
      <a href="#" onclick="top.close();"><img src="http://layer-ads.de/img/layer/branding/inad/t4.png" alt="" onmouseover="this.src='http://layer-ads.de/img/layer/branding/inad/t4_o.png'" onmouseout="this.src='http://layer-ads.de/img/layer/branding/inad/t4.png'" border="0">
<script type="text/javascript">
   document.write('<a style="color: #fff;text-decoration: none;" href="https://layer-ads.de/refer.php?id='+location.hash.split('|')[0].substr(1)+'" title="ID: '+location.hash.split('|')[0].substr(1)+'" target="_blank"><img src="http://layer-ads.de/img/layer/branding/inad/t0.png" alt="" border="0" /></a>');
</script></a>
</div>

Eigentlich brauche ich nur den Part:
Code:
<a href="#" onclick="top.close();"><img src="http://layer-ads.de/img/layer/branding/inad/t4.png" alt="" onmouseover="this.src='http://layer-ads.de/img/layer/branding/inad/t4_o.png'" onmouseout="this.src='http://layer-ads.de/img/layer/branding/inad/t4.png'" border="0"></a>


Eigentlich ganz simpel was jetzt folgt und zwar muss ich jetzt die Events also "onclick" betätigen
Aus sicherheits gründen habe ich auch noch alle anderen Events also "href" und "onmouseover" als event gesendet.

Das ganze sieht als Code wiefolgt aus wenns einen interessiert:

Code:
 Dim htmlaelement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        Dim htmlaelement1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
        Dim a As Integer = 0
        For Each c As HtmlElement In htmlaelement1
            If htmlaelement1.Count = 5 Then
                a = a + 1
                If a = 4 Then
                    c.RaiseEvent("onmouseover")
                ElseIf a = 3 Then
                End If
            ElseIf htmlaelement1.Count = 4 Then
                a = a + 1
                If a = 4 Then
                ElseIf a = 3 Then
                    c.RaiseEvent("onmouseover")
                End If
            End If
        Next
        a = 0
        For Each i As HtmlElement In htmlaelement
            If htmlaelement.Count = 5 Then
                a = a + 1
                If a = 4 Then
                    i.RaiseEvent("onclick")
                    i.RaiseEvent("href")
                ElseIf a = 3 Then

                End If
            ElseIf htmlaelement.Count = 4 Then
                a = a + 1
                If a = 4 Then

                ElseIf a = 3 Then
                    i.RaiseEvent("onclick")
                    i.RaiseEvent("href")
                End If
            End If


        Next
    End Sub


Darufhin freute ich mich natürlich der Layer wird weggeklick *Jehu*
Nun daraufhin wartete und wartete ich gespant bis ich endlich was in meiner Layerstatistik sah und?

Leider gar nicht's Sad

Leider finde ich mein Problem an dem code nicht, denn wenn ich den layer über die maus schließe funktioniert es ja immer und ich bekomme immer einen layerklick in meiner Statistik, aber nicht wenn ich es mit meinem Programm mache :=?

Nun an irgendeinem Punkt hakt es, aber ich weiß Leider nicht an welchen:(
Vielleicht hat sich ja einer aus dem Forum mit diesem Thema mal befasst und könnte mir einen Tipp ratschlag oder erklärung geben warum es nicht funktioniert.

Ich freue mich auf eure Antworten und hoffe dass ihr mir weiter helfen könnt, denn ansonsten kann ich das Projekt in die Tonne klopfen.

mfg. Topmaster
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: layer klicker, raiseevent, webbrowser, popups

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wichtig: Filebrowser z.B. für ein RAT 2206 13.01.2008, 12:14
Keine neuen Beiträge msgbox mit symbol _&_ z.B. yesno oder systemmodal 1156 27.09.2008, 00:16
Keine neuen Beiträge Abändern eines Ordnernamens (z.B. C:\Programme = Programme) 1294 23.04.2008, 16:33
Keine neuen Beiträge "Zurück-Funktion" mit Listview und z.B. DirView 823 17.04.2008, 14:30
Keine neuen Beiträge Fenster auslesen z.b von icq oder msn wer online kommt 1336 11.02.2008, 17:46
 


[ Time: 0.1280s ][ Queries: 80 (0.0662s) ][ GZIP on - Debug on ]