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)
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)
Hallo Zusammen, kann mir md. sagen, in welcher Include SW_SHOW & SW_HIDE definiert sind. Danke!
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.
#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 Version: 3.3.8.0
Date: 15.04.2013
Author: Marco Lecheler
Website: http://www.it-archiv.net
Script Function:
Dieses Script sendet SMS-Nachrichten via GSM GPRS Modem / LAN
Genauere Informationen auf http://www.it-archiv.net
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <CommMG.au3>
#include <Array.au3>
#include <File.au3>
; Abfragen ob Parameter mitgegeben (mind. 3)
If $CmdLine[0] > 2 Then
#region Parameter
; Parameter 1 entspricht dem COM-Port
$comport = $CmdLine[1]
; Parameter 2 entspricht der Telefonnummer (Empfänger)
$rufnummer = $CmdLine[2]
; Variable $msg beinhaltet den Text, welcher versendet wird
Global $msg
; 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
Next
[/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)
$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
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; at-Befehl senden
_CommSendString('AT' & @CR, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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
; Information für User geben
TrayTip("mSMSmodem", "SIM-PIN eingeben..", 2)
; PIN eingeben
_CommSendString('at+cpin="1234"' & @CR, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; Modus setzen
_CommSendString('AT+CMGF=1' & @CR, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; 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)
; Verfassen der 3. Zeile: Datum (Format: DD.MM.YYYY HH:MM
_CommSendString('Datum: ' & @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; STRG + Z senden
_CommSendByte(0x1A, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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")
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
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.
#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 Version: 3.3.8.0
Date: 15.04.2013
Author: Marco Lecheler
Website: http://www.it-archiv.net
Script Function:
Dieses Script sendet SMS-Nachrichten via GSM GPRS Modem / LAN
Genauere Informationen auf http://www.it-archiv.net
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <CommMG.au3>
#include <Array.au3>
#include <File.au3>
; Abfragen ob Parameter mitgegeben (mind. 3)
If $CmdLine[0] > 2 Then
#region Parameter
; Parameter 1 entspricht dem COM-Port
$comport = $CmdLine[1]
; Parameter 2 entspricht der Telefonnummer (Empfänger)
$rufnummer = $CmdLine[2]
; Variable $msg beinhaltet den Text, welcher versendet wird
Global $msg
; 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
Next
[/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)
$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
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; at-Befehl senden
_CommSendString('AT' & @CR, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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
; Information für User geben
TrayTip("mSMSmodem", "SIM-PIN eingeben..", 2)
; PIN eingeben
_CommSendString('at+cpin="1234"' & @CR, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; Modus setzen
_CommSendString('AT+CMGF=1' & @CR, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; 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)
; Verfassen der 3. Zeile: Datum (Format: DD.MM.YYYY HH:MM
_CommSendString('Datum: ' & @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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)
; STRG + Z senden
_CommSendByte(0x1A, 1)
; Rückgabe in Log schreiben
_log(_CommGetString())
#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")
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
EDit: Gelöst, While Schleife bis ok kommt drumgelegt
Hallo Alle,
ich möchte folgende Liste in einem Treeview anzeigen, jedes Verzeichnis soll nur 1 * angezeigt werden.
Hier meine Beispiel-Liste:
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!
;~ #cs
#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>
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
$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)
$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")
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
endif
[/autoit] [autoit][/autoit] [autoit]next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]next
[/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
WEnd
[/autoit]
Vielen Dank im voraus!
LG 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.
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <Array.au3>
$h = 400
$w = 400
; Metatags für MP3s bauen
$cmd = @ScriptDir &"\Lame\lame.exe"
$trenner = """"
$sMetatags = "--tt " & $trenner & "Titel" & $trenner & " " & _
"--tl " & $trenner & "Author" & $trenner & " " & _
"--ty " & $trenner & "2012" & $trenner
$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
$parammeter = "--verbose --preset medium " & $sMetatags & " " & $trenner & $ZielPfad & "\" & $datei & $trenner & " " & _
$trenner & $ZielPfad & "\" & $datei_neu & $trenner & ""
$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)
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
; #comments-start
Local $line
local $prozent = ""
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
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)
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
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
[/autoit]
$Pattern = "\d+\/\d+ \(100%\)\|.+\s"
If StringRegExp($String,$Pattern,0) Then ConsoleWrite('Beendet!' & @LF)
Danke schön, werde ich gleich ausproieren!
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:
$Prozent = StringRegExp($line, "(\d*%)", 3)
$time_to_finish = StringRegExp($line, "\d:\d\d", 3)
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
Hallo Jautois,
bin jetzt erst drüber gestolpert.
Dickes Lob, tolles PGM.
LG 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
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
Hi,
ich hoffe mir kann jemand dabei helfen. Ich möchte aus der Datei den Download-Link herausfiltern.
Danke!
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
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"
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.
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
$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
FileDelete(@ScriptDir & "\wetter_" & $PLZ & "_input.xml")
[/autoit]Irgendwie bekomme ich keine Daten zurückgeliefert. Hier die Ausgabe
>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
Hallo 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
Mit Prepaid-Internetstick und bei ca. 200 Titeln leider ein unmögliches Unterfangen.
Ansonsten ein guterTip, Danke!
Ich will sie los werden, aber mit Stringregreplace stehe ich auf Kriegsfuß.
$var
Schon probiert, kein ERFOLG gehabt.
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:
<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
Ausgabe ist:
@@ Debug(53) : $newName = ? 4-2 The Floor - Future Love ? (?1994)
>Error code: 0
Hat jemand eine Idee für mich?
LG fschaef