Option Strict Off
Option Explicit On
<System.Runtime.InteropServices.ProgId("CNotify_NET.CNotify")> Public Class CNotify
    Implements PDDirectLib.IPDClientNotify
    Dim fcf As FConfigure
    Public Function IPDClientNotify_BeginProcess() As Boolean Implements PDDirectLib.IPDClientNotify.BeginProcess
        Dim pSync As New CSync
        pSync.Synchronize()
        IPDClientNotify_BeginProcess = False
    End Function
    Public Sub IPDClientNotify_CfgConduit(ByVal nCreatorId As Integer, ByVal nUserId As Integer, ByVal bstrUserName As String, ByVal bstrPathName As String, ByRef nSyncPerm As Integer, ByRef nSyncTemp As Integer, ByRef nSyncNew As Integer, ByRef nSyncPref As Integer) Implements PDDirectLib.IPDClientNotify.CfgConduit
        fcf = New FConfigure
        fcf.nSyncType = nSyncPerm
        fcf.ShowDialog()
        If Not fcf.bCancel Then
            nSyncNew = fcf.nSyncType
            nSyncPref = fcf.nSyncPref
        End If
        nSyncNew = PDDirectLib.ESyncTypes.eSlow
        fcf.Dispose()
        fcf = Nothing
    End Sub
    Public Sub IPDClientNotify_ConfigureConduit(ByVal pPathName As String, ByVal pRegistry As String, ByRef nSyncPref As Integer, ByRef nSyncType As Integer) Implements PDDirectLib.IPDClientNotify.ConfigureConduit
        fcf = New FConfigure
        fcf.pPath = pPathName
        fcf.pRegistry = pRegistry
        fcf.nSyncType = nSyncType
        fcf.ShowDialog()
        If Not fcf.bCancel Then
            nSyncType = fcf.nSyncType
            nSyncPref = fcf.nSyncPref
        End If
        nSyncType = PDDirectLib.ESyncTypes.eSlow
        fcf.Dispose()
        fcf = Nothing
    End Sub
    Public Function IPDClientNotify_GetConduitInfo(ByVal infoType As PDDirectLib.EGetConduitInfo, ByVal dwCreatorId As Integer, ByVal dwUserId As Integer, ByVal bstrUserName As String) As Object Implements PDDirectLib.IPDClientNotify.GetConduitInfo
        If infoType = PDDirectLib.EGetConduitInfo.eGetConduitName Then
            IPDClientNotify_GetConduitInfo = "SyncExDll"
        End If
        If infoType = PDDirectLib.EGetConduitInfo.eGetDefaultAction Then
            IPDClientNotify_GetConduitInfo = PDDirectLib.ESyncTypes.eFast
        End If
        If infoType = PDDirectLib.EGetConduitInfo.eGetMfcVersion Then
            IPDClientNotify_GetConduitInfo = PDDirectLib.EMfcVersion.ePDMFC_NOT_USED
        End If
        If infoType = PDDirectLib.EGetConduitInfo.eGetConduitVersion Then
            IPDClientNotify_GetConduitInfo =  1 . 0 #
        End If
    End Function
End Class