خاموش کردن مانیتور

[john smithair]

سلا م خدمت دوستان عزیز
لینک زیر مال یک برنامه است که کارش خاموش کردن مانیتور است به طوری که بعد از خاموش کردن با یک کلید دوباره مانیتور رو به شما میده مثلsystem stanbyولی خوب شیوه کار فرق داره.
این برنامه رو من خودم ننوشته ام یکی از هم وطن ها مون به نام آقای هادی صمد زاده نوشته شاید هم از اعضای همین سایت باشه.
می تونید سورس رو از این جا دانلود کنید
http://www.irshare.net/download.php?file=7ddc34fc9c273447e1db22133a5182f6

به هر حال من یک سوال داشتم.
این کد رو چطور به زبان
net.بنویسیم حتی وقتیconvert هم میشه ایراد میگره این کد تو زبانnet.است
کسی میتونه به هم کمک کنه.


OptionStrictOff
OptionExplicitOn
FriendClass frmMonOff
Inherits System.Windows.Forms.Form
PrivateDeclareFunction SendMessage Lib"user32"Alias"SendMessageA"(ByVal hWnd AsInteger, ByVal wMsg AsInteger, ByVal wParam AsInteger, ByVal lParam As Any) AsInteger

Const SC_MONITORPOWER AsInteger = &HF170
Const MON_OFF AsShort = 2
Const WM_SYSCOMMAND AsShort = &H112s
PrivateSub frmMonOff_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) HandlesMyBase.Load

SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_MONITORPOWER, MON_OFF)

EndSub
EndClass

تو انتهای خط 5 از کلمه any ایراد میگیره چطور درستش کنم.
مخسی.

[AmirAmiri]

دوست عزیز شما دو تا تاپیک یکسان دادید... لطفا یکی رو پاک کنید.

[AmirAmiri]

بفرما مشکلش حل شد :



Option Strict Off
Option Explicit On

Public Class Form1
Inherits System.Windows.Forms.Form
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Int32) As Integer

Const SC_MONITORPOWER As Integer = &HF170
Const MON_OFF As Short = 2
Const WM_SYSCOMMAND As Short = &H112S

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_MONITORPOWER, MON_OFF)
End Sub
End Class