当前位置:首页 » 编程软件 » 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-03-22 00:18:57 浏览:449
java打开页面 发布:2025-03-22 00:18:41 浏览:448
mt4ea源码 发布:2025-03-21 23:59:08 浏览:532
文件夹加密隐藏 发布:2025-03-21 23:56:24 浏览:16
setjava用法 发布:2025-03-21 23:54:59 浏览:182
spring配置的主要标签有哪些 发布:2025-03-21 23:54:57 浏览:174
python3range 发布:2025-03-21 23:42:56 浏览:347
安卓国外手机在哪个平台买 发布:2025-03-21 23:39:40 浏览:118
androidx86卡 发布:2025-03-21 23:38:06 浏览:804
linux限制访问目录权限 发布:2025-03-21 23:35:19 浏览:415