2010-01-03, 01:59
#13
Citat:
Förklaring?
Ursprungligen postat av xeroc81
C:\windows\system32\Rundll32.exe powrprof.dll,SetSuspendState Sleep
Flashback bygger pepparkakshus!
ska genast testas!
Och det fungerar prima! Man får tacka så hemskt mycket! Fungerar mycket bra utan minsta problem! Tack som fan!
2010-01-03, 16:49
#16
Citat:
Ursprungligen postat av xeroc81
Kod:
On Error Resume Next
Dim WMP : Set WMP = CreateObject("WMPlayer.OCX.7")
Dim wshShell : Set WshShell = WScript.CreateObject("WScript.Shell")
Dim toggle
toggle = WshShell.RegRead("HKCU\Software\open_close_tray\toggle")
If toggle = "" Then
toggle = true
End If
For i = 0 to WMP.cdromCollection.Count - 1
Dim CDROM : Set CDROM = WMP.cdromCollection.Item(i)
If toggle Then
CDROM.Eject
Else
CDROM.Eject
CDROM.Eject
End If
Next
WshShell.RegWrite "HKCU\Software\open_close_tray\toggle", not toggle ,"REG_DWORD"
ska genast testas!
Och det fungerar prima! Man får tacka så hemskt mycket! Fungerar mycket bra utan minsta problem! Tack som fan!
__________________
Senast redigerad av DoDaDa 2010-01-03 kl. 16:51.
Senast redigerad av DoDaDa 2010-01-03 kl. 16:51.
Skapa ett konto eller logga in för att kommentera
Du måste vara medlem för att kunna kommentera
