JJ比赛POST登录

JJ比赛POST登录，源码调用了鱼刺_http模块。

@nliger2015

.版本 2
.支持库 BmpOperate

.子程序 create_verify_code, , , 岁月无声 - 11.01/2017
.参数 yzm, 字节集
.参数 id, 文本型
.局部变量 pic_object, 对象
.局部变量 id_, 文本型, , "0"
.局部变量 title_, 文本型, , "0"
.局部变量 title_pic, 图片框
.局部变量 bitmap, 位图
.局部变量 temp_bitmap, 位图
.局部变量 pic, 图片框, , "4,8"
.局部变量 new_pic, 图片框, , "4,8"
.局部变量 pic_byte, 字节集, , "4,8"
.局部变量 new_pic_byte, 字节集, , "8,4"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 split, 文本型, , "0"
.局部变量 temp_img, 字节集

id_ ＝ 分割文本 (id, “|”, )
title_ ＝ 分割文本 (“1.1|1.2|1.3|1.4|2.1|2.2|2.3|2.4|3.1|3.2|3.3|3.4|4.1|4.2|4.3|4.4|5.1|5.2|5.3|5.4|6.1|6.2|6.3|6.4|7.1|7.2|7.3|7.4|8.1|8.2|8.3|8.4”, “|”, )
pic_object.创建图片对象 (yzm)
yzm ＝ pic_object.取回图片 ()
temp_bitmap.载入数据 (yzm)
bitmap.创建 (64, 30, 32, )
temp_bitmap.复制到 (0, 0, 64, 30, bitmap, 0, 0, )
复制窗口组件 (图片框, title_pic)
title_pic.可视 ＝ 真
title_pic.禁止 ＝ 真
title_pic.左边 ＝ 120
title_pic.顶边 ＝ -5
title_pic.宽度 ＝ 100
title_pic.高度 ＝ 30
title_pic.图片 ＝ 子字节集替换 (bitmap.取位图数据 (), { 255 }, { 240 }, , )
bitmap.创建 (256, 128, 32, )
temp_bitmap.复制到 (0, 30, 256, 128, bitmap, 0, 0, )
temp_bitmap.创建 (32, 32, 32, )
.计次循环首 (4, i)
    .计次循环首 (8, j)
        bitmap.复制到 ((j － 1) × 32, (i － 1) × 32, 32, 32, temp_bitmap, 0, 0, )
        复制窗口组件 (图片框, pic [i] [j])
        pic [i] [j].可视 ＝ 真
        pic [i] [j].左边 ＝ 2 ＋ (j － 1) × 32
        pic [i] [j].顶边 ＝ 25 ＋ (i － 1) × 32
        pic [i] [j].鼠标指针 ＝ { 14, 0, 0, 0 }
        pic_byte [i] [j] ＝ temp_bitmap.取位图数据 ()
    .计次循环尾 ()
.计次循环尾 ()
重定义数组 (new_pic, 真, 8, 4)
重定义数组 (new_pic_byte, 真, 8, 4)
.变量循环首 (0, 16, 16, i)
    .变量循环首 (1, 8, 2, j)
        k ＝ k ＋ 1
        new_pic_byte [k] [1] ＝ pic_byte [i ＋ j]
        new_pic_byte [k] [2] ＝ pic_byte [i ＋ j ＋ 1]
        new_pic_byte [k] [3] ＝ pic_byte [i ＋ j ＋ 8]
        new_pic_byte [k] [4] ＝ pic_byte [i ＋ j ＋ 8 ＋ 1]
        new_pic [k] [1] ＝ pic [i ＋ j]
        new_pic [k] [2] ＝ pic [i ＋ j ＋ 1]
        new_pic [k] [3] ＝ pic [i ＋ j ＋ 8]
        new_pic [k] [4] ＝ pic [i ＋ j ＋ 8 ＋ 1]
    .变量循环尾 ()
.变量循环尾 ()
清除数组 (pic)
清除数组 (pic_byte)
.计次循环首 (取数组成员数 (id_), i)
    split ＝ 分割文本 (title_ [i], “.”, )
    j ＝ 到整数 (split [1])
    k ＝ 到整数 (split [2])
    temp_img ＝ new_pic_byte [j] [k]
    split ＝ 分割文本 (id_ [i], “.”, )
    j ＝ 到整数 (split [1])
    k ＝ 到整数 (split [2])
    new_pic [j] [k].图片 ＝ temp_img
.计次循环尾 ()