Beiträge von autoBert

**autoBert**

Zitat von White

Ist es überhaupt möglich? Wenn ja, wie kann ich exe. Dateien etc. vergleichen?

1. ja est ist möglich
2. Di kannst Erstellungsdatum, Grösse oder bitweise vergleichen. Z.T. erst nach dem Herunterladen,

mfg autoBert

**autoBert**

Da hilft ja nur eines die Productkeys aus dem Tresor holen und manuell ins Inventar eingeben,

mfg autoBert

**autoBert**

Zitat von DieGasse

Kann mir einer sourcecode machen......

Wir sind hier kein mach mal-Forum!

Aber wenn du etwas genauer beschreibst was du vor hast, bekommst du die rcihtigen Tips. Im Moment weis man ja noch nicht einmal ob es sich um ein Browserfenster oder eine Anwendung handelt. Der Name der Anwendung bzw. der Link zur INetseite sind natürlich auch hilfreich,

mfg autoBert

**autoBert**

Zitat von TOYY1

Vielen Dank an Alle das hat mir weitergeholfen! owT

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

mfg autoBert

**autoBert**

Hallo lolxd232,

herzlich willkommen im Forum und viel Spass mit AutoIt.

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

und hier ein kleines Demo zu deinem Problem:

Spoiler anzeigen

[autoit]

#include <StaticConstants.au3>
#include <date.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include<WindowsConstants.au3>

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

Opt('GUIOnEventMode', 1)

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

Global $sTitel = 'Beispiel zur Nutzung der _NowCalc - Func'

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

