帮帮忙把这段易语言代码转成VB的

经典的放纵

.版本 2

.程序集 窗口程序集1
.程序集变量 游戏窗口, 整数型, , "0", 获取的所有游戏窗口句柄

.子程序 __启动窗口_创建完毕
.局部变量 窗口句柄, 整数型

窗口句柄 ＝ 取句柄 (, “Titan_Client”, )
.如果真 (窗口句柄 ＜ 0)
    信息框 (“请先打开游戏，再来打开辅助！”, #警告图标, “提示”)
    销毁 ()
.如果真结束

时钟1.时钟周期 ＝ 100

.子程序 _时钟1_周期事件
.局部变量 窗口句柄, 整数型
.局部变量 计次, 整数型

时钟1.时钟周期 ＝ 0
.判断循环首 (真)
    窗口句柄 ＝ 查找窗口 (0, 窗口句柄, “Titan_Client”, )
    .如果 (窗口句柄 ≠ 0)

        .变量循环首 (取数组成员数 (游戏窗口), 1, -1, 计次)
            .如果 (窗口是否有效_ (游戏窗口 [计次]))
                .如果真 (游戏窗口 [计次] ＝ 窗口句柄)
                    跳出循环 ()
                .如果真结束

            .否则
                删除成员 (游戏窗口, 计次, 1)
            .如果结束

        .变量循环尾 ()
        .如果真 (计次 ＝ 0)
            加入成员 (游戏窗口, 窗口句柄)
        .如果真结束

    .否则
        跳出循环 ()
    .如果结束

.判断循环尾 ()
时钟1.时钟周期 ＝ 100

.子程序 _时钟2_周期事件, , , 循环已取的所有游戏,控制编辑框内容的计数递增
.局部变量 窗口句柄, 整数型, , "0"
.局部变量 计次, 整数型
.局部变量 控件句柄, 整数型
.局部变量 控件内容, 文本型


窗口句柄 ＝ 游戏窗口
.计次循环首 (取数组成员数 (窗口句柄), 计次)
    .如果真 (窗口句柄 [计次] ≠ 0)
        .判断开始 (组合框1.现行选中项 ＝ 0)
            按键消息 (窗口句柄 [计次], 38, , )
        .判断 (组合框1.现行选中项 ＝ 1)
            按键消息 (窗口句柄 [计次], 40, , )
        .判断 (组合框1.现行选中项 ＝ 2)
            按键消息 (窗口句柄 [计次], 37, , )
        .判断 (组合框1.现行选中项 ＝ 3)
            按键消息 (窗口句柄 [计次], 39, , )
        .默认

        .判断结束

    .如果真结束

.计次循环尾 ()


.子程序 _按钮1_被单击

时钟2.时钟周期 ＝ 1

.子程序 _按钮2_被单击

时钟2.时钟周期 ＝ 0

.子程序 _组合框1_列表项被选择





非常感谢

chenwei1315

今天最想说:「精易编程助手 更新至1.09」.今天最想说:「精易编程助手 更新至1.09」.

微凉

vb数组没有不支持添加成员的

经典的放纵

回复 3# 微凉


    我晕哦，那该怎么办啊，我现在的这个老是十几分钟就自动掉了

微凉

你那个时钟这么快不人都不知道能不能达到他的速度,不死才怪