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

[john smithair]

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

به هر حال من یک سوال داشتم.
این کد رو چطور به زبان
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