module_main.bas

XWP仪表参数的读取

Attribute VB_Name = "Module_Main"
Option Explicit
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Public clsUserID As New Class_操作INI文件
    Public 序列号 As String
    Public 注册码 As String

Sub Main()
    If App.PrevInstance Then
        End
    End If
    clsUserID.INIFileName = App.Path & "\ID.ini"
    序列号 = ReadDiskSerialNumber(1)
    Dim x As Integer
    Dim strID As String
    For x = 1 To Len(序列号)
        strID = strID & Val(Asc(Mid(序列号, x, 1)))
    Next
    注册码 = Val(clsUserID.GetIniKey("用户注册", "注册码"))

    If 注册码 = CStr(Val(Left(strID, 4)) * Val(Right(strID, 4))) Then
        Form1.Show
    Else
        Dim strInputID As String
        strInputID = InputBox("通讯端口=COM1,波特率=9600,仪表地址=01" & vbLf & vbLf & "序列号:" & 序列号 & vbLf & vbLf & "QQ:393075162     Tel:[phone]" & vbLf & vbLf & "请在下面输入:" & CStr(Val(Left(strID, 4)) * Val(Right(strID, 4))), "注册")
        If strInputID = CStr(Val(Left(strID, 4)) * Val(Right(strID, 4))) Then
            clsUserID.WriteIniKey "用户注册", "注册码", strInputID
            Form1.Show
        Else
            End
        End If
    End If
End Sub