$Str = _
'路由器Web界面设置程序' & @CRLF & _
'' & @CRLF & _
'> 系统管理 > 连线状态 << 主菜单 ' & @CRLF & _
'' & @CRLF & _
'--------------------------------------------------------------------------------' & @CRLF & _
'系统状态 ' & @CRLF & _
'系统已运行时间:4:8:44 ' & @CRLF & _
'' & @CRLF & _
'局域网状态 主DNS 124.74.213.68 副DNS 202.96.209.133 ' & @CRLF & _
'IP地址 TX封包 RX封包 ' & @CRLF & _
'192.168.0.1 1868263 1442347 ' & @CRLF & _
'' & @CRLF & _
'WAN 状态 网关IP地址 222.65.52.1 ' & @CRLF & _
'模式 IP地址 TX封包 传送速率 RX封包 接收速率 已运行时间 ' & @CRLF & _
'PPPoE 222.65.54.130 1428761 18751 1874210 496988 4:08:11 ' & @CRLF & _
'>>断开 PPPoE 或 PPTP 连接 ' & @CRLF & _
'' & @CRLF & _
'' & @CRLF & _
'--------------------------------------------------------------------------------' & @CRLF & _
'' & @CRLF & _
'Copyright (c) 2004, DrayTek Corp. All Rights Reserved. ' & @CRLF & _
''
MsgBox(0, 0, $Str)
$sR = StringRegExp($Str, 'PPPoE.+\s(\d+)\s\d+:', 3)
If @error = 0 Then MsgBox(0, 0, $sR[0])
|