1

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 は既にシステムにインストールされています。

4

1 に答える 1

0

アセンブリ名はMicrosoft.VisualBasic、ではなくMicrosoft.VisualBasic.Devicesです。エラーメッセージのコードが、投稿したコードサンプルと一致しません。

また、http ：//www.advancedqtp.com/ping-a-specific-server/もご覧ください。

于 2013-02-04T12:36:24.480 に答える