100元求助

100020615

PEL中当前K线走完（是阳线），则调用VBA自定义过程，运行或激活WINDOWS系统中的某个程序窗口（比如记事本或计算器等）
问题1.PEL中如何调用，需要具体代码；
问题2.VBA自定义过程如何编写，需要具体代码；
谢谢！
13805636477

100020615

PEL:
if ref(c,1)>ref(o,1) then SETFOCUSWINDOW("无标题 - 记事本”);

VBA:
'激活指定窗口的调用过程
Function SetFocusWindow(Formula,WinTitle)
    DIM WARP
    Set Wrap = CreateObject("DynamicWrapperX")
    Wrap.Register"user32.dll","FindWindow","i=ss","f=s", "r=l"
    WindowHandle = Wrap.FindWindow("",wintitle)            '返回指定标题的窗口句柄
    If WindowHandle=0 then exit FUNCTION
    MsgBox "发现窗口"
    wrap.register "user32.dll","SetForegroundWindow","i=l","f=s","r=l"
    wrap.SetForegroundWindow(WindowHandle)
    SetFocusWindow=0
End Function
运行后，系统没反应，msgbox有提示

100020615

pel:
if ref(c,1)>ref(o,1) then SETFOCUSWINDOW("无标题 - 记事本");

vba:
'激活指定窗口的调用过程
Function SetFocusWindow(Formula,WinTitle)
    DIM Wrap
    Set Wrap = CreateObject("DynamicWrapperX")
    Wrap.Register"user32.dll","FindWindow","i=ss","f=s", "r=l"
    WindowHandle = Wrap.FindWindow("",wintitle)            '返回指定标题的窗口句柄
    SET Wrap=Nothing
    msgbox WindowHandle
    If WindowHandle=0 then exit FUNCTION
        MsgBox "发现窗口"
    wrap.register "user32.dll","SetForegroundWindow","i=l","f=s","r=l"
    wrap.SetForegroundWindow(WindowHandle)                        '将指定句柄的窗口置前
    SET Wrap=Nothing
    SetFocusWindow=0
End Function

运行时出错：

技术007

不能创建对象，使用32位的金字塔试试

100020615

技术007 发表于 2024-1-29 15:20
不能创建对象，使用32位的金字塔试试

您说的是换金字塔软件的版本，还是将CreateObject("DynamicWrapperX")改为CreateObject("DynamicWrapper")？后者已经测试不行！

技术007

是指金字塔软件的版本,有32位版本的(32位的这个DLL不需下载注册)，有64位版本的

技术006

13805636477 发表于 2024-1-29 09:45
pel:
if ref(c,1)>ref(o,1) then SETFOCUSWINDOW("无标题 - 记事本");

下载后，在关闭金字塔的情况下，用管理员权限注册，并且，PEL的自定义函数，不支持传递字符串参数。示例代码：

[Visual Basic] 复制代码

DIM Wrap
    Set Wrap = CreateObject("DynamicWrapperX")
        ' 注册 FindWindow 以获取窗口句柄
        Wrap.Register "user32.dll", "FindWindow", "i=ss", "f=s", "r=l"
        ' 注册 SetForegroundWindow
        Wrap.Register "user32.dll", "SetForegroundWindow", "i=h", "f=s", "r=l"
        ' 注册 ShowWindow
        Wrap.Register "user32.dll", "ShowWindow", "i=hl", "f=s", "r=l"

    WindowHandle = Wrap.FindWindow("Notepad","111.txt - 记事本")            '返回指定标题的窗口句柄
    Application.MsgOut WindowHandle
        ' 如果找到窗口，显示并激活它
        If WindowHandle <> 0 Then
            ' 显示窗口（SW_SHOWNORMAL = 1）
            Wrap.ShowWindow WindowHandle, 1
            ' 将窗口置于前台
            Wrap.SetForegroundWindow WindowHandle
        End If                     '将指定句柄的窗口置前
    SET Wrap=Nothing

100020615

那么请问
dynwrapx.dll在哪里下载呢？

技术006

https://www.weistock.com/docs/VB ... tml#dynamicwrapper-调用win32-api