金字塔VBA调用windows系统中的DLL函数

100020615

金字塔VBA调用windows系统中的DLL函数，有没有相关的范例
(在后续两行的函数声明处就出错)
'获取指定标题窗口的句柄
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'激活指定句柄的窗口
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

'激活指定窗口的调用过程
function SetFocusWindow(WinTitle)
    '返回指定标题的窗口句柄
    HwndNow = FindWindow(vbNullString, WinTitle)
    If HwndNow = 0 Then Exit Sub
    SetForegroundWindow HwndNow
End Sub

100020615

function SetFocusWindow(WinTitle)
    '返回指定标题的窗口句柄
    HwndNow = “user32@FindWindow"("",wintitle)         '获取指定标题窗口的句柄
    If HwndNow = 0 Then Exit Sub
    "user32@SetForegroundWindow"(HwndNow)                '激活指定句柄的窗口
End Sub

改为这样也不行，提示找不到function

100020615

改为如下语句，系统没有报错了，但是在策略中调用的时候，提示函数未定义（if ref(c,1）>ref(o,1) then setfoucewindow("记事本");

'激活指定窗口的调用过程
function SetFocusWindow(WinTitle)
    '返回指定标题的窗口句柄
    HwndNow = "user32@FindWindow"("",wintitle)        '获取指定标题窗口的句柄
    If HwndNow = 0 Then Exit Function
    call "user32@SetForegroundWindow"(HwndNow)                '激活指定句柄的窗口
End Function

技术006

没有，软件的vba接口更接近vb的语言，纯vba的代码不能在金字塔中直接运行。vba接口支持通过com组件的形象，调用外部dll的对象。（dll也必须遵循软件接口相关的规则）