tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル vb6での標準出力
投稿日: 2017/09/28(Thu) 19:10
投稿者ミッフィー
いつもお世話になっております
vb6で作成したexe同士での連携を考えています。
そのときに標準出力が使えないかと考え検索したところ、
なにやらできそうな気配なので以下のコードを実行しました

Dim FSO As new Scripting.FileSystemObject
Dim TSOUT As Scripting.TextStream
Dim strBuffer As String
Set TSOUT = FSO.GetStandardStream(stdOUT, False)
strBuffer = "Hello"
TSOUT.Writeline strBuffer

ここで、「writelineメソッドは失敗しました,ITextStreamオブジェクト」
となってしまいます。
これはどういうことなのでしょうか、
そもそも、vb6では標準出力ができないという話もあります

API経由でも
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Const STDOUT_HANDLE = -11&

Std_Hdl = GetStdHandle(STDOUT_HANDLE)
ここで、std_hdlが常に0です。ハンドルって何らかの数字がはいりますよね

OSはWin10ですが、セキュリティの問題でしょうか

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。