Beiträge von janrenzlow

Zitat von progandy

tausch doch das icon in der Exe aus, wie du es machen wolltest
1) Entpacken der Datei mit UPXShell ( http://upxshell.sourceforge.net/ )
2) Icon mit Resource Hacker ersetzen
3) Mit UPXShell wieder verpacken

Hi 'progandy, das war ja mein erster Schritt. ich habe es mit mehreren Iconformaten ausprobiert. Es war aber immer dasselbe. Nach dem Kompilieren mit Resourehacker lässt sich SD4HIDER.EXE nicht mehr starten. Fehlermeldung:

C:\Dokumente und Einstellungen\Jan\Desktop\sd4hide.exe ist keine zulässige Win32-Anwendung.

Vor dem Resourcehacker läuft sie jedoch einwandfrei. SD4HIDER.EXE habe ich im ersten Beitrag als Anhang beigefügt. Einfach. .ZIP in .EXE umbenennen. Herzlichst Jan

Danke für Deine Mühe, Xenobiologist, Dein Skript listet sämtlich laufende Anwendungen in der Taskbar auf. In der Scite Konsole werden sie bei mir korrekt mit -> angegeben:

>"D:\Programme\Programmieren\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Dokumente und Einstellungen\Johannes\Desktop\komisch.au3" /autoit3dir "D:\Programme\Programmieren\AutoIt3" /UserParams
+>20:34:39 Starting AutoIt3Wrapper v.1.10.1.7 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 2 CPU:X86)
>Running AU3Check (1.54.10.0) from:D:\Programme\Programmieren\AutoIt3
+>20:34:39 AU3Check ended.rc:0
>Running:(3.2.10.0):D:\Programme\Programmieren\AutoIt3\autoit3.exe "C:\Dokumente und Einstellungen\Johannes\Desktop\komisch.au3"
Debug: $hTrayWindow = 0x00030044
Debug: $hTaskBar = 0x000100E6
Debug: $iTaskCount = 8
Debug: Index: 0 Command ID: 9 Text: Firefox
Debug: Index: 1 Command ID: 10 Text: Neue Antwort erstellen - [ offen ] Häßliches Icon in Infoleiste unten entfernen
Debug: Index: 2 Command ID: 32 Text: SciTE - a Scintilla based Text Editor modified by Valik & Jos for AutoIt3.
Debug: Index: 3 Command ID: 33 Text: C:\Dokumente und Einstellungen\Johannes\Desktop\komisch.au3 - SciTE [2 of 2]
Debug: Index: 4 Command ID: 2 Text: Windows Explorer
Debug: Index: 5 Command ID: 0 Text: sd4hide11-skl
Debug: Index: 6 Command ID: 1 Text: sd4hide
Debug: Index: 7 Command ID: 3 Text: SafeDisc4 Hider
+>20:34:43 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 4.925

Laufende Anwendungen Firefox, Scite, Explorer mit Ordner sd4hide11-skl, SafeDisc4 Hider.exe

Doch was nun tun? Debug: Index: 7 Command ID: 3 Text: SafeDisc4 Hider ist das Ding mit dem Totenkopf

Hab mal eine Screenshot von der Taskleiste in flickr hochgeladen siehe http://www.flickr.com/photos/8064418@N03/2515866455/

Danke Xenobiologist, das .au3 Skript kann ich mit TrayIconHide im Systemtray verstecken. Ich meine aber nicht den Systemtray /mit der Systemzeit) sondern die Infoleiste zwischen START (ganz links) und dem Systemtray (ganz rechts). Selbst wenn SD4Hide.exe unsichtbar ist erscheint es unten mit Totenkopf wieder. Anscheinend aktiviert ControlClick das Fenster wieder, sodass es wie minimiert angezeigt wird. Gruss Jan.

PS. Das AutoItskript dessen Icon ich ja frei wählen kann, kann sichtbar sein Nur dieser Totenkopf soll in welcher Form auch immer beim Ausführen von SD4Hide .exe nicht sichtbar sein.

SD4Hide.exe ist kein kompiliertes AutoItskript, sondern ein Fremdskript, das nicht aus meiner Feder oder vom AutoItForum stammt

Auch so erscheint es unten in der "Statuszeile vom Desktop"

