سلام :
میخواستم ببینم میشه چه جوری مانیتور رو با یک کد در vb خاموش کرد
ممنون میشم اگه کمک کنید اخه خیلی ضروری .....
با تشکر :13:
Printable View
سلام :
میخواستم ببینم میشه چه جوری مانیتور رو با یک کد در vb خاموش کرد
ممنون میشم اگه کمک کنید اخه خیلی ضروری .....
با تشکر :13:
سلام
این هم کد کامل:
تشکر فراموش نشه ...کد:Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const SC_MONITORPOWER = &HF170&
Const MON_OFF = 2&
Const WM_SYSCOMMAND = &H112
Private Sub Form_Load()
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MON_OFF
End Sub
جون ميده براي مردم آزاري...:laughing:نقل قول:
مرسی عالی بود
اسپم نکن...! :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