UC知道===帮忙写一个VBS脚本===
来源：百度知道 编辑：UC知道 时间：2024/06/06 01:23:34
每隔半小时弹出一个对话框,提示系统将锁机,输入密码取消.
如若用户:
"关闭此窗口"
"点取消按钮"
"30秒内不做任何操作"
"3次输入密码错误"
有以上动作,则运行D盘根目录下的键盘锁lock.exe
另:
键盘锁需要发送按键,"密码"和"确认密码",密码就是123,如下
"123" "{tab}" "123" "{enter}"
请高手帮忙写一下,多谢..
-----
回复xiaomingtt :
你的代码一看就少个loop啊.再说代码前边的a=inputbox,如果用户不响应不作任何操作.后面的命令也不会执行吧.
回复ljl88900:
你写的好复杂啊,呵.能说下原理吗
不过不行哦,你看下哪里出错了,提示:
行2,ActiveX部件不能创建对像:'Word Application'
如若用户:
"关闭此窗口"
"点取消按钮"
"30秒内不做任何操作"
"3次输入密码错误"
有以上动作,则运行D盘根目录下的键盘锁lock.exe
另:
键盘锁需要发送按键,"密码"和"确认密码",密码就是123,如下
"123" "{tab}" "123" "{enter}"
请高手帮忙写一下,多谢..
-----
回复xiaomingtt :
你的代码一看就少个loop啊.再说代码前边的a=inputbox,如果用户不响应不作任何操作.后面的命令也不会执行吧.
回复ljl88900:
你写的好复杂啊,呵.能说下原理吗
不过不行哦,你看下哪里出错了,提示:
行2,ActiveX部件不能创建对像:'Word Application'
'根据反馈，修改如下：
'说明：Monitor过程是专为30秒后自动关闭窗口，进入锁机状态而作。如果你不要此功能，就可以把这部分去掉。这时的代码就很少了。
'对于这个问题，你如果还有其他疑问，请发消息给我。
Dim WshShell,PWD,i
Dim fso,tempfolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set tempfolder = fso.GetSpecialFolder(2)
Set WshShell = CreateObject("Wscript.Shell")
Monitor
do while true
Wscript.Sleep 30*60*1000
If not fso.fileexists(tempfolder & "\~Tmp01") Then
fso.createtextfile(tempfolder & "\~Tmp01").Close
End If
for i=1 to 3
PWD = InputBox("系统将锁机,输入密码取消", "锁机提示")
if PWD="123456" or PWD=" /" then exit for
next
If fso.fileexists(tempfolder & "\~Tmp01") Then
fso.DeleteFile tempfolder & "\~Tmp01"
End If
'请根据实际修改下面的密码及键盘锁的按键、密码等
if PWD<>"123456" then
msgbox "正式进入锁机状态！"
W