Question

我有以下用QTP编写的代码

Set oNetwork = DotNetFactory( "Microsoft.VisualBasic.Devices.Network" ,"Microsoft.VisualBasic")
bFlag=oNetwork.ping(strWebSiteName)
If bFlag Then
   MsgBox( "Website is avilable" )
Else
   MsgBox( "Website not avilable" )
End If

Set oNetwork=nothing

但是当我执行此代码时，我收到错误

Cannot load Assembly Microsoft.VisualBasic.Devices
Line (27): "Set oNetwork = DotNetFactory( "Microsoft.VisualBasic.Devices.Network" ,"Microsoft.VisualBasic.Devices")"

有人可以告诉我，出了什么问题吗？

.NET Framework 4已安装在我的系统中。

Answer 1

程序集名称为Microsoft.VisualBasic，而不是Microsoft.VisualBasic.Devices。错误消息中的代码与您发布的代码示例不匹配。

另外，请查看：http://www.advancedqtp.com/ping-a-specified-server/

如何使用Microsoft.VisualBasic.Devices.Network ping网站

1 个答案: