Hi
Ich hab mir meinen eigenen webbrowser gemacht aber jetzt will ich das die aktuelle seite in einem inputfeld angezeigt wird.
Geht das überhaupt und wenn ja wie?
Vom webbrowser immer die aktuelle seite in einem inputfeld anzeigen
-
- [ offen ]
-
93lucas -
14. März 2010 um 16:21 -
Geschlossen -
Erledigt
-
-
Der Soruce code wäre nicht schlecht.
-
Hallo 93lucas,
sollte gehen, hast du es mit IE.au3 oder ff.au3 gemacht. Source wäre auch nicht schlecht,
Edit: Beim IE kannst du es mit
[autoit]GuiCtrlSetData($hId_InputI,$oIE.LocationURL)
[/autoit]lösen
mfg (Auto)Bert -
Hier
Spoiler anzeigen
[autoit]_IEErrorHandlerRegister ()
[/autoit]
If FileExists ("webbrowser.dll") = 0 Then
$favorit1 = ("favorit1")
$favorit2 = ("favorit2")
$favorit3 = ("favorit3")
$favorit4 = ("favorit4")
$favorit5 = ("favorit5")
$favorit6 = ("favorit6")
$favorit7 = ("favorit7")
ElseIf FileExists ("webbrowser.dll") = 1 Then
$favorit1 = IniRead("webbrowser.dll", "favoriten", "favorit1",@ScriptDir)
$favorit2 = IniRead("webbrowser.dll", "favoriten", "favorit2",@ScriptDir)
$favorit3 = IniRead("webbrowser.dll", "favoriten", "favorit3",@ScriptDir)
$favorit4 = IniRead("webbrowser.dll", "favoriten", "favorit4",@ScriptDir)
$favorit5 = IniRead("webbrowser.dll", "favoriten", "favorit5",@ScriptDir)
$favorit6 = IniRead("webbrowser.dll", "favoriten", "favorit6",@ScriptDir)
$favorit7 = IniRead("webbrowser.dll", "favoriten", "favorit7",@ScriptDir)
EndIf
$internet = _IECreateEmbedded ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WebBrowser by 93lucas",$erste,$zweite,0,0)
$objekt = GUICtrlCreateObj ($internet,8,64,1265,665)
$Input1 = GUICtrlCreateInput("www.google.de", 232, 8, 529, 21)
$Button1 = GUICtrlCreateButton("Suchen", 768, 8, 145, 25, 0)
$Button2 = GUICtrlCreateButton($favorit1, 0, 32, 177, 25, 0)
$Button3 = GUICtrlCreateButton($favorit2, 184, 32, 177, 25, 0)
$Button4 = GUICtrlCreateButton($favorit3, 368, 32, 177, 25, 0)
$Button5 = GUICtrlCreateButton($favorit4, 552, 32, 177, 25, 0)
$Button6 = GUICtrlCreateButton($favorit5, 736, 32, 177, 25, 0)
$Button7 = GUICtrlCreateButton($favorit6, 920, 32, 177, 25, 0)
$Button8 = GUICtrlCreateButton($favorit7, 1104, 32, 169, 25, 0)
$Button9 = GUICtrlCreateButton("Zurück", 8, 0, 97, 33, 0)
$Button10 = GUICtrlCreateButton("Vor", 120, 0, 97, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate ($internet, "www.google.de")
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_IENavigate ($internet,GUICtrlRead($Input1))
Case $Button2
If $favorit1 = ("favorit1") Then
$favorit1 = InputBox ("Favorit1","Bitte gebe Hier den link zu Favorit1 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit1)
Case $Button3
If $favorit2 = ("favorit2") Then
$favorit2 = InputBox ("Favorit2","Bitte gebe Hier den link zu Favorit2 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit2)
Case $Button4
If $favorit3 = ("favorit3") Then
$favorit3 = InputBox ("Favorit3","Bitte gebe Hier den link zu Favorit3 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit3)
Case $Button5
If $favorit4 = ("favorit4") Then
$favorit4 = InputBox ("Favorit4","Bitte gebe Hier den link zu Favorit4 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit4)
Case $Button6
If $favorit5 = ("favorit5") Then
$favorit5 = InputBox ("Favorit5","Bitte gebe Hier den link zu Favorit5 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit5)
Case $Button7
If $favorit6 = ("favorit6") Then
$favorit6 = InputBox ("Favorit6","Bitte gebe Hier den link zu Favorit6 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit6)
Case $Button8
If $favorit7 = ("favorit7") Then
$favorit7 = InputBox ("Favorit7","Bitte gebe Hier den link zu Favorit7 ein")
GUICtrlSetData ($favorit1,$favorit1)
EndIf
_IENavigate ($internet,$favorit7)
Case $Button9
_IEAction ($internet,"back")
Case $Button10
_IEAction ($internet,"forward")
EndSwitch
IniWrite("webbrowser.dll","favoriten","favorit1",$favorit1)
IniWrite("webbrowser.dll","favoriten","favorit2",$favorit2)
IniWrite("webbrowser.dll","favoriten","favorit3",$favorit3)
IniWrite("webbrowser.dll","favoriten","favorit4",$favorit4)
IniWrite("webbrowser.dll","favoriten","favorit5",$favorit5)
IniWrite("webbrowser.dll","favoriten","favorit6",$favorit6)
IniWrite("webbrowser.dll","favoriten","favorit7",$favorit7)
HotKeySet ("{F5}","erneuern")
GuiCtrlSetData($Input1,$internet.LocationURL)
WEnd
Func erneuern()
_IEAction ($internet,"refresh")
EndFunc
Ja geht thx -
Hier für FF
[autoit]_FFStart("www.google.de") ;und mehr
[/autoit]
$e = _FFCmd( ".title")
$title=$e & " - Mozilla Firefox"
msgbox(0,"Titel",$title)mfg Ubuntu