VB中如何判断电脑没有被使用，就像屏幕保程序一样
在网上下载个MSDATLST.OCX 或者你电脑中的也行，和生成的exe文件放在一个文件夹下，再拿到其它电脑上用。当然，这个exe文件必须重新生成，在生成exe文件之前，新建一个标准模块，输上以下代码，使其自动注册这个控件：
sub main()
shell "regsvr32 /s MSDATLST.OCX"
form1.show
end sub
然后在工程---工程属性中将启动对象设置成sub main ,再生成exe
不是很清楚，请说具体点
'本人没能捕获鼠标状态，不过提供一个小程序，你可以在离开时启动此程序Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const WS_EX_TRANSPARENT As Long = &H20&
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, -1, 1, LWA_ALPHA
SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Me.KeyPreview = True
Me.WindowState = 2
End Sub
Private Sub Form_Click()
'你可以改变路径或文件名
Open "c:\WhoUsedComputer.txt" For Output As #1
Print #1, Date & " " & Time & " 别人动了我的电脑！"
Close #1
End
End Sub
Private Sub Form_KeyPress(Keyscii As Integer)
'Asc("f") 中的 "f" 可由用户自己定义一键正常退出安全屏蔽程序
If Keyscii = Asc("f") Then
Open "c:\WhoUsedComputer.txt" For Output As #2
Print #2, Date & " " & Time & " 我安全使用电脑！"
Close #2
Else
Open "c:\WhoUsedComputer.txt" For Output As #3
Print #3, Date & " " & Time & " 别人动了我的电脑！"
Close #3
End If
End
End Sub
'想知道是不是有人动了你的电脑到C:盘下去查看 WhoUsedComputer.txt 就行了
啊？ 获取鼠标信息！！
电脑主板故障灯怎么看
1.开机摁F8进安全模式，判断是不是驱动安装不对引起的。2.用橡皮擦内存的金手指。3.用砂纸清理内存槽，如果没有砂纸就多插拔几次内存测试。4.更换内存。5.如果更换内存主板还花屏就能判断可能是主板问题，更换主板测试。电脑主板故障灯怎么看相关 文章 ：★ 电脑主板不开机常见故障 ★ 电脑主机...
如何判断硬盘是否有坏道?具体征兆?怎么解决?
你在运行该程序时如不能顺利通过,表明硬盘肯定有坏道。当然,扫描虽然也可通过,但出现红色的“B”标记,表明其也有坏道。 第三,电脑启动时硬盘无法引导,用软盘或光盘启动后可看见硬盘盘符但无法对该区进行操作或操作有误或干脆就看不见盘符,都表明硬盘上可能出现了坏道。具体表现如开机自检过程中,屏幕提示“Hard ...
新装电脑,开机没反应是怎么回事?
b. 确认显示器端是否有把讯号线(VGA \/ DVI \/ HDMI \/ DisplayPort)接好-也确认连接线另一端己接牢在计算机的显示输出（显卡），尝试将显示输出线的2端重新插拔确认，并确定所有针脚均未弯曲 c. 确认显示器的显示输出设置是否正确，例如当前接入计算机的是HDMI接口，则显示器的显示输出需要选择为HDMI...
电脑开机按开机没反应怎么办
4. 电脑开机,没反应,怎么回事 电脑常见故障之三开机无响应(上)经常使用电脑的朋友应该会碰到这种情况,开机时按下电源按钮后,电脑无响应,显示器黑屏不亮。 除去那些傻瓜式的故障原因,如显示器、主机电源没插好;显示器与主板信号接口处脱落外,常见的故障原因如下。其实这个故障还分两种情况,一是开机后CPU风扇转但黑...
电脑没有声音怎么办
如果声卡驱动中有感叹号，说明当前系统中的硬件驱动没有满足电脑的驱动，解决办法可以是重新换个系统，当然这个没必要只要找到电脑声卡型号，直接百度一下找到驱动安装即可，如何查看自己电脑的声卡硬件型号呢？方法有和多，这里介绍几种简单的方法：方法一 开始-- 运行--输入：dxdiag命令--确定，就可以打开...
电脑按了开机键没反应?
无法开机的判断重点在于电源指示灯 1. 解决方式1: 电源指示灯无亮 电源指示灯无亮，可能是变压器无法供电或主要组件异常而无法开机 a. 请使用正确规格的原厂变压器及电源线。b. 请确认变压器接头，如下图A电源线端\/B插座端\/C计算机端是否有松脱，或可更换插座试试。小提醒: 型号不同的笔记本电脑...
在EXCEL中,如何利函数判断B列中是否含有某个字符?
工具\/原材料 excel2018版、电脑。1、打开电脑找到并点击打开excel2018版新建表格；2、双击打开excel新建工作表格以后，为了示范在A列单元格内编辑好任意的文本内容；3、选中B列做为辅助列，然后在编辑栏里输入：=IF(ISERR(FIND("我",A1)),"不包含","包含")；代表的意思是在A列中查找是否存在我的...
如何查看自己电脑的配置好坏。
配置,打开“开始”菜单,在运行中输入“cmd”,然后弹出命令行界面,在里面输入“systeminfo”,就可以查看计算机配置了; 以上方法都是通过系统自带的工具查看,他们有个共同的弊端,就是不利于普通网民看电脑的配置,里面一些参数用户很难看懂,下面教大家一个怎么看电脑配置的方法,易能看懂,也能知道你的电脑配置好坏怎么样...
怎么知道自己电脑里插没插过U盘
U盘是电脑感染病毒的一条非常重要的途径，有的时候电脑中了病毒怀疑是U盘携带过来的。但是如果最近插入了很多U盘，那么如何判断是哪些人的U盘呢？其实注册表保存了这些信息。以管理员身份启动命令提示符，然后输入“reg query HKLM\\System\\currentcontrolset\\enum\\usbstor \/s”本机使用过的USB设备马上就出现...
电脑开不开机器怎么判断自己的内存条是否坏了啊?
如何确认内存故障？a. 重新安装内存，确认内存是否如下图所示完全插入 b. 如果同时安装两个或两个以上内存无法开启，尝试确认先接一个内存是否可以开启，再依次接上其余内存，排除有问题的内存 c. 请尝试更换官网内存支援清单中的一组内存 d. 根据主板用户手册中[内存建议设置]尝试：(举例...
柘张乙酰： '本人没能捕获鼠标状态,不过提供一个小程序,你可以在离开时启动此程序Const LWA_COLORKEY = &H1Const LWA_ALPHA = &H2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000Const WS_EX_TRANSPARENT As ...
相城区17152731353： vb中怎么获取操作者不在操作的信息,就像屏幕保护一样,在没人的时候,他就开始计算开始屏幕保护的时间了？
柘张乙酰： 如果要在所有的控件的鼠标键盘事件里加timer计时归零还不如一头撞死算了.. 去搜索下鼠标键盘钩子的用法吧,两个事件代码就搞完了.
相城区17152731353： vb检测人是否操作电脑 - ？
柘张乙酰： 设一个全局变量用来计数,然后每隔一秒(也可以是其他时间间隔)检查键盘和鼠标是否有人使用,没有就把变量+1,有就让变量=0.当变量的值达到某个指定值,比如300,就意味着5分钟都没有人操作过电脑了,就可以让你的Form6启动了...
相城区17152731353： VB中如何判断笔记本是否盖上待机?？
柘张乙酰： 关闭QQ进程VB代码: Shell ＂taskkill.exe /im [程序名]＂ 例: Shell ＂taskkill.exe /im qq.exe＂ 这样就可以了~~ 还有判断笔记本是否盖上待机~~我帮你研究研究~
相城区17152731353： 在VB中当普通管理员登陆时,某个窗体中的某个按钮为不可用状态,怎么判断 - ？
柘张乙酰： if check(user) then 'check为判断user是否为管理员的boolean型函数form1.command1.enabled=true else form1.command1.enabled=false end if
相城区17152731353： vb 如何判断一段时间有没有操作,谢谢 - ？
柘张乙酰： '获取电脑空闲时间 Private Declare Function GetLastInputInfo Lib ＂user32＂ (plii As LASTINPUTINFO) As Boolean Private Declare Function GetTickCount Lib ＂kernel32＂ () As Long Private Type LASTINPUTINFO cbSize As Long dwTime As ...
相城区17152731353： vb问题:如何判断网页是否被正常打开 - ？
柘张乙酰： 用inet同样再获取的话可以通过header判断,不过麻烦很多,可以直接考虑判断 WebBrowser1.Document.documentElement.innerHTML的文本是不是你要的 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant...
相城区17152731353： VB中如何判断程序是否在运行??？
柘张乙酰： 自然是使用process来做,不过,VB我倒是没做过,我做的时候是用.NET做的.
相城区17152731353： VB如何判断exe文件是否被打开? - ？
柘张乙酰： 用这个吧. 判断指定文件是否被打开. Private Declare Function CreateFile Lib ＂KERNEL32＂ Alias ＂CreateFileA＂ (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As String, ...
相城区17152731353： VB中判断菜单是否被点击? - ？
柘张乙酰： 你设置两个全局变量,分别代表上限和下限,初始值是1和100,点了设置菜单之后就改变,这样不就可以了吗.
