Beiträge von fschaef

fschaef

Hallo, ja das ist schon, trotzdem bekomme ich folgende Fehlermeldung!

[autoit]

"C:\Users\Freddy\Documents\ListViewEIP.au3"(297,36) : warning: $SW_HIDE: possibly used before declaration.
_WinAPI_ShowWindow($hCtrl, $SW_HIDE)

[/autoit]

fschaef

Hallo Zusammen, kann mir md. sagen, in welcher Include SW_SHOW & SW_HIDE definiert sind. Danke!

fschaef

Zitat von BugFix

Schön für dich - und wie sollen wir dir helfen ohne Kenntnis des selbigen?

Sorry, hier, war eigentlich nur ne generelle Frage, ob einer so etwas schon parat hat.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\malecheler\Desktop\workdir\it\arc\favicon.ico
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Tool versendet SMS via COM-Port
#AutoIt3Wrapper_Res_Description=mSMSmodem - it-archiv.net
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=www.it-archiv.net
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.8.0
Date: 15.04.2013
Author: Marco Lecheler
Website: http://www.it-archiv.net

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

Script Function:
Dieses Script sendet SMS-Nachrichten via GSM GPRS Modem / LAN
Genauere Informationen auf http://www.it-archiv.net

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

#ce ----------------------------------------------------------------------------

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

#include <CommMG.au3>
#include <Array.au3>
#include <File.au3>

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

; Abfragen ob Parameter mitgegeben (mind. 3)
If $CmdLine[0] > 2 Then
#region Parameter

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

; Parameter 1 entspricht dem COM-Port
$comport = $CmdLine[1]

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

; Parameter 2 entspricht der Telefonnummer (Empfänger)
$rufnummer = $CmdLine[2]

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

; Variable $msg beinhaltet den Text, welcher versendet wird
Global $msg

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

; Diese Schleife fasst alle kommenden Parameter in einer Variablen zusammen (Parameter 3 bis Parameter n)
For $i = 3 To $CmdLine[0] Step 1
; Dieses if entfernt das erste Leerzeichen, dass sonst entstehen würde..
If $i = 3 Then
$msg = $CmdLine[3]
Else
$msg = $msg & ' ' & $CmdLine[$i]
EndIf

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

#endregion Parameter

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

#region Setzen des COM-Port

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

; Information für User geben
TrayTip("mSMSmodem", "COM Port wird gesetzt", 2)

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

$var = 0

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

; COM-Port wird auf $comport gesetzt mit der Geschwindigkeit 9600
_CommSetPort($comport, $var, 9600, 8, 0, 1, 0)
If @error Then
MsgBox(16, "mSMSmodem", "COM-Port ist belegt!" & @CRLF & "Bitte überprüfen." & @CRLF & @CRLF & "Programm wird geschlossen.")
_log("COM-Port bereits belegt!")
Exit
EndIf

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion Setzen des COM-Port

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

#region Status prüfen

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

; Information für User geben
TrayTip("mSMSmodem", "Status prüfen..", 4)

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

