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

[Vb1471]

سلام :
میخواستم ببینم میشه چه جوری مانیتور رو با یک کد در vb خاموش کرد

ممنون میشم اگه کمک کنید اخه خیلی ضروری .....

با تشکر

[Morteza561]

سلام
این هم کد کامل:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

تشکر فراموش نشه ...

[hacker021]

سلام
این هم کد کامل:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

تشکر فراموش نشه ...

جون ميده براي مردم آزاري...

[damla1368]

مرسی عالی بود

[!Plus]

مرسی عالی بود

اسپم نکن...!

واسه تشکر کردن فقط کافیه روی دکمه تشکر کلیک کنی...! همین و بس...!

[Samba]

اسپم نکن...!

واسه تشکر کردن فقط کافیه روی دکمه تشکر کلیک کنی...! همین و بس...!

شما خودت اسپم دادي


برا اينكه پستم بي محتوا نشه

ا اين كد مي‌توانيد تصوير پس زمينه ويندوز خود را از طريق ويژوال بيسيك عوض نماييد

ابتدا تعاريف زير را در يك ماژول انجام دهيد

کد:
'Module (Declaration of Api Functions)Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long'constantsPublic Const SPIF_SENDWININICHANGE = &H2Public Const SPIF_UPDATEINIFILE = &H1Public Const SPI_SETDESKWALLPAPER = 20
سپس كد زير را براي عوض كردن تصوير اجرا نماييد.

کد:
'Form CodePrivate Sub cmdChangeWallPaper_Click()Dim ret As Longret = SystemParametersInfo(SPIF_SETDESKWALLPAPER, 0&, "c:\windows\bubble.bmp", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)End SubPrivate Sub cmdClearWallpaper_Click()ret = SystemParametersInfo(SPIF_SETDESKWALLPAPER, 0&, "(None)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)End Sub