PureBoard

Verfasst: **02.12.2004 16:03**

GPI hat geschrieben:
Kaeru Gaman hat geschrieben:wozu MS die wohl braucht
Um den Bluescreen zu testen?

it's not a bug, it's a feature!

Verfasst: **02.12.2004 16:59**

wollte das gerade mal als PB code umsetzen, aber tut nicht....
Unter XP passiert gar nix, auch nicht wenn ich selbst auf die Tastatur drücke.
Unter 2000 macht das PB Programm nichts außer das die Scroll Lampe blinkt. Wenn ich selbst drücke, gibts es nen schönen BlueScreen.

Warum nimmt der meinen simulierten Tastendrücke nicht?

Code: Alles auswählen

;verzeiht diese Routine, hab ich gerade mal woanders herkopiert...
Procedure.s RegSetVal(hkey.l, sKey.s, vName.s, vData.s, vType.l, pc.s) 
  ret.l 
  hnd.l 
  vType.l 
  remhnd.l 
  SA.SECURITY_ATTRIBUTES 
  vBin.l
  
  ret=RegConnectRegistry_(pc, hkey, @remhnd) 
  If ret=#ERROR_SUCCESS 
    ret=RegCreateKeyEx_(remhnd, sKey, 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_ALL_ACCESS, @SA, @hnd, @ret) 
    If ret=#ERROR_SUCCESS 
      Select vType 
        Case #REG_SZ 
          ret=RegSetValueEx_(hnd, vName, 0, #REG_SZ, @vData, Len(vData)+1) 
          If ret=#ERROR_SUCCESS 
            ret$="#ok: value written*"
          Else
            ret$="*error: cannot access REG_SZ value*"   
          EndIf  
        Case #REG_DWORD 
          vBin = Val(vData) 
          ret=RegSetValueEx_(hnd, vName, 0, #REG_DWORD, @vBin, 4) 
          If ret=#ERROR_SUCCESS 
            ret$="#ok: value written*"
          Else
            ret$="*error: cannot access REG_DWORD value*"   
          EndIf  
      EndSelect 
    Else 
      ret$="*error: cannot access or create key*"
    EndIf 
  Else
    ret$="*error: cannot access remote registry*"
  EndIf    
  RegCloseKey_(remhnd) 
  ProcedureReturn ret$
EndProcedure 

;reg key setzen
RegSetVal(#HKEY_LOCAL_MACHINE,"System\CurrentControlSet\Services\i8042prt\Parameters","CrashOnCtrlScroll","1",#REG_DWORD,"")

;right scroll drücken
keybd_event_(#VK_RCONTROL,0,0,0)
Delay(100)

;scroll lock drücken, loslassen
keybd_event_(#VK_SCROLL,0,0,0)
Delay(100)
keybd_event_(#VK_SCROLL,0,#KEYEVENTF_KEYUP,0)
Delay(100)

;scroll lock drücken, loslassen
keybd_event_(#VK_SCROLL,0,0,0)
Delay(100)
keybd_event_(#VK_SCROLL,0,#KEYEVENTF_KEYUP,0)
Delay(100)

;right scroll loslassen
keybd_event_(#VK_RCONTROL,0,#KEYEVENTF_KEYUP,0)

PureBoard

Rechnerrunterfahren Unter Xp usw.