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
Site İçi Arama
Takipte Kalın
Rss beslemesine abone olun Yeni yazıları eposta ile alın Profesyonel Linkedin ağıma katılın Facebook arkadaş listenize ekleyin Friendfeed ile takip edin ve yorumlayın Twitter ile takip edin Vimeo ağımdaki videoları izleyin
Twitter'dım :)
Son Yorumlar
  • Aile Ağacı v4.5.9.1 yazısı için BİLAL yazmış: iyi günler. öncelikle program çok güzel olmuş. ellerinize sağlık. programı yapar...
  • Aile Ağacı v4.5.9.1 yazısı için Fatih Akdogan yazmış: Merhaba Elinizde Kodları Varsa Bana Atabilirmisiniz ?
  • Asp.Net C# Session Sepet Yapmak yazısı için MK yazmış: jquery li halini ban mail atarsan sevinirim şu an çok ihtiyacım var Alptekin veya Burak hangini...
  • İsminizin Osmanlıca Yazılışı yazısı için Eskilerden bi dost yazmış: عب سيتنى چوك باكيمسيز بيراكميشسين
  • Asp.Net C# Session Sepet Yapmak yazısı için Akan Sular yazmış: Ya abi sen bu kodları versen nolur vermesen nolur. asp siini yazmak çok mu zor, herhangi bir &#...
© 2011 Alptekin Bodur