Hi,
da hatte sich im AppBar doch tatsächlich noch ein VBSkript versteckt!
Das mußte ich natürlich für XP umschreiben..
Wahrscheilich reicht an- und abmelden, um Änderungen ggfs. wirksam werden zu lassen.
Zu anderen Betriebssytemen fragen Sie bitte Microsoft oder Ihren Administrator..
(Regwiz/WinFAQ weiß das alles..)
Aus gegebenem Anlaß weise ich ausdrücklich darauf hin, daß dieses Skript in die
Registry schreibt! Wer also kein XP hat, muß die Adressen erst anpassen..
DIE REGISTRY IST KEIN SPIELZEUG!
So genug gewarnt, hier isses:
Spoiler anzeigen
C
;<AutoItScript>
Opt("MustDeclareVars", 1) ;0=ohne, 1=erfordert Variablen-Deklaration
#NoTrayIcon ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
#include "constants.au3"
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Author="AutoRun.au3 ©2006 by ytwinky, MD"; |
;| EMail: PIII1kSystem-AutoIt3Forum@yahoo.de |
;| AutoIt3-Version: aktuelle beta |
;| Editor: SciTE aktuelle Version, feste Schriftart |
;| Zweck : Schablone für den Anfang, nach Bedarf anpassen |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Const $RegKey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\"
Const $RegVal="AutoRun"
Dim $Schalter[2]=["aus", "ein"]
Global $Zustand, $Frage=""
$Zustand=RegRead($RegKey, $RegVal)
If @Error Then
Switch @Error
Case 1
$Frage="unable to open requested key"
Case 2
$Frage="unable to open requested main key"
Case 3
$Frage="unable to remote connect to the registry"
Case -1
$Frage="unable to open requested value"
Case -2
$Frage="value type not supported"
Case Else
$Frage="unknown error.."
EndSwitch
MsgBox(4096, "Script-Error", "Ooops, " &$Frage)
Exit
Else
If $Zustand=1 Or $Zustand=0 Then
$Frage=MsgBox(4099, "AutoRun ist " &$Schalter[$Zustand] &"geschaltet", "AutoRun " &$Schalter[1-($Zustand=1)*1] &"schalten?")
If $Frage=$IDYes Then
RegWrite($RegKey, $RegVal, "REG_DWORD", 1-($Zustand=1)*1)
MsgBox(4098, "You changed the mouseposition :D", "..please restart your computer..")
EndIf
EndIf
EndIf
Exit
;</AutoItScript>
Alles anzeigen
Gruß
ytwinky