Browser mit TAB

Ilse

Hallo zusammen,

ich bin neu hier und habe mich gerade angemeldet.
Mit Sicherheit habe ich noch sehr viel zu lernen, aber vielleicht könnt ihr mir
bei meinem ersten Problem helfen.
Ich möchte einen Browser erstellen. Leider weiß ich nicht wie man die TAB und die Checkboxen ansprechen kann.

Hier mal die ersten Gehversuche

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

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

#include <IE.au3>
$ie = _IECreateEmbedded ()

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

#Region
$Form1 = GUICreate("Browser", 1371, 736, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 1345, 705)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj (32, 64, 1297, 633)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

;_IENavigate ($ie,"http://www.google.de")

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $btnStart
EndSwitch
WEnd

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

.
Mein Ziel sollte irgendwie so funktionieren
Ich möchte die Seiten per checkbox anklicken, per Start sollte dann im TAB-Internet die Seite angezeigt werden.
Per Msgbox fertig?, dann zur nächsten Seite.

Würde mich sehr über eure Hilfe freuen

Liebe Grüße
Ilse

Ilse

Hallo,

folgendes habe ich probiert:
Bei der Checkbox1 kann ich nun ein externes Browserfenster öffnen.

ABER: dieses Fenster sollte ja in dem TAB in meiner GUI erscheinen.

Hier nochmal der Code:

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

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

#include <IE.au3>
$oIE = _IECreate()

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

$ie = _IECreateEmbedded ()

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

#Region
$Form1 = GUICreate("Browser", 1371, 736, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 1345, 705)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj (32, 64, 1297, 633)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $btnStart
if GUICtrlRead($Checkbox1) = $Gui_Checked Then _IENavigate($oIE, "http://www.google.com")
EndSwitch
WEnd

[/autoit]

Grüße Ilse

m-obi

Hallo,

und erstmal willkommen im Forum.

Versuch mal so:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

$oIE = _IECreateEmbedded ()
$Form1 = GUICreate("Browser", 1371, 736, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 1345, 705)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj($oIE, 32, 64, 1297, 633)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE, "http://www.google.com")
EndSwitch
WEnd

[/autoit]

Ilse

Hallo m-obi,

danke für die nette Begrüßung.
Ich habe gerade dein Beispiel probiert, aber da passiert leider nichts!
Die GUI wird nicht aufgerufen! (F5)

Dein Code:

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

$oIE = _IECreateEmbedded ()
$Form1 = GUICreate("Browser", 1371, 736, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 1345, 705)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj($oIE, 32, 64, 1297, 633)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE, "http://www.google.com")
EndSwitch
WEnd

[/autoit]

Kannst du bitte nochmal drüberschauen?

Grüße Ilse

m-obi

Ah sorry hatte GUISetState vergessen. Das kommt davon wenn mans nicht testet :P.

Hier nun richtig:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

$oIE = _IECreateEmbedded ()
$Form1 = GUICreate("Browser", 1371, 736, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 1345, 705)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj($oIE, 32, 64, 1297, 633)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE, "http://www.google.com")
EndSwitch
WEnd

[/autoit]

Ilse

Hallo m-obi,

super, es funktioniert.
Darf ich noch 2 Dinge fragen:

In der Hilfe habe ich nach focus gesucht, aber nichts gefunden.

Frage 1.
Wie kann ich den TAB1 per focus ansprechen.
Also nach dem Startbutton, den Focus auf Internet setzen?

Ich möchte den AU3Recorder anschließend benutzen.
Wenn ich diesen aber starte und etwas aufnehme erhalte ich immer eine Fehlermeldung

[autoit]

: ERROR: syntax error (illegal character)
"
^

[/autoit]

2. Weißt du was man da machen kann?

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

$oIE = _IECreateEmbedded ()

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

$Form1 = GUICreate("Browser", 1371, 736, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 1345, 705)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj($oIE, 32, 64, 1297, 633)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE, "http://www.google.com")

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

EndSwitch
WEnd

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

Danke dir!!!!

Grüße Ilse

m-obi

Hab mal statt Checkboxen, Radios genommen, ist sinnvoller. Also nicht wundern.

Zu 1.:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

Global $aRadio[3]
Global $aSites[3] = ["http://www.google.de", "http://www.ebay.de", "http://www.amazon.de"]

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

$oIE = _IECreateEmbedded ()
$Form1 = GUICreate("Browser", 1371, 736, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 1345, 705)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj($oIE, 32, 64, 1297, 633)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$aRadio[0] = GUICtrlCreateRadio("Google", 56, 72, 97, 17)
$aRadio[1] = GUICtrlCreateRadio("Ebay", 56, 104, 97, 17)
$aRadio[2] = GUICtrlCreateRadio("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
For $i = 0 To UBound($aRadio) - 1
If BitAnd(GUICtrlRead($aRadio[$i]),$GUI_CHECKED) Then _IENavigate($oIE, $aSites[$i])
Next
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndSwitch
WEnd

[/autoit]

Zu 2.:
Mit dem Recorder hab ich noch nicht gearbeitet, weiß es also nicht. Was willst du denn machen?

gabischatz

so

au3

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Global $google="http://www.google.de"
Global $amazon
Global $ebay

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

$oIE = _IECreateEmbedded ()
$Form1 = GUICreate("Browser", 1003, 700, 110, 9)
$Tab1 = GUICtrlCreateTab(8, 8, 987, 684)
$TabSheet1 = GUICtrlCreateTabItem("Internet")
$browser = GUICtrlCreateObj($oIE, 32, 64, 947, 600)
$TabSheet2 = GUICtrlCreateTabItem("Seiten")
$Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
$btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
GUICtrlCreateTabItem("")
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE,$google )
WinSetTitle("Browser","",$google)
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndSwitch
WEnd

[/autoit]

m-obi

@gabischatz: Was macht dein jetzt anders, außer das der Titel der GUI geändert wird?

Ilse

Hallo m-obi,
und auch merci Gabischatz!

ich erklär mal kurz wohin ich möchte.
Im Tab 2 möchte ich meine Seiten eintragen und zwar die
bei denen man sich einloggen muß:

und dafür brauche ich die Kontrollkästchen:
z.B.
1. EbayLogin
2. Amazon-Login...
3. Mail...

Habe ich z.B. diese angeklickt, dann startet TAB1 mit dem ebay-Anmeldefenster
füllt alles aus und ich werde anschließend gefragt ob es nun zu Amazon gehen soll.
Dann startet Amazon und füllt alles aus....u.s.w.

Mit dem Script Recorder kann man Mausaktionen...aufnehmen
aber mein Au3Record.exe funkioniert nicht!
Ich mache soweit alles richtig, der rote Button leuchtet, er nimmt also auf
aber die Aktionen werden nicht festgehalten.
Das Fenster ist leer.

Habe das mal rausgesucht:

[autoit]

http://www.autoitscript.com/autoit3/scite/docs/AU3record.htm

[/autoit]

Grüße Ilse