1樓：匿名使用者
'真長啊
private sub command3_click()dim i as long
'單擊後等同於如下效果:
'1:按鍵盤的 alt+tab(是先按alt然後不鬆開alt按tab 目的就是為了切換)
sendkeys "%"
'2:按鍵盤的 tab(4下)
for i = 1 to 4
sendkeys ""
next i
'3: 按鍵盤的 1
sendkeys "1"
'4: 按鍵盤的 2
sendkeys "2"
'5: 按鍵盤的 1
sendkeys "1"
'6: 按鍵盤的 2
sendkeys "2"
'7:按鍵盤的 tab（兩下）
sendkeys ""
sendkeys ""
'8: 按鍵盤的 guoshuang629(乙個乙個鍵按)sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
'9:按鍵盤的 tab(9下)
for i = 1 to 9
sendkeys ""
next i
'10:按鍵盤的 ↓↓(下箭頭2下)
sendkeys ""
sendkeys ""
'11:按鍵盤的 tab
sendkeys ""
'12: 按鍵盤的 回車鍵
sendkeys ""
'13:按鍵盤的 tab(七下)
for i = 1 to 7
sendkeys ""
next i
'14: 輸出文字: 免費快遞貨到付款假一賠二免費發票clipboard.settext "免費快遞貨到付款假一賠二免費發票"
sendkeys "^"
'15:按鍵盤的 tab(11下)
for i = 1 to 11
sendkeys ""
next i
'16: 按鍵盤的 回車鍵
sendkeys ""
'17:按鍵盤的 tab(2下)
for i = 1 to 2
sendkeys ""
next i
'18: 按鍵盤的 回車鍵
sendkeys ""
'19:按鍵盤的 tab(6下)
for i = 1 to 6
sendkeys ""
next i
'20: 按鍵盤的 回車鍵
sendkeys ""
'21:按鍵盤的 tab(8下)
for i = 1 to 8
sendkeys ""
next i
'22: 按鍵盤的 回車鍵(兩下)
sendkeys ""
sendkeys ""
'麻煩大家了 誰做好了 發到我郵箱裡[email protected]
'或者告訴我** 謝謝大家了
end sub
2樓：vb綠手
murphylau誤矣！sendkeys可以連發多鍵！
'1:按鍵盤的 alt+tab(是先按alt然後不鬆開alt按tab 目的就是為了切換)
sendkeys "%"
'2:按鍵盤的 tab(4下)
for i = 1 to 4
sendkeys ""
next i
'3:按鍵盤的 1
'4:按鍵盤的 2
'5:按鍵盤的 1
'6:按鍵盤的 2
'7:按鍵盤的 tab（兩下）
sendkeys "1212"
'8:按鍵盤的 guoshuang629(乙個乙個鍵按)dim str as string
str = "guoshuang629"
for i = 1 to len(str)sendkeys mid(str, i, 1)next i
'9:按鍵盤的 tab(9下)
for i = 1 to 9
sendkeys ""
next i
'10:按鍵盤的 ↓↓(下箭頭2下)
sendkeys ""
'11:按鍵盤的 tab
sendkeys ""
'12: 按鍵盤的 回車鍵
sendkeys ""
'13:按鍵盤的 tab(七下)
for i = 1 to 7
sendkeys ""
next i
'14: 輸出文字: 免費快遞貨到付款假一賠二免費發票sendkeys "免費快遞貨到付款假一賠二免費發票"
'15:按鍵盤的 tab(11下)
for i = 1 to 11
sendkeys ""
next i
'16: 按鍵盤的 回車鍵
'17:按鍵盤的 tab(2下)
'18: 按鍵盤的 回車鍵
sendkeys "~~"
'19:按鍵盤的 tab(6下)
for i = 1 to 6
sendkeys ""
next i
20: 按鍵盤的 回車鍵
sendkeys "~"
'21:按鍵盤的 tab(8下)
for i = 1 to 8
sendkeys ""
next i
'22: 按鍵盤的 回車鍵(兩下)
sendkeys "~~"
3樓：真
樓上的不錯,寫這麼多sendkeys 要有毅力的 pf這**應該是沒任何問題的
其實我估計這段**直接用按鍵精靈做更好
用vb實現的話,應該可以精簡很多(按具體的需求)沒必要完全模擬鍵盤來走,這樣一是精度不高,二是寫這麼長的幾乎重複的**很沒意思
4樓：永恆的愛
這個很好做得，不過不知你這個是要順序按鍵，自動按鍵，手動按鍵。你的說清楚了。
可以的話，下個禮拜給你作個。現在電腦不在手上！
用VB寫小程式，用VB寫乙個小程式
private sub form load form1.visible falsedim cpuset dim cpu set cpuset getobject winmgmts instancesof win32 processor for each cpu in cpuseta cpu.proc...
用VB做簡單的小程式，用VB做乙個簡單的小程式
private sub command1 click me.cls dim n as integer,i as integern inputbox n 9 for i 1 to 2 n 1if i n then print space n i string 2 i 1,cstr i else pri...
求 VB小程式例項 高中教學用
求簡單vb小程式例項 vb趣味程式導學 另外，在這裡可以找到很多 希望對你有用！推薦你乙個 我和你教同樣的課，vb很容易的。如果你是學數學專業的就好了，很多演算法，一看就明白了。這兒是我們校的乙個教學 很多外校的老師在用它。外網不知道訪問速度怎麼樣。你試試吧。如果你也是教育網，速度應該還是比較快的。...
用vb語言編寫程式，用VB語言編寫程式
我用兩個文字框和乙個命令按鈕來實現 其中文字框 text1 用來存放 輸入資料 text2用來存放處理後的結果 用command1實現以上功能 private sub command1 click text2.text val text1.text 10end sub 你把要求說的不太詳細，我只是按...
用c語言編寫小程式，用C語言寫乙個小程式，麻煩大家了
我用c 做一下，你可以把輸入輸出自己轉化一下 include define maxsize 100 int data maxsize maxsize void func char str,int n str 是字串，n是串長度 int i,j i 0 for i 0 ij 0 while str j...