Global $hMainGui = GUICreate($sTitel, 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $hMainGui gespeichert
;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
;Verknüpft dem Event $Gui_Event_Close mit der Funktion _End

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

;Menübar anzeigen
Global $menu_help = GUICtrlCreateMenu("?", -1, 1)
Global $item_help_auto = GUICtrlCreateMenuItem("Autor: (Auto)Bert", $menu_help)
Global $item_help_exit = GUICtrlCreateMenuItem("Beenden", $menu_help)
GUICtrlSetOnEvent(-1, '_End')

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

Local $hedtShutDown = GUICtrlCreateDate("01.01.2009", 20, 10, 150, 25, $DTS_UPDOWN)
;erzeugt ein Datum Steuerelement die zurückgegebene ID wird in der Variablen $hedtShutDown gespeichert
Local $DTM_SETFORMAT_ = 0x1032
Local $style = "dd/MM/yyyy HH:mm"
;Local $style = "hh:mm"
GUICtrlSendMsg($hedtShutDown, $DTM_SETFORMAT_, 0, $style)
GUICtrlSetFont(-1, 12)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
;verankert das "$hedtshutdown" Steuerelement Links, rechts, oben und fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite

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

$hbtndStart = GUICtrlCreateButton('&starten', 220, 10, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
;verankert den Button "Prüfen" rechts und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
GUICtrlSetOnEvent(-1, '_SetShutDown')
;Beim Klicken des Buttons wird die Funktion _CheckTime aufgerufen

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

Local $hlblDifferenz = GUICtrlCreateLabel("hier steht danach die verbleibende Zeit", 12, 80, 170, 100)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert das Label links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am linken Rand

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

GUICtrlCreateButton('Be&enden', 220, 115, 150, 25)
GUICtrlSetOnEvent(-1, '_END')
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)

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

GUICtrlCreateGraphic(0, 210, 400, 2, $SS_BLACKRECT)
GUICtrlSetResizing(-1, $GUI_DOCKHEIGHT + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
Global $hStatus = GUICtrlCreateLabel("Statuus", 5, 215, 400, 25)

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

GUICtrlSetResizing(-1, $GUI_DOCKHEIGHT + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
;verankert das Label Links, rechts und unten; fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite wird angepasst
GUISetState()

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

While 1
Sleep(20000)
WEnd

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

Func _End()
GUIDelete($hMainGui)
Exit
EndFunc ;==>_End

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

Func _SetShutDown()
If GUICtrlRead($hbtndStart) = "&starten" Then
GUICtrlSetData($hbtndStart, "&stop")
GUICtrlSetState($hedtShutDown,$GUI_DISABLE)
AdlibRegister("_CheckShutDown",5000) ;prüft alle 5 Sekunden
Else
GUICtrlSetData($hbtndStart, "&starten")
GUICtrlSetState($hedtShutDown,$GUI_ENABLE)
AdlibUnRegister("_CheckShutDown")
EndIf
EndFunc ;==>_SetShutDown

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

Func _CheckShutDown()
Local $dtNow = StringLeft(_NowCalc(), 16)
Local $sCheckShutDown = GUICtrlRead($hedtShutDown)
Local $dtShutDown = StringMid($sCheckShutDown, 7, 4) & "/" & StringMid($sCheckShutDown, 4, 2) & "/" & StringLeft($sCheckShutDown, 2) & " " & StringRight($sCheckShutDown, 5)
Local $dtDiff = _DateDiff('n', $dtNow, $dtShutDown)
GUICtrlSetData($hlblDifferenz, "noch " & $dtDiff & " Minuten")
If $dtDiff = 0 Then Shutdown(33)
EndFunc ;==>_CheckShutDown

[/autoit]

Schau dir zum besseren Verständnis die verwendeten Funktionen in der Hilfe nach,

mfg autoBert

**autoBert**

Hallo edmann,

@ComSpec & " /c ... " wird nr benötigt wenn der aufzurufende Befehl fest im Command hinterlegt ist, wie z.B.: DIR, bei Befehlen die über eine Datei impelmentiert sind ist es unnötig,

mfg autoBert

**autoBert**

Zitat von Sh4dovv

Aber welche IP muss ich dann eingeben für den Clienten? Und welchen Port?
Oder reicht es dann einfach aus auf die lokale IP (127.0.0.1) zu verbinden wenn man gemeinsam in einem Netzwerk ist?

Deine lokale IP ist deine lokale IP, also mit Sicherheit nein,

mfg autoBert

**autoBert**

Hallo DerSchatten,

eine Alternative zu FileInstall ist ;Fremddateien "includen" (ohne FileInstall). Für Bilder auf Buttons benutze ich eine ImageList, dies sieht dann so aus:

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>

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

Opt("MustDeclareVars", 1)

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

_Main()

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

Func _Main()
Local $sBMPNormal = @ScriptDIR & "\Icons\dsFirst_NORMAL.BMP"
Local $sBMPHot = @ScriptDir & "\Icons\dsFirst_mouseover.bmp"
Local $sBMPPress = @ScriptDir & "\Icons\dsFirst_mousedown.bmp"
Local $sBMPImage = @WindowsDir & "\pchealth\helpctr\System\blurbs\watermark_300x.bmp"
Local $btn1, $btn2, $btn3, $btn4, $msg
Local $hImagebtn1, $hImagebtn2, $hImagebtn3 ,$hImagebtn4

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

;Caveat: Minimum Operating Systems: Windows XP.

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

;Image list with multiple images will only show the images
;other than the 1st image when Themes are used.

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

GUICreate("Button Imagelists - Minimum OS: Windows XP",400,300)

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

GUICtrlCreatePic(@WindowsDir & "\Web\Wallpaper\Windows XP.jpg", 0, 0, 400, 300)
GUICtrlSetState(-1, $GUI_DISABLE)

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

;multi state image Bitmap
$btn1 = GUICtrlCreateButton("This Way", 30, 30, 90, 32)
GUICtrlSetTip(-1, "Multi state bitmap imagelist")
$hImagebtn1 = _GUIImageList_Create(24, 24, 3, 3)
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);1 - Normal
_GUIImageList_AddBitmap($hImagebtn1, $sBMPHot) ;2 - Hot
_GUIImageList_AddBitmap($hImagebtn1, $sBMPPress) ;3 - Pressed
_GUIImageList_AddBitmap($hImagebtn1, $sBMPPress);4 - Disabled
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);5 - Defaulted
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);6 - Stylus Hot (tablet computers only)
_GUICtrlButton_SetImageList($btn1, $hImagebtn1)

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

;single state image Bitmap
$btn2 = GUICtrlCreateButton("This Way", 30, 70, 90, 32)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetTip(-1, "Single bitmap imagelist")
$hImagebtn2 = _GUIImageList_Create(24, 24, 5, 3)
_GUIImageList_AddBitmap($hImagebtn2, $sBMPNormal);1 - Normal
_GUICtrlButton_SetImageList($btn2, $hImagebtn2)

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

