Hallo,
habe da irgendwo wieder ein Denkfehler
anderes Beispiel:
[autoit]
$Text = "1"
GUICtrlSetFont($Text 8, 400, 0, "Wingdings") ; 1 wird umgewandelt in Ordnersymbol
MsgBox(0,"",$Text )
Also man müsste das Zeichen 1 in die Schriftart Wingdings umwandeln, damit 1
als Ordnersymbol rauskommt.
Grüße Ilse
Hallo,
wie kann ich auf verschiedene Schriftarten
zugreifen und diese kombinieren.
(Guictrlsetfont....)
aber wie macht man das?
Mal ein kleines Beispiel
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("Form2", 405, 294, 265, 192)
$txtinput = GUICtrlCreateInput("", 96, 72, 217, 21)
$btnStart = GUICtrlCreateButton("Start", 96, 120, 219, 57, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
GUICtrlSetData($txtinput,"Juli")
EndSwitch
WEnd
Die Schriftart wäre Wingdings (Taste1) ist der Ordner
So sollte das aussehen
Grüße
Ilse
Hallo Bugfix,
hatte ich mir schon durchgelesen.
Ich versuche das anders zu lösen.
Vielleicht kannst du mir da noch helfen:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
$btnStart = GUICtrlCreateButton("Start", 480, 64, 75, 25, $WS_GROUP)
$btnleer = GUICtrlCreateButton("leer", 480, 96, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnstart
_Check()
EndSwitch
WEnd
Func _Check()
$ListView = GUICtrlCreateListView("ID|Fortschritt|Status", 24, 64, 442, 302)
For $i = 1 to 10
$item2 = GUICtrlCreateListViewItem($i&"||test", $ListView)
For $z = 1 to 10
GUICtrlSetColor($z, 0xff0000) ; Rot
GUICtrlSetData($item2, "|"&$z&"|erl"); hier sollen die Zeichen addiert werden
sleep(100)
next
next
endfunc
[/autoit]Wie kann ich anhand des Zählers in Spalte 2
einfach z.B. diese Zeichen von links nach rechts setzen?
anstatt des Zählers in Spalte 2
1
2(.....)
alles in Zeile 2
>>>>>>>>
also bei jedem Zähler ein Zeichen dazu! (in einer Zeile)
Bei 10 Zeichen die nächste Zeile
Liebe Grüße
Ilse
Guten Morgen zusammen,
BugFix Zattoo merci, konnte mich gestern leider nicht mehr melden, mußte los...
Eine Frage noch zur Listview:
Ich möchte gerne Symbole mithilfe der Schriftart "Webdings"
in die Listview einfügen. Wie macht man das?
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
$btnStart = GUICtrlCreateButton("Start", 480, 64, 75, 25, $WS_GROUP)
$btnleer = GUICtrlCreateButton("leer", 480, 96, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnstart
_Check()
EndSwitch
WEnd
Func _Check()
$ListView1 = GUICtrlCreateListView("ID|Fortschritt|Status", 24, 64, 442, 302)
For $i = 1 to 10
$item2 = GUICtrlCreateListViewItem($i&"|------|erl", $ListView1)
[/autoit] [autoit][/autoit] [autoit]next
[/autoit] [autoit][/autoit] [autoit]endfunc
[/autoit]Also, z.B. dort wo erl in der Liste steht soll ein Häkchen von Webdings.
Bin mit GuiCtrlSetFont nit weitergekommen.
Und noch ne Frage zum LOOP
Wie kann ich z.B. in der Spalte 2 anstatt des Zählers
(1-10) Zeichen einsetzen v. links nach rechts
>>>>>>>>>>
Code
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
$btnStart = GUICtrlCreateButton("Start", 480, 64, 75, 25, $WS_GROUP)
$btnleer = GUICtrlCreateButton("leer", 480, 96, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnstart
_Check()
EndSwitch
WEnd
Func _Check()
$ListView = GUICtrlCreateListView("ID|Fortschritt|Status", 24, 64, 442, 302)
For $i = 1 to 10
$item2 = GUICtrlCreateListViewItem($i&"||test", $ListView)
For $z = 1 to 10
GUICtrlSetColor($z, 0xff0000) ; Rot
GUICtrlSetData($item2, "|"&$z&"|erl"); hier sollen die Zeichen addiert werden
sleep(100)
next
next
endfunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Liebe Grüße
Ilse
Hallo Bugfix,
merci für deinen Tipp!
Also am besten alle Controls auf die Gui plazieren.
Das mit der Checkbox am Anfang...??
kannst du mir das an einem Beispiel zeigen?
Das geht leider nicht
[autoit]
For $i = 1 to 10
$ListView1_0 = GUICtrlCreateListViewItem($LVS_EX_CHECKBOXES, $ListView1)
next
Liebe Grüße
Ilse
Hallo,
ich möchte gerne anhand einer Listview
verfolgen wie z.B. der aktuelle Stand meines Loops ist.
Also, in Feld 1 wird die ID gesetzt (das klappt)
in Feld 2 soll jeweils eine Progressbar und in Feld 3 einbe Checkbox
die nach jedem next Befehl gesetzt wird.
Komm da nicht weiter
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
$ListView1 = GUICtrlCreateListView("ID|Fortschritt|Status", 24, 64, 442, 302)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
$btnStart = GUICtrlCreateButton("Start", 480, 64, 75, 25, $WS_GROUP)
$btnleer = GUICtrlCreateButton("leer", 480, 96, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnstart
_Check()
EndSwitch
WEnd
Func _Check()
[/autoit] [autoit][/autoit] [autoit]For $i = 1 to 10
$ListView1_0 = GUICtrlCreateListViewItem($i, $ListView1)
;$Progress1 = GUICtrlCreateProgress(112, 24, 150, 17)
;$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 360, 40, 97, 17)
next
endfunc
[/autoit]Liebe Grüße
Ilse
Hallo zusammen,
klappt...
Liebe Grüße an alle
Ilse
Hallo Cyrox,
danke für den Tipp.
Habe noch eine Frage zu dem Konsolenbefehl:
Wie kann ich mit Autoit den Konsolenbefehl CMD für
diesen Befehl aufrufen? Also ohne zu tippen
Von Hand geht das aber mit diesem Code leider nicht
ShellExecute("cmd.exe","copy /b 1.mp3 + 2.mp3 alle.mp3", @ScriptDir, "open", @SW_show)
Und: gibt es einen Befehl z.B. für: copy all mp3 > alle.mp3 in diesem Ordner
...ist mal wieder Neuland
Liebe Grüße
Ilse
Hallo,
ich habe in meinem Ordner mehrere mp3 Dateien.
Kann man diese (ohne Fremdprogramme) als einzige mp3
mit autoit zusammenführen.
Ich habe mit ffmpeg verschiedenes probiert
kann aber nicht mehrere zusammenführen.
ShellExecute("ffmpeg.exe","cat 1.mp3 2.mp3 > alle.mp3", @ScriptDir, "open", @SW_hide)
ProcessWaitClose("ffmpeg.exe")
;ShellExecute("ffmpeg.exe","-i 1.mp3 -i 2.mp3 -acodec copy output.mp3", @ScriptDir, "open", @SW_hide)
[/autoit][autoit][/autoit][autoit];ProcessWaitClose("ffmpeg.exe")
[/autoit]Liebe Grüße
Ilse
Hallo Misterspeed,
wieder was gelernt...
Edit:
Aber wie kann ich die Aktionen im
Hintergrund ausführen?
ShellExecute("Notepad.exe","","","", @SW_HIDE)
Sleep(100)
MsgBox(0,"Programm-Start","Notepad",1)
ControlSend("[CLASS:Notepad]",'','[CLASS:Edit; INSTANCE:1]',"Hallo wird im Hintergrund geschrieben")
Sleep(100)
;datei öffnen soll ausgeführt werden!
MsgBox(0,"Programm","Text wird geSchrieben",1)
WinSetState("[CLASS:Notepad]", "", @SW_hide)
;WinActivate("[CLASS:Notepad]", "")
WinMenuSelectItem("[CLASS:Notepad]", "", "&Datei", "Seite ein&richten..." )
;ControlSend("[CLASS:Notepad]",'','[CLASS:Edit; INSTANCE:1]',"{ALTDOWN}{ALTUP}os")
Sleep(5000); warten bis alles erledigt ist!
;Dialog wird angezeigt!
;WinSetState("[CLASS:Notepad]", "", @SW_show)
[/autoit] [autoit][/autoit] [autoit][/autoit]Ich meine z.B.
wenn ich Seite einrichten wähle
sollen ebenfalls im Hintergrund(versteckt) alle Anpassungen
vorgenommen werden. Das geht aber nicht weil das Fenster gezeigt wird.
Liebe Grüße
Ilse
Hallo,
merci für die Hilfe.
Habe ein interessantes Script gefunden.
Problem, es läuft nicht. Das ganze heißt Pic over audio.
$pic = "picture.jpg"
$song = "song.mp3"
$result = "result.avi"
runwait ("ffmpeg -loop_input -f image2 -i " & $pic & " -r 1 -vcodec flv -i " & $song & " -acodec copy -qscale 2 -g 5 -cmp 3 -subcmp 3 -mbd 2 " & $result & " -shortest", @ScriptDir)
[/autoit] [autoit][/autoit] [autoit][/autoit]Ich habe alles im gleichen _Script Verzeichnis:
ffmpeg.exe
picture.jpg
song.mp3
Am Ende soll ein Bild mit Audio als Avi gemacht werden.
Vielleicht entdecken die Experten den Fehler, würde mich freuen
Grüße
Ilse
Hallo,
folgendes Problem:
Ich möchte gerne einen Prozess im Hintergrund starten.
Beispiel:
1. Notepad wird gestartet
2. Es wird ein Text geschrieben
bis hierhin ok!
Aber wIe kann ich im Hintergrund auf das Menü zugreifen?
ShellExecute("Notepad.exe","","","", @SW_HIDE)
Sleep(100)
MsgBox(0,"Programm-Start","Notepad",1)
ControlSend("[CLASS:Notepad]",'','[CLASS:Edit; INSTANCE:1]',"Hallo wird im Hintergrund geschrieben")
Sleep(100)
;datei öffnen soll ausgeführt werden!
MsgBox(0,"Programm","Text wird geSchrieben",1)
ControlSend("[CLASS:Notepad]",'','[CLASS:Edit; INSTANCE:1]',"{ALTDOWN}{ALTUP}dn{ALTDOWN}{ALTUP}df")
Sleep(2000); warten bis alles erledigt ist!
;Dialog wird angezeigt!
WinSetState("[CLASS:Notepad]", "", @SW_show)
[/autoit] [autoit][/autoit] [autoit][/autoit]EDIT:
Ich hab's, WinActivate
Grüße
Ilse
Hallo Irrlicht,
merci für den Tipp.
Ich hatte bereits gesucht und auch ffmpeg.exe
gegoogled.
Da gibt es aber mehrere Versionen.
Welche Version kannst du für Autoit/64 bit empfehlen?
Es gibt auch anscheinend Trojaner die ffmpeg.exe heißen.
Hast du einen Downloadlink?
Hab auch gelesen, daß man die DateI mit Autoit steuern kann.
Sieht sehr komplizIert aus.
Weiß noch nicht so recht wie ich am besten starte...
Liebe Grüße
ilse
Hallo,
ich habe mal eine generelle Frage:
Ist es irgendwie möglich mit Autoit
z.B. in einem Video (avi, wmv, flv...)
den Sound m. (mp3, wav...) zu ersetzen?
Viele Grüße
Ilse
Hallo K4Z,
klappt leider immer noch nicht.
_FileWriteToLine("temp.txt", 1, $Bildpfad, 0)
Msgbox(0,"","Prüfe temp.txt"); Temp.txt ist gefüllt
;$file = FileOpen("temp.txt", 0)
FileCopy(@ScriptDir & "\temp.txt",@ScriptDir & "\temp2.txt",1)
Msgbox(0,"","Prüfe temp2.txt"); Temp2.txt ist leer
EDIT:
Habe den Fehler gefunden. ScriptDir ...
Liebe Grüße
Ilse 
Hallo Chesstiger,
habe wie lange damit probiert,
das klappt jetzt.
Habe aber nun folgendes Problem:
Der Text wird nicht gespeichert!
_FileWriteToLine("temp.txt", 1, $Text, 0)
$file = FileOpen("temp.txt", 0)
FileCopy(@ScriptDir & "\temp.txt",@ScriptDir & "\temp2.txt")
temp2.txt ist leer
Grüße Ilse
Hallo,
ich habe eine temp.txt Datei.
Diese Datei beinhaltet Text.
Nun möchte ich in die erste Zeile
einen Text nachträglich voranstellen.
Es sollte quasi alles andere eins tieferrutschen.
Habe _Filewritetoline gefunden.
Aber in der Textdatei kommt nichts an.
$file = FileOpen("temp.txt", 1)
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
FileWriteLine($file, $neuerText); hier wird Text geschrieben...(Die temp Datei zeigt dies auch an...)
_FileWriteToLine($file, 1, "Die erste Zeile", 0); Die Zeile 0.1... geht nicht!
FileClose($file)
[/autoit] [autoit][/autoit] [autoit][/autoit]Grüße
Ilse
Hallo Eukalyptus,
danke hab's hinbekommen.
Ich kämpfe noch mit deinem Script.
Hab noch eine Frage:
Sende dir ne Nachricht
Liebe Grüße
Ilse
Hallo,
ich möchte gerne
Zeilenweise meinen Text filtern(auslesen)
Erhalte aber einfach kein Ergebnis
Also:
Die Textdatei sieht so aus:
Die Datei enthält Umbrüche (SOM)
Mein Script
#include <array.au3>
#Include <File.au3>
Global $Row
[/autoit] [autoit][/autoit] [autoit]If Not _FileReadToArray(@ScriptDir & "\Temp.txt", $Row) Then
Exit
EndIf
;_ArrayDisplay($Row)
For $i = 1 To ubound($Row)-1
Msgbox(0,"Ganze Zeile",$Row[$i])
$Row[$i] = StringRegExp($Row[$i],"(\w+)\|.*?")
Msgbox(0,"Nur Spalte1",$Row[$i])
Next
[/autoit] [autoit][/autoit] [autoit][/autoit]Das Ergebnis sollte so aussehen:
Textbox 1Test 1Test 2
Textbox 2Test 1Test 2
Grüße
Ilse
@ alle
schon gut...mein Fehler
Hatte zuviel mit der Msgbox probiert.
Liebe Grüße
Ilse
