天域苍穹,神武八荒一颗小说

主頁(yè) > 知識(shí)庫(kù) > 用VBS實(shí)現(xiàn)一個(gè)小鍵盤(pán)動(dòng)作CTRL+V粘貼操作與思路分析

用VBS實(shí)現(xiàn)一個(gè)小鍵盤(pán)動(dòng)作CTRL+V粘貼操作與思路分析

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

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

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

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

如果前面彈出 inputbox 窗口后點(diǎn)擊確定 or 取消的話，那么再執(zhí)行 ctrl+v 就不能把剪切板中的內(nèi)容粘貼到inputbox 窗口當(dāng)中，如果把Wshshell.Sendkeys "^v" 放到 inputbox 之前的話，也不行，因?yàn)?inputbox 還沒(méi)彈出來(lái),ctrl+v也無(wú)法實(shí)現(xiàn)粘貼內(nèi)容到 inputbox，

轉(zhuǎn)換一下思路，我們把inputbox 和 sendkey寫(xiě)成兩個(gè)文件，這樣它們互相就不會(huì)產(chǎn)生沖突，最終解決代碼如下：

復(fù)制代碼代碼如下:

 
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 "請(qǐng)輸入","提示","" 
fso.DeleteFile ("sendkey.vbs") 

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

總結(jié)：在遇到一些問(wèn)題的時(shí)候，不能鉆牛角尖，換個(gè)思路，其實(shí)解決起來(lái)并不難！

標(biāo)簽：咸陽(yáng) 阜陽(yáng) 伊春河南梅州牡丹江四平武威

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用VBS實(shí)現(xiàn)一個(gè)小鍵盤(pán)動(dòng)作CTRL+V粘貼操作與思路分析》，本文關(guān)鍵詞用,VBS,實(shí)現(xiàn),一個(gè),小鍵盤(pán),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。