我在VBA中可以用代碼 application.system("cmd /k"  &"ping www.baidu.com")

來知道網(wǎng)絡(luò)是否暢通，我現(xiàn)在需要這樣的結(jié)果，就是如果能連通，返回1，不能連通，返回0，請問這個程序要怎么編寫啊？