BlackFeather'S Blog

读取CMD命令回显的类模块-vb›评论

• 2 uujokent 回复 坏pp: 博主实在是高！再加了几行：
  Private Sub Form_Load()
  Set objdos = New dosoutputs
  
  End Sub
  
  
  Private Sub Command1_Click()
  'objdos.commandline = "netstat -an"
  objdos.commandline = txtcmd.Text
  objdos.ExecuteCommand '执行net user命令
  End Sub2010/4/27 10:21 回复
• 1 坏pp : 很好，收藏了！2008/10/4 00:52 回复

发表留言