中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 让它沉坛

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『楼主』: 让它沉坛

如题！

实现的效果就是。

如果已连接上互联网。那么 msgbox ("现在可以上网")如果没有连接上互联网那么等待，直到连接上互联网再 msgbox ("现在可以上网")

因为我用VBS实现的一个功能必须要连接上互联网才可以正常执行
考虑到某些ADSL用户，开机可能很慢。还没有等到用户拨上互联网我的VBS脚本就已经运行完并退出了。然而功能却并未实现.所以想加一个判断，等一等机器慢或拨号慢的用户

[ Last edited by hackhd on 2009-1-29 at 15:19 ]

此帖被 -2 点积分

点击查看详情

2008-4-2 07:42

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『第 2 楼』:

是不是发得太早没人看到啊.

2008-4-2 17:45

luckboy45
中级用户

积分 487
发帖 212
注册 2007-4-1
状态离线

『第 3 楼』:

:start
ping 127.0.0.1 -n 10 >nul
ping www.baidu.com -n 3 | find "Received = 1"
if errorlevel 1 goto start && goto next
:next
下面写入需要调用的VBS
保存为.BAT执行

逍遥@浪子@反病毒

2008-4-2 19:07

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『第 4 楼』:

我要VBS版本的

2008-4-2 19:13

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『第 5 楼』:

网络连上的时候会弹出OK
没有连接上的话就会出错.
我要想连就弹OK.没连就等待,直到连上再弹OK.
要怎么弄.

[ Last edited by hackhd on 2009-1-29 at 15:19 ]

2008-4-2 20:39

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 6 楼』:

Option Explicit

Dim strIP

MsgBox Ping("www.G.cn")

Function Ping(strIP)
Dim objPing, objRetStatus

Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_PingStatus where address = '" & strIP & "'")

For Each objRetStatus In objPing
      If IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode <> 0 Then
         Ping = False
         'WScript.Echo "Status code is " & objRetStatus.StatusCode
      Else
         Ping = True
         'Wscript.Echo "Bytes = " & vbTab & objRetStatus.BufferSize
         'Wscript.Echo "Time (ms) = " & vbTab & objRetStatus.ResponseTime
         'Wscript.Echo "TTL (s) = " & vbTab & objRetStatus.ResponseTimeToLive
      End If
Next
Set objPing = Nothing
End Function

2008-4-2 23:34

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『第 7 楼』:

N久了，又翻出了这帖子，当初slore大哥给我回复我不知道。今天测试发现不管上网还是不上网都是弹出的 False

不过经我修改OK了

[ Last edited by hackhd on 2009-1-29 at 03:59 ]

2009-1-29 03:28

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: