如果存在加密狗，我应该获得成功输出，否则使用 vb.net 失败？

问：

我需要在登录前检查应用程序，如果系统 USB 中插入了加密狗，如果加密狗不存在，则消息应作为 FAILed 传递。这是我用过的代码

Public Shared Function dongle1()
    Dim vendorCode As String = ""
    Dim feature As AKSHASP.HaspFeatureOptions =
        AKSHASP.HaspFeatureOptions.haspOptionDefault

    Dim hasp As AKSHASP.Hasp = New AKSHASP.Hasp(feature)
    Dim status As AKSHASP.HaspStatusCodes = hasp.Login(vendorCode)

    If status = AKSHASP.HaspStatusCodes.haspStatusOk Then
        MsgBox("Success")
    Else
        MsgBox("fail")
    End If
End Function

我需要一些关于如何将 safenet Hasp 与 VB.net 一起使用的参考代码