iFix5.0退出老是有这个问题大家进来看看解决下-专业自动化论坛-中国工控网论坛

iFix5.0退出老是有这个问题大家进来看看解决下点击：639 | 回复：3

精华：0帖
求助：0帖
帖子：3帖 | 0回
年度积分：0
历史总积分：49
注册：2008年7月23日

发表于：2010-11-05 08:37:15

楼主

http://i.6.cn/cvbnm/70/42/13/b78a898251e228a88f9ad282eb131910.jpg

我是在调度里设置了一个后台调度

脚本如下

Dim UserID As String
Dim UserName As String
Dim GroupName As String
System.FixGetUserInfo UserID, UserName, GroupName

Dim WorkspaceApp As Object
Set WorkspaceApp = GetObject("","Workspace.Application")
Dim TargetVar As Object
Set TargetVar = WorkspaceApp.Documents("User").Page.FindObject("UserID")
TargetVar.CurrentValue = UserID
Set TargetVar = WorkspaceApp.Documents("User").Page.FindObject("UserName")
TargetVar.CurrentValue = UserName
Set TargetVar = WorkspaceApp.Documents("User").Page.FindObject("GroupName")
TargetVar.CurrentValue = GroupName

我的退出脚本如下：

Dim iResult
Dim hw&, cnt&
hw& = FindWindow("iFix Startup", vbNullString)

If hw& = 0 Then
MsgBox ("无法关闭演示系统。请使用 Windows任务管理器将工作台关闭。")
End If
If hw& <> 0 Then cnt& = SendMessage(hw&, &H10, 0, 0&)

大家看看是不是我的脚本有什么问题为什么老是退出iFIX的时候会弹出这个错误呢？

分享到：

邀请回答

回复楼主

zxwsh

精华：0帖
求助：0帖
帖子：2帖 | 34回
年度积分：0
历史总积分：633
注册：2002年11月14日

发表于：2010-11-06 20:49:21

1楼

FindWindow("PROFICY IFIX 启动", vbNullString)

回复引用举报

曹虎明

精华：0帖
求助：0帖
帖子：26帖 | 923回
年度积分：0
历史总积分：4903
注册：2004年7月07日

发表于：2010-11-07 20:24:15

2楼

ifix 5.0目前项目中用确实老是有一些问题建议楼主将所有的补丁打上在查找问题即使现在没有问题我也是建议你把补丁打上

回复引用举报

deng_lp

精华：5帖
求助：0帖
帖子：65帖 | 2669回
年度积分：0
历史总积分：2876
注册：2001年6月19日

发表于：2010-11-11 12:13:19

3楼

Dim iResult
Dim hw&, cnt&
hw& = FindWindow("iFix Startup", vbNullString)

If hw& = 0 Then
MsgBox ("无法关闭演示系统。请使用 Windows任务管理器将工作台关闭。")
End If
If hw& <> 0 Then cnt& = SendMessage(hw&, &H10, 0, 0&)

要看运行IFIX时第一个小窗标题名称。或用MFC的SPY工具查找小床的classwindow 类名，并发出WM_CLOSE消息

回复引用举报

热门招聘

﻿iFix5.0退出老是有这个问题 大家进来看看解决下 ﻿点击：639 | 回复：3

iFix5.0退出老是有这个问题大家进来看看解决下点击：639 | 回复：3