當前位置:首頁 » 編程軟體 » 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 15:34:30 瀏覽:219
安卓系統哪個bug最少 發布:2025-07-01 15:34:16 瀏覽:777
不是安卓怎麼讓時間顯示在屏幕上 發布:2025-07-01 15:20:54 瀏覽:507
黃岩數控編程培訓 發布:2025-07-01 15:12:30 瀏覽:977
迷宮尋路演算法 發布:2025-07-01 15:12:29 瀏覽:542
微信視頻緩存目錄 發布:2025-07-01 14:58:59 瀏覽:391
vmwarelinux教程 發布:2025-07-01 14:50:33 瀏覽:498
名詞解釋預演算法 發布:2025-07-01 14:34:36 瀏覽:918
iis文件拒絕訪問 發布:2025-07-01 14:34:20 瀏覽:570
蘋果和安卓相比哪個游戲多 發布:2025-07-01 14:24:16 瀏覽:762