当前位置:首页 » 编程软件 » vbs按键脚本

vbs按键脚本

发布时间: 2023-08-04 17:42:38

① 有谁帮我弄个重复按键VBS脚本

DimWshShell,Path,i
SetWshShell=WScript.CreateObject("WScript.Shell")
dowhiletrue
WshShell.SendKeys"%"
WshShell.SendKeys"%"
wscript.sleep30000
loop

代码如上 死循环没30秒执行一次按键

② vbs,求按某个按键让vbs的脚本停止的代码,谢谢。可以加入下的代码中

// VBS是不能通过键盘来实现交换数据的,或者非常麻烦,不如你试试按键精灵,和VBS的语言格式一样,但是比vbs实现的功能要更多。

Sub woniu1
n = 0
Do
Dim objws
set objws=WScript.CreateObject("wscript.shell")
RunApp "mouse.exe"
n = n + 1
If n = 2 Then
Exit Do
End If
Loop
End Sub
Sub woniu2
n = 0
Do
Dim objws
set objws=WScript.CreateObject("wscript.shell")
RunApp "mouse.exe"
n = n + 1
If n = 2 Then
Exit Do
End If
Loop
End Sub
Sub xtay2
KeyPress "Ctrl", 1
Delay 100
Key=WaitKey()
If Key = 49 or Key = 97 Then
Call woniu1
ElseIf Key = 50 or Key = 98 Then
Call woniu2
ElseIf Key = 35 Then
MsgBox"您已中止"
ExitScript
Else
Delay 500
Call xtay3
End IF
End Sub
Sub xtay3
KeyPress "Ctrl", 1
Delay 100
Key=WaitKey()
If Key = 49 or Key = 97 Then
Call woniu2
ElseIf Key = 50 or Key = 98 Then
Call woniu1
ElseIf Key = 35 Then
MsgBox"您已中止"
ExitScript
Else
Delay 500
Call xtay2
End IF
End Sub
Call xtay3

③ 如何编写wincc 按钮的vbs脚本

i/o域的属性中输入输出属性连接变量a,
按钮脚本:事件中 点击左键
Dim a

set a=hmiruntime.tags("a")
a.read
hmiruntime.tags("b").write a.value
你试试

热点内容
在简便算法 发布:2025-07-01 13:32:06 浏览:763
c语言表达式绝对值 发布:2025-07-01 13:25:45 浏览:491
获取网站访问量 发布:2025-07-01 13:20:28 浏览:292
平行线算法 发布:2025-07-01 13:10:13 浏览:602
c语言不可嵌套的是 发布:2025-07-01 13:04:33 浏览:330
三星手机老是显示存储空间不足 发布:2025-07-01 13:00:09 浏览:595
ewebeditor上传漏洞 发布:2025-07-01 13:00:08 浏览:836
电脑无解压 发布:2025-07-01 12:51:18 浏览:732
中国股票市场交易数据库 发布:2025-07-01 12:43:23 浏览:622
oppoa37怎么给应用加密 发布:2025-07-01 12:20:53 浏览:644