TC官方合作论坛
标题:
今日把代码发上,求解答.为什么程序不退回,连续几天后,鼠键代码就不动了的.鼠键代码就只有鼠标的点击移动,发字符串!求高手
[打印本页]
作者:
pp11022
时间:
2012-9-23 09:44
标题:
今日把代码发上,求解答.为什么程序不退回,连续几天后,鼠键代码就不动了的.鼠键代码就只有鼠标的点击移动,发字符串!求高手
空间 定时
//定义默认空间
字符型 时间,内容月,内容日,内容小时,内容分钟
整型 时间小时,时间分钟,线程句柄
功能 逻辑型 读时间()
循环 (真)
时间=系统.时间(0)
内容月=字符串.截取(时间,5,7)
如果(字符串.是否整型(内容月,0)) //判断双月
内容日=字符串.截取(时间,8,10)
如果(字符串.是否整型(内容日,0)) //判断双日
内容小时=字符串.截取(时间,12,14)
如果(字符串.是否整型(内容小时,0)) //判断双时
内容分钟=字符串.截取(时间,15,17)
如果(字符串.是否整型(内容分钟,0)) //判断双分
时间小时=转换.字符型转整型(内容小时,0)
时间分钟=转换.字符型转整型(内容分钟,0) //双月双日双时双分
否则
内容分钟=字符串.截取(时间,15,16)
时间小时=转换.字符型转整型(内容小时,0)
时间分钟=转换.字符型转整型(内容分钟,0) //双月双日双时单分
如果结束
否则
内容小时=字符串.截取(时间,12,13) //判断单时
内容分钟=字符串.截取(时间,14,16)
如果(字符串.是否整型(内容分钟,0)) //判断双分
时间小时=转换.字符型转整型(内容小时,0)
时间分钟=转换.字符型转整型(内容分钟,0) //双月双日单时双分
否则
内容分钟=字符串.截取(时间,14,15)
时间小时=转换.字符型转整型(内容小时,0) //双月双日单时单分
时间分钟=转换.字符型转整型(内容分钟,0)
如果结束
如果结束
否则
内容日=字符串.截取(时间,8,9) //判断单日
内容小时=字符串.截取(时间,11,13)
如果(字符串.是否整型(内容小时,0)) //判断双时
内容分钟=字符串.截取(时间,14,16)
如果(字符串.是否整型(内容分钟,0)) //判断双分
时间小时=转换.字符型转整型(内容小时,0) //双月单日双时双分
时间分钟=转换.字符型转整型(内容分钟,0)
否则
内容分钟=字符串.截取(时间,14,15)
时间小时=转换.字符型转整型(内容小时,0) //双月单日双时单分
时间分钟=转换.字符型转整型(内容分钟,0)
如果结束
否则
内容小时=字符串.截取(时间,11,12) //判断单时
内容分钟=字符串.截取(时间,13,15)
如果(字符串.是否整型(内容分钟,0)) //判断双分
时间小时=转换.字符型转整型(内容小时,0) //双月单日双时双分
时间分钟=转换.字符型转整型(内容分钟,0)
否则
内容分钟=字符串.截取(时间,13,14) //判断单分
时间小时=转换.字符型转整型(内容小时,0) //双月单日双时单分
时间小时=转换.字符型转整型(内容小时,0)
如果结束
如果结束
如果结束
否则
内容月=字符串.截取(时间,5,6) //判断单月
内容日=字符串.截取(时间,7,9)
如果(字符串.是否整型(内容日,0)) //判断双日
内容小时=字符串.截取(时间,11,13)
如果(字符串.是否整型(内容小时,0)) //判断双时
内容分钟=字符串.截取(时间,14,16)
如果(字符串.是否整型(内容分钟,0)) //判断双分
时间小时=转换.字符型转整型(内容小时,0) //单月双日双时双分
时间分钟=转换.字符型转整型(内容分钟,0)
否则
内容分钟=字符串.截取(时间,14,15)
时间小时=转换.字符型转整型(内容小时,0) //单月双日双时单分
时间分钟=转换.字符型转整型(内容分钟,0)
如果结束
否则
内容小时=字符串.截取(时间,11,12) //判断单时
内容分钟=字符串.截取(时间,13,15)
如果(字符串.是否整型(内容分钟,0)) //判断双分
时间小时=转换.字符型转整型(内容小时,0) //单月双日单时双分
时间分钟=转换.字符型转整型(内容分钟,0)
否则
内容分钟=字符串.截取(时间,13,14) //判断单分
时间小时=转换.字符型转整型(内容小时,0) //单月双日单时单分
时间分钟=转换.字符型转整型(内容分钟,0)
如果结束
如果结束
否则
内容日=字符串.截取(时间,7,8) //判断单日
内容小时=字符串.截取(时间,10,12)
如果(字符串.是否整型(内容小时,0)) //判断双时
内容分钟=字符串.截取(时间,13,15) //判断双分
如果(字符串.是否整型(内容分钟,0))
时间小时=转换.字符型转整型(内容小时,0) //单月单日双时双分
时间分钟=转换.字符型转整型(内容分钟,0)
否则
内容分钟=字符串.截取(时间,13,14) //判断单分
时间小时=转换.字符型转整型(内容小时,0) //单月单日双时单分
时间分钟=转换.字符型转整型(内容分钟,0)
如果结束
否则
内容小时=字符串.截取(时间,10,11) //判断单时
内容分钟=字符串.截取(时间,12,14)
如果(字符串.是否整型(内容分钟,0)) //判断双分
时间小时=转换.字符型转整型(内容小时,0) //单月单日单时双分
时间分钟=转换.字符型转整型(内容分钟,0)
否则
内容分钟=字符串.截取(时间,12,13) //判断单分
时间小时=转换.字符型转整型(内容小时,0) //单月单日单时单分
时间分钟=转换.字符型转整型(内容分钟,0)
如果结束
如果结束
如果结束
如果结束
时间小时=转换.字符型转整型(内容小时,0)
时间分钟=转换.字符型转整型(内容分钟,0)
辅助.等待(10000)
如果(时间小时==8)
如果(时间分钟==10)
// 鼠键代码
如果结束
如果结束
如果(时间小时==20)
如果(时间分钟==10)
//鼠键代码
如果结束
如果结束
循环结束
返回 真
功能结束
功能 逻辑型 开始_点击()
线程句柄=线程.开启("定时.读时间","")
返回 真
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
线程.关闭(线程句柄)
辅助.退出()
返回 真
//函数返回语句
功能结束
空间结束
//空间结束语句
作者:
chb729015
时间:
2012-9-23 10:57
看不懂
作者:
爱玩的一休
时间:
2012-9-23 11:08
将“时间=系统.时间(0)”取得的时间显示到界面上,看看几天后是不是还更新,如果这个时间都不更新了,就说明线程挂起了或者死掉了。
作者:
pp11022
时间:
2012-9-23 11:34
回复
3楼
爱玩的一休
的帖子
如果是你说的那个原因,怎么解决啊
作者:
爱玩的一休
时间:
2012-9-23 11:54
可以先对读时间函数增加临界区增进线程安全,如果还不行那就是TC的bug了。
作者:
pp11022
时间:
2012-9-23 13:58
回复
5楼
爱玩的一休
的帖子
我是单线程的,不是多线程的啊,这也要做临界区吗?
作者:
爱玩的一休
时间:
2012-9-23 14:24
回复
6楼
pp11022
的帖子
虽然你只在一个线程里调用了读时间函数,但你的程序的确是不折不扣的多线程,因为还有一个主线程。
加临界区是为了保险,并不一定是这里的问题,你应该也清楚TC现在bug多多。
先测试一下吧,如果是线程出问题了就想线程的解决方法,但万一不是线程死了呢?测试完再说。
欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)
Powered by Discuz! X3.1