Run('c:\sd4hide.exe','')
While WinExists( 'SafeDisc4 Hider', 'Restore') = 0
Sleep(1500)
WEnd
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton3', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton2', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton3', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton2', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton3', 'left', 1)
Sleep(1500)

WinSetState( 'SafeDisc4 Hider', 'Restore', @SW_HIDE)
Sleep(1500)

Hi,
ich hab ein nützliches Programm SD4Hide.exe mit einem häßlichen Icon ("Totenkopf"). Ein Austausch des Icon mit dem Resourcehacker geht, aber anschließend lässt sich die SD4Hide.exe nicht ausführen.

Nun wollte ich das Fenster unsichtbar machen und dabei einige Klicks in der SD4Hide .exe ausführen. Alles perfekt. Fenster ist unsichtbar, aber erscheint noch immer mit Totenkopf in der Infoleiste links neben dem Systemtray (, da wo auch die anderen Fenster angezeigt werden, wenn sie existieren).

Gibt es keine Möglichkeit dieses Icon entweder ganz verschwinden zu lassen oder auszutauschen? Das ganze ist für zwei Zwillinge, deren Mutter sich über das Icon aufregt...

Im Anhang ist die SD4Hide.exe (bitte SD4Hide.zip in SD4Hide.exe wieder umbenennen) und hier mein bisheriges Skript

Run('c:\sd4hide.exe','', @SW_HIDE)
While WinExists( 'SafeDisc4 Hider', 'Restore') = 0
Sleep(1500)
WEnd
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton3', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton2', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton3', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton2', 'left', 1)
Sleep(1500)
ControlClick ( 'SafeDisc4 Hider', 'Restore', 'TButton3', 'left', 1)
Sleep(1500)
WinSetState( 'SafeDisc4 Hider', 'Restore', @SW_SHOW)
Sleep(1500)
WinSetState( 'SafeDisc4 Hider', 'Restore', @SW_HIDE)
Sleep(1500)

Verwende in diesem Falle ExitLoop ohne Klammerangabe springt ExitLoop aus allen umgebenden Schleifen.
Sind zwei Schleifen ineinander verschachtelt und Du willst nur aus der innersten Schleife herausspringen, heisst es ExitLoop(1) aus beiden ExitLoop(2). Weiteres in der Hilfe (mit Instanzen sind jeweils Schleifen gemeint) Gruss Jan

Ich schau gerade in meine Kristallkugel und kann nicht sehen, wat Du wolle.
Wenn Du eine Grafik in Deinem Programm irgendwie baust, lasse sie doch in einem eigenem Fenster in Dein Programmfenster erscheinen, dann machst Du von jenem Grafikfenster mit ALT + PRINT einen Screenshot und schon hast Du Deine Grafik ...

Ansonsten mach einfach einen Screenshot von Deinem Problem stell ihn auf https://autoit.de/www.flickr.com zum anschauen bereit ... Gruss Jan

GUICtrlCreatelabel ("NTFS Set", 100,10)
$Combo = GUICtrlCreateCombo ("Set1", 100,40) ; Liste Erstellen
GUICtrlSetData(-1,"Set2|Set3","Set3") ; Items hinzufügen, default setzen
GUISetState ()

sollte lieber so lauten:

GUICtrlCreatelabel ("NTFS Set", 100,10)
$Combo = GUICtrlCreateCombo ("", 100,40) ; Liste Erstellen
GUICtrlSetData(-1,"Set1|Set2|Set3","Set3") ; Items hinzufügen, default setzen
GUISetState ()

Gruss Jan

Hi, hast Du auch oben

#Include <GuiComboBox.au3>

eingefügt? Übrigens gezählt wird immer von 0 an. willst Du das dritte Element in der Combo ansprechen nimm die 2 (1. Element= 0 , 2.Element = 1, 3. Element = 2 usw)

Func NTFSSel()
_GUICtrlComboBox_SetCurSel ($Combo, 2)
MsgBox(4160, "Information", "Aktuelles NTFS Set " & _GUICtrlComboBox_GetCurSel ($Combo))
EndFunc

Gruss Jan

