ورود

نسخه کامل مشاهده نسخه کامل : خاموش کردن مانیتور


Vb1471
11-06-2010, 21:26
سلام :
میخواستم ببینم میشه چه جوری مانیتور رو با یک کد در vb خاموش کرد

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


با تشکر :13:
Morteza561
11-06-2010, 22:38
سلام
این هم کد کامل:


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

تشکر فراموش نشه ...
hacker021
12-06-2010, 20:01
سلام
این هم کد کامل:


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدتشکر فراموش نشه ...
جون ميده براي مردم آزاري...:laughing:
damla1368
27-06-2010, 10:18
مرسی عالی بود
!Plus
27-06-2010, 13:40
مرسی عالی بود

اسپم نکن...! :angry:

واسه تشکر کردن فقط کافیه روی دکمه تشکر کلیک کنی...! همین و بس...! :27:
Samba
30-06-2010, 16:15
اسپم نکن...! :angry:

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


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


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

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

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

کد:
'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