Beiträge von autoBert

**autoBert**

Hallo Nakroma,

Hier kannst du dir die Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

i2c, du hast vergessen die TabDefinition mit

[autoit]

GUICtrlCreateTabItem("")

[/autoit]

zu beenden, dies kann zu unerwünschten Effekten führen.

Nakroma: da dein Problem ja gelöst ist, wäre es schön wenn du den Thread auch auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

mfg (auto)Bert

**autoBert**

Afaik hat @shayn in Skripte soetwas veröffentlicht,

Edit: Überwachungskamer v. 1

mfg (auto)Bert

**autoBert**

Hallo WillyWu,

ich habe zwar nur die Personal (Free)-Version, habe mir dort über den Planer das Update eingerichtet (geht auch mehrmals am Tag), Avira protokoliert dies unter Ereignisse, diese kann man exportieren:

Zitat

Exportierte Ereignisse:

16.08.2010 16:43 [Updater] Update erfolgreich durchgeführt
Update auf Computer ACER1 (10.210.48.134) von http://62.146.66.187/update wurde
erfolgreich durchgeführt.
Es sind keine neuen Engine/VDF Dateien verfügbar.

Auch in der Registry hinterlässt ein Update seine Spuren:

Zitat

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Avira\AntiVir Desktop]
"UpdateInProgress"=dword:00000000
"LastUpdate"=dword:4c694ea8

wie man daraus allerdings auf 16.08.2010 16:43 kommt habe ich noch nicht probiert, sieht aber nach vergangenen Sekunden seit Epoch (01.01.1970 00:00:00) aus.

du könntest also einfach nur die Registry auslesen, wenn sich der Wert für UpdateInProgress (zuerst auf dword:00000001 = Updateprüfung gestartet) auf dword:00000000 ändert ist das Update beendet und du kannst dnn Schlüssel LastUpdate auslesen und mit _DateAdd siehe Hilfe umrechnen (ist aber die aktuelle Uhrzeit, zumindest unmittelbar nach dem Update, etl.Sommerzeit+Zeizone Differenz)

mfg (auto)Bert

**autoBert**

Zitat von Bloodykill

Genial danke dir

i2c hat den selben Lösungsweg, nur dass ich Ubound und er $array[0] benutzt,

mfg (Auto)Bert

**autoBert**

Hallo BloodyKill,

wie Schnitzel schon anmerkte es muss natürlich Rvent heissen, das kannst du mit GuiCtrlSetOnEvent machem. Mein Lösungsvorschlag sieht damit so aus:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <File.au3>
#include <Array.au3>

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

Opt("GUIOnEventMode", 1)

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

$Mp3MainPath = "C:\Programme\AutoIt3\MyProjects\MP3_Batchdownloader\Downloaded"

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

GUICreate("Media Player V 1.0.0 Betha", 400, 400)
GUICtrlCreateTab(1, 1, 399, 30)
GUICtrlCreateGroup("", 300, 31, 99, 367)
GUICtrlCreateTabItem("Player")
GUICtrlCreateButton("Play", 305, 43, 89, 44)
$Combo_Interpret = GUICtrlCreateCombo("Interpret", 1, 31, 99, 999, $CBS_DROPDOWNLIST)
GUICtrlSetOnEvent(-1, "Songs")
$Combo_Song = GUICtrlCreateCombo("Song", 100, 31, 99, 319)

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

GUICtrlCreateTabItem("Options")
$Aktualisieren = GUICtrlCreateButton("Aktualisieren", 1, 31, 99, 39)
GUICtrlSetOnEvent($Aktualisieren, "_aktualisieren")
$Player_Close = GUICtrlCreateButton("Player Schließen", 100, 31, 99, 39)
GUICtrlSetOnEvent($Player_Close, "_exit")
GUISetOnEvent(-3, "_exit")
_CreateInterpret()
Songs()
GUISetState()

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

While 1
Sleep(1000)
WEnd

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

