Underc0de - Hacking y seguridad informática

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 03:47:05 pm

Título: Como apagar el monitor
Publicado por: ANTRAX en Julio 26, 2010, 03:47:05 pm
Código: Visual Basic
  1. Private Const APAGA = 2&
  2. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  3. Private Sub Command1_Click()
  4. Call SendMessage(Me.hWnd, &H112, &HF170&, ByVal APAGA)
  5. End Sub