分不多140分送下，麻烦帮小弟我看上这个有关问题，多谢多谢多谢谢
分不多140分送上，麻烦帮我看下这个问题，谢谢谢谢谢谢谢
之-前-开-过-一-贴-可-能-没-描-述-清-楚，现-在-重-新-贴-代-码-开-贴！
http://bbs.csdn.net/topics/390326659
。。。。。。分-不-多 上-限-只-能-是100 多-多-包-涵 谢-谢。。。。。。
提示我有非法字符 我去！ 也不说是那个字符 找死我
本帖最后由 xunis 于 2012-12-26 18:35:21 编辑
想-实-现ActiveX控-件-调-用-C++写-的-exe并-抓-取-输-出-到-控-制-台-的-消-息之-前-开-过-一-贴-可-能-没-描-述-清-楚，现-在-重-新-贴-代-码-开-贴！
http://bbs.csdn.net/topics/390326659
。。。。。。分-不-多 上-限-只-能-是100 多-多-包-涵 谢-谢。。。。。。
提示我有非法字符 我去！ 也不说是那个字符 找死我
'模块中
Public Const NORMAL_PRIORITY_CLASS = &H20&
Public Const STARTF_USESHOWWINDOW = &H1
Public Const STARTF_USESTDHANDLES = &H100
Public Const SW_HIDE = 0
Public Const SW_DISPLAY = 1
Public Const EM_SETSEL = &HB1
Public Const EM_REPLACESEL = &HC2
Public Const EM_LINEINDEX = &HBB
'这个API没用到
Public Declare Function CreateThread Lib "kernel32" _
(lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, _
ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Public Declare Function GetLastError Lib "kernel32" () As Long
Public Declare Function CreatePipe Lib "kernel32 " (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
Public Declare Sub GetStartupInfo Lib "kernel32 " Alias "GetStartupInfoA" (lpStartupInfo As STARTUPINFO)
Public Declare Function CreateProcess Lib "kernel32 " Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Public Declare Function SetWindowText Lib "user32 " Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function ReadFile Lib "kernel32 " (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Public Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function CloseHandle Lib "kernel32 " (ByVal hObject As Long) As Long
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Type PROCESS_INFORMATION
hProcess As Long
hThread As Long