Func Songs()
$Interpret_Read = GUICtrlRead($Combo_Interpret) ;Liest aus welcher Interpret ausgewählt wurde
ConsoleWrite($Interpret_Read & @CRLF)
$Songs = _FileListToArray($Mp3MainPath & "\" & $Interpret_Read, "*", 1) ;Erställt ein Array als Songlist($Songs) welches den Namen aller Lieder im Ordner Music+Interpretennamen wiedergebt
If IsArray($Songs) Then
GUICtrlSetData($Combo_Song, "", "")
For $A_Anz1 = 1 To UBound($Songs) - 1
GUICtrlSetData($Combo_Song, $Songs[$A_Anz1])
Next
GUICtrlSetData($Combo_Song, $Songs[1], $Songs[1])
EndIf
EndFunc ;==>Songs

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

Func _CreateInterpret()
$Interpret = _FileListToArray($Mp3MainPath, "*", 2)
If IsArray($Interpret) Then
GUICtrlSetData($Combo_Interpret, "", "")
For $A_Anz1 = 1 To UBound($Interpret) - 1
GUICtrlSetData($Combo_Interpret, $Interpret[$A_Anz1])
Next
GUICtrlSetData($Combo_Interpret, $Interpret[1], $Interpret[1])
EndIf
EndFunc ;==>_CreateInterpret

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

Func _aktualisieren()
EndFunc ;==>_aktualisieren

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

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit]

mfg (auto)Bert

**autoBert**

Hallo BloodyKill in Zeile 41 fehlt auf jedenfal ein BackSlash, sollte so aussehen:

[autoit]

$Songs=_FileListToArray("C:\Users\Bastian\Desktop\Sevenby7 Musicplayer\Music\" & "\" & $Interpret_Read,"*",1) ;Erställt ein Array als Songlist($Songs) welches den Namen aller Lieder im Ordner Music+Interpretennamen wiedergebt

[/autoit]

desweiteren solltest du die Routine zum Befüllen der $combo_Song auf ein Svent legen und nicht in der While-Wend Schleife anarbeiten,

mfg (auto)Bert

**autoBert**

Lass die eckigen Klammern weg, diese werden automatisch von IniWrite vergeben,

mfg (auto)Bert

**autoBert**

Hallo AutoTim,

mmach es doch so:

[autoit]

Case $MenuItem5
$fileopendialog = FileOpenDialog("Projekt öffnen", @DesktopDir, "INI-Datei (*.ini;)", 1) ; Öffnen Dialog
If @error Then
MsgBox(0, "", "Abbruch durch Benutzer") ; Nach error Fragen besseren Fehlertext suchen
else
If StringRight($fileopendialog, 4) <> ".ini" Then $fileopendialog &= ".ini" ; wenn kein .ini dann .ini

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

For $i = 0 To 43
$var = IniRead($fileopendialog, $i, "Input", 1000)
;~ msgbox(0,"",$var)
GUICtrlSetData(($Inputport[$i]), $var)
Next
EndIf

[/autoit]

**autoBert**

@hootch,

dann mach einen eigenen Thread auf, poste dort dein komplettes Skript (bzw. ein Beispiel bei dem der Fehler auch vorkommt), evtl, INI-File/Daten-Dateien und die exakte Fehlerbeschreibung (aus Scite-Konsole kopieren). Fehler die erst zur Laufzeit auftreten sind zwar schwer zu finden, deuten aber auf eine unsaubere Programmierung. Mit

[autoit]

IsArray

[/autoit]

& Co9. kann man dies vermeiden,

mfg (Auto)Bert

**autoBert**

Zitat von myrix

Gilt misteryo Methode auch wenn bei jeder Cheackbox was völlig anderes drinne steht?

diese Frage habei ich nicht ganz verstande, vermute aber du suchst soetwas:

Spoiler anzeigen

[autoit]

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

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

Global $Checkbox[3], $sCBText[3]=["test1","2.test","noch ein test"]
$Form1 = GUICreate("Form1", 355, 345, 192, 124)
for $i = 0 to 2
$Checkbox[$i] = GUICtrlCreateCheckbox($sCBText [$i], 16+$i*102, 16, 97, 17)
Next
#cs das gleiche ohne Array für die Texte
$Checkbox[0] = GUICtrlCreateCheckbox("test1" [$i], 128, 16, 97, 17)
$Checkbox[1] = GUICtrlCreateCheckbox("2. test" [$i], 128, 16, 97, 17)
$Checkbox[2] = GUICtrlCreateCheckbox("noch ein test" [$i], 240, 16, 97, 17)
#ce
$Edit1 = GUICtrlCreateEdit("", 16, 40, 321, 257)
$Button1 = GUICtrlCreateButton("Button1", 88, 312, 171, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sData = ""
for $i = 0 to 2
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) = $GUI_CHECKED Then $sData &= $sCBText[$i] & ": ist angeCHECKED" & @CRLF
;dafür müssen die Texte auch in einem Array hinterlegt sein
;If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) = $GUI_CHECKED Then $sData &= ControlGetText($Form1,"",$Checkbox[$i]) & ": ist angeCHECKED" & @CRLF
;die geht auch wenn die Texte direkt bei GUICtrlCreateCheckbox abgegeben werdem (also ohne Array)
Next
GUICtrlSetData($Edit1, $sData)
EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Myrix,

