當前位置:首頁 » 網頁前端 » 按鈕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
將快捷方式放到「隱猜悶啟動」文件夾,開機就自動開鍵盤燈了