p; = 105 Width = 1800 End Begin VB.TextBox TxtOutput BackColor = &H00404040& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 ''''False Italic = 0 ''''False Strikethrough = 0 ''''False EndProperty ForeColor = &H80000005& Height = 3615 Left = 0 Locked = -1 ''''True MultiLine = -1 ''''True ScrollBars = 2 ''''Vertical TabIndex = 2 Top = 540 Width = 8775 End Begin VB.TextBox TxtExecute BackColor = &H00404040& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 ''''False Italic = 0 ''''False Strikethrough = 0 ''''False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 1320 TabIndex = 0 Top = 120 Width = 5295 End Begin VB.Label Label1 Caption = "命令输入:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 ''''False Italic = 0 ''''False Strikethrough = 0 ''''False EndProperty Height = 375 Left = 120 TabIndex = 1 Top = 120 Width = 855 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False
Private Sub Cmdexe_Click() Dim Ret As Long, StrExe As String
StrExe = TxtExecute.Text If Len(StrExe) = 0 Then MsgBox "命令怎么为空呢?", vbInformation, "奇怪?" Exit Sub End If
Ret = DosInput(StrExe)
If Ret <> 0 Then
''''MsgBox "在写入控制台管道的时候出现错误", vbInformation, "错误" Exit Sub End If sw False End Sub
Private Sub Cmdget_Click() Dim strR As String Ret = DosOutput(strR) If Ret = 0 Then TxtOutput.Text = strR Else MsgBox "读取控制台输出错误", vbInformation, "错误" End If sw True End Sub
Private Sub Form_Load() Dim Ret As Long Ret = InitDosIO() If Ret <> 0 Then MsgBox "控制台输入输出管道重定向初始化失败" End End If sw True End Sub
Private Sub Form_Unload(Cancel As Integer) EndDosIo End Sub Private Sub sw(ByVal s As Boolean) cmdExe.Enabled = s cmdget.Enabled = Not s End Sub 运行平台:2000/XP/稍微修改可用于98
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