; at-Befehl senden
_CommSendString('AT' & @CR, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion Status prüfen

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

; at-Befehl senden
_CommSendString('AT+CUSD=1,"*101#",15' & @CR, 1)
;_CommGetString()
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : _CommGetString() = ' & _CommGetString() & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
exit
#region PIN eingeben

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

; Information für User geben
TrayTip("mSMSmodem", "SIM-PIN eingeben..", 2)

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

; PIN eingeben
_CommSendString('at+cpin="1234"' & @CR, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion PIN eingeben

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

#region SMS-Modus setzen

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

; Information für User geben
TrayTip("mSMSmodem", "Modus setzen..", 2)

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

; Modus setzen
_CommSendString('AT+CMGF=1' & @CR, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion SMS-Modus setzen

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

#region SMS verfassen

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

; Information für User geben
TrayTip("mSMSmodem", "SMS verfassen..", 2)

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

; Befehl zum Verfassen der Nachricht
_CommSendString('AT+CMGS="+' & $rufnummer & '",145' & @CR, 1)
#cs
; Verfassen der 1. Zeile: --SERVER DOWN--
_CommSendString('--SERVER DOWN--' & @CR, 1)
#ce
; Verfassen der 2. Zeile: $msg (hier werden die Parameter 3-n eingesetzt)
_CommSendString($msg & @CR, 1)

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

; Verfassen der 3. Zeile: Datum (Format: DD.MM.YYYY HH:MM
_CommSendString('Datum: ' & @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion SMS verfassen

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

#region SMS senden

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

; Information für User geben
TrayTip("mSMSmodem", "SMS senden..", 2)

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

; STRG + Z senden
_CommSendByte(0x1A, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion SMS senden

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

Else
; Ausgabe einer Fehlermeldung, falls Parameter nicht richtig angegeben wurden
MsgBox(16, "mSMSmodem", "Syntax-Error" & @CRLF & @CRLF & "Syntax: mSMSmodem.exe <com-port> <number without +> <SMS-Text>" & @CR & "Syntax-Example: mSMSmodem.exe 8 491234567 Server: server1")

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

EndIf

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

Func _log($logtext)
; Funktion schreibt Ausgabe in Logdatei
$loghandle = FileOpen(@ScriptDir & "\smslog.log", 1)
_FileWriteLog($loghandle, $logtext)
FileClose($loghandle)
EndFunc ;==>_log

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

fschaef

Hallo, ich habe ein Skript, welches AT Kommandos an mein USB Nokia Modem sendet. Wenn ich nun mein Guthaben abfrage (AT+CUSD=1,"*101#",15), bekomme ich nur einen Leerstring zurück. Unter Putty bekomme ich aber mein aktuelles Guthaben angezeigt. Weiß jemand Rat & Hilfe.

Zur Kommunikation benutze ich unter Autoit die CommMG.dll.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\malecheler\Desktop\workdir\it\arc\favicon.ico
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Tool versendet SMS via COM-Port
#AutoIt3Wrapper_Res_Description=mSMSmodem - it-archiv.net
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=www.it-archiv.net
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.8.0
Date: 15.04.2013
Author: Marco Lecheler
Website: http://www.it-archiv.net

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

Script Function:
Dieses Script sendet SMS-Nachrichten via GSM GPRS Modem / LAN
Genauere Informationen auf http://www.it-archiv.net

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

#ce ----------------------------------------------------------------------------

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

#include <CommMG.au3>
#include <Array.au3>
#include <File.au3>

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

; Abfragen ob Parameter mitgegeben (mind. 3)
If $CmdLine[0] > 2 Then
#region Parameter

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

; Parameter 1 entspricht dem COM-Port
$comport = $CmdLine[1]

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

; Parameter 2 entspricht der Telefonnummer (Empfänger)
$rufnummer = $CmdLine[2]

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

; Variable $msg beinhaltet den Text, welcher versendet wird
Global $msg

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

; Diese Schleife fasst alle kommenden Parameter in einer Variablen zusammen (Parameter 3 bis Parameter n)
For $i = 3 To $CmdLine[0] Step 1
; Dieses if entfernt das erste Leerzeichen, dass sonst entstehen würde..
If $i = 3 Then
$msg = $CmdLine[3]
Else
$msg = $msg & ' ' & $CmdLine[$i]
EndIf

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

#endregion Parameter

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

#region Setzen des COM-Port

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

; Information für User geben
TrayTip("mSMSmodem", "COM Port wird gesetzt", 2)

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

$var = 0

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

; COM-Port wird auf $comport gesetzt mit der Geschwindigkeit 9600
_CommSetPort($comport, $var, 9600, 8, 0, 1, 0)
If @error Then
MsgBox(16, "mSMSmodem", "COM-Port ist belegt!" & @CRLF & "Bitte überprüfen." & @CRLF & @CRLF & "Programm wird geschlossen.")
_log("COM-Port bereits belegt!")
Exit
EndIf

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion Setzen des COM-Port

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

#region Status prüfen

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

; Information für User geben
TrayTip("mSMSmodem", "Status prüfen..", 4)

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

; at-Befehl senden
_CommSendString('AT' & @CR, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion Status prüfen

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

; at-Befehl senden
_CommSendString('AT+CUSD=1,"*101#",15' & @CR, 1)
;_CommGetString()
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : _CommGetString() = ' & _CommGetString() & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
exit
#region PIN eingeben

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

; Information für User geben
TrayTip("mSMSmodem", "SIM-PIN eingeben..", 2)

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

; PIN eingeben
_CommSendString('at+cpin="1234"' & @CR, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion PIN eingeben

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

#region SMS-Modus setzen

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

; Information für User geben
TrayTip("mSMSmodem", "Modus setzen..", 2)

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

; Modus setzen
_CommSendString('AT+CMGF=1' & @CR, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion SMS-Modus setzen

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

#region SMS verfassen

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

; Information für User geben
TrayTip("mSMSmodem", "SMS verfassen..", 2)

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

; Befehl zum Verfassen der Nachricht
_CommSendString('AT+CMGS="+' & $rufnummer & '",145' & @CR, 1)
#cs
; Verfassen der 1. Zeile: --SERVER DOWN--
_CommSendString('--SERVER DOWN--' & @CR, 1)
#ce
; Verfassen der 2. Zeile: $msg (hier werden die Parameter 3-n eingesetzt)
_CommSendString($msg & @CR, 1)

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

; Verfassen der 3. Zeile: Datum (Format: DD.MM.YYYY HH:MM
_CommSendString('Datum: ' & @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion SMS verfassen

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

#region SMS senden

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

; Information für User geben
TrayTip("mSMSmodem", "SMS senden..", 2)

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

; STRG + Z senden
_CommSendByte(0x1A, 1)

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

; Rückgabe in Log schreiben
_log(_CommGetString())

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

#endregion SMS senden

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

Else
; Ausgabe einer Fehlermeldung, falls Parameter nicht richtig angegeben wurden
MsgBox(16, "mSMSmodem", "Syntax-Error" & @CRLF & @CRLF & "Syntax: mSMSmodem.exe <com-port> <number without +> <SMS-Text>" & @CR & "Syntax-Example: mSMSmodem.exe 8 491234567 Server: server1")

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

EndIf

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

Func _log($logtext)
; Funktion schreibt Ausgabe in Logdatei
$loghandle = FileOpen(@ScriptDir & "\smslog.log", 1)
_FileWriteLog($loghandle, $logtext)
FileClose($loghandle)
EndFunc ;==>_log

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

EDit: Gelöst, While Schleife bis ok kommt drumgelegt

fschaef

Danke!

fschaef

Hallo Alle,

ich möchte folgende Liste in einem Treeview anzeigen, jedes Verzeichnis soll nur 1 * angezeigt werden.

Hier meine Beispiel-Liste:

Spoiler anzeigen

C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Anti-Stress_music.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Messiah_-_Thunderdome_Spicelab_Mix.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Omni_Mode_-_Galaxy_of_Rhythm.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Patrick Hernandez Born To Be Alive - YouTube.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Patrick_Hernandez_-_Born_to_be_alive.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Patrick_Hernandez_Born_To_Be_Alive.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Slow_Music_-_e.g._for_Cool_Down_After_Working_Out_-_relaxdaily_N_022.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\test.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\VIVA_Housefrau_1995_1.5._Party_Termine._Omni_Mode_-_Galaxy_of_Rhythm.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Eigene Musik\Lady Gaga - Bad Romance.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Eigene Musik\test.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Eigene Musik\Herbst2012\Patrick Hernandez Born to be alive 12.mp4
C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\MP4 to MP3 Konverter\Lame\test.mp4

Hier ist mein Progi, soweit fertig. Ich komme aber nicht weiter!

Spoiler anzeigen

[autoit]

;~ #cs

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

#Include <GUIConstants.au3>
#include <GuiTreeView.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <File.au3>
#include <IE.au3>
#include <date.au3>
#include <String.au3>
#include <GuiConstants.au3>
#include <StaticConstants.au3>

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

Global $Tree
Global $SubTree
Global $files
Global $suchPfad = """" & @MyDocumentsDir & "\*.mp4" & """"
Global $Liste[100][100]
Global $hParent
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $suchPfad = ' & $suchPfad & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

$Form1 = GUICreate("Browse", 243, 319, 463, 281)
$TreeView = GUICtrlCreateTreeView(8, 8, 225, 273, BitOR($WS_BORDER,$TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS))
GUICtrlSetImage(-1, "shell32.dll", 3, 4)
GUICtrlSetImage(-1, "shell32.dll", 4, 2)
$ok = GUICtrlCreateButton(">>>>>>>>>>>> &Weiter >>>>>>>>>>>>", 8, 288, 227, 25)
GUISetState(@SW_SHOW)

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

$rc = filedelete(@ScriptDir & "\DirList.txt")
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $rc = ' & $rc & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$rc = RunWait(@ComSpec & " /c " & " dir " & $suchPfad & " /s /b > DirList.txt",@ScriptDir,@SW_HIDE)
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $rc = ' & $rc & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$rc = _FileReadToArray(@ScriptDir & "\DirList.txt", $files)
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $rc = ' & $rc & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
for $i = 1 to $files[0]
$TeilPfade = StringSplit($files[$i], "\")
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $TeilPfade = ' & $TeilPfade[0] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
for $y = 1 to $TeilPfade[0] - 1
$liste[$i-1][$y-1] = $TeilPfade[$y]
Next
next
; _ArrayDisplay($Liste, "Debug")

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

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : UBound($Liste, 2) = ' & UBound($Liste, 2) & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
for $i = 1 to UBound($Liste, 1) - 1
if $Liste[$i][0] = "" then ExitLoop
_ArrayDisplay($Liste[$i][0], "Debug")
$s = ""
for $y = 0 to UBound($Liste, 2)-1
if $Liste[$i][$y] <> "" then
$s &= $Liste[$i][$y] & "\"
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Liste[' & $i & '][' & $y & '] = ' & $Liste[$i][$y] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$hItemFound = _GUICtrlTreeView_FindItemEx($TreeView, $s)
if not $hItemFound Then
$items = StringSplit($s, "\")
; _arraydisplay($items, "debug")
for $l = 1 to Ubound($items) - 1
$hItemFound = _GUICtrlTreeView_FindItemEx($TreeView, $items[$l])
if not $hItemFound Then
if $hParent Then
$hParentNew = GUICtrlCreateTreeViewItem($items[$l], $hParent)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hParent = ' & $hParent & ' $hParentNew = ' & $hParentNew & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$hParent = $hParentNew
else
$hParent = GUICtrlCreateTreeViewItem($items[$l], $TreeView)
endif
endif
next
endif
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $s = ' & $s & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hItemFound = ' & $hItemFound & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

endif

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

GUISetState()

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

While 1;Main Loop
$msg = GUIGetMsg()
If $msg = $ok Then
; Run("explorer.exe "& _GUICtrlTreeViewGetTree($TreeView,"\"))
EndIf
If $msg = $GUI_EVENT_CLOSE Then Exit

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

WEnd

[/autoit]

Vielen Dank im voraus!

LG fschaef

fschaef

Hi,
ich habe ein kleines Script für Lame.
Der Prozess startet nicht. Wenn ich es ohne GUI mache, dann klappts. Kann mir jemand sagen, wo mein Fehler liegt.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <Array.au3>

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

$h = 400
$w = 400

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

; Metatags für MP3s bauen
$cmd = @ScriptDir &"\Lame\lame.exe"
$trenner = """"
$sMetatags = "--tt " & $trenner & "Titel" & $trenner & " " & _
"--tl " & $trenner & "Author" & $trenner & " " & _
"--ty " & $trenner & "2012" & $trenner

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

$ZielPfad = "C:\Dokumente und Einstellungen\Freddy.FREDDY-8ABED5F6\Eigene Dateien\Eigene Musik" ; Pfad zum Verzeichnis
$datei = "1100101 - Das Modul [copy][32k].mp3" ; Datei fürs Konvertieren
$datei_neu = "1100101 - Das Modul - Neu.mp3" ; Neue Datei von Lame

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

$parammeter = "--verbose --preset medium " & $sMetatags & " " & $trenner & $ZielPfad & "\" & $datei & $trenner & " " & _
$trenner & $ZielPfad & "\" & $datei_neu & $trenner & ""

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

$MainGUI = GUICreate("Meldungen von Lame", $h, $w, -1, -1, $WS_POPUP)
GUISetBkColor(0xFFFFFF)
$Input = GUICtrlCreateLabel("Bla und Blub",5,5,$h-10,$w-10, $SS_RIGHT+$WS_BORDER)
GUISetState(@SW_SHOW, $MainGUI)

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

sleep(2000)

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

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $parammeter = ' & $parammeter & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

$PID = Run($cmd & " " & $parammeter,@ScriptDir,@SW_HIDE, 0x8)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PID = ' & $PID & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

; #comments-start
Local $line
local $prozent = ""

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

While 1
$line = StdoutRead($PID)
If @error Then ExitLoop
if $line <> "" then
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $line = ' & $line & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
; $tmpline = StringSplit(StringMid(StringStripCR($line), 1, 75), "|")
; if $tmpline[0] = 5 then ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $tmpline = "' & $tmpline[1] & '" ' & $tmpline[5] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

endif
WEnd
While 1
$line = StderrRead($PID)
If @error Then ExitLoop
if $line <> "" then _
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $line = ' & $line & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
WEnd
GUIDelete($MainGUI)

[/autoit]

P. S. Ich möchte die Ausgaben von Lame in das Label schreiben.

LG
fschaef

Edit 1: Sry, hatte nur den halben Code gepastet, Sry
Edit 2: Klappt ja doch, der Bug saß mal wieder vor dem PC

fschaef

Zitat von Christoph54

Könntest du genauer definieren, welche Teile dieser Zeile immer gleich sind, welche zum Beispiel immer eine Zahl sind und ob manche Zeichenketten immer gleich lang sind usw...? Ansonsten könnte man das so lösen:
[autoit]
$String = "11563/11563 (0%)| 0:40/ 0:40| 0:40/ 0:40| 7.4784x| 0:00"&@CRLF&"11563/11563 (50%)| 0:40/ 0:40| 0:40/ 0:40| 7.4784x| 0:00"&@CRLF&"11563/11563 (100%)| 0:40/ 0:40| 0:40/ 0:40| 7.4784x| 0:00"&@CRLF
$Pattern = "\d+\/\d+ $100%$\|.+\s"
If StringRegExp($String,$Pattern,0) Then ConsoleWrite('Beendet!' & @LF)
[/autoit]

Danke schön, werde ich gleich ausproieren!

fschaef

Hallo,

ich möchte mit Lame eine MP4 nach MP3 konvertieren. Funktioniert genrell auch.
Nun möchte ich an eine ganz spezielle Zeile während der Ausgabe kommen.
Die Grundtechnik mit RUN und while 1 Schleife ist mir bekant, läuft auch.

Ich möchte an folgende Zeile rankommen:
11563/11563 (100%)| 0:40/ 0:40| 0:40/ 0:40| 7.4784x| 0:00

Wie müßte denn der entsprechende REGEXP Such-Begriff aussehen?

Ich bin wohl zu d... dazu, wäre schön, wenn mir jemand helfen könnte!

LG
fschaef

EDIT 1:
Habs gelöst:

[autoit]

$Prozent = StringRegExp($line, "(\d*%)", 3)
$time_to_finish = StringRegExp($line, "\d:\d\d", 3)

[/autoit]

fschaef

Hallo,

ich möchte mit der _XMLDomWrapper eine XML einlesen. Dabei bekomme ich eine Fehlermeldung:
Ungültiges Zeichen ":" festgestellt.

Weiß jemand, ob man das so einstelen kann, das der Doppelpunkt auch akzeptiert wird?

Bsp aus XML Datei:
<books:it>C# einfach</books:it>

LG fschaef

fschaef

Hallo Jautois,

bin jetzt erst drüber gestolpert.

Dickes Lob, tolles PGM.

LG fschaef

fschaef

Hi,

ok, ich bin überzeugt bzw. es ist richtig, was in den Posts geschrieben worden ist.

Also, Finger & Brain weg!

Sorry, war nicht böse gemeint!

LG fschaef

fschaef

Zitat von chip

Glaub ich mach mir das echt bald in die Sig lach:

Youtube-Nutzungsbedingungen:

Ja, warum gibt es dann tausende von legalen Download-Pgms?

LG fschaef

fschaef

Hi,

ich hoffe mir kann jemand dabei helfen. Ich möchte aus der Datei den Download-Link herausfiltern.

Danke!
fschaef

fschaef

Ich kann den XMLDomWrapper nicht leiden, daher hier mal die Lösung mit direkt angesprochenem Objekt:

So hat jeder seine Vorlieben. Funktionert jedoch einwandfrei. Vielen Dank.

LG
fschaef

fschaef

Hi,

ich habe Langeweile und wollte mir mal eine kleine App schreiben, welches mir das Wetter anzeigt.

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

#include "_XMLDOMWrapper.au3"

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

Global $PLZ = "76646"
$Query = "http://www.google.com/ig/api?weather=" & $PLZ & "&hl=de"

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

Local $hDownload = InetGet($Query, @ScriptDir & "\wetter_" & $PLZ & "_input.xml", 1, 1)
Do
Sleep(250)
$nBytes = InetGetInfo($hDownload, 0)
Until InetGetInfo($hDownload, 2) ; Check if the download is complete.

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

InetClose($hDownload) ; Close the handle to release resourcs.

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

$XMLopen = _XMLFileOpen(@ScriptDir & "\wetter_" & $PLZ & "_input.xml")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $XMLopen = ' & $XMLopen & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

$Stand_von = _XMLGetValue("/xml_api_reply/weather/forecast_information/current_date_time")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : Stand_von = ' & $Stand_von & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

FileDelete(@ScriptDir & "\wetter_" & $PLZ & "_input.xml")

[/autoit]

Irgendwie bekomme ich keine Daten zurückgeliefert. Hier die Ausgabe

Spoiler anzeigen

>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "I:\Eigene Dateien 14.7.2011\Wetter in Bruchsal.au3"
@@ Debug(17) : $XMLopen = -1
>Error code: 1
@@ Debug(20) : Stand_von = -1
>Error code: 1
+>15:06:01 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 7.609

Kann mich bitte jemand mal von der Leitung holen, auf der ich gerade stehe

LG
fschaef

fschaef

Hallo SEuBo

Zitat von SEuBo

[autoit]
$sNeuerName = StringRegExpReplace($sAlterName, '\W', '') ; Würde alles außer a-Z und 0-9 aus dem Namen entfernen.
[/autoit] [autoit][/autoit] [autoit]
$sNeuerName = StringRegExpReplace($sAlterName, '[^-.\w\h]', '') ; Alles außer a-Z, 0-9, horizontale Whitespaces (Leerzeichen, TAB usw), '-' und '.'
[/autoit]

super, super, super ...

Ich glaube, ich muß mich mal doch mit den Regexes vertraut machen.

Vielen Dank für Deinen Tip.

LG

fschaef

Mit Prepaid-Internetstick und bei ca. 200 Titeln leider ein unmögliches Unterfangen.
Ansonsten ein guterTip, Danke!

fschaef

Xenobiologist

Ich will sie los werden, aber mit Stringregreplace stehe ich auf Kriegsfuß.

$var

Schon probiert, kein ERFOLG gehabt.

fschaef

Hallo,

ich habe von Youtube ein Video geladen und nach MP3 umgewandelt. Nun hat aber Nero ein Problem mit dem Dateinamen, weil am Anfang sowie mittendrin Sonderzeichen sind. Siehe unten:

Der Quellcode der Webseite ist:

Spoiler anzeigen

<title> ► 4-2 The Floor - Future Love ♫ (℗1994) - YouTube </title>

So, mein Downloadprogramm (VDownloader) macht aus dem Pfeil ein stinknormales Viereck. (Hex. 3F).

Mein Skript erkennt dieses jedoch nicht, Codeschnipsel:

[autoit]

$newName = StringReplace($lvitemName, "?", "-", 0, 2)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $newName = ' & $newName & @crlf & ' >Error code: ' & @error & @crlf) ;### Debug Console

[/autoit]

Ausgabe ist:
@@ Debug(53) : $newName = ? 4-2 The Floor - Future Love ? (?1994)
>Error code: 0

Hat jemand eine Idee für mich?

LG fschaef

Beiträge von fschaef

Fehlende SW_SHOW & SW_HIDE

Fehlende SW_SHOW & SW_HIDE

at commands und Guthaben abfragen

at commands und Guthaben abfragen

Directory Liste in Treeview anzeigen

Directory Liste in Treeview anzeigen

Prozess startet nicht

StringRegExp (mal wieder) und Lame Ausgaben

StringRegExp (mal wieder) und Lame Ausgaben

Hilfe zu _XMLDomWrapper

DownSync - Download Manager - v.0.3

youtube html decodieren

youtube html decodieren

youtube html decodieren

XML und GOOGLE Wetter

XML und GOOGLE Wetter

Problem mit StringReplace

Problem mit StringReplace

Problem mit StringReplace

Problem mit StringReplace