用VBS實現(xiàn)一個小鍵盤動作CTRL+V粘貼操作與思路分析

來源：本站原創(chuàng)|時間：2020-01-10|欄目：vb|點擊：次

提示:
1,是每次有跳出窗口時的1.8秒后都要有此動作,并且是只發(fā)送了一次該動作,發(fā)送完后等待下次的窗口跳出再循環(huán).
2,每次循環(huán)中都只是發(fā)送了一次CTRL + V后就停,而不是一直發(fā)送

看到問題，立即著手編寫測試代碼，這時候問題出現(xiàn)：

彈出 inputbox 窗口后，VBS處于暫停狀態(tài)，等待用戶輸入，點擊確定or取消，

所以在它后面的 Wshshell.Sendkeys "^v" 將無法執(zhí)行，

如果前面彈出 inputbox 窗口后點擊確定 or 取消的話，那么再執(zhí)行 ctrl+v 就不能把剪切板中的內容粘貼到inputbox 窗口當中，如果把Wshshell.Sendkeys "^v" 放到 inputbox 之前的話，也不行，因為 inputbox 還沒彈出來,ctrl+v也無法實現(xiàn)粘貼內容到 inputbox，

轉換一下思路，我們把inputbox 和 sendkey寫成兩個文件，這樣它們互相就不會產生沖突，最終解決代碼如下：

復制代碼代碼如下:

 
Set WshShell=WScript.CreateObject("WScript.Shell") 
WScript.Sleep 2000 
Set fso=wscript.createobject("scripting.filesystemobject") 
set f=fso.opentextfile("sendkey.vbs",2,true) 
f.Write("Set WshShell=WScript.CreateObject(" & Chr(34) & "WScript.Shell" & chr(34) & ")") 
f.WriteBlankLines(1) 
f.Write("WScript.Sleep 1800") 
f.WriteBlankLines(1) 
f.Write("Wshshell.appactivate " & chr(34) & "提示" & chr(34)) 
f.WriteBlankLines(1) 
f.Write("Wshshell.Sendkeys " & chr(34) & "^v" & chr(34)) 
f.WriteBlankLines(1) 
f.Close 
Wshshell.Run ("sendkey.vbs") 
InputBox "請輸入","提示","" 
fso.DeleteFile ("sendkey.vbs") 

代碼先寫 sendkey.vbs 并執(zhí)行，執(zhí)行過程中會等待1.8秒發(fā)送 ctrl+v ，接著彈出 inputbox，這時候inputbox彈出來了，sendkey.vbs在等待1.8秒后也執(zhí)行ctrl+v把內容粘貼到了inputbox 輸入框中.問題解決

總結：在遇到一些問題的時候，不能鉆牛角尖，換個思路，其實解決起來并不難！

上一篇：字符ANSI代碼查詢工具vbs版

欄目：vb

下一篇：vbs 合并多個excel文件的腳本

本文標題：用VBS實現(xiàn)一個小鍵盤動作CTRL+V粘貼操作與思路分析

本文地址：http://mengdiqiu.com.cn/a1/vb/7506.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

用VBS實現(xiàn)一個小鍵盤動作CTRL+V粘貼操作與思路分析

您可能感興趣的文章

閱讀排行

本欄相關

隨機閱讀