易语言写的验证码生成器

适合学习api的人也许有一定帮助吧。
hFont ＝ CreateFontA (取随机数 (30, 50), 取随机数 (20, 40), 取随机数 (0, 300), 0, 取随机数 (0, 1), 取随机数 (0, 1), 取随机数 (0, 1), 取随机数 (0, 1), 0, 0, 0, 0, 0, f [取随机数 (1, 取数组成员数 (f))])
SelectObject (hDC, hFont)
SetTextColor (hDC, 取随机数 (0, 800000))
m ＝ { 0, 0, 0, 60 }
m [1] ＝ 60 × i － 60
m [3] ＝ m [1] ＋ 60
DrawTextA (hDC, 选择 (取随机数 (0, 1) ＝ 0, 到大写 (取文本中间 (字符, i, 1)), 到小写 (取文本中间 (字符, i, 1))), -1, m, 37)
DeleteObject (hFont)