怎样用vb关闭笔记本显示器
是Fn+F2
大多数笔记本键盘上有蓝色的第二功能键Fn和一个标有zZ（沉睡标志）的按键 只要把这两个按键同时按下，电脑就会进入待机状态，如果要唤醒电脑只需要移动下鼠标就可以。
可以选择笔记本电脑的待机功能。也可以点击开始菜单的关闭计算机选项 选择待机 让电脑进入待机状态。此时显示屏也可以关闭。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _
As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
Private Sub Command1_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& '关闭显示器
End Sub
'如果要一直黑下去就采用一秒钟运行这个命令
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& '关闭显示器
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
Private Sub Command1_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& ''关闭显示器
Timer1.Interval = 5000 '5秒后自动打开显示器
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1& ''打开显示器
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Command2_Click
End Sub
关不了。没有这方面的做法。
怎样用vb关闭笔记本显示器
Long, ByVal wParam As Long, lParam As Any) As Long Const WM_SYSCOMMAND = &H112& Const SC_MONITORPOWER = &HF170& Private Sub Command1_Click()SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& ''关闭显示器 Timer1.Interval = 5000 '5秒后自动打开显示器 Timer1.Enab...
VB 求设置XP中关屏笔记本电脑显示器的代码
注意：textbox里直接输入秒即可，例如如果要20秒后关闭，则输入20然后单击按钮。若要30分钟后，则输入30*60=1800后单击即可。
用vb怎么写个程序,检测笔记本的电量,当电量小于5%时自动关机
用shell "shutdown" 可以实现关机。shutdown的参数请自己看，在cmd命令窗口中输入"shutdown \/?"
A550VB 笔记本 的bios里面有没有设置NumLK 键开、关的 选项
华硕A550VB系列电脑的BIOS里面是没有NumLK键开关的，您可以进入系统之后按数字键盘左上方的NumLK键，给您带来不便，非常抱歉。华硕A550VB系列电脑采用的主板型号是X550的，第三方软件检测都是以主板型号为准，所以检测结果显示X550是正常的，请您放心使用。希望以上回答对您有所帮助，如若以上建议仍未解决您...
索尼SVF1431AYVB笔记本电脑要怎么关闭触摸鼠标板。
我的是索尼svf15。触摸鼠标板关闭的快捷方式是fn+f1。fn+f2静音，fn+f3减音量，fn+f4加音量，fn+f5降亮度，fn+f6增亮度，常用就这几个，你看看你的和我一样不？祝好用，呵呵
vb.net中如何设计一个监控程序?
若果监视别的窗体的话，用SPY++ 找到句柄，配合FindWindowEx，SendMessage根据其属性做 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ShellAndWait("Notepad.exe")MessageBox.Show("笔记本被关闭后我才会出现")End Sub End Class ...
NEC笔记本鼠标触摸板锁定键
把程序放在桌面并且定义热键就能一键启用或禁用触摸板了.. 吃透这个按键精灵的脚本后(因为多是基于VBA),就可以自己用VB或是D做一个小小程序,来实现这个功能.. 毕竟按键精灵每次使用都要访问它的网站..不太好呵..(它的说明上,也注明要用防火墙禁止它访问网络)....
thinkpad笔记本无法正常关机
建议你不要使用快速恢复，而是使用完全复原，恢复到出厂设置，另外根据我的猜测，你的电脑应该安装的是VB吧，Vista系统有个问题就是安装更新的时候会很慢，一直处于正在关机的状态，我的电脑最长的一次关机关了四个小时，如果遇到这种问题，最好不要硬关机，很伤电脑的，另外如果你实在受不了，我建议你...
...studio 如图框选区域,如何关闭&打开;vc有,但是vb里没有这个工具条...
工具→选项→文本编辑器→Basic→常规：选中“导航栏”即可
vb如何将PictureBox内的图片保存到数据库里
3. 关闭笔记本: 当你完成了工作,关闭笔记本,尽量让你的笔记本好好休息。 不要让你的笔记本开着的时候放在包包里 。经常清洁通风口,笔记本内置的风扇都有一个通风口。过了一段时间,通风口就会积聚着灰尘,这些灰尘会堵塞通风口。 同时必要的时候你可以用诊断工具测试笔记本的风扇是否工作正常。如果有专门的工具,你也...
正话保婴： Private Declare Function SendMessage Lib ＂user32＂ Alias _＂SendMessageA＂ (ByVal hwnd As Long, ByVal wMsg As _ Long, ByVal wParam As Long, lParam As Any) As Long Const WM_SYSCOMMAND = &H112& Const SC_...
化德县13558828500： VB 求设置XP中关屏笔记本电脑显示器的代码 - ？
正话保婴： Private Declare Function GetForegroundWindow Lib ＂user32＂ () As Long Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam ...
化德县13558828500： 用VB如何实现锁住电脑屏幕,或者如何锁住键盘鼠标?? - ？
正话保婴： 锁住屏幕的思路: 1.创建一个透明度为1的窗体(透明度0的话会让窗体消失),覆盖屏幕,并用Timer不断置顶(防止如任务管理器之类的置顶窗口在这个之上)http://www.d9soft.com/article/258/Article7228_1.htm 2.锁住键盘~~就是屏蔽键盘 这...
化德县13558828500： vb如何使电脑黑屏 - ？
正话保婴： Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hwnd _ As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const WM_SYSCOMMAND = &H112& Const SC_...
化德县13558828500： 怎么用VB编辑一个强制关机程序 - ？
正话保婴： 1、vb中shell函数可以执行一个可执行文件.2、shell的语法:Shell(pathname[,windowstyle])3、用shell调用控件台命令shutdown可以实现强制关机.4、示例:(无)防止菜鸟复制搞恶.
化德县13558828500： vb.net一键关闭显示器 - ？
正话保婴： Public Class Form1_ Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer End Function Const SC_MONITORPOWER As Integer = &HF170 Const...
化德县13558828500： 如何用VB编程实现 关闭 WINDOWS 窗口?? - ？
正话保婴： '声明部分 Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib ＂user32＂ Alias ＂PostMessageA＂...
化德县13558828500： 用VB定时关闭显示器与音箱 - ？
正话保婴： 我来回答你吧...关闭显示器倒是有API,下列代码可以帮你关闭显示器(是绝对的没有信号),但关闭音箱是没有办法的...为什么呢?因为电脑没有控制音箱电源的线啊..只有音频线...只能控制有声音没声音...如果一定要控制音箱的电源线开关...那...
化德县13558828500： 如何用VB实现关闭指定的VGA接口?？
正话保婴： VGA=Video Graphic Adapter--->视频图形显示器 vb检测时需要调用一个test检测函数 直接用test.close关闭VGA窗口或者接口
化德县13558828500： vb.net一键关闭显示器 - ？
正话保婴： Public Class Form1 <System.Runtime.InteropServices.DllImport(＂user32.dll＂)> _ Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer End ...
