請VBS師傅幫忙，急請VB師傅進來幫忙

VBS如下所示：

a=test("")

b=test("")

w=test("")

if a<3 and b<3 and w<3 then

msgbox "網路正在工作！ "

elseif a>=3 and b>=3 and w>=3 then

elseif a<3 and b<3 and w>=3 then

elseif a<3 and b>=3 and w<3 then

elsemsgbox "未知異常！ "

end if

function test(ip)

limit = 10

n = 0for i = 1 to 30

set objping = getobject("winmgmts:"突襲）。execquery("select * from win32_pingstatus where address = ip &

for each objstatus in objping

if isnull( or <>0 or > limit then

n = n + 1

elseif n > 0 then n = n - 1

end if

nextif n >=3 then exit for

100nexttest=n

end function

注意：情況 3 根據 AB 處理，W 不通過，情況 4 是 B 不通過，A 和 W。

批次：===bat===

echo off

REM 假設您是計算機 A

set a=

set b=

set w=

ping %b%&&ping %w%&&echo 計算機網路正常。

ping %b%||ping %w%||Echo 異常橡膠狀，請手動重新啟動開關。

暫停計算機 B，也是如此（注意將 %b% 全部替換為 %a%）

師傅直接發來了試卷。

)'就是要拿到這個物件，內容在**裡，你懂的。

do until "complete" '繼續迴圈該語句，直到頁面載入。 直到的意思是直到。

200'就是等待200ms，讓內容迴圈播放，這樣就等頁面完全載入。

loop'週期結束標誌。

獲取該頁面的文字，並彈出乙個對話方塊以顯示此訊息。

set odom=nothing'斷開與物件的連線以釋放內存在大型專案中非常重要，並且是乙個好習慣。

具有 readystate 的 5 種狀態：

0 未初始化）尚未呼叫 send（） 方法。

1 載入）已呼叫 send（） 方法，並且正在傳送請求。

2 載入完成）send（） 方法已執行，並且已收到所有響應。

3 次互動）正在解析響應的內容。

4 完成）響應內容解析完成，可以在客戶端呼叫。

首先，在這段時間裡，你應該學習VB的基本語法、基本語句和基本控制等。 能夠編寫一些簡單的計算很有趣。 例如，編寫乙個程式來求解乙個 1 元素 2 方程，編寫乙個程式來求解兩個數的最新公約數，等等。