john smithair
شنبه 28 اردیبهشت 1387, 15:17 عصر
سلا م خدمت دوستان عزیز
لینک زیر مال یک برنامه است که کارش خاموش کردن مانیتور است به طوری که بعد از خاموش کردن با یک کلید دوباره مانیتور رو به شما میده مثل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 ایراد میگیره چطور درستش کنم.
مخسی.
لینک زیر مال یک برنامه است که کارش خاموش کردن مانیتور است به طوری که بعد از خاموش کردن با یک کلید دوباره مانیتور رو به شما میده مثل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 ایراد میگیره چطور درستش کنم.
مخسی.