Einfach MS-Paint starten einfügen, abspeichern unter und fertig . Geht auch "unsichtbar" mit ControlFunktionen(in der Hilfe unter Function References/Windows Managment) versteckt Gruss Jan

z.B. _GUICtrlComboBox_GetCurSel oder _GUICtrlComboBox_GetEditSel. Gruss Jan

RunWait(@ComSpec & ' /k cacls "c:\' & GUICTRLRead($Foldername) & '" /T /E /G "jeder:f" ', '', @SW_SHOW)

Pfad in Anführungszeichen weil der Ordner könnte auch auch Leerzeichen beinhalten, die automatisch zu einem Fehler führen würden. Gruss Jan

Hier die Befehlsyntax

CaclsZeigt DACL-Dateien (Discretionary Access Control List, Freigegebene Zugriffsliste) an oder ändert diese.

Syntax
cacls Dateiname [/t] [/e] [/code] [/g Benutzer:Berechtigung] [/r Benutzer [...]] [/p Benutzer:Berechtigung [...]] [/d Benutzer [...]]

Parameter
Dateiname
Erforderlich. Zeigt die DACLs der angegebenen Dateien an.
/t
Ändert die DACLs der angegebenen Dateien im aktuellen Verzeichnis und allen Unterverzeichnissen.
/e
Bearbeitet eine DACL, anstatt sie zu ersetzen.
/c
Setzt das Ändern der DACLs fort, ohne Fehler zu beachten.
/g Benutzer:Berechtigung
Erteilt dem angegebenen Benutzer Zugriffsrechte. In der folgenden Tabelle sind gültige Werte für Berechtigung aufgeführt. Wert Beschreibung
n Keine
r Lesen
w Schreiben
c Ändern (Schreiben)
f Vollzugriff

/r Benutzer
Entzieht dem angegebenen Benutzer Zugriffsrechte.
/p Benutzer:Berechtigung
Ersetzt Zugriffsrechte für den angegebenen Benutzer. In der folgenden Tabelle sind gültige Werte für Berechtigung aufgeführt. Wert Beschreibung
n Keine
r Lesen
w Schreiben
c Ändern (Schreiben)
f Vollzugriff

/d Benutzer
Verweigert dem angegebenen Benutzer den Zugriff.
/?
Zeigt Hilfe an der Eingabeaufforderung an.
Hinweise
Anhand der folgenden Tabelle können Sie die Ergebnisse auswerten. Ausgabe ACE gilt für
OI Diesen Ordner, Dateien
CI Diesen Ordner, untergeordnete Ordner
IO Der ACE gilt nicht für die aktuelle Datei/das aktuelle Verzeichnis.
Keine ausgegebene Meldung Nur diesen Ordner
(IO)(CI) Diesen Ordner, untergeordnete Ordner und Dateien
(OI)(CI)(IO) Nur untergeordnete Ordner und Dateien
(CI)(IO) Nur untergeordnete Ordner
(OI)(IO) Nur Dateien

Sie können Platzhalterzeichen (d. h. * und ?) verwenden, um mehrere Dateien anzugeben.
Sie können mehrere Benutzer angeben.
Formatting legend
Format Meaning
Italic Information that the user must supply
Bold Elements that the user must type exactly as shown
Ellipsis (...) Parameter that can be repeated several times in a command line
Between brackets ([]) Optional items
Between braces ({}); choices separated by pipe (|). Example: {even|odd} Set of choices from which the user must choose only one
Courier font Code or program output

Hi, Du kannst natürlich auch über dir /s /b - glaube ich - nach Dateien durchsuchen. Entweder Du liest das Dir Ergebnis mit StdOut() aus oder Du leitest mit dir *.* /S /B > c:\ergebnis.txt das Ergebnis in eine Textdatei um um, die Du dann ausliest. Gruss Jan

Hi bernd670, hab vielen Dank und fünf Sterne an Dich *****. Es funzst! Gruss Jan

Hi,
ich schreib ein Programm, mit dem man im Internet herumstöbern und per STRG + C in die Suche eMule schickt. Das Dumme daran ist, dass ich die Tastenkombination STRG + C für mein Skript verwenden will (weil es sich so eingebürgert hat dass STRG + c gleich Kopieren ist). Ich aber in meinem Skript auf den alten Hotkey zurückgreifen muss. In der Hilfe gibt es da eine besondere Stelle ; capture and pass along a keypress, aus der ich aber nicht recht schlau daraus werde. Beschreibt diese Stelle mein Problem?. Ein vereinfachtes Skript habe ich mal beilegt.Gruss Jan

HotKeySet('^c', 'ShowMessage')
While 1
Sleep(100)
WEnd

Func ShowMessage()
Send('^c') ; hier sollte auf den alten Hotkey zurückgegriffen werden
MsgBox(4096,"","This is a message." & @CRLF & ClipGet(),3)
EndFunc

Der Zwischenspeicher geht nicht , der ist doch mit in Benutzung, weil ich per Copy & Paste im Internet auf der Jagd nach Suchbegriffen bin.

Das nit dem EditControl auslesen ist ne nette Lösung, an die nicht drauf kam. Momentan neige ich aber mehr zur Systemvariablen. Kleine Probeläufe funktionierten wunderbar.

Zwei Skripte sind leider notwendig eines , dass wenn ich unterwegs im Internet bin meine Fundstücke in Systemvariable einspeist und ein anderes, das in Wartestellung alle Fundstücke in eMule-Suche nacheinander einträgt und ständig nahschaut, ob was für die Suche eingetroffen ist.

Danke allen Jan

Es geht anders über

ControlCommand('eMule v0.', '', 2322, 'SetCurrentSelection', 2 );ComboBox1

So funzst es auch wunderbar Gruss Jan

AutoIt hat Schwierigkeiten mit MDIs Multiple Document Interface wie zum Microsoft Word. Aus welcher ANwendung stammt Dein Unterfenster. In der Hilfe findest Du unter "MDI" und den Schwierigkeiten etwas mehr. Gruss Jan

Kann eine Systemvariable ein Array sein? Keine Ahnung weisst Du es oder wie sollen sich zwei Prozesse ein und dasselbe Array teilen? Global probier es gleich aus. Jan

Deklaration als Global funktioniert nicht über ein Skript hinweg, das es zwei Skripte benutzen können.

Hi, ich will in der Suche von eMule V0.48 unter TYP 'Audio' und unter METHODE 'KAD Netzwerk' auswählen. Geht aber beides nicht. Vielleicht weil links vom Eintrag noch Icons sind? Gibt es irgendeine Möglichkeit besagte Auswahl zu treffen. Es wäre am besten wenn man dazu das Fenster nicht zu aktivieren braucht ALso nicht ControlSetFocus und dann DOWN DOWN ...Gruss Jan

EnvSet('Searchqueue', 'London|Moskau|Paris'); Suche im Internet mit Copy, Paste per Script in eMule
EnvUpdate()
MsgBox(4096, '', EnvGet('Searchqueue'),2)
$a=StringSplit(EnvGet('Searchqueue'),'|')
;If ProcessExists('emule.exe') = 1 Then
For $i = 1 to 2
While $a[$i]='' ;warte solange die Warteschlange leer ist
Sleep(500)
$a=StringSplit(EnvGet('Searchqueue'),'|')
WEnd
_SleepWhileStartIsntAvailable()
MsgBox(4096,$i,$a[$i],1)
;Suche über Global Server
ControlSetText('eMule v0.', '', 2183, $a[$i] ); Edit6 ,Eingabe ins Suchfenster
ControlCommand('eMule v0.', '', 2322, 'SelectString', 'Audio' );ComboBox1 TYP
ControlCommand('eMule v0.', '', 2175, 'SelectString', 'Global (Server)' ); ComboBox2 METHODE
ControlClick('eMule v0.', '', 2189)
_SleepWhileStartIsntAvailable()
;Suche über KAD
ControlSetText('eMule v0.', '', 2183, $a[$i] ); Edit6
ControlCommand('eMule v0.', '', 2322, 'SelectString', 'Audio' )
ControlCommand('eMule v0.', '', 2175, 'SelectString', 'KAD Netzwerk' ); ComboBox2
ControlClick('eMule v0.', '', 2189)
Next
;EndIf

Func _SleepWhileStartIsntAvailable()
While ControlCommand('eMule v0.', '', 2189, 'IsEnabled', '') = 0
Sleep(500)
WEnd
EndFunc