注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

widebright的个人空间

// 编程和生活

 
 
 

日志

 
 

复习一下visual basic  

2010-04-01 23:54:01|  分类: 程序设计 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
2010年03月23日 星期二 18:56

以前在学校时visual basic学的也算不错的了,还跟风拿了个优秀的二级,刚上班时还用过几天的vb。net来的。之后就没怎么用过了,结果现在就忘的差不多了,又要重新看语法了。

一个 windows script host的 vbscript脚本,执行命令得到命令返回值和命令输出,保存为 test.vbs 执行即可以看到效果.

dim name

'name = "你的名字是:" + vbcrlf + inputbox ("请输入你的名字:")
'MsgBox name,vbOKOnly, "哈哈"

'set WshShell = WScript.CreateObject("WScript.Shell")

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("tasklist")

Do While oExec.Status = 0 'Status =0 表示正在运行
     WScript.Sleep 100
Loop

WScript.Echo "程序退出代码是:" & oExec.ExitCode

'WScript.Echo oExec.Status   'Status =1 表示运行完成


Function ReadAllFromAny(oExec)

     If Not oExec.StdOut.AtEndOfStream Then
          ReadAllFromAny = oExec.StdOut.ReadAll
          Exit Function
     End If

     If Not oExec.StdErr.AtEndOfStream Then
          ReadAllFromAny = "STDERR: " + oExec.StdErr.ReadAll
          Exit Function
     End If
    
     ReadAllFromAny = -1
End Function


Dim allInput, tryCount

allInput = ""
tryCount = 0

Do While True

     Dim input
     input = ReadAllFromAny(oExec)

     If -1 = input Then
          If tryCount > 10 And oExec.Status = 1 Then
               Exit Do
          End If
          tryCount = tryCount + 1
          WScript.Sleep 100
     Else
          allInput = allInput & input
          tryCount = 0
     End If
Loop

If oExec. ExitCode<> 0 Then
     WScript.Echo "Warning: Non-zero exit code"
End If

WScript.Echo allInput

  评论这张
 
阅读(514)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017