Moin,
ich möchte ein TrayIcon erstellen und wenn die linke Maustaste gedrückt wird,
dann soll ein Programm gestartet werden.
Wenn die linke Maustaste gedrückt wird, soll ein TrayMenü gezeigt werden.
Mein Problem ist jetzt womit mache ich das nun ?
TrayGetMsg()... oder
TraySetOnEvent()... oder womit ???
Ich habe mich schon durch die Hilfe gewühlt, diese hat mich jedoch nun völlig verwirrt... :irre:
Kann jemand ein kleines BsplScript geben ?
Gruß
Greenhorn
Erstmal vielen Dank an alle für die Hilfsbereitschaft !
Da mein Bekannter sich seit zwei Tagen nicht gemeldet hat lege ich das Thema erstmal auf Eis...
Bis die Tage...
Gruß
Greenhorn
Vielen Dank snoozer !
Melde mich morgen noch einmal bei dir, wenn ich darf !?
Bin heute zu kaputt um noch auf den Screen zu starren (14 std. geschuftet, in der Halle...). Muss jetzt erstmal in die Heia !
Gruß
Greenhorn
Hi,
ein Bekannter von mir hat einen Router (keine FritzBox) und hat mich gefragt, ob es möglich ist per Script die Internetverbindung zu trennen und dann den Router wieder mit dem Netz zu verbinden ?!
Normalerweise muss man ja den Stecker ziehen und wieder einstecken um eine neue IP-Addie zu bekommen.
Ich besitze allerdings keinen Router, deshalb habe ich auch keinen Plan, ob so etwas Software-Mäßig realisierbar ist...
Kann mir jemand dazu Auskunft geben ?
Wie gesagt, es geht darum eine neue IP-Addie zu bekommen...
Gruß
Greenhorn
p.s.: Frohe Ostern@all !
@th.meger
Ich möchte ein Script schreiben, welches ein SFX-Archiv vom Stick auf die Festplatte kopiert.
In dieser SFX ist Winamp + die Musikdatei(en). Nach dem Entpacken soll Winamp gestartet werden und die mitentpackten mp3s abspielen, wenn's geht alle (ca. 25 stk)...
Das abspielen ist auch kein Problem..., aber nur wenn sich die Musikdateien im selben Ordner wie die winamp.exe befinden.
Im wirklichen Ablauf des Geschehens befinden diese sich aber eine Ordnerebene höher !!!
Wie oben bereits angemerkt funktioniert es aber mit ..\mp3.mp3 nicht !!!!!!!
Auf meinem Rechner ist Winamp schon installiert, deshalb konnte ich bis Heute nur mit dem installierten Winamp testen, da die portable-Version beim beenden meine Registry zerhacken würde.
Bis Heute ??? Jahaaa, ich habe heute meinen neuen RAM bekommen (2 GB), jetzt kann ich endlich mit VMWare oder Virtual PC experimentieren ! :party3:
Vielen Dank an euch alle für die Aufmerksamkeit und Hilfe !
Gruß
Greenhorn
Original von snoozer
mhh wenns portable sein soll...mp3 portable??? winamp vorhanden???
der snooozer
Umgekehrt wird 'n Schuh draus...
Winamp portable --> Musikdateien vorhanden oder mitgebracht...
Gruß
Original von huggy
Gib mal überall den ABSOLUTEN pfad an!
Habe ich schon probiert --> Ohne Erfolg !
Außerdem kenne ich die Pfade nicht, bzw. wechseln die Pfade immer wieder. (soll portable sein, also vom Stick !)
Original von snoozer
PS: window$ weiß nichts mit "..\" anzufangen...->dir not found
Ich dachte "..\" kommt aus der DOS-Welt ???
Gruß
Hi,
ich möchte gerne mp3 Dateien mit Winamp-lite abspielen.
Problem: Winamp ist nicht der Standart-Mediaplayer und die mp3s befinden sich eine Ordnerebene höher ! :irre:
Habe es mit ner Batchdatei versucht, aber das funzt nur wenn die mp3s im gleichen Verzeichnis sind wie die winamp.exe...
Geht das mit AutoIt ?
Parameter ist winamp.exe /PLAY Datei.mp3
Bei ShellExecute und Run (jeweils mit @ComSpec) kommt immer die Fehlermeldung: Datei nicht gefunden, obwohl die Pfade stimmen...
[autoit]ShellExecute("winamp.exe", " /PLAY ..\Eric.mp3", @DesktopDir)
[/autoit]Gruß
Greenhorn
Den Scriptcode gibst Du mit dem 'AutoIt-Icon'-Button links neben dem Button für den 'Spoiler'(eckige Klammern) ein, oder Du schreibst in's Textfeld: ["AutoIt"] ...Code... ["/Autoit"] ( ohne die " ).
Um den Code zu verstecken: ["Spoiler"]["AutoIt"] ...Code... ["/Autoit"]["/Spoiler"] (natürlich auch ohne die " ).
; Beispiel
#NoTrayIcon
Run("regedit /s D:\SoftM_Start\Reg\Alkor_Suite_T0.reg";) ; Falsch: " ; " setzt man nicht bei AutoIt !!!
[/autoit]Das Semikolon braucht man nicht bei AutoIt...(Außer für Kommentare), bei C++ ja, und dann ganz am Ende der Zeile, aber nicht bei AutoIt ! 
Gruß
Greenhorn
Edit: Zeile 74 hat einen Fehler:
[autoit]if $NameAS400<>"" and $userpassreg And $useridout<>"" Then ; Falsch
[/autoit][autoit][/autoit][autoit]if $NameAS400<>"" and $userpassreg<>"" And $useridout<>"" Then ; Richtig !
[/autoit]-----------------------------------------
Hi Thomas,
...Rest vor dem ControlCommand und danach funktioniert. Auch mit Mouseclick will nicht funktionieren da sich das Feld an unterschiedlichen Stellen öffnet.
Wenn Du MouseClick benutzt, dann musst Du so tun...
[autoit]AutoitSetOption("MouseCoordMode", 0)
; Sets the way coords are used in the mouse functions, either absolute coords or coords relative to the current active window:
; 0 = relative coords to the active window
; 1 = absolute screen coordinates (default)
; 2 = relative coords to the client area of the active window
Beim WindowInfoTool musst Du dann auch einstellen das die Maus-Koordinaten relativ zum aktiven Fenster sind !!!
Das klappt immer !
Gruß
Greenhorn
ContinueLoop
[/autoit]Gruß
Greenhorn
Hi Thomasb,
wenn ich dich richtig verstehe möchtest Du von einem Setup oder einer externen Applikation den RadioButton aktivieren, stimmt's...?!
Hast Du die Maus auf dem Radio Button gehalten als Du das WindowInfo eingefroren hast ?
Dann versuch's mal mit ControlClick ...
Solltest Du die ControlID nicht herausbekommen oder ansprechen können, dann hilft auf jeden Fall MouseClick weiter.
Gruß
Greenhorn
p.s.: Am besten Du stellst dein Script mal hier rein...
Vielen Dank für die Tips, Leute ! 
Jan's Script funktioniert hervorragend, deinen Tip, pee, werde ich noch austesten, da hast Du mich neugierig gemacht...
Sehe das Thema erst mal als gelöst an...
Greetz@all-au3Freax
Nun, der Zweck ist einfach nur eine optische Anzeige der Restzeit bis das Auswahlfenster schließt.
Ein Fenster geht auf, mit einem Auswhlmenü (Radio) und zwei Button -> einer zum Bestätigen & einer zum Beenden/Abbrechen.
Das war's mehr eigentlich nicht.
In anderen Anwendungen wie Nero oder WinRAR wird's ja auch angezeigt und ich habe trotzdem noch Kontrolle über die GUI (meistens jedenfalls, hihi)...
Kann man nicht eine Schleife benutzen, die auf @SEC das Label aktualisiert, oder die GUI neu aufbaut ?
Den Rest kann man dan mit Mathe machen, denke ich
Versuche gerade so etwas...
$T = @SEC
Sleep(1000)
For $i = 1 To 20
If @SEC = ($T+1) Then
$2 = @SEC - (@SEC+20)
$3 = $2-($2+$2)
;SplashTextOn("Title", $3, -1, -1, -1, -1, 4, "", 24)
MsgBox(0, "", $3)
ElseIf ($T+$i) = ($T+20) Then
Exit
EndIf
$T = @SEC
Next
Mein mathematisches Genie ist unverkennbar, nicht ? 
Irgendwie muss das doch... :irre:
Vielen Dank gtaspider,
as habe ich auch schon probiert, aber wenn ich Sleep in meine GUI einbaue dann "schläft meine GUI ja, es sollen aber noch auswahlen möglich sein...
#include <GuiConstants.au3>
$GUI_Start = @SEC
[/autoit] [autoit][/autoit] [autoit]GuiCreate("Zu guter Letzt...", 370, 311,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
[/autoit] [autoit][/autoit] [autoit]$Radio_2 = GuiCtrlCreateRadio("Ja, das war gar nicht so schlecht...", 50, 130, 270, 20)
$Radio_3 = GuiCtrlCreateRadio("Nein, danke...", 50, 190, 270, 20)
GUICtrlSetState($Radio_3, $GUI_CHECKED)
$Button_6 = GuiCtrlCreateButton("OK", 260, 240, 80, 30)
$Button_7 = GuiCtrlCreateButton("Beenden", 30, 240, 80, 30)
GuiSetState()
[/autoit] [autoit][/autoit] [autoit]For $i = 20 To 0 Step - 1
$Label = GUICtrlCreateLabel("Sie haben noch 20 sekunden bis sich das fenster schließt...", 10, 10)
Sleep(1000)
$msg = GuiGetMsg()
Select
Case $msg = $Button_6
If GUICtrlGetState($Radio_2) = $GUI_CHECKED Then
Run("BspMusik.exe")
Else
ExitLoop
EndIf
Case $msg = $Button_7
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
Next
Exit
??? :irre:
Hallo,
ich möchte in einer GUI einen Label mit einem Countdown in Sekunden von, sagen wir 20 auf 0 darstellen !
So in etwa:
[autoit]"Sie haben noch " & $Countdown_sec & " sek. Zeit bis das Fenster sich schließt..."
[/autoit]Wie bekomme ich das hin ???
Gruß
Greenhorn
Hi Dustin,
das was Du in der Messagebox zu sehen bekommen hast ist der Fehlercode @error, s. Hilfe zu _FileReadToArray !
Return Value
Success: Returns a 1
Failure: Returns a 0
@Error: 0 = No error.
1 = Error opening specified file
Remarks
$aArray[0] will contain the number of records read into the array.so sollte es gehen...
#include <Array.au3>
#include <File.au3> ; _FileReadToArray benötigt <File.au3> !!!
;-------------------------------------------------
Dim $FR
If _FileReadToArray(@ScriptDir & "\DE.txt", $FR) = 0 Then MsgBox(4096, "Error", "Error")
; $SP = StringSplit($FR, @CRLF, 1) --> Brauchst Du nicht, da DE.txt Zeile für Zeile in den Array gelesen wird !
; $FR[0] enthält die Anzahl der Arrayelemente
; $FR[1] enthält "Hallo"
; $FR[2] enthält "Welt"
_ArrayDisplay($FR, "")
MsgBox(64, "$FR", "Anzahl der Arrayelemente: " & $FR[0] & @CRLF & "$FR[1] enthält: " & $FR[1] & @CRLF & "$FR[2] enthält: " & $FR[2])
[/autoit]Viel Spaß noch mit Arrays !
Gruß
Greenhorn
Eine kleine GUI für shorten32(Lossless Audio converting)...
Konvertiert .wav -> .shn
Mit shn4winamp kann man die .shn's mit Winamp abspielen.
Viel Spaß damit
Probiere mal den hier...
[autoit]RunWait(@ComSpec & " /k " & "shorten " & $c & $Path & "/" & $Array[$i], "", @SW_MAXIMIZE)
[/autoit]
So, habe es endlich geschafft...
Ist zwar nichts dolles, aber es funktioniert ! :stolz_bin:
Ein paar Schönhetsarbeiten kann man ja noch vornehmen...
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.2.0
Author: Greenhorn
Script Function:
WinShorten a GUI for Shorten
#ce ----------------------------------------------------------------------------
#NoTrayIcon
#include <GuiConstants.au3>
#include <GUIList.au3>
#include <Array.au3>
Dim $Array, $Target, $File, $c
[/autoit] [autoit][/autoit] [autoit]FileInstall("shorten.exe", @SystemDir & "\shorten.exe", 1)
FileInstall("cygwin1.dll", @SystemDir & "\cygwin1.dll", 1)
GUICreate("WinShorten", 640, 420, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Group_1 = GUICtrlCreateGroup(" Dateien ", 20, 30, 580, 270)
$Add = GUICtrlCreateButton("Hinzufügen", 490, 70, 90, 30)
GUICtrlSetState(-1, $GUI_FOCUS)
$Del = GUICtrlCreateButton("Entfernen", 490, 140, 90, 30)
$List = GUICtrlCreateList("", 60, 60, 370, 214)
$Group_2 = GUICtrlCreateGroup(" Optionen ", 20, 310, 180, 100)
$Compress = GUICtrlCreateRadio("Komprimieren", 30, 330, 100, 20)
$Extract = GUICtrlCreateRadio("Extrahieren", 30, 370, 100, 20)
$Start = GUICtrlCreateButton("Start", 500, 320, 100, 30)
$Exit = GUICtrlCreateButton("Beenden", 500, 370, 100, 30)
GUISetState()
Do
$msg = GUIGetMsg()
Select
Case $msg = $Add
File_Add()
Case $msg = $Del
$chosen = _GUICtrlListSelectedIndex($List)
_GUICtrlListDeleteItem($List, $chosen)
Case $msg = $Compress
$c = ""
Case $msg = $Extract
$c = "-x "
Case $msg = $Start
Convert()
CmdClose()
Case $msg = $Exit
CmdClose()
Exit
EndSelect
Until $msg = $GUI_EVENT_CLOSE
Exit
; File Add
[/autoit] [autoit][/autoit] [autoit]Func File_Add()
$message = "Hold down Ctrl or Shift to choose multiple files."
$var = FileOpenDialog($message, @DesktopDir & "\", "(*.wav)|(*.shn)", 1 + 4)
$Array = StringSplit($var, "|")
If $Array[0] = 1 Then
$ArFile = StringSplit($Array[1], "\")
$i = $ArFile[0]
GUICtrlSetData($List, $ArFile[$i])
If StringInStr($var, ".wav") <> 0 Then
GUICtrlSetState($Compress, $GUI_CHECKED)
GUICtrlSetState($Extract, $GUI_DISABLE)
ElseIf StringInStr($var, ".shn") <> 0 Then
GUICtrlSetState($Extract, $GUI_CHECKED)
GUICtrlSetState($Compress, $GUI_DISABLE)
$c= "-x "
EndIf
EndIf
For $i = 2 To UBound($Array) - 1
$File = $Array[$i]
GUICtrlSetData($List, $File)
If StringInStr($File, ".wav") <> 0 Then
GUICtrlSetState($Compress, $GUI_CHECKED)
GUICtrlSetState($Extract, $GUI_DISABLE)
ElseIf StringInStr($File, ".shn") <> 0 Then
GUICtrlSetState($Extract, $GUI_CHECKED)
GUICtrlSetState($Compress, $GUI_DISABLE)
$c= "-x "
EndIf
Next
EndFunc ;==>File_Add
; Convert
[/autoit] [autoit][/autoit] [autoit]Func Convert()
#include <GuiConstants.au3>
Unchecked()
No_Space()
GUICreate("Fortschritt", 392, 136, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Progress = GUICtrlCreateProgress(20, 30, 350, 20)
$Label = GUICtrlCreateLabel("", 20, 70, 350, 20)
$percent = (100/ (UBound($Array) - 2))
If $c = "" Then
$Act = "komprimiert"
Else
$Act = "extrahiert"
EndIf
GUISetState()
GUICtrlSetData($Label, "Dateien werden " & $Act & "...")
$tmp = $Array[1]
$Path = StringRegExpReplace($tmp, "\\", "/")
If $Array[0] = 1 Then
Run(@ComSpec & " /k " & "shorten " & $c & $Path, "", @SW_HIDE)
GUICtrlSetData($Progress, 100)
Sleep(100)
EndIf
For $i = 2 To UBound($Array) - 1
Run(@ComSpec & " /k " & "shorten " & $c & $Path & "/" & $Array[$i], "", @SW_HIDE)
GUICtrlSetData($Progress, ($i * $percent))
Sleep(100)
Next
MsgBox(64, "Fertig", "Dateien wurden erfolgreich " & $Act)
WinKill("Fortschritt")
EndFunc ;==>Convert
; CmdClose
[/autoit] [autoit][/autoit] [autoit]Func CmdClose()
Do
$PID = ProcessExists("cmd.exe")
If $PID Then ProcessClose($PID)
Until $PID = 0
EndFunc ;==>CmdClose
; Unchecked
[/autoit] [autoit][/autoit] [autoit]Func Unchecked()
$Un = GUICtrlGetState($Extract)
$Unx = GUICtrlGetState($Compress)
$UnList = _GUICtrlListCount($List)
Select
Case $Un = $GUI_UNCHECKED
MsgBox(4096, "Error", "Bitte Option wählen!")
Case $Unx = $GUI_UNCHECKED
MsgBox(4096, "Error", "Bitte Option wählen!")
Case $UnList = 0
MsgBox(4096, "Error", "Es wurden keine Dateien ausgewählt!")
EndSelect
EndFunc ;==>Unchecked
; No Space
[/autoit] [autoit][/autoit] [autoit]Func No_Space()
If $Array[0] = 1 Then
$ArFile = StringSplit($Array[1], "\")
$i = $ArFile[0]
$Title = StringRegExp($ArFile[$i], "[ ]", 1)
If @extended Then
$Target = StringRegExpReplace($ArFile[$i], "[ ]", "")
_ArrayPop($ArFile)
FileMove($ArFile & "\" & $Title, $ArFile[1] & "\" & $Target)
EndIf
EndIf
For $i = 2 To $Array[0]
$ArStr = $Array[$i]
$Target = StringRegExp($ArStr, "[ ]", 1)
If @extended Then
$Target = StringRegExpReplace($ArStr, "[ ]", "")
FileMove($Array[1] & "\" & $Array[$i], $Array[1] & "\" & $Target)
EndIf
Next
EndFunc ;==>No_Space
Vielen Dank nocheinmal an euch alle !
Gruß
Sorry, hab gepennt...
So geht's:
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]$target = "C:\Programme\Mozilla Firefox\firefox.exe"
; Dateiname auslesen
$file = StringSplit($target, "\")
_ArrayDisplay($file, "Pfad")
; Dateiname
MsgBox(64 + 8192, "Dateiname", $file[$file[0]])
; Pfadname
_ArrayPop($file)
_ArrayDisplay($file, "Pfad")
$Path = _ArrayToString($file, "\",1)
MsgBox(0, "Pfad", $Path)
Gruß