die Idee von @misteryo, die ID's der Checkboxen in Arrays zu speichern ist hervorragend, dies spart vor allem bei vielen Checkboxen Tipparbeit. Deshalb hier meine abgeänderte Version:

Spoiler anzeigen

[autoit]

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

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

Global $Checkbox[4]
$Form1 = GUICreate("Form1", 355, 345, 192, 124)
$Checkbox[0] = GUICtrlCreateCheckbox("Hier steht was 1", 16, 16, 97, 17)
$Checkbox[1] = GUICtrlCreateCheckbox("Hier steht was 2", 128, 16, 97, 17)
$Checkbox[2] = GUICtrlCreateCheckbox("Hier steht was 3", 240, 16, 97, 17)
$Edit1 = GUICtrlCreateEdit("", 16, 40, 321, 257)
$Button1 = GUICtrlCreateButton("Button1", 88, 312, 171, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sData = ""
for $i = 0 to 2
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) = $GUI_CHECKED Then $sData &= $i+1 & ". Checkbox ist angeCHECKED" & @CRLF
Next
GUICtrlSetData($Edit1, $sData)
EndSwitch
WEnd

[/autoit]

eine Bitte noch: setze den Thread auf gelöst. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

mfg (Auto)Bert

**autoBert**

Hallo Hamm00,

mir ist kein Stil bekannt, der es ermöglicht in einer ComboBox auch CheckBoxen anzuzeigen, du müsstest dir also ein eigenes Control schreiben bzw. dich mit einer anderen Lösung zb.: Edit-Control + PIc-Control + ListVie-Control etwas ähnliches nachbauen,

mfg (Auto)Bert

**autoBert**

Das kannst du so machen

