Makro's in Windows?

[Deepac]

Abend Kollegen!

Ich hab mich eben gefragt wie man bestimmte Abläufe in Windows autmoatisiern kann. ZB. will ich mithilfe eines Programmes welches ich am Desktop liegen hab meine Taskleiste fixieren und alle Dokumente aus dem Startmenü löschen. Irgendwer eine Idee wie ich sowas machen kann bzw ist sowas überhaupt möglich ?

 

[RAT]

Wäre im HF besser aufgehoben. Such doch bei Google mal nach "Windows Scripting Host"

 

[MasterJM]

move

 

[Korrn]

Es gibt ein Programm namens MacroX. Mit dem kann man genau diese Sachen (Maus- und Tastatur-Eingabe) "Scripten". Wartet bei Bedarf auch darauf, dass sich ein Fenster öffnet oder schließt und benutzt eine vereinfachte Scriptsprache.

Kann man als Freeware unbegrenzt nutzen, um eigenständige exe-Dateien zu erstellen muss man Geld zahlen.

 

[RAT]

Die Eintragungen unter "Start/Dokumente" liegen als Verknüpfungen (*.lnk) unter \Dokumente und Einstellungen\Benutzername\Recent\*.*

Der Ordner "Recent" hatt das hidden-Attribut (versteckt). Das automatische Löschen läßt sich leicht über eine Verknüpfung realisieren.

Fixieren der Taskleiste ist da schon schwieriger, läßt sich aber sicherlich scripten. Wenn ich nachher Zeit und Lust hab, schau ich mal.

 

[RAT]

So, Löschen ist kP:

Option Explicit
Dim computer
Dim WSH
Dim recent
Dim WMI
Dim Files
Dim file
'
computer = "." 'DIESER Rechner
'
Set WSH = WScript.CreateObject("WScript.Shell")
recent  = wsh.SpecialFolders("Recent")
recent  = "ASSOCIATORS OF {Win32_Directory.Name='" & recent & _
	  "'} Where ResultClass = CIM_DataFile"
Set WMI = GetObject("winmgmts:\\" & computer & "\root\cimv2")
Set Files = WMI.ExecQuery(recent)
'
If (Files.Count = 0) Then
    Wscript.Echo "Keine alten Einträge vorhanden"
Else
    Wscript.Echo Files.Count & " Einträge werden gelöscht"
    For Each file In Files
    	On Error Resume Next
        file.Delete
    Next
End If

Dat Zeuch als .vbs abspeichern. Doppelklick druff löscht alle Einträge unter Start/Dokumente. Taskleiste hab ich noch nix gefunden.