做了一个初始化功能,但是句柄判断是有误的。代码如下
Dimenv Hwnd1
Dimenv Hwnd2
Hwnd1 = Plugin.Window.Find(0, "

rocess Simulate 16.1.2 - [chanxueyan_GAC_202203230917.psz]")
TracePrint Hwnd1
Hwnd2 = Plugin.Window.Find(0, "产学研项目数字化大屏 - Google Chrome")
TracePrint Hwnd2
TracePrint "initialize Windows"
If initialize_PDPS <> 1 Then
If Hwnd1 = 0 Then
TracePrint "Don't Find PDPS Windows,Pls Check"
MessageBox "未发现PDPS模型展示界面,请打开软件界面或修改句柄"
Else
Call Plugin.Window.MAX(Hwnd1)
initialize_PDPS = 1
TracePrint "

DPS Windows is Max"
End If
End If
If initialize_WEB <> 1 Then
If Hwnd1 = 0 Then
TracePrint "Don't Find Chrome Windows,Pls Check"
MessageBox "未发现生产数据信息界面,请打开软件界面或修改句柄"
Else
Call Plugin.Window.MAX(Hwnd2)
KeyPress "F11", 1
Delay 100
KeyPress "F11", 1
Delay 100
KeyPress "F11", 1
Delay 100
initialize_WEB = 1
TracePrint "

roduce_Info Windows is Max"
End If
End If
If initialize_WEB and initialize_PDPS Then
TracePrint "Finish initialize Windows"
TracePrint "All initialize Process is succeed"
initialize_Start = 1
Window_success = Lib.窗口.弹出对话框("窗口初始化完成,3秒后窗口自动关闭",3,"成功",68)
Else
Window_failure = Lib.窗口.弹出对话框("窗口初始化失败,请检查配置",60,"错误",68)
End If
End If
运行结果如下图