Beiträge von autoBert

**autoBert**

Hallo subzero007,

Zitat von Hilfe

Für ListView, ListViewItem Controls:
Um eine bestimmte Spalte zu verändern, wird für die anderen Spalten einfach "nichts" angegeben, z.B. verändert "||update" nur die dritte Spalte.

Falls "update" leer ist, wird die Spalte bzw. subitem gelöscht. Zum Beispiel wird "|" die zweite Spalte bzw. Subitem löschen, "" wird die erste Spalte löschen.

mit

[autoit]

_GUICtrlListView_GetColumnCount

[/autoit]

kannst du die Spaltenanzahl ermitteln und dem entsprechend mit "|" auffüllen, falls die nachfolgenden Spalten gelöscht werden sollen,

mfg (Auto)Bert

**autoBert**

Zitat von subzero007

Hier die Datei: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Aber verstehe nicht wenn ich das umsetze,
For $i = 2 To $aArray[0

dann habe ich doch nur in StringReplace was geändert oder verstehe ich jetzt was falsch?

sorry ich habe es nur flüchtig überflogen, nimm die Lösung von nuts die funktioniert,

Edit: wenn du mit GuiCtrlSetData alle Spalten verändert willst musst du auch alle angeben also

[autoit]

GuiCtrlSetData($LVId,"a|b|c||||")

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo subzero007,

die Lösung von nuts funktioniert. Du must bei deiner Lösung nur den Beginn der Schleife erhöhen:

[autoit]

For $i = 2 To $aArray[0] ; zeilenweise durchgehen

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo sbzero007,

kannst du dafür sorgen, dass die CSV nach den Splatenbezeichnungen und jedem Datensatz anstelle von "|" @crlf als Trennzeichen benutzt. Dann wäre es sehr einfach zu lösen, (gibt es glaub ich schon)

mfg (Auto)Bert

**autoBert**

Hallo Xyron,

ja sicher, schau dir dazu die Funktionen in der Hilfe zu Dateien, Verzeichnisse, Datenträger Funktion Referenz an. Speziell alle welche mit FileWrite / FileRead anfangen,

mfg (Auto)Bert

**autoBert**

mach es so:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", @DesktopWidth, @DesktopHeight)
$Label1 = GUICtrlCreateLabel("Label1", 130, 130, 30, 30)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

HotKeySet("{1}","__CtrlToMouse")

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

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

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

EndSwitch
WEnd

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

Func __CtrlToMouse()
$MousePos2 = MouseGetPos()
$MousePos2[0] = $MousePos2[0] -15
$MousePos2[1] = $MousePos2[1] -15
While 1
$PlayerPos = ControlGetPos("","",$Label1)

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

If $MousePos2[0] <> $PlayerPos[0] Then
;consolewrite("Mouse0 <>" & @CRLF)
If $MousePos2[0] < $PlayerPos[0] Then
;consolewrite("Mouse0 <" & @CRLF)
GUICtrlSetPos($Label1,$PlayerPos[0]-1,$PlayerPos[1])
EndIf
If $MousePos2[0] > $PlayerPos[0] Then
;consolewrite("Mouse0 >" & @CRLF)
GUICtrlSetPos($Label1,$PlayerPos[0]+1,$PlayerPos[1])
EndIf
EndIf
$PlayerPos = ControlGetPos("","",$Label1)
If $MousePos2[1] <> $PlayerPos[1] Then
;consolewrite("Mouse1 <>" & @CRLF)
If $MousePos2[1] < $PlayerPos[1] Then
GUICtrlSetPos($Label1,$PlayerPos[0],$PlayerPos[1]-1)
EndIf
If $MousePos2[1] > $PlayerPos[1] Then
;consolewrite("Mouse1 >" & @CRLF)
GUICtrlSetPos($Label1,$PlayerPos[0],$PlayerPos[1]+1)
EndIf
EndIf
$PlayerPos = ControlGetPos("","",$Label1)
If ($MousePos2[0] = $PlayerPos[0]) And ($MousePos2[1] = $PlayerPos[1]) Then
ExitLoop
EndIf
Sleep(10)
WEnd
EndFunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo uuchip,

in deinem Beispielskript includest du _qwerte02.au3, im ZIP befindet sich aber _qwerte03.au3. Eventuell kommen ja daher diese Fehlermeldungen/Warnungen

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\uuchip\Qwerte\qwertetest.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>23:18:09 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Downloads\uuchip\Qwerte\_qwerte03.au3(71,22) : WARNING: $ps: possibly used before declaration.
   if not _qwerte($ps,
~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\uuchip\Qwerte\_qwerte03.au3(120,16) : WARNING: $Isxy: possibly used before declaration.
   return $Isxy
~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\uuchip\Qwerte\_qwerte03.au3(120,16) : ERROR: $Isxy: undeclared global variable.
   return $Isxy
~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\uuchip\Qwerte\qwertetest.au3 - 1 error(s), 2 warning(s)
!>23:18:09 AU3Check ended.rc:2
>Exit code: 0    Time: 3.476

Alles anzeigen

mfg (Auto)Bert

**autoBert**

Acer Aspire One ist ein NetBook. Denke dass das Skript zu Resourcen hungrig ist und in einer der DLL's die Fehlerbehandlung fehlt, möchte das aber nicht austesten,

mfg (Auto)Bert

**autoBert**

Hallo billemg,

wie wäre es wenn du die Skripte postest, damit man sieht was ausgelagert werden kann,

mfg (Auto)Bert

**autoBert**

Hallo GE IXI TIM,

blockiert bei mir das komplette System (Acer Aspire One mit XP Prof SP3). Nur Ausschalten ging noch,

mfg (Auto)Bert

**autoBert**

Hallo Alekij,

du hast in deiner func1 ein Problem mit WinWaitActive, deswegen klappt es nicht. Hier zum Test:

Spoiler anzeigen

[autoit]

#include <string.au3>
#include <GUIConstants.au3>

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

Dim $input
Dim $output
Dim $level
Dim $passwort
Dim $file
Dim $CodeIt

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

$CodeIt = GUICreate("CodeIt", 300, 200, 200, 125)
$Button1 = GUICtrlCreateButton("Verschlüsseln", 100, 70, 100, 25, 0)
$Button2 = GUICtrlCreateButton("Entschlüsseln", 100, 100, 100, 25, 0)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Func1()
Case $Button2
_Func2()
EndSwitch
WEnd

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

Func _Func1()
$input = InputBox("Input", "Hier den zu verschlüßelnden Text eingeben.")
If $input = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Return
EndIf

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

$level = InputBox("Level", "Auf welchem Level soll verschlüßelt werden? (1 - 5)")
If $level = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Return
EndIf

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

If $level < 1 Then
MsgBox(0, "Fehler", "Level zu niedrig.")
Sleep(3000)
Return
EndIf

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

If $level > 5 Then
MsgBox(0, "Fehler", "Level zu hoch.")
Sleep(3000)
Return
EndIf

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

$passwort = InputBox("Passwort", "Mit welchem Passwort möchten Sie den Text sichern?")
If $passwort = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Return
EndIf

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

$file = InputBox("Speichern unter", "Der verschlüsselte Text wird an Ihrem Default-Speicherplatz abgelegt (meist Desktop). Geben Sie bitte einen Namen für das Dokument ein und drücken Sie OK. Machen Sie dann bitte so lange keine Eingabe, bis das Notepad wieder geschloßen wurde.")
If $file = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Return
EndIf

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

$output = _StringEncrypt(1, $input, $passwort, $level)

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

Run("notepad")
WinWaitActive("Unbenannt - Editor")
Send($output, 1)
WinClose("Unbenannt - Editor")
;WinWaitActive("Editor", "&Speichern")
;Send("!s")
;WinWaitActive("Speichern unter", "&Speichern")
;Send($file)
;Send("!s")
;WinWaitActive("Speichern unter", "&Speichern")
;Send("!s")
EndFunc ;==>_Func1

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

Func _Func2()
$input = InputBox("Input", "Hier den zu entschlüßelnden Text eingeben.")
If $input = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Return
EndIf

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

$level = InputBox("Level", "Auf welchem Level wurde der Text verschlüßelt")
If $level = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Return
EndIf

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

If $level < 1 Then
MsgBox(0, "Fehler", "Level zu niedrig.")
Sleep(3000)
Return
EndIf

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

If $level > 5 Then
MsgBox(0, "Fehler", "Level zu hoch.")
Sleep(3000)
Return
EndIf

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

$passwort = InputBox("Passwort", "Wie lautet das Passort?", "", "*")
If $passwort = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Return
EndIf

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

$output = _StringEncrypt(0, $input, $passwort, $level)

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

MsgBox(0, "Output", "Der entschlüßelte Text lautet: " & @CRLF & $output)

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

EndFunc ;==>_Func2
Exit

[/autoit]

**autoBert**

Hallo Alekij,

falls du in jeder func auch wieder eine Endlosschleife hast kannst du es auch so machen

Spoiler anzeigen

[autoit]

$GUI1 = GUICreate("GUI1", 300, 200, 200, 125)
$Button1 =
GUICtrlCreateButton("Komponenten 1", 100, 70, 100, 25, 0)
$Button2 =
GUICtrlCreateButton("Komponenten 2", 100, 100, 100, 25, 0)
GUISetState(@SW_SHOW)

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

While
1
$nMsg = GUIGetMsg()
Switch $nMsg
Case
$GUI_EVENT_CLOSE
Exit
Case $Button1
_Func1 ()
ExitLoop
Case $Button2
_Func2 ()
ExitLoop
WEnd

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

Func _Func1
()
...
EndFunc

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

Func _Func2 ()
...
EndFunc
Exit

[/autoit]

die von SEuBo gepostete Methode ist aber besser, du musst dann aber alle Controls in der ersten und einzigen Schleife abfragen.
Das geschickteste wäre allerdings, du postet dein komplettes Skript,

mfg (Auto)Bert

**autoBert**

Hallo Secret1994,

dann vielleicht dieses Schema:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <String.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("MenuItem1")
$MenuItem3 = GUICtrlCreateMenuItem("Label&1 zeigen", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("MenuItem2")
$MenuItem4 = GUICtrlCreateMenuItem("Label&2 zeigen", $MenuItem2)
$Label1 = GUICtrlCreateLabel(_StringRepeat("Test ",400),0,0,625,445)
$Label2 = GUICtrlCreateLabel(_StringRepeat("noch ein Test ",4),100,100,425,245)
GUICtrlSetState($Label2,$GUI_HIDE)
GUISetState(@SW_SHOW,$Form1)

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

#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $MenuItem3
GUICtrlSetState($Label1,$GUI_SHOW)
GUICtrlSetState($Label2,$GUI_HIDE)
case $MenuItem4
GUICtrlSetState($Label1,$GUI_HIDE)
GUICtrlSetState($Label2,$GUI_SHOW)

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

EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Simon,

so fun ktionierts:

Spoiler anzeigen

[autoit]

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

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

GUICreate("",2,@DesktopHeight - 50,10,10,$WS_POPUP,$WS_EX_TOOLWINDOW)
GUISetBkColor(0xFF0000)
GUISetState()

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

GUICreate("",@DesktopWidth - 20,2,10,10,$WS_POPUP,$WS_EX_TOOLWINDOW)
GUISetBkColor(0xFF0000)
GUISetState(@SW_SHOW)

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

GUICreate("",@DesktopWidth - 20,2,10,@DesktopHeight - 40,$WS_POPUP,$WS_EX_TOOLWINDOW)
GUISetBkColor(0xFF0000)
GUISetState(@SW_SHOW)

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

GUICreate("",2,@DesktopHeight - 50,@DesktopWidth- 20,10,$WS_POPUP,$WS_EX_TOOLWINDOW)
GUISetBkColor(0xFF0000)
GUISetState(@SW_SHOW)

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

While 1
Switch GUIGETMSG()
Case -3
Exit
EndSwitch
WEnd

[/autoit]

du hattest als exStyle auch $WS_PopUp, dadurch wurde $WS_EX_TOOLWINDOW als Parameter parent behandelt,

mfg (Auto)Bert

**autoBert**

Zitat von Aquaplant

Wenn ich dazu Guictrlread($Combobox) nehme, werden alle Werte ausgelesen, über die ich mit dem Cursor rüberfahre, die also kurzzeitig blau markiert sind

dann ist deine Routine zum Auslesen falsch aufgebaut. Schau dir in folgendem Beispiel den Code-Abschnitt zu Case $hbtnOpen an:

Spoiler anzeigen

[autoit]

;#include <GuiComboBox.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#include <array.au3>

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

#include <File.au3>

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

Const $sElect = "bitte einen Benutzer auswählen"

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

$hGui = GUICreate("Combobox mit INI ", 250, 120, 302, 218)
$hcboUsers = GUICtrlCreateCombo($sElect, 8, 8, 200, 25,$CBS_DROPDOWNLIST)
$hlblUser = GUICtrlCreateLabel("",8,35,200,25)
$hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 65)
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)

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

$list1 = _FileListToArray(@ScriptDir & "\Profiles", "*.ini", 1)

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

If @error Then
if MsgBox(36, "Keine Datei gefunden!", "Testdaten erzeugen?") = 6 then
$sData = "Key1=Value1" & @LF & "Key2=Value2" & @LF & "Key3=Value3"
if not FileExists(@ScriptDir & "\Profiles") then DirCreate(@ScriptDir & "\Profiles")
$sIniName = @ScriptDir & "\Profiles\TestUser.ini"
IniWriteSection($sIniName, "Sektion1", $sData)
$sIniName = @ScriptDir & "\Profiles\User2.ini"
IniWriteSection($sIniName, "Sektion1", $sData)
GUICtrlSetData($hcboUsers, "TestUser|User2")
Else
Exit
EndIf
Else
For $i = 1 To $list1[0]
$sUser = StringTrimRight($list1[$i], 4)
GUICtrlSetData($hcboUsers, $sUser)
Next

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

EndIf

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

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

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@ScriptDir & "\Profiles\*.ini") ;<=========== im Original wieder entfernen
Exit
Case $hcboUsers
If GUICtrlRead($hcboUsers) = $sElect Then
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUICtrlSetData($hlblUser,"")
Else
GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
GUICtrlSetData($hlblUser,GUICtrlRead($hcboUsers))
EndIf
Case $hbtnOpen
$sIniName = @ScriptDir & "\Profiles\" & GUICtrlRead($hcboUsers) & ".ini"
$aIniVars = IniReadSection($sIniName, "Sektion1")
;_ArrayDisplay($aIniVars,"Sektion1:")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
For $i = 1 To $aIniVars[0][0]
MsgBox(4096, GUICtrlRead($hcboUsers), "Schlüssel: " & $aIniVars[$i][0] & @CRLF & "Wert: " & $aIniVars[$i][1] & @TAB)
Next
EndIf

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

EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo @Black_Skorbi,

wenn du es schon anpasst hättest du auch auf die Version AutoIt 3.3.6.0 updaten sollen. So kommen folgende Fehler:

Code

C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(14,26) : ERROR: Opt() called with illegal argument 1: "OnExitFunc"
Opt("OnExitFunc","OnExit")
~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(614,27) : ERROR: syntax error
            $readsoundplay
~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(619,73) : ERROR: syntax error
            $maxline = RegRead("HKEY_CURRENT_USER\Software\NMW","lines")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(623,56) : ERROR: syntax error
                $randomline = Round(Random(1,$maxline))
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(625,88) : ERROR: syntax error
                $readsoundplay = FileReadLine(@Tempdir & "\soundfiles.txt",$randomline)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(631,33) : ERROR: 'ExitLoop' not allowed outside loop.
                        ExitLoop
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(634,13) : ERROR: syntax error
            Until
~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(67,14) : ERROR: choosevisual(): undefined function.
choosevisual()
~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(196,20) : ERROR: volume(): undefined function.
            volume()
~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(333,20) : ERROR: fortfahren(): undefined function.
        fortfahren()
~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(338,16) : ERROR: Countlines(): undefined function.
    Countlines()
~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3(348,38) : ERROR: playsoundlist(): undefined function.
        AdlibRegister("playsoundlist")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\DankeSchön\MainBlackSkorbi.au3 - 12 error(s), 0 warning(s)
