Hallo Leute,
ich hab eine kleine InputBox also
$adresse = GUICtrlCreateInput("Dein-Text", 88, 2, 561, 21)
In dieser soll man aber eine Internet Adresse eingeben können und dann mit dem Button Suchen oder Los
die Seite abrufen können..
Ich habe es schon mit
Global $oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 2, 24, 793, 609)
_IENavigate ($oIE, $adresse)
versucht und noch etwas, weiß ich aber gerade nicht mehr...
$Input = InputBox("Website aufrufen", "Link")
If $Input <> "" Then ShellExecute($Input)
Guictrlread ist dein Freund. 
Die Seite soll in dem Programm selber eingebunden werde...
Also über
Global $oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 2, 24, 793, 609)
_IENavigate ($oIE, $Input)
einbinden und nicht mit einem Extra Browser das ganze öffnen...
Poste doch mal dein ganzes Skript!
[autoit]
$adresse = GUICtrlCreateInput("Dein-Text", 88, 2, 561, 21)
Global $oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 2, 24, 793, 609)
_IENavigate ($oIE, GUICtrlRead($adresse))
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Form1 = GUICreate("xxXXxx", 799, 651, 211, 123)
$adresse = GUICtrlCreateInput("Dein-Text", 88, 2, 561, 21)
Global $oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 2, 24, 793, 609)
_IENavigate ($oIE, GUICtrlRead($adresse))
$Label1 = GUICtrlCreateLabel("Adresse.:", 0, 0, 66, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x3399FF)
$Button1 = GUICtrlCreateButton("Suchen", 656, 0, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Hallo Zeero2q,
z.B. so:
; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$hInput = GUICtrlCreateInput("Hier URL eingeben: ",10,40,500)
$hGo = GUICtrlCreateButton("&Go",520,40,50)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 70, 600, 360)
;$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
;$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
;$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
;$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
GUISetState() ;Show GUI
[/autoit] [autoit][/autoit] [autoit]_IENavigate ($oIE, "http://www.autoitscript.com")
[/autoit] [autoit][/autoit] [autoit]; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $hGo
_IENavigate ($oIE, GUICtrlRead($hInput))
#cs
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, "http://www.autoitscript.com")
Case $msg = $GUI_Button_Back
_IEAction ($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction ($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction ($oIE, "stop")
#ce
EndSelect
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]mfg Auto)Bert
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Form1 = GUICreate("xxXXxx", 799, 651, 211, 123)
$adresse = GUICtrlCreateInput("Dein-Text", 88, 2, 561, 21)
Global $startseite = "www.google.de"
Global $oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 2, 24, 793, 609)
_IENavigate ($oIE,$startseite)
$Label1 = GUICtrlCreateLabel("Adresse.:", 0, 0, 66, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x3399FF)
$Button1 = GUICtrlCreateButton("Suchen", 656, 0, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
_IENavigate ($oIE, GUICtrlRead($adresse))
EndSwitch
WEnd
War ja fast richtig
Alles klar merci =)
kann ich auch die Fraims (Fenster) in eine art Automatische anpassung versetzen?
also wenn ich das GUI vergrößere das sich dann auch das ganze im inneren mit vergrößert?
Habe darüber nichts in der Hilfe gefunden..
Klar:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Form1 = GUICreate("xxXXxx", 799, 651, 211, 123, $WS_MAXIMIZEBOX )
$adresse = GUICtrlCreateInput("Dein-Text", 88, 2, 561, 21)
Global $startseite = "www.google.de"
Global $oIE = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE, 2, 24, 793, 609)
GUICtrlSetResizing (-1, $GUI_DOCKAUTO)
_IENavigate ($oIE,$startseite)
$Label1 = GUICtrlCreateLabel("Adresse.:", 0, 0, 66, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x3399FF)
$Button1 = GUICtrlCreateButton("Suchen", 656, 0, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
_IENavigate ($oIE, GUICtrlRead($adresse))
EndSwitch
WEnd
Cool... =)
Herzlichen Dank 
Hallo Zro2q,
ja so:
; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$hInput = GUICtrlCreateInput("Hier URL eingeben: ",10,40,500)
$hGo = GUICtrlCreateButton("&Go",520,40,50)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 70, 600, 560)
GUICtrlSetResizing($GUIActiveX,$GUI_DOCKAUTO) ;<======================
;$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
;$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
;$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
;$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
GUISetState() ;Show GUI
[/autoit] [autoit][/autoit] [autoit]_IENavigate ($oIE, "http://www.autoitscript.com")
[/autoit] [autoit][/autoit] [autoit]; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $hGo
_IENavigate ($oIE, GUICtrlRead($hInput))
#cs
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, "http://www.autoitscript.com")
Case $msg = $GUI_Button_Back
_IEAction ($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction ($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction ($oIE, "stop")
#ce
EndSelect
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]Edit zu langsam 
mfg (Auto)Bert
Wir sind zu schnell fürs Forum
