（新人问题互助）同线程防止多开+相对路径

mic3158

多次开启线程后 线程多次运行 只能关闭最后一个线程写热键保存热键问题已解决  求上面答案 给出更改后的代码  

1. <font size="4">变量 线程ID, 间隔, 间隔1
   
2. 变量 X, Y
   
3. //从这里开始执行
   
4. 功能 执行()
   
5.     //从这里开始你的代码
   
6.     间隔 = 编辑框获取文本("编辑框0")
   
7.     间隔1 = 编辑框获取文本("编辑框1")
   
8.     循环(真)
   
9.         等待(间隔)
   
10.         等待(1, 15)
    
11.         鼠标左键单击(1)
    
12.         等待(间隔)
    
13.         等待(1, 15)
    
14.         鼠标左键单击(1)
    
15.         等待(间隔)
    
16.         等待(1, 15)
    
17.         鼠标左键单击(1)
    
18.         等待(间隔1)
    
19.         等待(1, 20)
    
20.     结束
    
21. 结束
    
22. 
    
23. //启动_热键操作
    
24. 功能 启动_热键()
    
25.     线程ID = 线程开启("执行", "")
    
26. 结束
    
27. 
    
28. //终止热键操作
    
29. 功能 终止_热键()
    
30.     线程关闭(线程ID)
    
31. 结束
    
32. 
    
33. 功能 移动_热键()
    
34.     //这里添加你要执行的代码
    
35.     线程ID = 线程开启("执行1", "")
    
36. 结束
    
37. 
    
38. 功能 执行1()
    
39.     X = 编辑框获取文本("编辑框2")
    
40.     Y = 编辑框获取文本("编辑框3")
    
41.     窗口得到顶层窗口句柄()
    
42.     窗口设置位置(窗口得到顶层窗口句柄(), X, Y)
    
43.     线程关闭(线程ID)
    
44. 结束
    
45. 
    
46. 功能 保存_点击()
    
47.     //这里添加你要执行的代码
    
48.     文件写配置("编辑框0", "间隔时间", 编辑框获取文本("编辑框0"), "D://config.ini")
    
49.     文件写配置("编辑框1", "间隔时间1", 编辑框获取文本("编辑框1"), "D://config.ini")
    
50.     文件写配置("编辑框2", "X坐标", 编辑框获取文本("编辑框2"), "D://config.ini")
    
51.     文件写配置("编辑框3", "Y坐标", 编辑框获取文本("编辑框3"), "D://config.ini")
    
52.     热键销毁("启动")
    
53.     热键销毁("终止")
    
54.     热键销毁("移动")
    
55.     热键注册("启动")
    
56.     变量 返回键码0, 返回功能键0
    
57.     热键获取键码("启动", 返回键码0, 返回功能键0)
    
58.     文件写配置("热键配置", "启动键", 返回键码0 & "|" & 返回功能键0, "D://Config.ini")
    
59.     热键注册("终止")
    
60.     变量 返回键码1, 返回功能键1
    
61.     热键获取键码("终止", 返回键码1, 返回功能键1)
    
62.     文件写配置("热键配置", "终止键", 返回键码1 & "|" & 返回功能键1, "D://Config.ini")
    
63.     热键注册("移动")
    
64.     变量 返回键码2, 返回功能键2
    
65.     热键获取键码("移动", 返回键码2, 返回功能键2)
    
66.     文件写配置("热键配置", "移动键", 返回键码2 & "|" & 返回功能键2, "D://Config.ini")
    
67. 结束
    
68. 
    
69. 功能 小秘书_初始化()
    
70.     //这里添加你要执行的代码
    
71.     间隔 = 文件读配置("编辑框0", "间隔时间", "D://config.ini")
    
72.     编辑框设置文本("编辑框0", 间隔)
    
73.     间隔1 = 文件读配置("编辑框1", "间隔时间1", "D://config.ini")
    
74.     编辑框设置文本("编辑框1", 间隔1)
    
75.     X = 文件读配置("编辑框2", "X坐标", "D://config.ini")
    
76.     编辑框设置文本("编辑框2", X)
    
77.     Y = 文件读配置("编辑框3", "Y坐标", "D://config.ini")
    
78.     编辑框设置文本("编辑框3", Y)
    
79. 结束
    
80. 
    
81. 功能 读取_点击()
    
82.     //这里添加你要执行的代码
    
