多线程的自定义类变量……

ZealotMaster

我写了如下代码：

1. .版本 2
   
2. .支持库 EThread
   
3. 
   
4. .程序集 窗口程序集2
   
5. .程序集变量 类, 脚本
   
6. 
   
7. .子程序 _按钮1_被单击
   
8. 
   
9. 类.清除 ()
   
10. .如果 (启动线程 (&子程序1, , ))
    
11. 输出调试文本 (“执行成功”)
    
12. .否则
    
13. 输出调试文本 (“执行失败”)
    
14. .如果结束
    
15. 
    
16. 
    
17. .子程序 _按钮2_被单击
    
18. 
    
19. 输出调试文本 (类.运行 (编辑框1.内容))
    
20. 
    
21. .子程序 _按钮3_被单击
    
22. 
    
23. 输出调试文本 (类.计算表达式 (编辑框1.内容))
    
24. 
    
25. 
    
26. .子程序 子程序1
    
27. .局部变量 脚本, 脚本
    
28. 
    
29. .如果 (脚本.执行 (编辑框1.内容))
    
30. 输出调试文本 (“执行代码成功”)
    
31. .否则
    
32. 输出调试文本 (“执行代码失败”)
    
33. .如果结束
    
34. 
    

复制代码

但是我发现输出的是代码执行失败我又删去了启动线程，用类.执行(编辑框1.内容)替换了启动线程 (&子程序1, , )
发现可以正常执行，我产生了问题：多线程内如何让这代码运行成功？必须要是多线程

exit11

注意不要重复发帖

http://www.3600gz.cn/forum.php?mod=viewthread&tid=105771

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

‘这里添加第一个DLL命令

脚本对象.创建 (“ScriptControl”, )

脚本对象.写属性 (“Language”, “vbs”)



.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用

‘这里添加第二个DLL命令

错误信息.清除 ()

脚本对象.清除 ()

ZealotMaster

1. .版本 2
   
2. 
   
3. .程序集 脚本
   
4. .程序集变量 脚本对象, 对象
   
5. .程序集变量 错误信息, 错误信息
   
6. 
   
7. .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
   
8. 
   
9. 脚本对象.创建 (“ScriptControl”, )
   
10. 脚本对象.写属性 (“Language”, “vbs”)
    
11. 
    
12. .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
    
13. 
    
14. 错误信息.清除 ()
    
15. 脚本对象.清除 ()
    
16. 
    
17. .子程序 属性_语言, 整数型, 公开, 返回以下值：0.JScript；1.VBScript；-1.语言为空。当类的语言属性未指定时，默认为1，VBScript。
    
18. .参数 新语言属性, 整数型, 可空, 可供选择的属性值：0. JScript   1. VBScript
    
19. 
    
20. .如果真 (是否为空 (新语言属性) ＝ 假)
    
21.     .判断开始 (新语言属性 ＝ 0)
    
22.         脚本对象.写属性 (“Language”, “vbs”)
    
23.     .默认
    
24.         脚本对象.写属性 (“Language”, “JScript”)
    
25.     .判断结束
    
26. 
    
27. .如果真结束
    
28. .判断开始 (脚本对象.读文本属性 (“Language”, ) ＝ “vbs”)
    
29.     返回 (1)
    
30. .判断 (脚本对象.读文本属性 (“Language”, ) ＝ “JScript”)
    
31.     返回 (0)
    
32. .默认
    
33.     返回 (-1)
    
34. .判断结束
    
35. 
    
36. 
    
37. .子程序 属性_错误信息, 错误信息, 公开, 返回错误信息
    
38. 
    
39. 错误信息.初始化 (脚本对象.读对象型属性 (“Error”, ))
    
40. 返回 (错误信息)
    
41. 
    
42. .子程序 属性_超时, 整数型, 公开, 设置或返回时间（毫秒），此时间后用户可选择中止脚本代码的执行或允许代码继续执行。
    
