1樓：匿名使用者
private sub command1_click()dim i as integer
for i = 0 to 10
presskey i
next
end sub
private sub presskey(index as integer)
dim t as single
t = timer
do until timer - t - 0.5 > 0doevents
loop
select case index
case 0
sendkeys " " '空格鍵
case 1
sendkeys "" '方向鍵下
case 2
sendkeys "" '回車鍵
case 3
sendkeys "" '方向左
case 4
sendkeys "" '方向左
case 5
sendkeys "" '回車鍵
case 6
sendkeys "" '回車鍵
case 7
sendkeys " " '空格鍵
case 8
sendkeys " " '空格鍵
case 9
sendkeys " " '空格鍵
case 10
sendkeys "" 'esc
end select
end sub
2樓：
在窗體新增時鐘 timer1
timer1.interval = 500dim index as integer'窗體級變數private sub form_load()index = 0
end sub
private sub timer1_timer()if index = 0 then
sendkeys " ", true '空格鍵index = 1
elseif index = 1 thensendkeys "", true '方向鍵下index = 2
elseif index = 2 thensendkeys "", true '回車鍵index = 2
elseif index = 3 thensendkeys "", true '方向左index = 3
elseif index = 4 thensendkeys "", true '方向左index = 5
elseif index = 5 thensendkeys "", true '回車鍵index = 6
elseif index = 6 thensendkeys "", true '回車鍵index = 7
elseif index = 7 thensendkeys " ", true '空格鍵index = 8
elseif index = 8 thensendkeys " ", true '空格鍵index = 9
elseif index = 9 thensendkeys " ", true '空格鍵index = 10
elseif index = 10 thensendkeys "", true 'escindex = 0
end if
end sub
3樓：尼歐趙
這個很簡單的，但是要實際可用還要加入一些**，比如隱藏vb本視窗，讓接受按鍵的視窗在前臺等。
4樓：匿名使用者
這個不難，就是麻煩
從網上找的
dim i as integer
for i = 0 to 10
presskey i
next
end sub
private sub presskey(index as integer)
dim t as single
t = timer
do until timer - t - 0.5 > 0doevents
loop
select case index
case 0
sendkeys " " '空格鍵
case 1
sendkeys "" '方向鍵下
case 2
sendkeys "" '回車鍵
case 3
sendkeys "" '方向左
case 4
sendkeys "" '方向左
case 5
sendkeys "" '回車鍵
case 6
sendkeys "" '回車鍵
case 7
sendkeys " " '空格鍵
case 8
sendkeys " " '空格鍵
case 9
sendkeys " " '空格鍵
case 10
sendkeys "" 'esc
end select
5樓：小李說
我沒有聽懂你什麼意思可以說詳細些嗎？
求用Java編小程式，求用Java編一個小程式
package test public class teacher public void setaddress string address public string getname public void setname string name public string getteacher...
如何編寫一段程式，微控制器是51系列的，要求編寫LED燈有三種以上的閃爍方式，燈閃爍時間0 5S
多看看書吧 51微控制器用c語言寫就好了。編譯工具 keil 給你最簡單的，看得清楚易懂的，p1口接8位led，有多種閃爍方式。p2 掃描端在p2口，p3為位選端，注意看 口接上兩位數碼管的話還可以顯示00 99的數字 zhucx mov a,11111110bmov p1,a acall yans...
請你也用大詞小用 小題大做的方式寫一段話
116貝貝愛 寫作思路 可以寫自己在生活中，或者學習中遇到的事情，比如看見一群人正在野餐，飲料瓶隨手扔在了草地上，覺得這樣做很不對。這時，想起了自己早上浪費水的行為，覺得很羞愧。節約一滴水能挽救人的生命。正文 那天早上，當我開啟水龍頭，看到那好看的 流水瀑布 就把洗漱的事情忘得一乾二淨。媽媽看到水白...