Hey, ist es möglich, einen Internet Browser mit Autoit zu erstellen ?
Ohne die IE.au3 oder FF.au3 ?
Ohne die IE.au3 oder FF.au3 ?
Func Example()
Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
Local $GUI_Button_Home, $GUI_Button_Stop, $msg
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("<-", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("->", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, 420, 100, 30)
GUISetState() ;Show GUI
$oIE.navigate("<a href='http://www.elitepvpers.com/forum/members/5003104-myrti.html' class='bbc_url' title=''>http://www.elitepvpers.com/forum/members/5003104-myrti.html"</a>)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
$oIE.navigate("<a href='http://www.elitepvpers.com/forum/members/5003104-myrti.html' class='bbc_url' title=''>http://www.elitepvpers.com/forum/members/5003104-myrti.html"</a>)
Case $msg = $GUI_Button_Back
$oIE.GoBack
Case $msg = $GUI_Button_Forward
$oIE.GoForward
Case $msg = $GUI_Button_Stop
$oIE.Stop
EndSelect
WEnd
GUIDelete()
EndFunc
|
|
So etwas ist immer völliger Schrott. Wenn man schon IE verwendet, dann doch bitte das Original. Ich will hier nichts untergraben, aber einen eigenen Browser, so wie sich hier das einige vorstellen, schreibt hier keiner. Hier werden lediglich vorhandene Browser eingebunden, nicht mehr, nicht weniger. Wer in der Lage ist, einen true eigenen Browser zu schreiben, kommt nicht mit AutoIT an. Wenn ihr aber trotzdem so einen 50 Zeilen Browser haben wollt, schaut hier auf elitepvpers in den Mini-Release Thread, da sind 100 Kids die ihren """eigenen Browser""" (ja ich hau gleich 3x " raus) released haben. #uselessQuote:
[/url]Code:Func Example() Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward Local $GUI_Button_Home, $GUI_Button_Stop, $msg $oIE = ObjCreate("Shell.Explorer.2") GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN)) $GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360) $GUI_Button_Back = GUICtrlCreateButton("<-", 10, 420, 100, 30) $GUI_Button_Forward = GUICtrlCreateButton("->", 120, 420, 100, 30) $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30) $GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, 420, 100, 30) GUISetState() ;Show GUI $oIE.navigate("<a href='http://www.elitepvpers.com/forum/members/5003104-myrti.html' class='bbc_url' title=''>http://www.elitepvpers.com/forum/members/5003104-myrti.html"</a>) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home $oIE.navigate("<a href='http://www.elitepvpers.com/forum/members/5003104-myrti.html' class='bbc_url' title=''>http://www.elitepvpers.com/forum/members/5003104-myrti.html"</a>) Case $msg = $GUI_Button_Back $oIE.GoBack Case $msg = $GUI_Button_Forward $oIE.GoForward Case $msg = $GUI_Button_Stop $oIE.Stop EndSelect WEnd GUIDelete() EndFunc