bom o amigo

 FredMP
me passou uma pesquisa..valeu..

 

mas o problema é que preciso controlar o sistema operacional é precdioso desabilitar o windows e desbloquear e isso tudo no win 98, 2000, xp e 2003...estou super atrazado com essa parte de controle do windows....

desde já agradeço a forda...

T+ galera....

veja boa sorte

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const MENU_KEYCODE = 91

'Use estes códigos:
Private Sub Command1_Click()
' Botão iniciar pressionado  'bloquia
keybd_event MENU_KEYCODE, 0, 0, 0
End Sub

Private Sub Command2_Click()
' Solta o botão iniciar  'desbloqueia
keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
End Sub