!>19:22:24 AU3Check ended.rc:2
>Exit code: 0    Time: 21.332

Alles anzeigen

mfg (Auto)Bert

**autoBert**

Hallo Masterking1996,

ich habe das Skript aus dem Spoiler kopiert, neue AU3 erstellt und gespeichert. Nach Auswahl eines Ordners in dem sich MP3-Dateien befinden kam sofort Musik.
Aber wie wäre es wenn du die SUchFUnktion des Boards benutzt, musst nur noch

[autoit]

_SoundPlay

[/autoit]

eintragen. Hierbekommst du auch Hilfe zu den einzelnen AutoIt-Funktionen

mfg (Auto)Bert

**autoBert**

Hallo Aquaplant,

schau dir im folgenden Beispiel den Case Zweig zu $idInfo an:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#Include <GuiListBox.au3>
#include <ListboxConstants.au3>
#include <File.au3>
#include <array.au3>

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

Global $szDrive,$szDir,$szFName,$szExt

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

$idGUI = GUICreate("Flaggen", 300, 115)
$idListe = GUICtrlCreateList("", 10, 10, 180, 80,BitOR($WS_VSCROLL,$LBS_NOTIFY)) ;,BitOR($LBS_SORT, $LBS_MULTIPLESEL)
$idNeu = GUICtrlCreateButton("...",200,10,30,25)
$idVorschau = GUICtrlCreatePic(@ScriptDir & "\Flaggen\NA.jpg", 210, 40, 36, 24)
$idInfo = GUICtrlCreateButton("&alle auslesem",10,90,180,25)
GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $idInfo
$count = _GUICtrlListBox_GetCount($idListe)
Dim $aListe[$count]
For $i = 0 to $count -1
$aListe[$i] = _GUICtrlListBox_GetText($idListe,$i)
Next
_ArrayDisplay($aListe)
case $idNeu
$sAlt = GUICtrlRead($idListe)
$sPlus = FileOpenDialog("Land auswählen:",@ScriptDir & "\Flaggen","Bilder (*.jpg)",3,"",$idGUI)
_PathSplit($sPlus,$szDrive,$szDir,$szFName,$szExt)
ConsoleWrite($szFName & @CRLF)
_GUICtrlListBox_InsertString($idListe,$szFName,0)
Case $idListe
GUICtrlSetImage($idVorschau, @ScriptDir & "\Flaggen\" & GUICtrlRead($idListe) & ".jpg")
EndSwitch
WEnd

[/autoit]

für das Beispiel benötigst du Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

mfg (Auto)Bert

**autoBert**

Gibt es schon genügend im Forum, einfach SUchFUnktion benutzen, z.B. Starplayer von Oscar in Skripte

mfg (Auto)Bert

**autoBert**

Hallo dusg,

du must beim erstellen den Stil $TCS_MULTILINE verwenden also so:

[autoit]

$tab = GUICtrlCreateTab(10, 10, 200, 100,$TCS_MULTILINE)

[/autoit]

mfg (Auto)Bert

Beiträge von autoBert

Listview Item erstellen und Label erstellen.

Listview Item erstellen und Label erstellen.

Listview Item erstellen und Label erstellen.

Listview Item erstellen und Label erstellen.

Datein mit eigenen Programm öffnen

Problem mit einer funktion

Mal was technisches - Flächenwerte von beliebigen Vielecken

OpenGl Beispiel in AutoIt

Routine Aufgaben auslagern

OpenGl Beispiel in AutoIt

Automatisches Schließen einer GUI, wenn nicht mehr benötigt.

Automatisches Schließen einer GUI, wenn nicht mehr benötigt.

Main menu

GUI Verschwindet (1/4 bleibt erhalten)

Combobox auslesen

Media Player

MP3 Player

Alle Werte einer Liste auslesen

MP3 Player

Tabs hintereinander anordnen