CommFort

Код: Выделить всё

Option Explicit

Private Const DLL_PROCESS_ATTACH As Long = 1
Private Const DLL_PROCESS_DETACH As Long = 0
Private Const DLL_THREAD_ATTACH As Long = 2
Private Const DLL_THREAD_DETACH As Long = 3

Private Type sPluginInfo
    strPluginName(0 To 254) As Byte
    strPluginDescription(0 To 254) As Byte
    strPluginVersion(0 To 254) As Byte
End Type
Private Type sBotUserInfo
    strBotName(0 To 254) As Byte
    strBotPassword(0 To 254) As Byte
    bIsFemale As Boolean
End Type

Private Type typeCommFortProces
    dwPluginID As Integer
    bMessage(0 To 254) As Byte
    dwMessageLength As Integer
End Type

Dim dwPluginID As Integer
Dim CommFortProcess As typeCommFortProces

Private Sub gb(x() As Byte, st As String)
    Dim r As Integer
    For r = 1 To Len(st$)
        x(r - 1) = Asc(Mid$(st$, r, 1))
    Next r
End Sub

Public Function PluginInit(dwPluginID As Integer, plInfo As sPluginInfo, botInfo As sBotUserInfo, func1 As typeCommFortProces) As Byte
    
    Call gb(plInfo.strPluginName, "vb plugin")
    Call gb(plInfo.strPluginDescription, "Desc")
    Call gb(plInfo.strPluginVersion, "4.02")
    Call gb(botInfo.strBotName, "1234")
    Call gb(botInfo.strBotPassword, "1234")
    botInfo.bIsFemale = False
    
    'dwPluginID = dwThisPluginID
    CommFortProcess = func1
    
    PluginInit = 0
End Function

Public Function PluginTerminate() As Byte
    PluginTerminate = 0
End Function

Public Function Premoderation(dwMessageID As Integer, ByRef bMessage() As Byte, dwMessageLength As Integer) As Boolean
    If dwMessageID = 12 Then
        bMessage(0) = 65
        bMessage(1) = 66
        bMessage(2) = 67
        dwMessageLength = 3
        Premoderation = True
        Exit Function
    End If
    Premoderation = False
End Function

Public Function PluginProces(dwMessageID As Integer, bMessage As String, dwMessageLength As Integer) As Byte
    PluginProces = 0
End Function


Public Function DllEntryPoint(ByVal hInstance As Long, ByVal lReason As Long, ByVal lReserved As Long) As Long
              
    Select Case lReason
        Case DLL_PROCESS_ATTACH
            DllEntryPoint = 1
            
        Case DLL_PROCESS_DETACH
            
        Case DLL_THREAD_ATTACH
            
        Case DLL_THREAD_DETACH
            
    End Select
End Function