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。
VB6 0的窗體中，如何顯示不同內容
1全部不知道你註解是什麼用意。不過兩個都說一下，如果你不想新增form。你就建立frame組將所想要切換的所有控制元件全放在相應的每一個frame1陣列控制元件裡。然後，不管你有多少個控制元件。你都不需要對那控制元件單個操控。你只用通過用迴圈來控制frame1陣列的visible屬性來統一管理，或者...
vb6 0請幫忙做題目，謝謝，vb6 0請幫忙做第一個題目，謝謝
這個是我的做的，請檢視一下行不行。有不懂的地方再問我。一 function cala x as integer,byval y as integer x是按址傳遞，y是按值傳遞 x x y if x 0 then cala x else cala y end if end function priv...
VB6 0 檔案操作，vb6 0對txt檔案操作
哪種資料型別都能放的，只是相對操作效能有區別，二進位制可以讀寫任何檔案，比如一個壓縮包就可以用二進位制檔案讀入加密後再儲存。其操作速度較快 隨機檔案可以讀取任意位置的單個資料，非常靈活，速度最快。文字檔案操作較直觀，直接用記事本就可開啟編輯 vb6.0對txt檔案操作 vb6.0關於.csv檔案的操...