タイトル : 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ですが、セキュリティの問題でしょうか |