http://www.alptekinbodur.com/trNe aradığını bilmeyen neyi bulduğunu anlayamaz!wwww.alptekinbodur.comhttp://www.alptekinbodur.com/makale/VbNet-ile-monitoru-acip-kapatmak/http://www.alptekinbodur.com/makale/VbNet-ile-monitoru-acip-kapatmak/ Public Class MonitorAcKapat Const HWND_BROADCAST As Integer = &HFFFF Const SC_MONITORPOWER As Integer = &HF170 Const WM_SYSCOMMAND As Short = &H112S Sub Main() Dim instr As String = Command() Select Case Command().ToLower Case "off" TurnOff() Case "on" TurnOn() Case "test" TurnOff() 'turn off monitor System.Threading.Thread.Sleep(10000) '10 saniye bekle TurnOn() 'turn on monitor Case Else MsgBox("Kullanm, [on]/[off]/[test] ", _ MsgBoxStyle.Information, _ "Devre Komutu Gerekiyor") End Select End Sub Private Function SendMessage(ByVal Handle As Int32, _ ByVal wMsg As Int32, ByVal wParam As Int32, _ ByVal lParam As Int32) As Int32 End Function Sub StandBy() SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1) End Sub Sub TurnOff() SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2) End Sub Sub TurnOn() SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1) End Sub End Class ]]>www.alptekinbodur.comWed, 8 Agu 2007 16:58:00 +0200