- 帖子
- 8
- 积分
- 188
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2008-10-1
|
网络连接监测的VBS怎样写?
以下是用BAT写的网络连接监测程序:
@echo off
setlocal enabledelayedexpansion
title lxg3428网络连接监测器--------------------lxg3428网络连接监测器
mode con cols=70 lines=3 &color 2f
cls
echo 开始请稍等。。。。。。
:loop
echo %time%
ping 1 -n 1 -w 10000 2>nul 1>nul
echo %time%
netstat -an >a.txt
findstr "ESTABLISHED" a.txt >b.txt
type b.txt
goto loop
现请教:当连接状态是ESTABLISHED时在开始任务栏(就是屏幕最下那一栏)能显示出提示(比如显示"有连接")怎样写?
在这论坛截一段代码能显示他原来的东西,但不知道怎样用在我以上的程序里有同样的效果:
Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
For Each strTargetProc In arrTargetProcs
If LCase(objLatestEvent.TargetInstance.Name) = LCase(strTargetProc) Then
ProcessName=objLatestEvent.TargetInstance.Name
objShell.Popup Now & " 发现进程: " & ProcessName, 60, "有风险进程"
End If
Next
End Sub
以上"有风险进程"就是显示在任务栏里的. |
|