Focus setzen

[alisd]

Hi,

ich habe ein kleines Script geschrieben was mir per Knopfdruck "www.google.de" öffnet, 2-4 Sek. wartet und dann einen Suchbegriff eingibt. Recht einfache Übung für den Anfang wie ich finde.

Das ganze funtioniert über die "Sendkeys funktion".

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdS1.Click

        Process.Start("www.google.de")
        ' Prozess starten - aufruf von www.google.de im Standardwebbrowser
        System.Threading.Thread.Sleep("2000")
        ' Timer der den Prozess für 2000 Milliesekunden (2 Sekunden) anhällt.
        SendKeys.Send("Suchbegriff")
        ' Begriff wird eingegeben
        System.Threading.Thread.Sleep("1000")
        ' Timer der den Prozess für 1000 Milliesekunden (1 Sekunde) anhällt.
        SendKeys.Send("{Enter}")
        ' Taste "ENTER" wird digital betätigt

    End Sub

für die die es nachmachen wollen einfach n Button erstellen und code einfügen

Jedenfalls möchte ich nun mein wissen erweitern indem ich ein Programm schreibe welches z.B. auf www.ebay.de geht (was ja nun kein Problem mehr darstellt), und dort nach einem Begriff sucht z.B. Uhren oder ähnliches, den "suchbegriff" markiert und den Link der dahinter startet/öffnet.

Mein bisheriger Code schreibt das ja in das Suchfeld, das will ich aber nicht mehr sondern explezit den begriff/Link auf der Seite soll mein Programm suchen und öffnen.

Hoffe das war etwas verständlich

Danke schonmal für die Antworten

Gruß LSD

[O. Helper]

Hallo alisd,

warum einfach, wenn es auch umstaendlich geht.
Zunaechst einmal, SendKeys ist boese und der Meinung ist auch MS; ab Windows 2003 / Vista funktioniert es nicht mehr.

Du kannst es aber alles wesentlich besser und zuverlaessiger loesen.
Setz mal einen Verweis auf "Microsoft HTML Object Library", leg an Formular an und setz darauf mal das "Microsoft WebBrowser Control".
Mit dem folgenden Code kannst Du dann navigieren; wie die einzelnen Links/Anchors heissen, musst Du selbst raus tueffteln.
[highlight=vb]Option Explicit

Private Sub CommandButton1_Click()
Dim oWeb As WebBrowser
Dim oHtml As HTMLDocument
Dim oAnchor As HTMLAnchorElement

Set oWeb = Me.WebBrowser1

oWeb.navigate ("http://www.ebay.de/")
Do While oWeb.readyState = READYSTATE_LOADING
DoEvents
Loop

Set oHtml = oWeb.Document

Set oAnchor = oHtml.anchors.Item("registerLink")
oAnchor.Click

End Sub[/highlight]