module8.bas

用户MODBUS规约通信编程,起参考作用.

Attribute VB_Name = "Module8"
Dim rI, rpW
Dim rflag As Boolean

Public Function Rp() As Boolean
rI = GetDriveInfo("c:\", GETDI_SERIAL)

rpW = Left(rI, 4)
    rpW = rpW * 18999
    rpW = Left(rpW, 5)
    Dim str1
    str1 = GetSetting(appname:="MyApp", Section:="Textpass1_2", Key:="Value", Default:="0")
    If str1 = rpW Then
    Rp = True
    Else
    Rp = False
    End If
    

    
End Function