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



cbirometotti

    
  • 精华: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消息


热门招聘
相关主题

官方公众号

智造工程师