Shell.Explorer - Url

MehmeX

Hallo leute,

ich bekomme es einfach nicht hin. Ich möchte, wenn ich innerhalb einer Webseite rumschaue bzw. rumklicke, dass er mir auch jedes mal den "URL"-Link von der Aktuellen Position, in eine Input schreibt. Es funktioniert zwar, aber wird erst dann in die "Input" geschrieben wenn ich darauf klicke. Ich habe mal kurz ein Beispiel geschrieben um es sich besser vorstellen zu können.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

$oIE = ObjCreate("Shell.Explorer.2")

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Embedded Web control Test", 640, 500)
$GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Zurück", 10, 10, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Vor", 120, 10, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 10, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stoppen", 330, 10, 100, 30)
$url = GUICtrlCreateInput("", 10, 450, 500, 20)

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

$oIE.navigate("http://www.autoit.de")

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_Button_Home
$oIE.navigate("http://www.autoit.de")
Case $GUI_Button_Back
$oIE.GoBack
Case $GUI_Button_Forward
$oIE.GoForward
Case $GUI_Button_Stop
$oIE.Stop
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _WM_COMMAND($GUIActiveX)
$url_link = _IEPropertyGet ($oIE, "locationurl")
GUICtrlSetData($url, $url_link)
EndFunc

[/autoit]

Ich hoffe es kann mir einer helfen. Danke.

DeepRed92

Hi MehmeX,

das sollte dir weiterhelfen :

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

[/autoit] [autoit][/autoit] [autoit]

$oIE = ObjCreate("Shell.Explorer.2")

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Embedded Web control Test", 640, 500)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Zurück", 10, 10, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Vor", 120, 10, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 10, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stoppen", 330, 10, 100, 30)
$url = GUICtrlCreateInput("", 10, 450, 500, 20)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

$oIE.navigate("http://www.autoit.de")

[/autoit] [autoit][/autoit] [autoit]

$Init = TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_Button_Home
$oIE.navigate("http://www.autoit.de")
Case $GUI_Button_Back
$oIE.GoBack
Case $GUI_Button_Forward
$oIE.GoForward
Case $GUI_Button_Stop
$oIE.Stop
EndSwitch
If TimerDiff($Init) > 100 Then
GUICtrlSetData($url, $oIE.LocationURL)
$Init = TimerInit()
EndIf
WEnd

[/autoit]

MehmeX

SUPER, danke!!! Genau das habe ich gesucht.

MehmeX

Ich hätte da noch einen Einwand. Und zwar flackert es im Input bei längeren URL's. Gibt es da vielleicht eine andere Methode?

DeepRed92

Ja. So:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

[/autoit] [autoit][/autoit] [autoit]

$oIE = ObjCreate("Shell.Explorer.2")

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Embedded Web control Test", 640, 500)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Zurück", 10, 10, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Vor", 120, 10, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 10, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stoppen", 330, 10, 100, 30)
$url = GUICtrlCreateInput("", 10, 450, 500, 20)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

$oIE.navigate("http://www.autoit.de")

[/autoit] [autoit][/autoit] [autoit]

$Init = TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_Button_Home
$oIE.navigate("http://www.autoit.de")
Case $GUI_Button_Back
$oIE.GoBack
Case $GUI_Button_Forward
$oIE.GoForward
Case $GUI_Button_Stop
$oIE.Stop
EndSwitch
If TimerDiff($Init) > 100 Then
$Location = $oIE.LocationURL
If GUICtrlRead($url) <> $Location Then
GUICtrlSetData($url, $Location)
EndIf
$Init = TimerInit()
EndIf
WEnd

[/autoit]

MehmeX

Danke.

MehmeX

Ich habe noch einen Fehler gefunden und zwar kann ich ja nichts mehr in das Inputfeld reinschreiben, denn er schreibt städig die URL-Adresse selber rein.

Edit: Hätte da auch noch ne 2. Frage nebenbei: Wenn ich den Pfad als C:\ habe, wie kann ich da die Ansicht ändern (Kachel, Symbol, Liste etc.)?

Danke.

DeepRed92

