無意中接觸了vbs腳本這個(gè)名詞豁状，也想起了許久以前看到過的一個(gè)自動(dòng)將粘貼板的內(nèi)容發(fā)送給qq好友的腳本盾剩，心里突然也想試一試。于是先上網(wǎng)查了一下vbs的相關(guān)信息替蔬。其實(shí)vbs的語法和VB一樣，都是簡單易懂屎暇，比如if ? then ? else end if ?這樣承桥，又或者do while end do ?這樣子。另外它的變量不需要聲明類型根悼，自動(dòng)初始化為0凶异，不過這都是一些細(xì)節(jié)。正是因?yàn)樗耐ㄋ准费玻蠖鄶?shù)人都把它當(dāng)做第一個(gè)編程語言來學(xué)習(xí)剩彬。嗯，我在高二的時(shí)候看過蘇文用它來生成無數(shù)個(gè)空白窗口矿卑，也曾在電腦課堂上對(duì)著書本一個(gè)字一個(gè)字的敲出一個(gè)加密文本的程序喉恋。可是母廷，我對(duì)代碼內(nèi)容一無所知轻黑，也不曾記得了。
然后上網(wǎng)搜了一下代碼琴昆，很容易找到了關(guān)鍵字sendkey氓鄙，相關(guān)用法http://blog.sina.com.cn/s/blog_8c804f6d0100wi57.html
先試一下，打開記事本业舍，
Dim WshShell ?'定義一個(gè)變量'
Set WshShell=WScript.CreateObject("WScript.Shell") ? '創(chuàng)建一個(gè)對(duì)象'
WshShell.Run "1.txt" ? ? '打開事先創(chuàng)建在同目錄下的1.txt'
WScript.Sleep 1500 ? '腳本暫停1.5秒'
WshShell.sendkeys "777" ? '模擬按鍵輸入777'
保存抖拦，把文件后綴名改為.vbs雙擊即可運(yùn)行升酣，可以看到它確實(shí)work了。
我創(chuàng)建這樣一個(gè)腳本可不是為了打開一個(gè)qq好友的對(duì)話框然后等著腳本自動(dòng)執(zhí)行态罪，然后點(diǎn)擊發(fā)送噩茄，然后關(guān)閉對(duì)話框。所以我要它自己打開qq好友對(duì)話框向臀，自己輸入巢墅，自己發(fā)送，自己關(guān)閉對(duì)話框券膀。
曾經(jīng)想過怎樣在qq程序中打開特定好友的對(duì)話框君纫，顯然，并不會(huì)有什么結(jié)果芹彬。于是改變思路蓄髓。我把該好友創(chuàng)建桌面快捷方式
然后在桌面快捷方式上右鍵-屬性，把它的真正位置復(fù)制下來
回到vbs文檔中舒帮，繼續(xù)編輯会喝，把Run "1.txt"改為目標(biāo)位置，再加上sendkeys “{ENTER}” 即模擬按下ENTER鍵發(fā)送信息玩郊，保存肢执，運(yùn)行之。
接下來就是關(guān)閉窗口了预茄，我們知道Alt+F4可以關(guān)閉當(dāng)前窗口，故侦厚，仍然是sendkeys "%{F4}",到此程序的規(guī)模大致完成了耻陕，完整程序代碼如下：
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "XXX"
WScript.Sleep 1500
WshShell.sendKeys "XXX{ENTER}"
WshShell.sendKeys "%{F4}"
后記：完成這個(gè)腳本之后，我把它添加到計(jì)劃任務(wù)之中刨沦，這樣它就會(huì)在指定的時(shí)間中發(fā)信息給你制定的好友诗宣。后來的測(cè)試中發(fā)現(xiàn)，即使刪掉好友桌面快捷方式想诅，腳本也仍然正常執(zhí)行召庞。然而，如果在與某個(gè)好友聊天之后沒有關(guān)掉輸入法就關(guān)閉聊天窗口来破，腳本不能正常執(zhí)行裁眯。同樣地，如果在腳本執(zhí)行期間還伴隨著其他按鍵讳癌，比如前臺(tái)在玩游戲穿稳，后臺(tái)在執(zhí)行腳本，這種情況腳本也無法正常執(zhí)行晌坤。如果在腳本運(yùn)行期間逢艘，在腳本打開qq聊天窗口的一瞬間旦袋，把其他窗口激活，使之成為當(dāng)前窗口它改，腳本也無法正常運(yùn)行疤孕。另外，腳本暫時(shí)無法直接發(fā)送漢字消息央拖，只能發(fā)送字符或者空白祭阀，不過，你也可以通過sendkeys模擬打字過程來實(shí)現(xiàn)鲜戒，由于這個(gè)只是我的猜測(cè)专控，沒有實(shí)踐過，不過我相信遏餐，這是可行的伦腐。還有一種較為簡單的辦法，那就是先把要發(fā)送的內(nèi)容復(fù)制到粘貼板失都，然后模擬Ctrl+v粘貼發(fā)送柏蘑。
嗯，就這樣粹庞。
