1樓:匿名使用者
private sub form_load()
dim x
x = shell("notepad.exe", vbnormalfocus)
sendkeys "這是一個文字檔案的測試程式.", true ' 模擬輸入英文字串
sendkeys "", true ' 兩次回車
waittime (2) ' 延時 2 秒
sendkeys "自動輸入文字", true
sendkeys "", true
waittime (2)
sendkeys "既不是病毒,也不是木馬!", true
sendkeys "", true
waittime (2)
sendkeys "開始退出... 看選單項f...", true
sendkeys "%", true 'alt 鍵啟用選單條
waittime (1)
sendkeys "(f)", true '按字母 "f",選擇"檔案(f)"選單
waittime (1)
sendkeys "(x)", true '按字母 "x", 選擇"退出(x)"
waittime (2)
sendkeys "(n)", true '彈出一個對話方塊,詢問檔案是否存檔,按 "n" 不存檔
end '結束本模擬程式
end sub
private sub waittime(delay as single)
dim starttime as single
starttime = timer
do until (timer - starttime) > delay
loop
end sub
2樓:科技程式迷
方法很多個。
可以使用api函式sleep
private declare sub sleep lib "kernel32.dll" (byval dwmilliseconds as long)
呼叫比如睡眠1秒:sleep(1000)
另外還有一種延時方法,即獲取當前系統時間+延時時間=等待結束時間,等到了等待結束時間到了就往下執行。
private declare function gettickcount lib "kernel32" () as long
'自編應用函式
private sub waitforms(millseconds as long)
dim s as long
s=gettickcount+millseconds
doif gettickcount=s then exit sub
loop
end sub
這個函式的呼叫跟上面的相似,單位是ms。
VB 6 0過程問題
public sub jisuan x,y as integer z x y end sub private sub form click jisuan 5,6 print z end sub z定義有問題吧,在過程之外定義,或者定義公有變數。函式的話應該是 private sub form cli...
vb6 0程式設計問題,求解答
w.paintpicture pic.picture,i,j,pic.scalewidth,pic.scaleheight pic.scalewidth pic.scaleheight 對嗎?nexy j next拼寫錯誤 for j 0 to w.height step pic.scaleheig...
誰能說下vb6 0中print方法的具體用法?最好舉個例子
用vb進行應用程式設計,實際上是與一組標準物件進行互動的過程。因此,準確地理解物件的概念,是設計vb的重要環節。1 物件的一般概念 前面我們介紹了窗體視窗和工具箱視窗,用工具箱中的控制元件圖示可以在窗體上設計介面。窗體和控制元件就是visual basic中的物件,這些物件是由系統設計好提供給使用者...