Beiträge von autoBert

**autoBert**

Zitat

Das war nur ein Tipp, dass es mit WinList() nicht gehen kann

warum nicht WinList gibt alle Fenster zurück

[autoit]

#include <array.au3>

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

$var = WinList()
_ArrayDisplay($var)

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

For $i = 1 to $var[0][0]
; Listet nur die einen Titel haben und sichtbar bzw. minimiert sind
If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
MsgBox(0, "Details", "Titel=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
EndIf
Next

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

Func IsVisible($handle)
If BitAnd( WinGetState($handle), 18 ) Then
Return 1
Else
Return 0
EndIf

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

EndFunc

[/autoit]

man muss nur den Status auswerten.

Du solltest aber deine Skripte unbedingt im Forum posten, notfalls als Datei anhängen.

mfg (Auto)Bert

**autoBert**

Hallo Zero2q,

du musst diese Zeile:

[autoit]

$Sections = IniReadSection("Stream.urls", "Sender")

[/autoit]

auf dein neues Ini-Format anpassen also jetzt so:

[autoit]

$Sections = IniReadSection("Stream.urls", "Playlist - Streams")

[/autoit]

dann funktioniert dein Ursprungsskript.

Edit: diese Zeile auch noch anpassen (schon neu)

[autoit]

$sSender = IniRead("Stream.urls", "Playlist - Streams", GUICtrlRead($RadioBox), "")

[/autoit]

Ergänzung: wenn du deine Ini so aufbaust, klappte es auch mit der automatischen Wiedergabe:

Code

[Playlist - Streams]
HYMN  -  BARCLAY JAMES HARVEST=http://www.youtube.com/watch?v=X9aZLXBxOK8
Child of Universe - Barclay James Harvest=http://www.youtube.com/watch?v=oc55U1S49Ws
Poor man's moody blues - Barclay James Harvest=http://www.youtube.com/watch?v=aYdrEx82q5s
[Playlist - Time]
HYMN  -  BARCLAY JAMES HARVEST=285
Child of Universe - Barclay James Harvest=390
Poor man's moody blues - Barclay James Harvest=412

dazu das Skript:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Include <GuiComboBox.au3>

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

Global $sSender

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

$Form1 = GUICreate("Video Stream Player by Michi2q", 306, 421, 193, 139)
$RadioBox = GUICtrlCreateCombo("", 15, 130, 270, 15, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUISetBkColor(0xABABAB)
$Group1 = GUICtrlCreateGroup("Player", 8, 8, 289, 89)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0DCC0)
$play = GUICtrlCreateButton("Abspielen", 16, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$stop = GUICtrlCreateButton("Stopp", 96, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$lauter = GUICtrlCreateButton("Lauter", 16, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$low = GUICtrlCreateButton("Leiser", 96, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Mute = GUICtrlCreateButton("Ton aus", 176, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Button6 = GUICtrlCreateButton("Links eintragen", 176, 32, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Playliste", 8, 104, 289, 305)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0DCC0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

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

;GUICtrlSetState(-1, $GUI_DISABLE)
; INET BEFEHLE
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, -30, -30, 0, 0)

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

; Inet Load
If Not FileExists("Stream.urls") Then
MsgBox(16, "Radio-Streamer", "Die URL Liste Existiert Nicht!")
GUICtrlSetState($play, $GUI_DISABLE)
GUICtrlSetState($RadioBox, $GUI_DISABLE)
Else
$Liste = ""
$Sections = IniReadSection("Stream.urls", "Playlist - Streams")
For $i = 1 To $Sections[0][0]
$Liste &= $Sections[$i][0] & "|"
Next
$Liste &= "---" ;Ende der Liste
GUICtrlSetData($RadioBox, $Liste)

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

EndIf

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Mute
Send("{VOLUME_MUTE}")
Case $low
Send("{VOLUME_DOWN}")
Case $lauter
Send("{VOLUME_UP}")

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

; Musik Abspielen

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

Case $play
If Not GUICtrlRead($RadioBox) = "" Then
$iLast = _GUICtrlComboBox_GetCount($RadioBox)
While $iLast > _GUICtrlComboBox_GetCurSel($RadioBox)+1
$sSender = IniRead("Stream.urls", "Playlist - Streams", GUICtrlRead($RadioBox), "")
$iTime = IniRead("Stream.urls", "Playlist - Time", GUICtrlRead($RadioBox), "")
GUICtrlSetState($play, $GUI_DISABLE)
GUICtrlSetState($stop, $GUI_ENABLE)
GUICtrlSetState($RadioBox, $GUI_DISABLE)
;#cs
_IENavigate($oIE, $sSender,1)
$iStart = TimerInit()
Do
Sleep(1000)
$iDiff = TimerDiff($iStart)
Until $iDiff > $iTime
;#ce
;Sleep(500)
;ConsoleWrite($sSender & @CRLF)
_GUICtrlComboBox_SetCurSel($RadioBox, _GUICtrlComboBox_GetCurSel($RadioBox)+1)
WEnd
EndIf
Case $stop
_IENavigate($oIE, "about:blank")
GUICtrlSetState($play, $GUI_ENABLE)
GUICtrlSetState($stop, $GUI_DISABLE)
GUICtrlSetState($RadioBox, $GUI_ENABLE)

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

EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo volle,

ich habe dein Skript noch einmal an 2 3 Stellen abgeändert, damit man es leichter über die Tastatur bedienen kann:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Taschenrechner create by volle", 154, 254, 303, 187)
$Button1 = GUICtrlCreateButton("7", 16, 96, 25, 25)
$Button4 = GUICtrlCreateButton("3", 80, 160, 25, 25)
$Button5 = GUICtrlCreateButton("5", 48, 128, 25, 25)
$Button6 = GUICtrlCreateButton("*", 112, 96, 25, 25)
$Button7 = GUICtrlCreateButton("=", 80, 192, 25, 25, $BS_DEFPUSHBUTTON) ;<========= Man kann auch Enter-Taste anstelle = nehmen
$Button9 = GUICtrlCreateButton("+", 112, 192, 25, 25)
$Button11 = GUICtrlCreateButton("AC", 16, 56, 25, 25)
$Button12 = GUICtrlCreateButton("2", 48, 160, 25, 25)
$Button13 = GUICtrlCreateButton("6", 80, 128, 25, 25)
$Button15 = GUICtrlCreateButton("4", 16, 128, 25, 25)
$Button17 = GUICtrlCreateButton("1", 16, 160, 25, 25)
$Button18 = GUICtrlCreateButton("-", 112, 160, 25, 25)
$Button19 = GUICtrlCreateButton("/", 112, 128, 25, 25)
$Button20 = GUICtrlCreateButton("8", 48, 96, 25, 25)
$Button21 = GUICtrlCreateButton("9", 80, 96, 25, 25)
$Button22 = GUICtrlCreateButton(".", 48, 192, 25, 25)
$Button24 = GUICtrlCreateButton("0", 16, 192, 25, 25)
$Input1 = GUICtrlCreateInput("", 8, 16, 137, 21)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "7")
Case $Button4
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "3")
Case $Button5
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "5")
Case $Button6
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "*")
Case $Button7
GUICtrlSetData($Input1, Execute(StringReplace(GUICtrlRead($Input1),",","."))) ;<========= Komma wird Punkt
Case $Button9
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "+")
Case $Button11;;;
GUICtrlSetData($Input1, "")
Case $Button12
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "2")
Case $Button13
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "6")
Case $Button15
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "4")
Case $Button17
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "1")
Case $Button18
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "-")
Case $Button19
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "/")
Case $Button20
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "8")
Case $Button21
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "9")
Case $Button22
GUICtrlSetData($Input1, GUICtrlRead($Input1) & ".")
Case $Button24
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "0")
EndSwitch
ControlFocus($Form1, '', $Input1); ;<=========== damit das Input immer den Focus hat
WEnd

