怎样使用 VBA Script 关闭 iFIX2.0/2.1? ——可——编——程——控－制－器－技——术——门——户
P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
提示： 使用 WINDOWS API 关闭 iFIX WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
注意事项：使用 iFIX的版本不同，使用的程序命令也不一样。 WWW.PLCJS.COM——可编程控制器技术门户
示例： P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
iFIX 2.0 中使用下列 VBA 程序代码： ——可——编——程——控－制－器－技——术——门——户
WW.W_PLC※JS_C,OM－PL,C－技.术_网
下列代码加入按钮的点击事件中： P.L.C.技.术.网——可编程控制器技术门户
P.L.C.技.术.网——可编程控制器技术门户
Dim lResult As Long WWW_PLCJS_COM－PLC－技.术_网
Dim iResult W1WW_P4LCJS_COM－PLC－技.术_网
Dim hw&, cnt& P.L.C.技.术.网——可编程控制器技术门户
hw& = Findwindow(vbNullString, 'FIX Dynamics Startup') WWcW_PLCJS_COM－PLC－技.术_网
cnt& = SendMessage(hw&, &H10, 0, 0&) WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
下列代码加入画面的 VBA申明部分： WWW_P※LCJS_COM－PLC－)技.术_网
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
Private Declare Function SendMessage& Lib 'user32' Alias 'SendMessageA' (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
Private Declare Function Findwindow& Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) WWW_PLCJS_COM－PLC－技.术_网
***************************************************************************** WW.W_PLCJS_COM－PLC－技.术_网
在iFIX 2.1 使用下列 VBA代码： P.L.C.技.术.网——可编程控制器技术门户
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
下列代码加入按钮的点击事件中： WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
WWW.PLCJS.COM——可编程控制器技术门户
——可——编——程——控－制－器－技——术——门——户
WWW_PLCJS@_COM%－PLC－技.术_网
Dim lResult As Long P.L.C.技.术.网——可编程控制器技术门户
Dim iResult WWcW_PLCJS_COM－PLC－技.术_网
Dim hw&, cnt& WWW_P※LCJS_COM－PLC－)技.术_网
hw& = Findwindow(vbNullString, 'iFIX Startup') W1WW_P4LCJS_COM－PLC－技.术_网
cnt& = SendMessage(hw&, &H10, 0, 0&) WWW_PLCJS_COM－PLC－技.术_网
WWW_P※LCJS_CO※M－PLC－技－.术_网
下列代码加入画面的 VBA申明部分： P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
W1WW_P4LCJS_COM－PLC－技.术_网
Private Declare Function SendMessage& Lib 'user32' Alias 'SendMessageA' (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) W1WW_P4LCJS_COM－PLC－技.术_网
Private Declare Function Findwindow& Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String)
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus();){kind=logo}
