k3 如何外挂程序啊

axislover

k3 如何外挂程序啊

linzff

exe 直接用菜单挂，插件的话
Option Explicit
Implements IBizConsole
Public oDict As KFO.Dictionary
Private Property Get SUBID() As String
SUBID = "Super"
'SUBID = "AR"
End Property
Private Function GetPeriodString() As String
GetPeriodString = 10
End Function
Private Sub OnetimeAlert()

End Sub
Private Function IBizConsole_SubID() As String
IBizConsole_SubID = SUBID()
End Function
Private Sub IBizConsole_CallFunc(ByVal dctPara As Object, ByVal oKDMain As Object)
'Dim objBase As BaseApp

On Error GoTo err_exit
Select Case dctPara("FuncID")
Case 1000000000

    Dim obj As Object
    Set obj = CreateObject("ProjectName.ClassName")
        ...........................      
End Select
err_exit:

End Sub

Private Function IBizConsole_GetPeriodString() As String

End Function
Private Sub IBizConsole_OneTimeAlert()

End Sub

szjol

如使k3可运行上面的代码呢?

tengguang

参考k/3主控台开发手册，可以运行2楼的代码。
问题是这样是不是占用K/3的站点呢？
SUBID = "Super"
'SUBID = "AR"
上面这个代码就是占用那个模块站点的把？