per API String in aktives Fester übergeben

[Christopher]

Hallo Leute ich starte per LS den IE und will dan per API einen String in das Suchfeld übergeben leider funktioniert das nicht ich vermutte ich muss das fester vorher aktiv machen. Weiß jemand von Euch wie ich das hin bekomme?

Mein Code sieht wie folgt aus:

   Dim doc As notesdocument
   Dim w As New notesuiworkspace   
   Dim url As String
   url = "http://www.google.de"         
   w.urlopen(url)
   
   Call SendAString( "here is my section title" )    

Ich nutze VkKeyScan MapVirtualKey keybd_event als API.

[ata]

... du kannst die URL als Parameter beim Starten es IE mit übergeben

ata

[ata]

sorry - hier ein Beispielcode:

Code

Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim vValue As VAriant
Dim sQuery As String
Dim res As Long
Set docThis = ws.CurrentDocument.Document
vValue = docThis.GetItemValue( "Key") 
If vValue(0) = "" Then
    sQuery = Inputbox( "Geben Sie bitte einen Begriff ein" , "Google-Suche" , "" )
Else
   sQuery = vValue(0)
End If
res = Shell( "C:\Programme\Internet Explorer\IEXPLORE.EXE http://www.google.de/search?q=" + sQuery)

damit lese ich ein Feld aus. Sollte das Feld leer gewesen sein wird nach einer Eingabe gefragt. Diese Eingabe wird als Suchbegriff an Google weitergegeben. Es öffnet sich Google im IE und der Suchbegriff ist bereits eingegeben - falls du das eben gemeint hattest...

ata :-))

[Christopher]

Hallo Ata, leider geht das nicht die Webseite für die Suche mit einem Script aus als Endung steht da ".tcl" keine Ahung was genau das ist habe auch schom im Internet gesucht es wäre die beste Lösung wenn man die Parameter mit der URL übergeben könnte scheint aber nicht zu gehen :-(

[ata]

Hallo Christopher,

so ganz ohne Punkt, Komma und Absatzumbruch liest sich deine Mail sehr schwer.
Kannst du nochmals genauer schildern, was dein Problem ist?

Danke

Toni