module1.vb

来自「ZNetAdv配置函数库,以太网函数,单片机使用」· VB 代码 · 共 37 行

Module Module1

    Declare Function ZN_SearchAll Lib "ZNetAdv.dll" () As Integer
    Declare Function ZN_Search Lib "ZNetAdv.dll" (ByVal szip As String) As Integer
    Declare Function ZN_GetSearchDev Lib "ZNetAdv.dll" ( _
                                ByRef szip As Byte, ByRef szver As Byte, _
                                ByRef szmac As Byte, ByRef pdevtype As Byte, _
        ByRef pipmode As Byte, ByRef ptcpport As Integer) As Integer

    Declare Function ZN_GetDevInfoUDPbyIP Lib "ZNetAdv.dll" (ByVal szip As String, _
                                ByVal devtype As Byte) As Integer
    Declare Function ZN_GetDevConfigUDP Lib "ZNetAdv.dll" (ByVal szname As String, _
                                ByRef szval As Byte) As Integer

    Declare Function ZN_ResetModifyConfigUDP Lib "ZNetAdv.dll" () As Integer
    Declare Function ZN_SetModifyConfigUDP Lib "ZNetAdv.dll" (ByVal szname As String, _
                                ByVal szval As String) As Integer
    Declare Function ZN_ModifyDevUDPbyIP Lib "ZNetAdv.dll" (ByVal szip As String, _
                                ByVal szpwd As String, ByVal devtype As Byte) As Integer

    Declare Function ZN_LoginTCP Lib "ZNetAdv.dll" (ByVal devtype As Byte, _
                                ByVal szip As String, ByVal port As Integer, _
                                ByVal szpwd As String) As Integer
    Declare Function ZN_GetDevConfigTCP Lib "ZNetAdv.dll" (ByVal szname As String, _
                                ByRef szval As Byte) As Integer
    Declare Function ZN_ModifyDevConfigTCP Lib "ZNetAdv.dll" (ByVal szname As String, _
                                ByVal szval As String) As Integer
    Declare Function ZN_ResetDevTCP Lib "ZNetAdv.dll" () As Integer
    Declare Function ZN_ExitTCP Lib "ZNetAdv.dll" () As Integer

    Declare Function ZN_SendCmd Lib "ZNetAdv.dll" (ByVal devtype As Byte, _
                                ByVal szip As String, ByVal port As Integer, _
                                ByVal szname As String, ByVal szval As String, _
                                ByVal budp As Byte) As Integer

End Module