![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
NO1の方のソースをVB2008用に移植しました。
Sub Test()
Dim WSH As Object
Dim wExec As Object
Dim strCmd As String, Result As String
WSH = CreateObject("WScript.Shell")
strCmd = "ipconfig"
wExec = WSH.Exec("%ComSpec% /c " & strCmd)
Do While wExec.Status = 0
System.Windows.Forms.Application.DoEvents()
Loop
Result = wExec.StdOut.ReadAll
MsgBox(Result)
wExec = Nothing
WSH = Nothing
End Sub
これだと黒いDOS画面が一瞬出てきます。
それが嫌なら、こちらで
一長一短がありますが
sub test2
Dim sFileName As String = System.IO.Path.GetTempFileName()
Dim WSH As Object = CreateObject("WScript.Shell")
Dim strCmd As String = "ipconfig"
WSH.Run("%ComSpec% /c " & strCmd & ">" & sFileName & " 2<&1", 0, True)
WSH = Nothing
Dim ret As String = String.Empty
If IO.File.Exists(sFileName) Then
Using sr As New IO.StreamReader(sFileName, System.Text.Encoding.Default)
ret = sr.ReadToEnd
End Using
IO.File.Delete(sFileName)
End If
MsgBox(ret)
end sub
No.3
- 回答日時:
VBにそれほど経験がなくても何らかの言語ではそれなりに経験があると仮定させてもらうよ。
(Q2237832,2006-06-25)http://bytes.com/forum/thread267946.html
を参考にしてコンソールアプリケーションとして作ってみた。
'==============================================
Option Explicit On
Option Strict On
Option Compare Binary
Option Infer Off
Class Q4262998A
Shared Sub Main()
Dim process As System.Diagnostics.Process
Dim output As String
process = new Process()
process.StartInfo.UseShellExecute = false
process.StartInfo.RedirectStandardOutput = true
process.StartInfo.FileName = "ipconfig.exe"
process.Start()
process.WaitForExit()
output = process.StandardOutput.ReadToEnd()
System.Console.WriteLine(output)
System.Console.ReadKey(true)
End Sub
End Class
'============================
'ところで,俺はあまりこのコードを好ましく思ってない。
'.NETやJavaの良さの一つとして「移植性」ってのがあると思うのだが
'ipconfig.exeはWindowsにしかないかもしれないからだ。
'==========================
'ipconfigそのものの実行結果は取れないだろうが
'場合によってはSystem.Net.NetworkInformation名前空間のクラスを使うかも。
'解説はしない。
No.2
- 回答日時:
diashun です。
当方の環境は VB6.0(SP6)です。
申し訳ありませんが、VB2008 Express Editionでの実行結果については検証できません。
有識者のご回答を期待しましょう。
No.1
- 回答日時:
diashunです。
WSH(Windows Scripting Host)のWshScriptExecオブジェクトが持つExecメソッドが利用できます。
FormにCommandボタンを貼り、以下の以下のコードを実行してみてください。
ここでは、取得したコンソールの表示内容をメッセージボックスに表示するようにしていますが、どういう形で加工するかは、ご自由です。
なお、WSHについては専門のサイトを参照して下さい。
'ここからコピー***********************************************
Option Explicit
Private Sub Command1_Click()
Dim WSH, wExec, strCmd As String, Result As String
Set WSH = CreateObject("WScript.Shell")
strCmd = "ipconfig"
Set wExec = WSH.Exec("%ComSpec% /c " & strCmd)
Do While wExec.Status = 0
DoEvents
Loop
Result = wExec.StdOut.ReadAll
MsgBox Result
Set wExec = Nothing
Set WSH = Nothing
End Sub
'ここまでコピー***********************************************
この回答への補足
ありがとうございます。
上のコードをコピーした上、ボタンもつくりましたが
エラーが発生して実行できません。
使用しているのは、VB2008 Express Editionです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBでExcelの表形式の様なデザインを作りDBと連携させる。 4 2023/02/28 11:39
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) VBプロジェクトでのフォルダ構成について 1 2023/07/22 03:49
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- オープンソース タスクスケジュールで定時にポップアップメッセージ 2 2023/04/19 17:13
- その他(データベース) Accessフォームにて指定のフィールドの平均値を小数点第一位で表示できない 2 2022/08/30 17:19
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(IT・Webサービス) google サイトの目次表示について 1 2023/06/17 23:24
- Word(ワード) Wordの目次作成についてです。 卒業論文で目次を作ることになりました。 本文は「見出し」の機能を使 1 2023/01/17 11:26
- 統計学 統計:アンケート結果の読み解き方法(カイ二乗検定の必要性の有無) 13 2022/12/03 23:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows PowerShellでC言語を実...
-
Visual Studio 「AnyCpu」について
-
「読み込み違反」が起きたとき...
-
VBで「ファイル名を指定して実...
-
androidで.exeを実行できますか?
-
WindowsXpでAppActivate
-
excel vbaから実行するexe実行...
-
VB6.0 exe作成時に実行時エラー...
-
外部exe呼び出しの方法 ShellEx...
-
実行ファイル(.exe)が別のPC...
-
VisualStudioでC#が実行できない
-
C#VB、exeに埋め込んだexeの実行
-
マイクロソフトがvbを捨てたの...
-
Designer.vbは直接コードをいじ...
-
vba 時間の引き算 例えば 15:00...
-
印刷ダイアログを表示させない方法
-
VB.NET+ActiveReports で印刷...
-
VBで実行中のEXEファイルの情報...
-
アウトルックが起動しているか...
-
VB6上から印刷ダイアログを表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Visual Studio 「AnyCpu」について
-
「読み込み違反」が起きたとき...
-
Windows PowerShellでC言語を実...
-
excel vbaから実行するexe実行...
-
実行ファイル(.exe)が別のPC...
-
C++初心者です。 debug asserti...
-
ActiveDirectoryから値を取得
-
C#VB、exeに埋め込んだexeの実行
-
VB6.0 exe作成時に実行時エラー...
-
ActiveX → VB を起動するとCre...
-
VisualStudioでC#が実行できない
-
外部exe呼び出しの方法 ShellEx...
-
VB.NetのWinsockについて
-
VB2005 Vistaで印刷ができません
-
mscorlib.dllの初回例外について
-
androidで.exeを実行できますか?
-
CreateFile が ERROR_PATH_NOT_...
-
VBで「ファイル名を指定して実...
-
Format 関数のバグ?
-
一通ずつ処理したい(アウトル...
おすすめ情報