Hi MehmeX,

Zu deiner 1. Frage hier:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $old

[/autoit] [autoit][/autoit] [autoit]

$oIE = ObjCreate("Shell.Explorer.2")

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Embedded Web control Test", 640, 500)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Zurück", 10, 10, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Vor", 120, 10, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 10, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stoppen", 330, 10, 100, 30)
$url = GUICtrlCreateInput("", 10, 450, 500, 20)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

$oIE.navigate("http://www.autoit.de")

[/autoit] [autoit][/autoit] [autoit]

$Init = TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_Button_Home
$oIE.navigate("http://www.autoit.de")
Case $GUI_Button_Back
$oIE.GoBack
Case $GUI_Button_Forward
$oIE.GoForward
Case $GUI_Button_Stop
$oIE.Stop
Case $url
$oIE.navigate(GUICtrlRead($url))
EndSwitch
If TimerDiff($Init) > 100 Then
$Location = $oIE.LocationURL
If $Location <> $old Then
GUICtrlSetData($url, $Location)
$old = $Location
EndIf
$Init = TimerInit()
EndIf
WEnd

[/autoit]

Die 2. kann ich dir jetzt nicht beantworten

Edit: Vielleicht ist hier für dich was drin:

Spoiler anzeigen

Code

Name             	MemberType Definition
----             	---------- ----------
ClientToWindow   	Method 	void ClientToWindow (int, int)
ExecWB           	Method 	void ExecWB (OLECMDID, OLECMDEXECOPT, Variant, Variant)
GetProperty      	Method 	Variant GetProperty (string)
GoBack           	Method 	void GoBack ()
GoForward        	Method 	void GoForward ()
GoHome           	Method 	void GoHome ()
GoSearch         	Method 	void GoSearch ()
Navigate         	Method 	void Navigate (string, Variant, Variant, Variant, Variant)
Navigate2        	Method 	void Navigate2 (Variant, Variant, Variant, Variant, Variant)
PutProperty      	Method 	void PutProperty (string, Variant)
QueryStatusWB    	Method 	OLECMDF QueryStatusWB (OLECMDID)
Quit             	Method 	void Quit ()
Refresh          	Method 	void Refresh ()
Refresh2         	Method 	void Refresh2 (Variant)
ShowBrowserBar   	Method 	void ShowBrowserBar (Variant, Variant, Variant)
Stop             	Method 	void Stop ()
AddressBar       	Property   bool AddressBar () {get} {set}
Application      	Property   IDispatch Application () {get}
Busy             	Property   bool Busy () {get}
Container        	Property   IDispatch Container () {get}
Document         	Property   IDispatch Document () {get}
FullName         	Property   string FullName () {get}
FullScreen       	Property   bool FullScreen () {get} {set}
Height           	Property   int Height () {get} {set}
HWND             	Property   int HWND () {get}
Left             	Property   int Left () {get} {set}
LocationName     	Property   string LocationName () {get}
LocationURL      	Property   string LocationURL () {get}
MenuBar          	Property   bool MenuBar () {get} {set}
Name             	Property   string Name () {get}
Offline          	Property   bool Offline () {get} {set}
Parent           	Property   IDispatch Parent () {get}
Path             	Property   string Path () {get}
ReadyState       	Property   tagREADYSTATE ReadyState () {get}
RegisterAsBrowser	Property   bool RegisterAsBrowser () {get} {set}
RegisterAsDropTarget Property   bool RegisterAsDropTarget () {get} {set}
Resizable        	Property   bool Resizable () {get} {set}
Silent           	Property   bool Silent () {get} {set}
StatusBar        	Property   bool StatusBar () {get} {set}
StatusText       	Property   string StatusText () {get} {set}
TheaterMode      	Property   bool TheaterMode () {get} {set}
ToolBar          	Property   int ToolBar () {get} {set}
Top              	Property   int Top () {get} {set}
TopLevelContainer	Property   bool TopLevelContainer () {get}
Type             	Property   string Type () {get}
Visible          	Property   bool Visible () {get} {set}
Width            	Property   int Width () {get} {set}

Alles anzeigen