今日把代码发上,求解答.为什么程序不退回,连续几天后,鼠键代码就不动了的.鼠键代码就只有鼠标的点击移动,发字符串!求高手

pp11022

空间 定时
//定义默认空间
字符型  时间,内容月,内容日,内容小时,内容分钟
整型 时间小时,时间分钟,线程句柄
功能 逻辑型 读时间()
循环 (真)
时间=系统.时间(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)
          //鼠键代码
        如果结束
如果结束
循环结束

返回 真
功能结束
功能 逻辑型 开始_点击()
线程句柄=线程.开启("定时.读时间","")
返回 真
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
线程.关闭(线程句柄)
辅助.退出()
返回 真
//函数返回语句
功能结束
空间结束
//空间结束语句

爱玩的一休

回复 6楼pp11022的帖子

虽然你只在一个线程里调用了读时间函数，但你的程序的确是不折不扣的多线程，因为还有一个主线程。
加临界区是为了保险，并不一定是这里的问题，你应该也清楚TC现在bug多多。
先测试一下吧，如果是线程出问题了就想线程的解决方法，但万一不是线程死了呢？测试完再说。

chb729015

看不懂

爱玩的一休

将“时间=系统.时间(0)”取得的时间显示到界面上，看看几天后是不是还更新，如果这个时间都不更新了，就说明线程挂起了或者死掉了。

pp11022

回复 3楼爱玩的一休的帖子

如果是你说的那个原因,怎么解决啊

爱玩的一休

可以先对读时间函数增加临界区增进线程安全，如果还不行那就是TC的bug了。

pp11022

回复 5楼爱玩的一休的帖子

我是单线程的,不是多线程的啊,这也要做临界区吗?