No.3ベストアンサー
- 回答日時:
これは?
dim IE,WshShell
Set WshShell = CreateObject("WScript.Shell")
openie()
WshShell.Run "cmd /c c:\temp\test",0,True
IE.Quit
WScript.Echo "次処理へ"
sub openie()
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = 1
IE.Navigate "about:blank"
IE.Visible = 1
IE.ToolBar = 0
IE.MenuBar = 0
IE.AddressBar = 0
IE.StatusBar = 0
IE.Width=300
IE.Height = 150
IE.Left = 0
IE.Top = 0
Do While IE.Busy
Wscript.Sleep 10
Loop
Set oDoc = IE.Document
oDoc.open
oDoc.writeln "「ただいま、処理中・・・」"
end sub
No.2
- 回答日時:
>処理完了後に
Windows2000以上なら
WMI経由でプロセスの監視が可能ですがご存知でした?
この回答へのお礼
お礼日時:2003/06/11 11:31
WMIという言葉は目にしたことがありますが、
それがいったい何物で、何ができて、どのよ
うに使うのかはさっぱり分かりません。
いろいろと調べてみようと思います。
どうもありがとうございました。
No.1
- 回答日時:
こういうのはどう?
Set WshShell = CreateObject("WScript.Shell")
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = 1
IE.Navigate "about:blank"
IE.Visible = 1
IE.ToolBar = 0
IE.MenuBar = 0
IE.AddressBar = 0
IE.StatusBar = 0
IE.Width=300
IE.Height = 150
IE.Left = 0
IE.Top = 0
Do While IE.Busy
Wscript.Sleep 10
Loop
Set oDoc = IE.Document
oDoc.open
oDoc.writeln "「ただいま、処理中・・・」<BR><BR>"
oDoc.writeln "InternetExplorerを閉じると強制終了します"
while 1
WScript.Sleep 100
wend
Sub IE_onQuit()
WScript.Echo "強制終了しました"
WScript.Quit
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Microsoft ASP C#からvbsを実行したい 5 2022/11/24 17:31
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- その他(プログラミング・Web制作) 単純なコマンドプロンプトが動きません。 2 2022/04/19 15:21
- その他(プログラミング・Web制作) フォルダ内の特定 拡張子のファイルを一括実行するBat ファイルについて 4 2022/04/17 09:51
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルVBA コードが同じでもファイルによって処理速度が大きく変わるのはなぜ 5 2022/11/06 21:34
- その他(プログラミング・Web制作) ファイル名の一部をbatで変更したい batファイルを使って、以下のようにファイル名の一部を変更した 3 2023/02/21 20:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
【Excel】特定の文字を含むセル...
-
Do~Loopした回数をカウントしたい
-
VBの質問#if 0 then ってどう...
-
EXCEL VBA マクロ 実行する度に...
-
DoEventsがやはり分からない
-
メルカリのメルカードで買い物...
-
インタラクティブの反対語は?
-
リョウ・・・量?料?
-
2重のDo~Loopは?
-
VB.NET Excelを読み込んでDataT...
-
FFTの結果ついて
-
タッチパッドはチャタリングは...
-
C# 画面のちらつきを解消したい
-
セルの値が0はクリアするマクロ
-
VBA SaveChanges 上書きされない
-
UMLでの例外処理
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
メルカリのメルカードで買い物...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
【Excel】特定の文字を含むセル...
-
EXCEL VBA マクロ 実行する度に...
-
switch の範囲指定
-
DoEventsがやはり分からない
-
VBの質問#if 0 then ってどう...
-
UMLでの例外処理
-
Do~Loopした回数をカウントしたい
-
VB.NET Excelを読み込んでDataT...
-
月度は何て読みますか?
-
findは動くがfindnextがマクロ...
-
リョウ・・・量?料?
-
iD
-
VBA SaveChanges 上書きされない
-
Select Case文でこのようなこと...
-
Loadイベント中にほかのイベン...
-
セルの値が0はクリアするマクロ
おすすめ情報