麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

Shell

2019-11-18 17:51:41
字體：大 中 小
來源：轉載
供稿：網友
希望某一VB程序利用Shell執行某一個外部程序(假設是notepad.exe)之后，就一直等到此一程序結束執行時，才回到VB程序繼續執行，該怎么辦到呢？

當我們調用Shell時，會傳回一個數值，此一數值稱為accessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLong
PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong
PrivateDeclareFunctionWaitForSingleObjectLib"kernel32"(ByValhHandleAsLong,ByValdwMillisecondsAsLong)AsLong

注：如果以上的聲明放在「一般模塊」底下，應將Declare之前的Private保留字去掉，并且在Const之前加上Public保留字。

2.程序范例：(以執行Notepad程序為例)

DimpIdAsLong,pHndAsLong'分別聲明ProcessId及ProcessHandle變數

pId=Shell("Notepad",vbNormalFocus)'Shell傳回ProcessId

pHnd=OpenProcess(SYNCHRONIZE,0,pId)'取得ProcessHandle
IfpHnd<>0Then
CallWaitForSingleObject(pHnd,INFINITE)'無限等待，直到程序結束
CallCloseHandle(pHnd)
EndIf->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 免费小毛片 | 二区三区四区视频 | 国产精品入口夜色视频大尺度 | 草草久久久 | 欧美一区二区三区免费观看 | 黑人一级片视频 | 日本一区二区在线看 | 欧美日韩精品一区二区三区蜜桃 | 久草在线观看资源 | 欧美a∨一区二区三区久久黄 | 久久男人| 免费观看一级欧美大 | 1级片在线观看 | 精品一区二区电影 | 操碰视频在线观看 | 可以看逼的视频 | 亚洲自拍第二页 | 久久久婷婷一区二区三区不卡 | 精品国产一区二区三区四区阿崩 | 一区二区三区欧美日韩 | 成人av一区二区免费播放 | 91精品国产综合久久婷婷香 | 看国产一级毛片 | chinese18 xxxx videos | 99精品视频免费看 | 国产日韩免费观看 | 黄色视屏免费在线观看 | 热久久成人 | 99精品视频免费看 | 国产精品久久久久久久久久久久久久久久 | 毛片视频网站在线观看 | 久久国产精品二国产精品中国洋人 | 国产免费激情视频 | 欧美一区二区三区中文字幕 | 伊人99re| 国产在线1区 | 国产91丝袜在线播放 | 欧美精品久久久久久久久老牛影院 | 国产一级午夜 | 精品国产96亚洲一区二区三区 | 久久九九热re6这里有精品 |