Foxtable(狐表)用户栏目专家坐堂 → [求助]系统空闲时的执行命令出现问题。


  共有3158人关注过本帖树形打印复制链接

主题:[求助]系统空闲时的执行命令出现问题。

帅哥哟,离线,有人找我吗?
liuxianjie1980
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
[求助]系统空闲时的执行命令出现问题。  发帖心情 Post By:2015/4/7 15:48:00 [只看该作者]

项目的系统空闲时写入以下代码:

 

If LastInputTickCount > 100000 Then
    Syscmd.Project.SwitchUser()
End If

 

上个厕所,OMG!登陆框出现了NNNN个啊!!

 

问题在哪里??


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/7 15:53:00 [只看该作者]

因为这个事件会一直触发,然后一直执行的.
你可以增加一个全局变量

vars("login")=true

If LastInputTickCount > 100000 Then
     if vars("login") then
     vars("login")=false
    Syscmd.Project.SwitchUser()
     end if
End If

再到LoadUserSting 事件设置vars("login")=True

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/4/7 17:41:00 [只看该作者]

用静态变量更方便:

 

Static f As Boolean

If LastInputTickCount > 100000 Then

    if f = False then

       f= True
       Syscmd.Project.SwitchUser()

      f = false

   Endif
End If

 


 回到顶部
帅哥哟,离线,有人找我吗?
liuxianjie1980
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/4/8 9:20:00 [只看该作者]

静态变量f只是在代码中定义就可以了吗?不需要额外定义?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/8 9:21:00 [只看该作者]

不需要

 回到顶部
帅哥哟,离线,有人找我吗?
liuxianjie1980
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/4/8 9:39:00 [只看该作者]

还有一个疑问,f作为逻辑变量,在上述代码中只是做了定义,它的值呢?系统是如何识别它的值的呢?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/4/8 10:08:00 [只看该作者]

逻辑变量的值,默认是false,直到你用代码改变他的值。

 

另关于静态变量的说明:

http://www.foxtable.com/help/topics/1061.htm

 

[此贴子已经被作者于2015/4/8 10:09:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
liuxianjie1980
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/4/8 11:17:00 [只看该作者]

ok

 回到顶部