;single state image Icon
$btn3 = GUICtrlCreateButton("Unlock", 30, 110, 90, 40)
GUICtrlSetTip(-1, "Single icon imagelist")
$hImagebtn3 = _GUIImageList_Create(32, 32, 5, 3)
_GUIImageList_AddIcon($hImagebtn3, "msrating.dll", 10, True)
_GUICtrlButton_SetImageList($btn3, $hImagebtn3)

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

;single state image Bitmap with overlayed text
$btn4 = GUICtrlCreateButton("Help", 30, 160, 90, 90)
GUICtrlSetTip(-1, "Single bitmap imagelist with overlayed text")
GUICtrlSetFont(-1, 14, 800, -1, "Comic Sans MS")
$hImagebtn4 = _GUIImageList_Create(80, 80, 5, 3)
_GUIImageList_AddBitmap($hImagebtn4, $sBMPImage)
_GUICtrlButton_SetImageList($btn4, $hImagebtn4, 4)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $btn1
Case $btn2
GUICtrlSetState($btn1, $GUI_DISABLE)
Case $btn3
GUICtrlSetState($btn1, $GUI_ENABLE)
Case $btn4
EndSwitch
WEnd
EndFunc ;==>_Main

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

mfg autoBert

**autoBert**

Zitat von Milla

Also ich weiß nich obs dafür schon irgend ne schöne/bessere Lösung gibt

Gibt es: ein Screensaver darf ja nur in Erscheinung tretten wenn der Benutzer gerade nichts tut, eal ob im Vollbild oder nicht. Und um dies zu überprüfen ist

[autoit]

_Timer_GetIdleTime()

[/autoit]

die absolut beste Wahl,

mfg autoBert

**autoBert**

Hallo ,

dein Proramm lässt sich nicht testen, siehe

C

>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3(15,10) : ERROR: can't open include file "_GUIImageList_AddBitmapEx.au3"
#include "_GUIImageList_AddBitmapEx.au3"
~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3 - 1 error(s), 0 warning(s)
!>00:11:25 AU3Check ended.rc:2
>Exit code: 0    Time: 9.838

hänge bitte diese Include-Datei noch an, dann schau ich bei Gelegenheit nach,

mfg autoBert

**autoBert**

Hallo Glubberer,

dies ist am einfachseten mit switch zu lösen:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>

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

; Die erstellte GUI:
#region ### START Koda GUI section ### Form=H:\AutoIT\MyLocation\GUI_Entwurf1_MyLocation.kxf
$MyLocation = GUICreate("MyLocation", 293, 341, 447, 136)

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

;Mein Combofeld:
$Combo1 = GUICtrlCreateCombo("Windows 7 - 32 Bit", 48, 96, 177, 25)
GUICtrlSetData(-1, "Windows 7 - 64 Bit")
GUICtrlSetData(-1, "Windows XP")
GUICtrlSetData(-1, "Windows Vista - 32 Bit")
GUICtrlSetData(-1, "Windows Vista - 64 Bit")

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