Spoiler anzeigen

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 355, 345, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Hier steht was 1", 16, 16, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Hier steht was 2", 128, 16, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Hier steht was 3", 240, 16, 97, 17)
$Edit1 = GUICtrlCreateEdit("", 16, 40, 321, 257)
$Button1 = GUICtrlCreateButton("Button1", 88, 312, 171, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sData = ""
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then $sData &= "1. Checkbox ist angeCHECKED" & @CRLF
If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then $sData &= "2. Checkbox ist angeCHECKED" & @CRLF
If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then $sData &= "3. Checkbox ist angeCHECKED" & @CRLF
GUICtrlSetData($Edit1, $sData)
EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo chip,

mach es so:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiToolbar.au3>

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

#Region ### START Koda GUI section ### Form=
$Messenger = GUICreate("", 200, 500, -1, -1, $WS_POPUP)
GUISetBkColor(0xFFCC99)

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

$MenuToolbar = _GUICtrlToolbar_Create($Messenger)
_GUICtrlToolbar_LoadBitmap($MenuToolbar, @ScriptDir & "\add.bmp")
_GUICtrlToolbar_SetBitmapSize($MenuToolbar, 24, 24)
_GUICtrlToolbar_AddButton($MenuToolbar, "add", 0)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$msg = GUIGetMsg()
if $msg = -3 then Exit
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Zitat

Die Deutsche Telekom ist laut einem Urteil des Landgerichts Bonn verpflichtet, Kunden auf auffällig hohe Rechnungen hinzuweisen. Eine Frau bekommt nun mehr als 5000 Euro zurück. Bei ihr waren binnen weniger Monate horrende Gebühren angefallen - wegen eines falsch eingestellten DSL-Routers.

Quelle: http://www.spiegel.de/wirtschaft/ser…,711607,00.html

**autoBert**

Ups, da hast du leider recht, ungleich wird jeweil richtig angezeigt. Dass der Text in der MsgBox im ersten Fall falsch angezeigt wird liegt wohl in deiner Absicht,

Da du es jetzt ja richtiggestellt hast lösche ich meinen vorhergehenden Post,

mfg (Auto)Bert

**autoBert**

Zitat von kleiner27

Hi AutoBert!

Schön das du dein Programm erweiterst!

LG Kleiner

da weis ich ja noch gar nichts davon, oder meinst du "erweitert hast"

@All Anregungen, Wünsche sind natürlich jederzeit willkommen,

mfg (Auto)Bert

**autoBert**

Wie gross ist denn die PR-Abteilung dieser Firma, oder benutzt du etwa einen DoppelaccountWerbung die noch nicht einmal IT geschweige denn AutoIt spezifisch ist gehören nicht in dieses Forum.

mfg (Auto)Bert

**autoBert**

Hallo dtex,

Zitat von AutoBert

Wenn dir jemand bei deinem neuen Lösungsweg helfen soll, solltest du wenigsten den Link zu janGraphics.dll einstellen,

ist aber meines Erachtens unnötig, da GDI+ siehe 2. Lösung dies auch kann,

mfg (Auto)Bert

**autoBert**

Zitat von Schnitzel

ganzes skript bitte (oder so gekürtzt dass der fehler enthalten ist)
Sonst kann man nicht erkennen was du falsch machst

ich denke einmal Schnitzel hat ein lauffähiges Skript gemeint, notfalls ein Beispiel wo der Fehler auch vor kommt, dei Code-Schnipsel reicht da leider nicht.
Üblicherweise liegt das Problem am Pfad, denn

Zitat von Hilfe zu FileSaveDialog

@WorkingDir wird bei erfolgreichem Rückgabewert geändert.

mfg (Auto)Bert

Beiträge von autoBert

Tabs in der GUI - Wie geht das?

Befehl um Webcam Aufnahme zu starten

Update-Status von AviraUpdate auslesen

Problem mit Arrays

Problem mit Arrays

Problem mit Arrays

IniWrite Problem mit Klammern []

DialogOpen

fehlermeldung (Array + linenumber) <- wie finde ich die stelle im source?

Checkboxenabfrage - Ausgabe in Edit

Checkboxenabfrage - Ausgabe in Edit

Combobox mit Checkbox

Checkboxenabfrage - Ausgabe in Edit

Buttongröße in Toolbar an Bitmap anpassen

Telekom muss Kunden auf Mega-Rechnungen hinweisen

Abfrage der Versionsnummer einer exe

[Beispiel] NeMP3-P (MP3-Player) Version 0.8.4.7

private krankenversicherung gesetzlich

Autoit Konvertiert nicht?!?

Hilfe FileOpen($Filedir, 1) überschreibt Datei