萌新求助，怎么让下列代码跑起来

大张飞

.版本 2
.支持库 EThread

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 时钟1周期
.局部变量 买价刷新时间
.局部变量 卖价刷新时间
.局部变量 网络时间获取线程
.局部变量 表格1

时钟1周期 ＝ 1000  ' 时钟 1 周期设为 1 秒
买价刷新时间 ＝ 计算买价刷新时间 ()
卖价刷新时间 ＝ 计算卖价刷新时间 ()
启动线程 (&网络时间获取线程, , 网络时间获取线程)  ' 启动获取网络时间的线程

表格1.创建(取窗口句柄(), 0, 0, 400, 200, 3, 2)  '创建表格
表格1.置列宽(0, 133)  '设置列宽
表格1.置列宽(1, 133)
表格1.置列宽(2, 134)
表格1.置表头高度(0)  '隐藏表头
表格1.加入项目(0, 0, "长安商人1")  '添加表格项目
表格1.加入项目(1, 0, "长安商人2")
表格1.加入项目(2, 0, "傲来商人1")
表格1.加入项目(0, 1, "傲来商人2")
表格1.加入项目(1, 1, "长寿商人1")
表格1.加入项目(2, 1, "长寿商人2")
商人颜色[1] = 0
商人颜色[2] = 0
商人颜色[3] = 0
商人颜色[4] = 0
商人颜色[5] = 0
商人颜色[6] = 0

编辑框1.可视 = 真
编辑框1.左边 = 10
编辑框1.顶边 = 220
编辑框1.宽度 = 100
编辑框1.高度 = 20
标签1.可视 = 真
标签1.左边 = 10
标签1.顶边 = 250
标签1.标题 = “设置卖价刷新时间（秒）：”
编辑框2.可视 = 真
编辑框2.左边 = 10
编辑框2.顶边 = 280
编辑框2.宽度 = 100
编辑框2.高度 = 20
标签2.可视 = 真
标签2.左边 = 10
标签2.顶边 = 310
标签2.标题 = “设置买价刷新时间（秒）：”
按钮1.可视 = 真
按钮1.左边 = 10
按钮1.顶边 = 340
按钮1.宽度 = 100
按钮1.高度 = 30
按钮1.标题 = “确定”

'设置背景图片
图片框1.可视 = 真
图片框1.左边 = 0
图片框1.顶边 = 0
图片框1.宽度 = 取窗口宽度()
图片框1.高度 = 取窗口高度()
图片框1.图片 = 载入图片(#图片资源1)  '这里假设您有一个名为"图片资源1"的图片资源

.子程序 网络时间获取线程

'持续获取网络时间
延迟(1000)  '每隔 1 秒获取一次
互联网_取现行时间()  '获取网络时间的具体实现，此处使用示例函数

.子程序 计算买价刷新时间

'根据当前网络时间和游戏规则计算买价刷新时间
'返回买价刷新的时间（以秒为单位）
返回 0  '示例，需根据实际情况修改

.子程序 计算卖价刷新时间

'根据用户设置计算卖价刷新时间
'返回卖价刷新的时间（以秒为单位）
返回 到整数(编辑框1.内容)  '示例，需根据实际情况修改

.子程序 按钮1_被单击

卖价刷新时间 = 到整数(编辑框1.内容)
买价刷新时间 = 到整数(编辑框2.内容)

.子程序 表格1_表项被单击

局部变量 列, 整数型
局部变量 行, 整数型
列 = 表格1.取光标列()
行 = 表格1.取光标行()
点击位置 = 列 + 行 * 3  '计算点击位置
商人颜色[点击位置] = 1  '点击的商人颜色变为红色
'根据点击位置设置对应商人的颜色
选择 (点击位置)
案例 1
商人颜色[1] = 1
商人颜色[2] = 2
案例 2
商人颜色[2] = 1
商人颜色[1] = 2
案例 3
商人颜色[3] = 1
商人颜色[4] = 2
案例 4
商人颜色[4] = 1
商人颜色[3] = 2
案例 5
商人颜色[5] = 1
商人颜色[6] = 2
案例 6
商人颜色[6] = 1
商人颜色[5] = 2
'设置表格颜色
表格1.置颜色(列, 行, RGB(255, 0, 0))  '设置红色
表格1.置颜色(列 - 1, 行, RGB(0, 255, 0))  '设置绿色

.子程序 时钟1_周期事件

局部变量 当前时间, 整数型
当前时间 = 取现行时间()  '获取当前时间（秒）
'判断买价刷新提醒
如果 (买价刷新时间 - 当前时间 <= 30)
闹钟提醒("刷新买价")
结束 如果
'判断卖价刷新提醒
如果 (卖价刷新时间 - 当前时间 <= 30)
闹钟提醒("二刷了")
结束 如果

.子程序 闹钟提醒

运行("C:\Windows\System32\rundll32.exe", "shell32.dll,Control_RunDLL mmsys.cpl,,0", 真)  '打开系统闹钟设置

.子程序 互联网_取现行时间

'实际获取网络时间的代码
'此处可使用互联网支持库中的相关函数进行实现
返回 0  '示例返回值，需根据实际情况修改

.子程序 窗口程序集_启动窗口_周期事件

'根据商人颜色设置表格颜色
表格1.置颜色(0, 0, IIF(商人颜色[1] = 1, RGB(255, 0, 0), IIF(商人颜色[1] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(1, 0, IIF(商人颜色[2] = 1, RGB(255, 0, 0), IIF(商人颜色[2] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(2, 0, IIF(商人颜色[3] = 1, RGB(255, 0, 0), IIF(商人颜色[3] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(0, 1, IIF(商人颜色[4] = 1, RGB(255, 0, 0), IIF(商人颜色[4] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(1, 1, IIF(商人颜色[5] = 1, RGB(255, 0, 0), IIF(商人颜色[5] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(2, 1, IIF(商人颜色[6] = 1, RGB(255, 0, 0), IIF(商人颜色[6] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
----------------------------------------------------------------------------------------------------------
萌新啊qiuqiu了，谁能帮我写下啊

LEOONL

我是学生 V我50

笨来无一悟

我是学死 V我50

大张飞

笨来无一悟 发表于 2024-8-9 17:34
我是学死 V我50

看不懂你说什么，萌新一个

大张飞

LEOONL 发表于 2024-8-9 17:22
我是学生 V我50

我是中老年人，V我250

大张飞

笨来无一悟 发表于 2024-8-9 17:34
我是学死 V我50

账号是22年的 但是今天是第一次登录把，应该是，近几年

大张飞

那到底怎么写啊，有没有大佬指导下？

补充内容 (2024-8-9 17:55):
可以留地球 偿

大张飞

大张飞 发表于 2024-8-9 17:55
那到底怎么写啊，有没有大佬指导下？

补充内容 (2024-8-9 17:55):

可以留个地球 偿

大张飞

笨来无一悟 发表于 2024-8-9 17:34
我是学死 V我50

能写吗？大佬

走一回

这个发源码上来也不一定有人会帮你改的吧。这么多组件，要死人的。V我1000