Hallo
ich möchte einen browser proggen nur hab ich jetzt das problem das ich nicht den lik auslesen kann
also aus dem embedded.
ICh möchte den Link auslesen und in meine Addressbar reinkopieren also das die Addressbar immer aktuell ist.
Hat da jemand eine idee??
Link aus IE objekt auslesen
-
- [ gelöst ]
-
jiyan006 -
12. Oktober 2008 um 13:32 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Zeig mal deinen bisherigen Code - meine Kristallkugel schweigt gerade
-
das ist jemanden der gerne seinen eigenen browsre für gäste wollte (bestimmt wegen den favoriten haha^^)
ich wollteihm das grundgerüst in autoit machen nur hat esmich mitgerissen also hier der code (viele komentare)Spoiler anzeigen
[autoit];## copyright by jiyan006 ¦ [email='jiyan006@msn.com'][/email] ¦ J-IT / J-Soft ##;
[/autoit] [autoit][/autoit] [autoit]#include <GuiConstants.au3> ;Das Include für die GUI Variablen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3> ; Noch ein Include für mehr Gui Variablen
#include <IE.au3> ;Das Include für die IE Funktionen$oIE = _IECreateEmbedded() ;Das ist das IE objekt also du brauch keinen eigenen script füt die ganzen html und java scripts
[/autoit] [autoit][/autoit] [autoit]
;Es wird so zusagen ein IE BRowser im GUI erstellt das du designt hast (GUI = Gaphikal User Interface
$Gui = GUICreate("My Browser",600,600,(@DesktopWidth - 469) / 2, (@DesktopHeight - 639) / 2 ,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) ; Das Fenster
; Du kannst es deinen Wünchen nach anpassen
$Back = GUICtrlCreateButton("Zurück",10,5,60,20) ; Der Zurück Button
$For = GUICtrlCreateButton("Vor",80,5,60,20) ; Der Vor Button$Link = GUICtrlCreateInput("http://www.google.de",160,5,300,20) ; Das Input für den Link
[/autoit] [autoit][/autoit] [autoit]
$go = GUICtrlCreateButton("GO!",480,5,50,20) ; Der Los Button für den Link$Obj = GUICtrlCreateObj($oIE,0,30,600,570) ; Da kommt dann Das IE objekt rein
[/autoit] [autoit][/autoit] [autoit]
GuiCtrlSetResizing($obj,$GUI_DOCKAUTO) ; Damit das Objekt auch mit dem Fenster wächst und schrumpftGUISetState() ; Diese Funktion sorgt dafür das unser Fenster mit seinen Funktionen auch angezeigt wird
[/autoit] [autoit][/autoit] [autoit]_IENavigate($oIE,"http://ww.google.de") ; Die erste Seite zu die IE navigieren sol bzw. die Startseite
[/autoit] [autoit][/autoit] [autoit];;;;Weitere Funktionen wie Favorieten und Suche und Satartseite usw. mach ich späte noch rein und Design auch;;;;; nur steht das dann unter meinem copyright ;P
[/autoit] [autoit][/autoit] [autoit];## Jetzt kommen die Funktionen ##;
[/autoit] [autoit][/autoit] [autoit]While 1 ; While steht dafür das jede millisekunde überfrüft wird ob eine der Buttons betätigt wurde
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Switch GUIGetMsg() ; Check ob etwas betätigt wurde
[/autoit] [autoit][/autoit] [autoit]
case $Back ; Das passiert wenn der Backbutton betätigt wird
_IEAction($oIE,"back") ; IE navigiert zurückcase $For ; Das passiert wenn der For Button betätigt wird
[/autoit] [autoit][/autoit] [autoit]
_IEAction($oIE,"forward") ; IE navigiert forcase $go ; Das passiert wenn der GO! Button betätigt wird
[/autoit] [autoit][/autoit] [autoit]
_IENavigate($oIE,guictrlread($Link)) ; IE naaviegiert zu dem Link der aus dem Input asgelesen wurdecase $GUI_EVENT_CLOSE ; Das passiert wenn der ExitButton geklickt wird
[/autoit] [autoit][/autoit] [autoit]
ExitLoop ; Die Anwendung wird geschlossenEndSwitch ; Hier geht die kontrolle zuende so das sie wieder von neu anfängt
[/autoit] [autoit][/autoit] [autoit]WEnd ; Hier geht die überfrüfung zuende so das sie wieder von neu anfängt
[/autoit] [autoit][/autoit] [autoit];## Script Ende ##;
[/autoit] -
[autoit]
Opt("GUIOnEventMode",1)
[/autoit][autoit][/autoit][autoit]
#include <ie.au3>GUICreate("",400,400)
[/autoit][autoit][/autoit][autoit]
GUISetOnEvent(-3,"_EXIT")$oIE = _IECreateEmbedded()
[/autoit][autoit][/autoit][autoit]
GUICtrlCreateObj($oIE,0,0,400,350)
GUICtrlSetOnEvent(GUICtrlCreateButton("Zeige URL",0,350,400,50),"_TEST")
$oIE.navigate("www.autoitscript.com")
GUISetState(@SW_SHOW)
While 1
Sleep(1000)
WEndFunc _EXIT()
[/autoit][autoit][/autoit][autoit]
Exit
EndFuncFunc _TEST()
[/autoit]
MsgBox(0,"",$oIE.LocationURL)
EndFunc
EDIT: Etwas ausführlicher gemacht -
THX
hat mi sehr geholfen