Autoit Forum Browser

fr13ndly

C

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:         fr13ndly
 Script Version 0.0.1

#ce ----------------------------------------------------------------------------




#cs ----------------------------------------------------------------------------
contains all files that are needed
#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ie.au3>


#cs ----------------------------------------------------------------------------
Gui elements
#ce ----------------------------------------------------------------------------


$ie1 = _iecreateembedded ()
$ie2 = _iecreateembedded ()
$ie3 = _iecreateembedded ()
$ie4 = _iecreateembedded ()
$ie5 = _iecreateembedded ()
$ie6 = _iecreateembedded ()
$ie7 = _iecreateembedded ()


#Region ### START Koda GUI section ### Form=c:\program files (x86)\koda 1.7\forms\autoitforum.kxf
$Autoit_Forum = GUICreate("Autoit_Forum", 907, 719, 534, 144)
$Group1 = GUICtrlCreateGroup("Reload_Site", 0, 0, 905, 41)
$Button1 = GUICtrlCreateButton("Dashboard", 0, 16, 75, 25)
$Button2 = GUICtrlCreateButton("Mitglieder", 80, 16, 75, 25)
$Button3 = GUICtrlCreateButton("Forenregeln", 160, 16, 75, 25)
$Button4 = GUICtrlCreateButton("Forum", 240, 16, 75, 25)
$Button5 = GUICtrlCreateButton("Benachrichtigungen", 320, 16, 107, 25)
$Button6 = GUICtrlCreateButton("Konversationen", 432, 16, 83, 25)
$Button7 = GUICtrlCreateButton("Suche", 520, 16, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Reload_all", 0, 40, 905, 41)
$Progress1 = GUICtrlCreateProgress(8, 56, 806, 17)
$Button8 = GUICtrlCreateButton("Reload all", 824, 56, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Forum", 0, 80, 905, 633, -1, $WS_EX_TRANSPARENT) ;group box
$Tab1 = GUICtrlCreateTab(8, 96, 889, 609)
$TabSheet1 = GUICtrlCreateTabItem("Dashboard") ;tab
$browser1 = guictrlcreateobj($ie1 , 16, 128, 868, 564) ;browser Window
$TabSheet2 = GUICtrlCreateTabItem("Mitglieder")
$browser2 = guictrlcreateobj($ie2 , 16, 128, 868, 564)
$TabSheet3 = GUICtrlCreateTabItem("Forenregeln")
$browser3 = guictrlcreateobj($ie3 , 16, 128, 868, 564)
$TabSheet4 = GUICtrlCreateTabItem("Forum")
$browser4 = guictrlcreateobj($ie4 , 16, 128, 868, 564)
$TabSheet5 = GUICtrlCreateTabItem("Benachrichtigungen")
$browser5 = guictrlcreateobj($ie5 , 16, 128, 868, 564)
$TabSheet6 = GUICtrlCreateTabItem("Konversationen")
$browser6 = guictrlcreateobj($ie6 , 16, 128, 868, 564)
$TabSheet7 = GUICtrlCreateTabItem("Suche")
GUICtrlSetState(-1,$GUI_SHOW)
$browser7 = guictrlcreateobj($ie7 , 16, 128, 868, 564)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         case $button1 ;button
            _ienavigate($ie1,"https://autoit.de/wcf/") ;link to site
         case $button2
            _ienavigate($ie2,"https://autoit.de/wcf/index.php?members-list/")
         case $button3
            _ienavigate($ie3,"https://autoit.de/wcf/index.php?forenregeln/")
         case $button4
            _ienavigate($ie4,"https://autoit.de/index.php?board-list/")
         case $button5
            _ienavigate($ie5,"https://autoit.de/wcf/index.php?notification-list/")
         case $button6
            _ienavigate($ie6,"https://autoit.de/wcf/index.php?conversation-list/")
         case $button7
            _ienavigate($ie7,"https://autoit.de/wcf/index.php?search/&types%5B%5D=com.woltlab.wbb.post")
         case $button8
            call("rlall") ;reload all sites
    EndSwitch
 WEnd

func rlall() ;reload function
 $p1 = GUICtrlCreateProgress(8, 56, 806, 17)
_ienavigate($ie1,"https://autoit.de/wcf/")
GUICtrlSetData($p1, 10)
_ienavigate($ie2,"https://autoit.de/wcf/index.php?members-list/")
GUICtrlSetData($p1, 32)
_ienavigate($ie3,"https://autoit.de/wcf/index.php?forenregeln/")
GUICtrlSetData($p1, 45)
_ienavigate($ie4,"https://autoit.de/index.php?board-list/")
GUICtrlSetData($p1, 67)
_ienavigate($ie5,"https://autoit.de/wcf/index.php?notification-list/")
GUICtrlSetData($p1, 78)
_ienavigate($ie6,"https://autoit.de/wcf/index.php?conversation-list/")
GUICtrlSetData($p1, 87)
_ienavigate($ie7,"https://autoit.de/wcf/index.php?search/&types%5B%5D=com.woltlab.wbb.post")
GUICtrlSetData($p1, 0)
EndFunc

Alles anzeigen

autoit(64).zip autoit(86).zip sourcecode.zip autoit.zip

Candyland

Oke?

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Hmm,

erst mal Danke für die Mühe. Habe auf die schnelle mal die x86 exe ausprobiert. Da springt mich erst mal ein IE an der die Seite nicht öffnen kann.

Bin gerade in einem Projekt gefangen, wenig Zeit...

Aber ich bin IE Hasser und habe den auch seit Jahren nicht uppgedatet. Muss es IE sein? Ev Msg box beim ersten Start nach den möglichen Brosern fragen -- Entscheidung in einer ini merken?

Danke

Gruß

Peter

**alpines**

Zitat von Peter S. Taler

Ev Msg box beim ersten Start nach den möglichen Brosern fragen

Das ist ein embedded IE und keine eigenständige Fensterinstanz. Chrome und Firefox bieten so ein Interface nicht zum einbinden.

Zumindest nicht so einfach wie beim IE, für Chrome gibt es für C# z.B. cefsharp.

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Ok - danke war mir nicht klar... Also nur was für IE Fans - schade.... Anyway wer IE nicht mag muss mit solchen Rückschlägen leben

Danke

Peter

gmmg

Man kann das aber auch bei z.B. Firefox mit den Command Line Options machen

Gruß gmmg

**alpines**

Zitat von gmmg

Man kann das aber auch bei z.B. Firefox mit den Command Line Options machen

Das man mit dem CLI von Firefox eine embedded Instanz erstellen kann wäre mir neu. Welche URL der FF laden soll (beim Start) ist kein Problem aber das embedded das ganze ja nicht.

gmmg

Man kann das Firefox Fenster aber als Child GUI einbetten. Folgend ein Beispiel, welches auch im englischen Forum zu finden ist.

C

#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Local $iPID = Run('"C:\Program Files (x86)\Mozilla Firefox\firefox.exe" -new-window "http://www.autoit.de"',"",@SW_HIDE)

Sleep(2000)

$hGUIMain = GUICreate("Parent", 800, 600)
GUISetState(@SW_SHOW, $hGUIMain)

Opt("WinTitleMatchMode", 2)

$hGUITool = WinGetHandle("Mozilla Firefox")
If $hGUITool = 0 Then
    MsgBox(0,"","Run firefox first!")
    Exit
EndIf

$Toolbarfenster = WinGetPos($hGUITool)
GUISetStyle(BitOR($WS_CHILD, $WS_BORDER), 0, $hGUITool) ; den Style ändern
_WinAPI_SetParent($hGUITool, $hGUIMain) ; einbetten
WinMove($hGUITool, "", 0, 0, 800, 600) ; an 0,0 des Hauptfensters schieben
_WinAPI_RedrawWindow($hGUITool) ; neu zeichenen
_WinAPI_RedrawWindow($hGUIMain) ; neu zeichenen

While 1
    $avMsg = GUIGetMsg(1)
    Switch $avMsg[1]
        Case $hGUIMain
            Switch $avMsg[0]
                Case -3
                    Exit
            EndSwitch
    EndSwitch
WEnd

Alles anzeigen

Gruß gmmg

**alpines**

Zitat von gmmg

Man kann das Firefox Fenster aber als Child GUI einbetten. Folgend ein Beispiel, welches auch im englischen Forum zu finden ist.

Das ist mir schon klar, allerdings hast du keine Möglichkeit das Firefox Objekt zu bedienen (bis auf ControlClicks und MouseClicks).

Der embedded IE erlaubt dir fast alles mit dem Webbrowser über die COM-Schnittstelle.

gmmg

Hallo alpines,

das stimmt natürlich. Das ist dann alles bisschen gefrickel

Gruß gmmg