[/autoit]

Die Änderungen sind im Skript gekennzeichnet und kommentiert,

P(r)ost 2000
mfg (Auto)Bert

**autoBert**

Hallo volle,

für Leute welche die Zahlen lieber mit der Tastatur eingeben als mit der Maus zu klicken solltest du Zeile 40 so abändern:

[autoit]

GUICtrlSetData($Input1, Execute(StringReplace(GUICtrlRead($Input1),",",".")));;;

[/autoit]

mfg (Auto)Bert

**autoBert**

Zitat von Pennywise

Ist zwar eine Idee - aber sieht natürlich weniger professionell aus und wirkt dann auch nicht mehr so richtig!
Gibt es da keine Möglichkeit? ... sonst programmier ichs notfalls in Java oder C++.

Mit Hilfe von LV_Format.au3 von BugFix und dem ausgeblendeten Header solltest du eine profesionell aussehende Lösung hinbekommen.
Zum editieren der LV schau dir ListView - Editieren aller SubItems an

mfg (Auto)Bert

**autoBert**

Hallo Zero2q,

Zitat von Zero2q

Nur mein prob ist jetzt das die Links nicht nacheinander abgespielt werden sondern nur das wo momentan makiert ist...
Es gibt doch bestimmt eine möglichkeit es so zu machen oder?

