cothercode.cls

与西门子PLC通讯的程序,经工业现场测试没有问题

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cOtherCode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit


'读写INI的API函數
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long


Public Function codeLEEout(ByVal vCode As String) As String  '解密
    
    Dim i%, codeIN() As String
    ReDim codeIN(Len(vCode))
    For i = Len(vCode) To 1 Step -1
        codeIN(i) = Chr$(Asc(Mid(vCode, i, 1)) Xor i)
    Next
    Dim d$
    For i = Len(vCode) To 1 Step -1
        d = d & codeIN(i)
    Next
    codeLEEout = d

End Function

Public Function codeLEEin(ByVal vCode As String) As String  '加密
    Dim codeIN() As String, i%, m%, s$
    Dim strCodeIN$
    m = Len(vCode)
    ReDim codeIN(m)
    For i = m To 1 Step -1
        strCodeIN = strCodeIN & Mid(vCode, i, 1)
    Next
    For i = m To 1 Step -1
        codeIN(i) = Chr(Asc(Mid(strCodeIN, i, 1)) Xor i)
    Next
    For i = 1 To m
        s = s & codeIN(i)
    Next
    codeLEEin = s
End Function


'自定义写入INI函數
Public Function WriteIni(ByVal vSection As String, ByVal vKey As String, ByVal NewValue As String, ByVal vPath As String) As Boolean
    Dim x As Long, Buff As String * 128, i As Integer
    Buff = NewValue + Chr$(0)
    x = WritePrivateProfileString(vSection, vKey, Buff, vPath)
    WriteIni = x
End Function

'自定义读取INI函數
Public Function ReadIni(ByVal vSection As String, ByVal vKey As String, ByVal vPath As String) As String
    Dim x As Long, Buff As String * 128, i As Integer
    x = GetPrivateProfileString(vSection, vKey, "", Buff, 128, vPath)
    i = InStr(Buff, Chr$(0))
    ReadIni = Trim(Left(Buff, i - 1))
End Function