VFP 愛用者社區

[sunghsia]

DECLARE INTEGER ShellExecute IN shell32 INTEGER, STRING, STRING, STRING, STRING, INTEGER
DECLARE INTEGER FindWindow IN user32 STRING, STRING

* 開啟瀏灠器, 並指定1個綱址, 例視窗標題為: MyInternet
= ShellExecute(0, "open", "http://tw.yahoo.com", "", "", 3)
hWnd= FindWindow(0, "MyInternet") &&捕捉標題為: MyInternet 的視窗代碼, 結果 hWnd=0

* -------------------------------------------------------------------------

* 當開啟的應用軟體,資料量很大時, 從開啟到結束也須要一些時間來完成 (例: 2秒完成)
* 而上例的 ShellExecute 一列, 程式執行後, 就直接繼續執行下列的 FindWindow
* 所以因電腦速度的問題, FindWindow 不太容易捕捉到標題為 MyInternet 的視窗
* 因為本程序早已執行完畢(幾行而已,應該不到0.005秒), 但應用軟體還在起始中呢

* -------------------------------------------------------------------------

* 開啟瀏灠器, 並指定1個綱址, 例視窗標題為: MyInternet
= ShellExecute(0, "open", "http://tw.yahoo.com", "", "", 3)

* 等待開啟的應用軟體執行完畢 (等待法)
hWnd = 0 &&因視窗標題是自取的.... 所以無法.....
do while hWnd = 0
hWnd = FindWindow(0, "MyInternet")
enddo

messagebox(str(hWnd) + " 終於跳出來了, 等待是痛苦的...",32)