ich kenne keine Möglichkeit, wie man feststellen kann, ob ein Lied zu Ende gespielt ist. Wenn du eine findest würde es so funktionieren:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Include <GuiComboBox.au3>

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

Global $sSender

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

$Form1 = GUICreate("Video Stream Player by Michi2q", 306, 421, 193, 139)
$RadioBox = GUICtrlCreateCombo("", 15, 130, 270, 15, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUISetBkColor(0xABABAB)
$Group1 = GUICtrlCreateGroup("Player", 8, 8, 289, 89)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0DCC0)
$play = GUICtrlCreateButton("Abspielen", 16, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$stop = GUICtrlCreateButton("Stopp", 96, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$lauter = GUICtrlCreateButton("Lauter", 16, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$low = GUICtrlCreateButton("Leiser", 96, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Mute = GUICtrlCreateButton("Ton aus", 176, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Button6 = GUICtrlCreateButton("Links eintragen", 176, 32, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Playliste", 8, 104, 289, 305)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0DCC0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

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

;GUICtrlSetState(-1, $GUI_DISABLE)
; INET BEFEHLE
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, -30, -30, 0, 0)

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

; Inet Load
If Not FileExists("Stream.urls") Then
MsgBox(16, "Radio-Streamer", "Die URL Liste Existiert Nicht!")
GUICtrlSetState($play, $GUI_DISABLE)
GUICtrlSetState($RadioBox, $GUI_DISABLE)
Else
$Liste = ""
$Sections = IniReadSection("Stream.urls", "Sender")
For $i = 1 To $Sections[0][0]
$Liste &= $Sections[$i][0] & "|"
Next
GUICtrlSetData($RadioBox, $Liste)

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

EndIf

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Mute
Send("{VOLUME_MUTE}")
Case $low
Send("{VOLUME_DOWN}")
Case $lauter
Send("{VOLUME_UP}")

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

; Musik Abspielen

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

Case $play
If Not GUICtrlRead($RadioBox) = "" Then
Do
$sOld = $sSender
$sSender = IniRead("Stream.urls", "Sender", GUICtrlRead($RadioBox), "")
GUICtrlSetState($play, $GUI_DISABLE)
GUICtrlSetState($stop, $GUI_ENABLE)
GUICtrlSetState($RadioBox, $GUI_DISABLE)
;_IENavigate($oIE, $sSender)
ConsoleWrite($sSender & @CRLF)
Sleep(500)
_GUICtrlComboBox_SetCurSel($RadioBox, _GUICtrlComboBox_GetCurSel($RadioBox)+1)
Until $sOld = $sSender
EndIf
Case $stop
_IENavigate($oIE, "about:blank")
GUICtrlSetState($play, $GUI_ENABLE)
GUICtrlSetState($stop, $GUI_DISABLE)
GUICtrlSetState($RadioBox, $GUI_ENABLE)

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

EndSwitch
WEnd

[/autoit]

Zitat

was jetzt auch noch ist bei der neuen Version von AutoIt funktioniert dieser nicht mehr..

klappt bei mir wunderbar. Aufbau der INI

Code

[Sender]
1=http://www.youtube.com/watch?v=X9aZLXBxOK8
2=http://www.youtube.com/watch?v=oc55U1S49Ws
3=http://www.youtube.com/watch?v=aYdrEx82q5s
4=http://www.youtube.com/watch?v=t0kZsAUn51M
5=http://www.youtube.com/view_play_list?p=92F07153E7D85095&playnext=1&playnext_from=PL&v=gIMe4T2QIvA

mfg (Auto)Bert

**autoBert**

Hallo Gugi,

Auto-Update Funktion via Internet solltest du dir auch anschauen,

mfg (Auto)Bert

**autoBert**

Hallo StormRider,

ich habe das Skript noch einmal mit abgeändert:

Spoiler anzeigen

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <StructureConstants.au3>
;#include <GUIScrollBars.au3>
#include <GUIScroll.au3>

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

;#include <Date.au3>

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

Global $sIni = @ScriptDir & "\Gui.ini"
Global $iEdits = IniRead($sIni, "Edits", "Count", 1)
Global $hEdit[$iEdits], $iTop = -60
$hGui = GUICreate("Gui", 330, 500, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_VSCROLL, $WS_BORDER, $WS_CLIPSIBLINGS))
$hAdd = GUICtrlCreateButton("Hinzufügen", 30, 20, 100, 25)
For $i = 0 To $iEdits - 1
_newEdit($i)
_loadEdit($i)
Next
;_GUIScrollBars_Init($hGui)

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

GUISetState()

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

Scrollbar_Create($hGui, $SB_VERT, 60 +$iEdits*110)
Scrollbar_Step(20, $hGui, $SB_VERT)

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
For $i = 0 to $iEdits -1
_SaveEdit($i)
Next
Exit
Case $hAdd
ReDim $hEdit[UBound($hEdit) + 1]
_newEdit($iEdits)
$iEdits += 1
IniWrite($sIni, "Edits", "Count", $iEdits)
_GUIScrollBars_SetScrollRange($hGui, $SB_VERT, 0,60 +$iEdits*110)
EndSwitch
WEnd

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

Func _newEdit($iEditNr)
ConsoleWrite($iEditNr & @CRLF)
$iTop += 110
$hEdit[$iEditNr] = GUICtrlCreateEdit("", 20, $iTop, 260, 100, BitOR($WS_VSCROLL, $ES_WANTRETURN))
EndFunc ;==>_newEdit

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

Func _loadEdit($iEditNr)
Local $hFile = FileOpen("Edit" & $iEditNr & ".txt",0)
GUICtrlSetData($hEdit[$iEditNr],FileRead($hFile))
FileClose($hFile)
EndFunc

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

Func _SaveEdit($iEditNr)
Local $hFile = FileOpen("Edit" & $iEditNr & ".txt",2)
FileWrite($hFile,GUICtrlRead($hEdit[$iEditNr]))
FileClose($hFile)
EndFunc

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

Zitat von StormRider

danke an euch!!! ihr seid echt klasse!!!

klasse fände ich es wenn du alle Threads dieses Thema betreffend auf gelöst setzt,

Edit: GuiScroll.au3 angehängt
mfg (Auto)Bert

**autoBert**

Hallo AntiSpeed,

ich habe das Skript jetzt auch auf WinMove getestet, es klappt:

Spoiler anzeigen

[autoit]

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

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

$IE = _IECreateEmbedded()

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

Global $html

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

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\scite\koda\forms\webbrowser.kxf
$Form1 = GUICreate("Webbrowser", 10, 50, 0, 0, BitOR($WS_SIZEBOX, $WS_SYSMENU, $WS_MAXIMIZEBOX,$WS_MINIMIZEBOX))
$Menu_Datei = GUICtrlCreateMenu("&Datei")
$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
$Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
$GUI_url = GUICtrlCreateInput("http://:autoit.de", 72, 8, 801, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
$Label1 = GUICtrlCreateLabel("Adresse:", 8, 8, 67, 24)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_go = GUICtrlCreateButton("Go!", 880, 8, 65, 25, $WS_GROUP)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
$GUI_home = GUICtrlCreateButton("HOME", 1072, 8, 89, 25, $WS_GROUP)
$browser = GUICtrlCreateObj($IE, 2, 40, 1020, 435)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($IE, "http://www.autoit.de")
WinMove($Form1,"",0,0,1024,550)

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

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

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

Case $Menu_beenden
Exit
Case $GUI_go
$html = GUICtrlRead($GUI_url)
;~ MsgBox(0,"",$html);funzt doch...
_IENavigate($IE, $html)
EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo StormRider,

meine Lösung sieht so aus:

Spoiler anzeigen

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
;#include <Date.au3>

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

Global $sIni = @ScriptDir & "\Gui.ini"
Global $iEdits = IniRead($sIni, "Edits", "Count", 1)
Global $hEdit[$iEdits], $iTop = -60
$hGui = GUICreate("Gui", 300, 500, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_VSCROLL, $WS_BORDER, $WS_CLIPSIBLINGS))
$hAdd = GUICtrlCreateButton("Hinzufügen", 30, 20, 100, 25)
For $i = 0 To $iEdits - 1
_newEdit($i)
_loadEdit($i)
Next
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
_GUIScrollBars_Init($hGui)
GUISetState()

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

;Scrollbar_Create($hGui, $SB_VERT, 10000)
;Scrollbar_Step(20, $hGui, $SB_VERT)

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
For $i = 0 to $iEdits -1
_SaveEdit($i)
Next
Exit
Case $hAdd
ReDim $hEdit[UBound($hEdit) + 1]
_newEdit($iEdits)
$iEdits += 1
IniWrite($sIni, "Edits", "Count", $iEdits)
EndSwitch
WEnd

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

Func _newEdit($iEditNr)
ConsoleWrite($iEditNr & @CRLF)
$iTop += 110
$hEdit[$iEditNr] = GUICtrlCreateEdit("", 20, $iTop, 260, 100, BitOR($WS_VSCROLL, $ES_WANTRETURN))
EndFunc ;==>_newEdit

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

Func _loadEdit($iEditNr)
Local $hFile = FileOpen("Edit" & $iEditNr & ".txt",0)
GUICtrlSetData($hEdit[$iEditNr],FileRead($hFile))
FileClose($hFile)
EndFunc

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

Func _SaveEdit($iEditNr)
Local $hFile = FileOpen("Edit" & $iEditNr & ".txt",2)
FileWrite($hFile,GUICtrlRead($hEdit[$iEditNr]))
FileClose($hFile)
EndFunc

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

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $yChar, $yPos
Local $Min, $Max, $Page, $Pos, $TrackPos

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

For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$yChar = $aSB_WindowInfo[$index][2]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0

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

; Ermittelt alle Informationen der vertikalen Scrollbar
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
; Speichert die y-Position für einen späteren Vergleich
$Pos = $yPos

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

; Auswertung der vom System gemeldeten Scroll-Nachricht
Switch $nScrollCode
Case $SB_TOP ; Der Anwender klickte auf die "Pos1"-Taste
DllStructSetData($tSCROLLINFO, "nPos", $Min)

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

Case $SB_BOTTOM ; Der Anwender klickte auf die "Ende"-Taste
DllStructSetData($tSCROLLINFO, "nPos", $Max)

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

Case $SB_LINEUP ; Der Anwender klickte auf den oberen Pfeil
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

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

Case $SB_LINEDOWN ; Der Anwender klickte auf den unteren Pfeil
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

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

Case $SB_PAGEUP ; Der Anwender klickte oberhalb des Scrollbalkens
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

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

Case $SB_PAGEDOWN ; Der Anwender klickte unterhalb des Scrollbalkens
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

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

Case $SB_THUMBTRACK ; Der Anwender zog den Scrollbalken
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch

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

;~ // Setzt die neue Position und ermittelt sie danach erneut.
;~ // Abhängig von den Windows-Einstellungen kann es sein, dass die gelesenen Werte nicht die gleichen sind, wie die vorher gesetzten.

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

DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
; // Falls sich die y-Position der Scrollbar geändert hat, den Fensterbereich verschieben und aktualisieren
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $yPos) Then
_GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
$yPos = $Pos
EndIf

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

Return $GUI_RUNDEFMSG

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

EndFunc ;==>WM_VSCROLL

[/autoit]

Edit: Skript korrigiert (FileOpen)

mfg (Auto)Bert

**autoBert**

Hallo AntiSpeed,

hast du das Beispiel getestet Der embedded IE vergrößert sich analog zur GUI und würde auch mit

[autoit]

WinMove

[/autoit]

fnktionieren,

mfg (Auto)Bert

**autoBert**

Zitat von bogomir

Ich bin ein Stück weiter gekommen,
Nach Eintrag in der Registry unter:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion
neuer Schlüssel: ProgramFilesDir mit Wert: c:\Programme

Nun funktioniert unter BartPE auch MsgBox(0,"",@ProgramFilesDir)
und es erscheint die Messagebox c:\Programme
Aber leider kann ich immer noch nicht den IE über das Autoit starten.
Achso, ich habe natürlich unter c:\Programme\ den IE korrekt von einer WinXP Installation.
Was verhindert den Start von dem Webbrowser?
Danke schon mal für die Hilfe.

Alles anzeigen

Zitat von bogomir

unter BartPE sieht es bei mir so aus und funktioniert: Run("x:\minint\iexplore.exe https://autoit.de/www.web.de")

müsste der Wert für ProgramFilesDir dann nicht x:\minint heissen

mfg (Auto)Bert

**autoBert**

name22,

du hast natürlich recht, daher Beitrag gelöscht

mfg (Auto)Bert

**autoBert**

Zitat von bogomir

Es kann ja sein das "ProgramFilesDir" nicht richtig gefunden wird bei BartPE?

Das kannst du doch ganz einfach prüfen:

[autoit]

MsgBox(0,"",@ProgramFilesDir)

[/autoit]

du kannst dich ja auch mit

[autoit]

_IEAttach

[/autoit]

mit einer bestehenden Instanz des IE verbinden,

mfg (Auto)Bert

**autoBert**

Hallo Buddha,

poste doch die Seite um die es geht, dann wird es einfacher

mfg (Auto)Bert

**autoBert**

Hallo

mach es z.B. so:

[autoit]

Switch @GUI_CtrlId
case $buttonsArray[0]
MsgBox(0,"Button 1","wurde geklickt")
case $buttonsArray[1]
MsgBox(0,"Button 2","wurde geklickt")
EndSwitch

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo pete_gzome,

du kannst doch den Buttons direkt nach der Erstellung mit

[autoit]

GUICtrlSetOnEvent(-1, '_ButtonClick')

[/autoit]

allen die selbe func zuweisen. In der func wertest du dann mit Hilfe von @GUI_CtrlId welcher Button gedrückt wurde (falls unterschiedliche Aktionen notwendig sind) und reagierst entsprechend darauf,

mfg (Auto)Bert

**autoBert**

Hallo Antispeed,

suchst du so etwas:

Spoiler anzeigen

[autoit]

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

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

$IE = _IECreateEmbedded()

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

Global $html

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

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\scite\koda\forms\webbrowser.kxf
$Form1 = GUICreate("Webbrowser", 1024, 550, 0, 0, BitOR($WS_SIZEBOX, $WS_SYSMENU, $WS_MAXIMIZEBOX,$WS_MINIMIZEBOX))
$Menu_Datei = GUICtrlCreateMenu("&Datei")
$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
$Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
$GUI_url = GUICtrlCreateInput("http://:autoit.de", 72, 8, 801, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
$Label1 = GUICtrlCreateLabel("Adresse:", 8, 8, 67, 24)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_go = GUICtrlCreateButton("Go!", 880, 8, 65, 25, $WS_GROUP)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
$GUI_home = GUICtrlCreateButton("HOME", 1072, 8, 89, 25, $WS_GROUP)
$browser = GUICtrlCreateObj($IE, 2, 40, 1020, 435)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($IE, "http://www.autoit.de")

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

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

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

Case $Menu_beenden
Exit
Case $GUI_go
$html = GUICtrlRead($GUI_url)
;~ MsgBox(0,"",$html);funzt doch...
_IENavigate($IE, $html)
EndSwitch
WEnd

[/autoit]

lies die Hilfe zu

[autoit]

GUICtrlSetResizing

[/autoit]

für die möglichen Parameter,

mfg (Auto)Bert

**autoBert**

Hallo L3viathan,

musste folgende Änderung vornehmen, damit das Skript nicht abstürzt:

[autoit]

Func _getLastSaved()
$n = 0
$a = _FileListToArray($savedir)
If IsArray($a) Then
For $i = 1 To $a[0]
$s = StringSplit($a[$i], " ")
If Int($s[1]) > $n Then $n = Int($s[1])
Next
EndIf
Return $n
EndFunc ;==>_getLastSaved

[/autoit]

ausserdem am Anfang eingefügt, damit der Ordner angelegt wird

[autoit]

If Not FileExists($savedir) Then DirCreate($savedir)

[/autoit]

mfg (Auto)Bert

**autoBert**

Zitat von Rise Against

Zu nummer 1 die Include wird irgenwie nicht angezeigt, ist aber ftp.au3

Die ftp.au3 ist auf meinem System nicht vorhanden,

mfg (Auto)Bert

Beiträge von autoBert

Fenster anzeigen, die @SW_HIDE,... sind

Video Player mit Wiedergabeliste

Eigener Taschenrechner

Eigener Taschenrechner

Vertikaler List-View

Video Player mit Wiedergabeliste

Updater

Edit`s

Den width eines Objeks ändern

Edit`s

Den width eines Objeks ändern

Autoit-Script in Bart PE für Webbrowser

Überprüfen, ob eine Variable eine Integer-Zahl zwischen 1 und 50 ist

Autoit-Script in Bart PE für Webbrowser

Button auf folge IE Side anklicken

GUIOnEventMode Schleife Problem

GUIOnEventMode Schleife Problem

Den width eines Objeks ändern

XKCD Downloader

FTP.au3 Prob.