当前位置:首页 » 网页前端 » 按钮vbs脚本
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

按钮vbs脚本

发布时间: 2023-06-01 11:31:25

⑴ 谁能帮我编个VBS的脚本,要求要一直按下SHIFT键

vbs使用sendkeys模拟按键,一次只能按一次(指定次数),不能“按住不放”。只能通过循环模拟不停地按shift键,但这个跟你的要求就不一致了。
你可以尝试用AutoIt脚本或按键精灵脚本。AutoIt要按住(保持按下状态)shift键
Send("{SHIFTDOWN}") ;按住shift键
然后用HotKeySet设置一个热键用于停止,停止的代码:
Send("{SHIFTUP}") ;松开shift键

AutoIt可以编译为exe文件直接运行的(即使电脑没装AutoIt也可以运行)。
下面是参考程序(使用GUI上的按钮来控制):
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("按键控制", 156, 65, 192, 114, -1, $WS_EX_TOPMOST)
$Button1 = GUICtrlCreateButton("按下Shift", 40, 16, 81, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Button1) == "按下Shift" Then
Send("{SHIFTDOWN}")
GUICtrlSetData($Button1, "弹起Shift")
ElseIf GUICtrlRead($Button1) == "弹起Shift" Then
Send("{SHIFTUP}")
GUICtrlSetData($Button1, "按下Shift")
EndIf
EndSwitch
WEnd

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

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

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

⑶ 求大神写一个简单的VBS脚本,就是点击一下打开(SCROLL LOCK)按键 多谢

set object=createobject("灶弯兆伏wscript.shell")
object.sendkeys "{SCROLLLOCK}"
保存为:开键盘灯.vbs
将快捷方式放到“隐猜闷启动”文件夹,开机就自动开键盘灯了