$Welches = GUICtrlCreateLabel("Soll MyLocation aktiviert werden?", 48, 152, 163, 17)
$MyLocation = GUICtrlCreateLabel("MyLocation Integration", 32, 28, 160, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

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

;Dieser Button soll eine bestimmte Aktion mit den Auswahlmöglichkeiten aus meinem COmbofeld starten !!!
$Button1 = GUICtrlCreateButton("Aktivieren", 96, 176, 97, 33, 0)

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

$Label1 = GUICtrlCreateLabel("Welches Betriebssystem nutzen Sie gerade?", 48, 72, 214, 17)
$Button2 = GUICtrlCreateButton("Beenden", 88, 264, 121, 41, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

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

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

Case $Button1
;Hier sollen nun verschiedene Aktionen hin zugefügt werden / z.b. wird der Eintrag "Windows XP" im Combofeld ausgewählt soll Aktion 3 starten
; Wird "Windows Vista - 64 Bit im Combofeld ausgewählt, soll Aktion 5 starten
Switch (GUICtrlRead($Combo1))
Case "Windows 7 - 64 Bit"
MsgBox(0, "Aktion", "für Windows 7 - 64 Bit")
Case "Windows XP"
MsgBox(0, "Aktion", "für Windows XP")
Case "Windows Vista - 32 Bit"
MsgBox(0, "Aktion", "für Windows Vista - 32 Bit")
Case "Windows Vista - 64 Bit"
MsgBox(0, "Aktion", "für Windows Vista - 64 Bit")
EndSwitch
Case $Button2
WinClose("MyLocation")
EndSwitch
WEnd

[/autoit]

edit: Schnitzel war schneller, ich hatte wohl den FF nicht aktualisiert,

mfg autoBert

**autoBert**

Hallo Freaky,

schau dir

[autoit]

StringToBinary

[/autoit]

und

[autoit]

BinaryToString

[/autoit]

mit dem dazugehörigen Beispiel an,

mfg autoBert

**autoBert**

Hallo Freaky,

wie wärs mit

[autoit]

StringReplace

[/autoit]

Zitat

StringReplace

Ersetzt ein oder mehrere Zeichen in einem String.

Quelle: dt. Hilfe

mfg autoBert

**autoBert**

Zitat von jojox

Versuchs mal mit
[autoit]
_Crypt_HashFile()
[/autoit]
bei mir gehts damit auch für große dateien.

ja damit hatte ich bisher keine Probleme.

@TE schau dir dazu das Beispiel in der Hilfe an, damit kannst du ja testen ob es funktioniert,

mfg autoBert

**autoBert**

Hallo DerSchatten,

so sollte dein Skript laufen und der Progress nach der definierten Zeit fertig sein:

Spoiler anzeigen

[autoit]

;GUI Fortschritt
$gui_progressbar = GUICreate("Lesen/Schreiben", 300, 100)
GUICtrlCreateLabel("Vorgang läuft ...", 12, 10, 300, 18)
GUICtrlSetFont(-1, 9, 600, 0)
$progressbar = GUICtrlCreateProgress(10, 40, 280, 20)
$label_progressbar = GUICtrlCreateLabel("", 12, 70, 40, 18)

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

Func _getDOSOutput($command, $zeitende)
Local $text, $Pid = Run('"' & @ComSpec & '" /c ' & $command, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
_ProgressBar($zeitende)
While 1
$text &= StdoutRead($Pid)
If @error Then ExitLoop
GUICtrlSetData($edit_dir, GUICtrlRead($edit_dir) & $text)
Sleep(10)
WEnd
Return $text
EndFunc ;==>_getDOSOutput

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

Func _ReadIECOK()
_ReadIECClose()
Local $ext, $progress, $ordnername = GUICtrlRead($input_ordnername)
If GUICtrlRead($radio1) = $GUI_CHECKED Then
$ext = ".d64"
$progress = 750
$lesen = "d64copy.exe -t auto -d " & GUICtrlRead($combo_laufwerktyp) & " " & GUICtrlRead($combo_laufwerkid) & ' "' & $ordnername & GUICtrlRead($input_dateinameimage) & $ext & '" '
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED Then
$ext = ".d64"
$progress = 4590
$lesen = "d64copy.exe -t original -d " & GUICtrlRead($combo_laufwerktyp) & " " & GUICtrlRead($combo_laufwerkid) & ' "' & $ordnername & GUICtrlRead($input_dateinameimage) & $ext & '" '
ElseIf GUICtrlRead($radio3) = $GUI_CHECKED Then
$ext = ".d64"
$progress = 1460
$lesen = "d64copy.exe -t serial1 -d " & GUICtrlRead($combo_laufwerktyp) & " " & GUICtrlRead($combo_laufwerkid) & ' "' & $ordnername & GUICtrlRead($input_dateinameimage) & $ext & '" '
ElseIf GUICtrlRead($radio4) = $GUI_CHECKED Then
$ext = ".d64"
$progress = 750
$lesen = "d64copy.exe -t serial2 -d " & GUICtrlRead($combo_laufwerktyp) & " " & GUICtrlRead($combo_laufwerkid) & ' "' & $ordnername & GUICtrlRead($input_dateinameimage) & $ext & '" '
ElseIf GUICtrlRead($radio5) = $GUI_CHECKED Then
$ext = ".nbz"
$progress = 300
$lesen = "nibread.exe -D" & GUICtrlRead($combo_laufwerkid) & ' "' & $ordnername & GUICtrlRead($input_dateinameimage) & $ext & '" '
EndIf
If FileExists($ordnername & GUICtrlRead($input_dateinameimage) & $ext) Then
If MsgBox(52, "Hinweis", "Datei existiert bereits. Überschreiben?") = 6 Then
FileDelete($ordnername & GUICtrlRead($input_dateinameimage) & $ext)
Else
_ReadIEC()
Return 0
EndIf
EndIf
$dir = _getDOSOutput($lesen, $progress)
GUICtrlSetData($edit_dir, $dir)
EndFunc ;==>_ReadIECOK

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

Func _ProgressBarStart()
GUISetState(@SW_DISABLE, $gui_main)
GUISetState(@SW_SHOW, $gui_progressbar)
EndFunc ;==>_ProgressBarStart

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

Func _ProgressBarStop()
AdlibUnRegister("_stepProgress")
GUICtrlSetData($label_progressbar, "Fertig!")
Sleep(1000) ;1 Sekunde warten
GUISetState(@SW_ENABLE, $gui_main)
GUISetState(@SW_HIDE, $gui_progressbar)
EndFunc ;==>_ProgressBarStop

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

Func _stepProgress()
$i = Int(GUICtrlRead($progressbar) + 1)
GUICtrlSetData($progressbar, $i)
GUICtrlSetData($label_progressbar, $i & "%")
if $i = 100 Then _ProgressBarStop()
EndFunc ;==>_stepProgress

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

Func _ProgressBar($zeit)
_ProgressBarStart()
Sleep(3000) ;3 Sekunde warten
GUICtrlSetData($progressbar, 0)
AdlibRegister(_stepProgress, $zeit)
EndFunc ;==>_ProgressBar

[/autoit]

mfg auftoBert

**autoBert**

Hallo matthias.s,

Nimm für 3 + 4 statt Checkboxen Radios, da kann nur eine innerhalb einer Gruppe aktiv sein,

mfg autoBert

**autoBert**

Hallo DerSchatten,

auf diese spezielle Frage wirst du wohl keine Antwort bekommen, mach also bitte ein allgemen gültiges Beispielprogramm in dem der Effekt auftritt.

mfg autoBert

**autoBert**

Hallo DerSchatten,

auch dieses Skript lässt sich nicht starten:

'Fehlerausgabe

Code

>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3(190,66) : WARNING: $combo_typ: possibly used before declaration.
		$schreiben = "d64copy.exe -t auto -d " & GUICtrlRead($combo_typ)
		~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3(190,66) : ERROR: $combo_typ: undeclared global variable.
		$schreiben = "d64copy.exe -t auto -d " & GUICtrlRead($combo_typ)
		~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3(25,33) : ERROR: _DirSave(): undefined function.
GUICtrlSetOnEvent(-1, '_DirSave')
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3(91,33) : ERROR: _ReadIEC(): undefined function.
GUICtrlSetOnEvent(-1, '_ReadIEC')
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3 - 3 error(s), 1 warning(s)
!>11:34:36 AU3Check ended.rc:2
>Exit code: 0    Time: 3.873

Alles anzeigen

Es fehlen 2 Funktionen _DirSave und _ReadIEC. Desweiteren benutzt die Variabe $combo_typ (Gui-Control) welche aber nicht definiert ist.

Du solltest auch das zurückgebebe Textfile der c1541.exe als Dateianhang einstellen, damit man überhaupt erkennen kann mit wellchen Daten du arbeitest.
Die Funktion

[autoit]

StringSplit

[/autoit]

solltest du dir in der Hilfe nachschlagen.
Auch vermute ich dass deine Schleifen dann so aussehen müssten:

[autoit]

Func _ImageOpen()
Local $dateiauswahl, $ordnername = GUICtrlRead($input_ordnername)
If StringRight($ordnername, 1) <> "\" Then $ordnername &= "\"
If $ordnername = "" Then Return MsgBox(16, "Fehler", "Es wurde kein Verzeichnispfad ausgewählt!", 0, $gui_main)
$dateiauswahl = _GUICtrlListView_GetSelectedIndices($listview_dateiliste, True)
If $dateiauswahl[0] = 0 Then Return MsgBox(16, "Fehler", "Es wurde keine Datei ausgewählt!", 0, $gui_main)
_Feldvariablen()
GUICtrlSetData($edit_vorgang, "Disketten-Image auslesen ...")
For $i = 1 To $dateiauswahl[0]
$dir = _getDOSOutput("c1541.exe " & '"' & $ordnername & _GUICtrlListView_GetItemTextString($listview_dateiliste, $dateiauswahl[$i]) & '"' & " -list")
$dir_name = StringUpper(StringMid($dir, 4, 16))
$dir_id = StringUpper(StringMid($dir, 21, 6))
Local $dir_kurz = StringAddCR(StringUpper(StringTrimLeft(StringLeft($dir, StringInStr($dir, "free.") + 4), 27)))
$dir_kurz = StringSplit($dir_kurz, @CRLF, 1)
_ArrayDisplay($dir_kurz)
GUICtrlSetData($edit_name, $dir_name)
GUICtrlSetData($edit_id, $dir_id)
GUICtrlSetData($edit_dir, $dir_kurz)
For $l = 1 To UBound($dir_kurz) - 1
GUICtrlCreateListViewItem($dir_kurz[$l], $edit_dir_list)
Next
Next
GUICtrlSetData($edit_vorgang, "")
EndFunc ;==>_ImageOpen

[/autoit]

aber ohne Daten zum Prüfen kann ich es nicht nachvollziehen,

mfg autoBert

**autoBert**

Hallo DeathNote,

das kannst du so machen:

[autoit]

#include <Sound.au3>

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

$gui = GUICreate("TestGUI")
GUISetState()

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

;open sound file : must be modified
$sound = _SoundOpen("C:\DownLoader\Broilers\Broilers - Tanzt du noch einmal mit mir (Studio Version) [HD].MP3")
If @error = 2 Then
MsgBox(0, "Error", "The file does not exist")
Exit
ElseIf @extended <> 0 Then
$extended = @extended ;assign because @extended will be set after DllCall
$stText = DllStructCreate("char[128]")
$errorstring = DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $extended, "ptr", DllStructGetPtr($stText), "int", 128)
MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & DllStructGetData($stText, 1) & @CRLF & "Please Note: The sound may still play correctly.")
Else
$iLength = _SoundLength($sound,2)
EndIf
_SoundPlay($sound)

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

AdlibRegister("_checkReplay")

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

While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $GUI_EVENT_CLOSE
_SoundClose($sound)
Exit
EndSwitch
WEnd

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

Func _checkReplay()
if _SoundPos($sound,2) >= $iLength Then _SoundPlay($sound, 1)
EndFunc

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

_SoundClose($sound)

[/autoit]

Edit: Skript nach Test noch einmal geändert

mfg autoBert

**autoBert**

Hallo DerSchatten,

dein eingestelltes Skript lässt sich nicht starten, die Fehlermeldungen der Scite-Console:

Code

>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3(181,66) : WARNING: $combo_typ: possibly used before declaration.
		$schreiben = "d64copy.exe -t auto -d " & GUICtrlRead($combo_typ)
		~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3(181,66) : ERROR: $combo_typ: undeclared global variable.
		$schreiben = "d64copy.exe -t auto -d " & GUICtrlRead($combo_typ)
		~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\asdf234567.au3 - 1 error(s), 1 warning(s)
!>13:58:59 AU3Check ended.rc:2
>Exit code: 0    Time: 7.070

da ich aber unterwegs bin und meinen Akku schonen will bitte ich dich doch ein lauffähiges Skript einzustellen,

mfg autoBert

Beiträge von autoBert

FTP Server Datenvergleich möglich?

Office 2010 Installationsschlüssel auslesen

Hilfe bei AutoClick Bot mit Namensliste in .txt

aus Skript Koda Form erstellen

Shutdown Timer

Script funktioniert nicht auf allen W7-Rechnern

Hamachi und Autoit

Schaltflächen mit Icons

Herausfinden ob ein Programm im Vollbild läuft

Kontextmenü in Listview reagiert nicht

ComboBox in GUI mit Button und jeweiliger Aktion verknüpfen

Zeichen umwandeln

Zeichen umwandeln

Hilfe bei der MD5 Hash Erstellung (Hash.au3)

ProgressBar stockt bei angeklicktem Fenster

CheckBoxen mit Abhänigkeiten

ProgressBar stockt bei angeklicktem Fenster

ListViewItem mit Datei füllen

lied endlos abspielen (immer wieder von neu anfangen)

ListViewItem mit Datei füllen