1樓：匿名使用者
定義一個模組級變數 dim frun as boolean在load事件中賦初值為frun=flase呼叫**為：
if not frun then
shell "你的程式"
frun=true
end if
2樓：匿名使用者
'定義常量 以後見到 synchronize 就相當於填寫了 &h100000
'即 phnd = openprocess(synchronize, 0, pid) 等於
const synchronize = &h100000
const infinite = &hffffffff
'引用系統 api 「openprocess」 用以獲得指定程式程序控制代碼
private declare function openprocess lib "kernel32" (byval dwdesiredaccess as long, byval binherithandle as long, byval dwprocessid as long) as long
'引用系統 api 「closehandle」 關閉控制代碼
private declare function closehandle lib "kernel32" (byval hobject as long) as long
'引用系統 api 「waitforsingleobject」 用以等待指定控制代碼的程序執行
private declare function waitforsingleobject lib "kernel32" (byval hhandle as long, byval dwmilliseconds as long) as long
' 程式範例：(以執行 notepad 程式為例)
private sub command1_click()
dim pid as long, phnd as long ' 分別宣告 process id 及 process handle
pid = shell("notepad", vbnormalfocus) ' shell 傳回 process id 如 notepad 的 程序id
phnd = openprocess(synchronize, 0, pid) ' 取得 process handle 得到 notepad 的程序控制代碼
if phnd <> 0 then '控制代碼獲得成功 則執行if內語句
call waitforsingleobject(phnd, infinite) ' 無限等待，直到程式結束
call closehandle(phnd) '釋放控制代碼
end if
msgbox "執行結束"
end sub
我也是菜鳥 只能解釋成這樣了
linux shell中用迴圈巢狀執行一個外部程式，如何等待本次程式呼叫結束後再開始下一次迴圈
3樓：匿名使用者
program $i > & $i.out &&
&& 前面的命令執行成功後才執行後面的命令
你可以試一下
4樓：大大蟲
不要放到後臺執行，把&去掉
5樓：
for i in *.txt
doprogram $i >$.out
done
如何避免競爭，如何避免競爭帶來的壓力
有競爭就會有壓力，這是無法避免的，但是可以找到減壓的方法。減輕壓力有以版下幾個方法 1 首先要權保持好的心態，積極面對難題，正確認識自己 對自己的身體素質 知識才能 社會適應力等要有自知之明，儘量避免做一些力所不及的事情，或避免從事不適合自己的體力和精神的活動，好高騖遠。2 如果壓力太大，可以學會自...
房間如何避免小蜘蛛，房間如何避免小蜘蛛
常用的清理辦法有 1 用電蚊拍 除了拍蚊子，電昆蟲也是很有用的一個工具。2 用殺蟲劑對準噴 如果蜘蛛數量偏多，且多在床底等角落位置，無法夠到，可以用殺蟲劑對準噴，若懷疑房間蜘蛛較多，可以多噴點在房間，關窗鎖門半小時後進入，基本都會死，但要注意立刻通風。3 用樟腦丸 櫥櫃中，可以適當放一些樟腦丸，刺鼻...
如何避免會計從業的典型誤區，如何避免會計從業的六個典型誤區
誤區一 輕 理論 信 實踐 誤區二 重證書資格,輕實力。誤區三 重 經驗 輕理念。誤區四 重形式,輕實質。誤區五 重 理解 輕應用。誤區六 重 專業 重 實用 輕 廣種 會計從業資格證是什麼，廈門市怎麼考 同學你好，很高興為您解答！掌櫃告訴你哦 多人認為會計從業資格考試難度很大，很難通過，其實這是大...