43. .参数 新超时属性值, 整数型, 可空, 当为-1时，使脚本引擎的执行无超时
    
44. 
    
45. .如果真 (是否为空 (新超时属性值) ＝ 假)
    
46.     脚本对象.写属性 (“Timeout”, 新超时属性值)
    
47. .如果真结束
    
48. 返回 (脚本对象.读数值属性 (“Timeout”, ))
    
49. 
    
50. .子程序 属性_状态, 整数型, 公开
    
51. .参数 新状态值, 整数型, 可空, 参数值为以下值之一： 0、Initialized； 1、Connected
    
52. 
    
53. .如果真 (是否为空 (新状态值) ＝ 假)
    
54.     脚本对象.写属性 (“State”, 新状态值)
    
55. .如果真结束
    
56. 返回 (脚本对象.读数值属性 (“State”, ))
    
57. 
    
58. .子程序 属性_是否使用图形界面, 逻辑型, 公开
    
59. .参数 新是否使用图形界面属性, 逻辑型, 可空
    
60. 
    
61. .如果真 (是否为空 (新是否使用图形界面属性) ＝ 假)
    
62.     脚本对象.写属性 (“AllowUI”, 新是否使用图形界面属性)
    
63. .如果真结束
    
64. 返回 (脚本对象.读逻辑属性 (“AllowUI”, ))
    
65. 
    
66. .子程序 属性_图形界面父窗口句柄, 整数型, 公开
    
67. .参数 新父窗口句柄, 整数型, 可空
    
68. 
    
69. .如果真 (是否为空 (新父窗口句柄) ＝ 假)
    
70.     脚本对象.写属性 (“SitehWnd”, 新父窗口句柄)
    
71. .如果真结束
    
72. 返回 (脚本对象.读数值属性 (“SitehWnd”, ))
    
73. 
    
74. .子程序 添加代码, , 公开
    
75. .参数 代码文本, 文本型
    
76. 
    
77. 脚本对象.数值方法 (“AddCode”, 代码文本)
    
78. 
    
79. .子程序 运行, 文本型, 公开, 在添加的代码中运行指定的过程，如有返回值返回相应文本，否则返回空文本。
    
80. .参数 过程或函数名, 文本型
    
81. .参数 参数, 文本型, 可空, 最多支持30个参数
    
82. .局部变量 I, 整数型
    
83. 
    
84. I ＝ 取数组下标 (参数, )
    
85. .判断开始 (I ＝ 0)
    
86.     返回 (脚本对象.文本方法 (“Run”, 过程或函数名))
    
87. .默认
    
88. 
    
89. .判断结束
    
90. 返回 (“”)
    
91. 
    
92. .子程序 执行, 逻辑型, 公开, 执行指定的代码文本。返回真为执行正常，返回假为出错，错误信息可以从“错误信息”属性中取得。
    
93. .参数 脚本代码, 文本型, , 可使用常量 #md5
    
94. 
    
95. 脚本对象.数值方法 (“ExecuteStatement”, 脚本代码)
    
96. 返回 (脚本对象.取错误 () ＝ “”)
    
97. 
    
98. .子程序 计算表达式, 文本型, 公开, 计算表达式并返回结果。
    
99. .参数 表达式, 文本型
    
100. 
     
101. 返回 (脚本对象.文本方法 (“Eval”, 表达式))
     
102. 
     
103. 
     
104. .子程序 清除, , 公开
     
105. 
     
106. 脚本对象.数值方法 (“Reset”, )
     
107. 
     
108. .子程序 未封装的属性及方法
     
109. 
     
110. ' 类型: IScriptControl  10个属性，6个方法，标记: {0E59F1D3-1FBE-11D0-8FF2-00A0D10038BC}
     
111. ' -------------------------------- 属性列表 --------------------------------
     
112. ' 属性读取格式： 〈逻辑型〉 对象．读逻辑属性 （"UseSafeSubset"）
     