83.     间隔 = 文件读配置("编辑框0", "间隔时间", "D://config.ini")
    
84.     编辑框设置文本("编辑框0", 间隔)
    
85.     间隔1 = 文件读配置("编辑框1", "间隔时间1", "D://config.ini")
    
86.     编辑框设置文本("编辑框1", 间隔1)
    
87.     X = 文件读配置("编辑框2", "X坐标", "D://config.ini")
    
88.     编辑框设置文本("编辑框2", X)
    
89.     Y = 文件读配置("编辑框3", "Y坐标", "D://config.ini")
    
90.     编辑框设置文本("编辑框3", Y)
    
91.     变量 启动, 启动键 = 文件读配置("热键配置", "启动键", "D://Config.ini")
    
92.     如果(启动键 != "")
    
93.         字符串分割(启动键, "|", 启动)
    
94.         热键设置键码("启动", 启动[0], 启动[1])
    
95.     结束
    
96.     变量 终止, 终止键 = 文件读配置("热键配置", "终止键", "D://Config.ini")
    
97.     如果(终止键 != "")
    
98.         字符串分割(终止键, "|", 终止)
    
99.         热键设置键码("终止", 终止[0], 终止[1])
    
100.     结束
     
101.     变量 移动, 移动键 = 文件读配置("热键配置", "移动键", "D://Config.ini")
     
102.     如果(移动键 != "")
     
103.         字符串分割(移动键, "|", 移动)
     
104.         热键设置键码("移动", 移动[0], 移动[1])
     
105.     结束
     
106. 结束
     
107. </font>

复制代码

jhszs

呵呵 你线程ID  是全局变量啊   ， 你需要一个全局数组保存不同的线程ID  

mic3158

jhszs 发表于 2016-4-17 16:12
呵呵 你线程ID  是全局变量啊   ， 你需要一个全局数组保存不同的线程ID

求事例

jhszs

TC  有列子的

mic3158

jhszs 发表于 2016-4-17 16:42
TC  有列子的

我可以说我没找到么~

mic3158

求人不如求己 花了2个小时终于弄明白了~·线程ID 让我改成线程句柄了~效果一样  然后加了个变量 标记=假  在热键里面改了下才完成
这么短短的几个代码 浪费我2个小时~ 希望能帮到其他不会的朋友 为你们节省时间
人生短短数十载 能有多少时间可以浪费 且行且珍惜
功能 启动_热键()
    如果(!标记)
        标记=真
        线程句柄 = 线程开启("执行", "")
    否则
        标记=假
    结束
结束

1. 变量 间隔, 间隔1
   
2. 变量 X, Y
   
3. 变量 线程句柄=0
   
4. 变量 标记=假
   
5. //从这里开始执行
   
6. 功能 执行()
   
7.     //从这里开始你的代码
   
8.     间隔 = 编辑框获取文本("编辑框0")
   
9.     间隔1 = 编辑框获取文本("编辑框1")
   
10.     循环(真)
    
11.         等待(间隔)
    
12.         等待(1, 15)
    
13.         鼠标左键单击(1)
    
14.         等待(间隔)
    
15.         等待(1, 15)
    
16.         鼠标左键单击(1)
    
17.         等待(间隔)
    
18.         等待(1, 15)
    
19.         鼠标左键单击(1)
    
20.         等待(间隔1)
    
21.         等待(1, 20)
    
22.     结束
    
23. 结束
    
24. 
    
25. //启动_热键操作
    
26. 功能 启动_热键()
    
27.     如果(!标记)
    
28.         标记=真
    
29.         线程句柄 = 线程开启("执行", "")
    
30.     否则
    
31.         标记=假
    
32.     结束
    
33. 结束
    
34. 
    
35. //终止热键操作
    
36. 功能 终止_热键()
    
37.     线程关闭(线程句柄)
    
38. 结束
    
39. 
    
40. 功能 移动_热键()
    
41.     //这里添加你要执行的代码
    
42.     线程句柄 = 线程开启("执行1", "")
    
43. 结束
    
44. 
    
45. 功能 执行1()
    
46.     X = 编辑框获取文本("编辑框2")
    
47.     Y = 编辑框获取文本("编辑框3")
    
48.     窗口得到顶层窗口句柄()
    
49.     窗口设置位置(窗口得到顶层窗口句柄(), X, Y)
    
50.     线程关闭(线程句柄)
    
51. 结束
    
52. 
    