113. ' 属性写入格式： 〈逻辑型〉 对象．写属性 （"UseSafeSubset"，欲写入属性值）
     
114. ' 参数<1>的名称为“欲写入属性值”，类型为“逻辑型”。
     
115. ' 解释：Force script to execute in safe mode and disallow potentially harmful actions
     
116. 
     
117. 
     
118. ' 属性读取格式： 〈对象(IScriptModuleCollection)〉 对象．读对象型属性 （"Modules"）
     
119. ' 解释：Collection of modules for the ScriptControl
     
120. 
     
121. ' 属性读取格式： 〈对象〉 对象．读对象型属性 （"CodeObject"）
     
122. ' 解释：Object exposed by the scripting engine that contains methods and properties defined in the code added to the global module
     
123. 
     
124. 
     
125. ' 属性读取格式： 〈对象(IScriptProcedureCollection)〉 对象．读对象型属性 （"Procedures"）
     
126. ' 解释：Collection of procedures that are defined in the global module
     
127. 
     
128. 
     
129. ' -------------------------------- 方法列表 --------------------------------
     
130. ' 方法调用格式： 〈整数型〉 对象．数值方法 （"AddObject"，Name，Object，AddMembers）
     
131. ' 参数<1>的名称为“Name”，类型为“文本型”。
     
132. ' 参数<2>的名称为“Object”，类型为“对象”。
     
133. ' 参数<3>的名称为“AddMembers”，类型为“逻辑型”，参数默认值为“假”。
     
134. ' 解释：Add an object to the global namespace of the scripting engine
     
135. 
     

复制代码

1. .版本 2
   
2. 
   
3. .程序集 错误信息
   
4. .程序集变量 对象, 对象
   
5. 
   
6. .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
   
7. 
   
8. 
   
9. 
   
10. .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
    
11. 
    
12. 清除 ()
    
13. 对象.清除 ()
    
14. 
    
15. .子程序 初始化, , 公开
    
16. .参数 错误对象, 对象
    
17. 
    
18. 对象 ＝ 错误对象
    
19. 
    
20. .子程序 错误代码, 整数型, 公开
    
21. 
    
22. 返回 (对象.读数值属性 (“Number”, ))
    
23. 
    
24. .子程序 错误源, 文本型, 公开
    
25. 
    
26. 返回 (对象.读文本属性 (“Source”, ))
    
27. 
    
28. .子程序 错误描述, 文本型, 公开
    
29. 
    
30. 返回 (对象.读文本属性 (“Description”, ))
    
31. 
    
32. .子程序 错误代码行文本, 文本型, 公开
    
33. 
    
34. 返回 (对象.读文本属性 (“Text”, ))
    
35. 
    
36. .子程序 错误代码行位置, 整数型, 公开
    
37. 
    
38. 返回 (对象.读数值属性 (“Line”, ))
    
39. 
    
40. .子程序 错误代码列位置, 整数型, 公开
    
41. 
    
42. 返回 (对象.读数值属性 (“Column”, ))
    
43. 
    
44. .子程序 清除, , 公开, 清除错误对象
    
45. 
    
46. 对象.数值方法 (“Clear”, )
    
47. 
    
48. .子程序 错误查阅帮助文件名, 文本型, 公开
    
49. 
    
50. 返回 (对象.读文本属性 (“HelpFile”, ))
    
51. 
    
52. .子程序 错误查阅帮助文件上下文ID, 整数型, 公开
    
53. 
    
54. 返回 (对象.读数值属性 (“HelpContext”, ))
    
55. 
    

复制代码

ZealotMaster

这么长时间都没人来回帖啊 啊啊啊……

ZealotMaster

exit11 发表于 2012-5-26 18:56
注意不要重复发帖

http://www.3600gz.cn/forum.php?mod=viewthread&tid=105771

OK了，那篇帖子沉了……