53. 功能 保存_点击()
    
54.     //这里添加你要执行的代码
    
55.     文件写配置("编辑框0", "间隔时间", 编辑框获取文本("编辑框0"), "D://config.ini")
    
56.     文件写配置("编辑框1", "间隔时间1", 编辑框获取文本("编辑框1"), "D://config.ini")
    
57.     文件写配置("编辑框2", "X坐标", 编辑框获取文本("编辑框2"), "D://config.ini")
    
58.     文件写配置("编辑框3", "Y坐标", 编辑框获取文本("编辑框3"), "D://config.ini")
    
59.     热键销毁("启动")
    
60.     热键销毁("终止")
    
61.     热键销毁("移动")
    
62.     热键注册("启动")
    
63.     变量 返回键码0, 返回功能键0
    
64.     热键获取键码("启动", 返回键码0, 返回功能键0)
    
65.     文件写配置("热键配置", "启动键", 返回键码0 & "|" & 返回功能键0, "D://Config.ini")
    
66.     热键注册("终止")
    
67.     变量 返回键码1, 返回功能键1
    
68.     热键获取键码("终止", 返回键码1, 返回功能键1)
    
69.     文件写配置("热键配置", "终止键", 返回键码1 & "|" & 返回功能键1, "D://Config.ini")
    
70.     热键注册("移动")
    
71.     变量 返回键码2, 返回功能键2
    
72.     热键获取键码("移动", 返回键码2, 返回功能键2)
    
73.     文件写配置("热键配置", "移动键", 返回键码2 & "|" & 返回功能键2, "D://Config.ini")
    
74. 结束
    
75. 
    
76. 功能 小秘书_初始化()
    
77.     //这里添加你要执行的代码
    
78.     间隔 = 文件读配置("编辑框0", "间隔时间", "D://config.ini")
    
79.     编辑框设置文本("编辑框0", 间隔)
    
80.     间隔1 = 文件读配置("编辑框1", "间隔时间1", "D://config.ini")
    
81.     编辑框设置文本("编辑框1", 间隔1)
    
82.     X = 文件读配置("编辑框2", "X坐标", "D://config.ini")
    
83.     编辑框设置文本("编辑框2", X)
    
84.     Y = 文件读配置("编辑框3", "Y坐标", "D://config.ini")
    
85.     编辑框设置文本("编辑框3", Y)
    
86. 结束
    
87. 
    
88. 功能 读取_点击()
    
89.     //这里添加你要执行的代码
    
90.     间隔 = 文件读配置("编辑框0", "间隔时间", "D://config.ini")
    
91.     编辑框设置文本("编辑框0", 间隔)
    
92.     间隔1 = 文件读配置("编辑框1", "间隔时间1", "D://config.ini")
    
93.     编辑框设置文本("编辑框1", 间隔1)
    
94.     X = 文件读配置("编辑框2", "X坐标", "D://config.ini")
    
95.     编辑框设置文本("编辑框2", X)
    
96.     Y = 文件读配置("编辑框3", "Y坐标", "D://config.ini")
    
97.     编辑框设置文本("编辑框3", Y)
    
98.     变量 启动, 启动键 = 文件读配置("热键配置", "启动键", "D://Config.ini")
    
99.     如果(启动键 != "")
    
100.         字符串分割(启动键, "|", 启动)
     
101.         热键设置键码("启动", 启动[0], 启动[1])
     
102.     结束
     
103.     变量 终止, 终止键 = 文件读配置("热键配置", "终止键", "D://Config.ini")
     
104.     如果(终止键 != "")
     
105.         字符串分割(终止键, "|", 终止)
     
106.         热键设置键码("终止", 终止[0], 终止[1])
     
107.     结束
     
108.     变量 移动, 移动键 = 文件读配置("热键配置", "移动键", "D://Config.ini")
     
109.     如果(移动键 != "")
     
110.         字符串分割(移动键, "|", 移动)
     
111.         热键设置键码("移动", 移动[0], 移动[1])
     
112.     结束
     
113. 结束
     

复制代码

mic3158

配置保存的配置路径
相对路径保存到脚本同文件夹里
路径&".//配置文件.ini"

1. 功能 保存_点击()
   
2.     变量 路径
   
3.     路径=系统获取进程路径()
   
4.     文件写配置("小节", "标题", 编辑框获取文本("编辑框0"), 路径&".//配置文件.ini")
   
5. 结束

复制代码