源码-无模块源码-读验证码(多种格式)

ccini · 发表于 2011-2-26 22:09:51

.版本 2
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
图片框1.图片＝验证码读取 (“http://cn.tucia.com/rand/”)
.子程序 _按钮2_被单击, , , www.ys168.com验证码
.局部变量 xml, 对象
xml.创建 (“Microsoft.XMLHTTP”, )
xml.方法 (“Open”, “GET”, “http://www.ys168.com/ht/login_yh.aspx”, 假)
xml.方法 (“send”, “ ”)
图片框1.图片＝验证码读取 (“http://www.ys168.com/ht/sjzx/ys_vf_img.aspx?lx=htdl2&sj=”)
.子程序 _按钮3_被单击, , , jsp验证码
图片框1.图片＝验证码读取 (“http://www.youday.cn/login/image.jsp?”)
.子程序 _按钮4_被单击, , , php验证码
图片框1.图片＝验证码读取 (“http://bbs.eyuyan.com/ck.php?nowtime=?”)
.子程序 _按钮5_被单击, , , php验证码
图片框1.图片＝验证码读取 (“http://passport.17173.com/lib/imgcode1.php”)
.子程序验证码读取, 字节集, 公开
.参数验证码地址, 文本型
.局部变量 xml, 对象
.局部变量验证码, 字节集
.局部变量新图像, 字节集
.局部变量 Clsid, 字节集
.局部变量 pStr2, 字节集
.局部变量 nLength, 整数型
.局部变量 hMem, 整数型
.局部变量 Stream, 对象
.局部变量 lpvoid, 整数型
.局部变量 pStream, 整数型
.局部变量 bitmap, 整数型
.局部变量 DataStream, 对象
.局部变量 hMemDataStream, 整数型
.局部变量 pDataStream, 整数型
.局部变量 nStreamSize, 整数型
.局部变量 bRet, 逻辑型
.局部变量 GpInput, GdiplusStartupInput
.局部变量 Token, 整数型
.局部变量 ImageFormat, 整数型
.局部变量 A2Usj, 字节集
.局部变量 A2Uc
.局部变量系统目录, 文本型
.局部变量路径, 文本型
.局部变量标示结构, 项目标识符列表
xml.创建 (“Microsoft.XMLHTTP”, )
xml.方法 (“Open”, “GET”, 验证码地址, 假)
xml.方法 (“send”, )
验证码＝ xml.读属性 (“ResponseBody”, ).取字节集 ()
获取特别文件夹位置_ (0, 37, 标示结构)
路径＝取空白文本 (255)
从列表id取路径_ (标示结构.结构大小, 路径)
系统目录＝路径＋ “\”
GpInput.GdiplusVersion ＝ 1
DLL命令调用转向 (系统目录＋ “gdiplus.dll”, “GdiplusStartup”)
GdiplusStartup (Token, GpInput, 0)
ImageFormat ＝ 5
Clsid ＝取空白字节集 (16)
A2Uc ＝多媒体字符串映像为通配 (0, 0, “{557CF400-1A04-11D3-9A73-0000F81EF32E}”, 取文本长度 (“{557CF400-1A04-11D3-9A73-0000F81EF32E}”) ＋ 1, A2Usj, 0)
A2Usj ＝取空白字节集 (A2Uc × 2)
多媒体字符串映像为通配 (0, 0, “{557CF400-1A04-11D3-9A73-0000F81EF32E}”, 取文本长度 (“{557CF400-1A04-11D3-9A73-0000F81EF32E}”) ＋ 1, A2Usj, A2Uc × 2)
pStr2 ＝ A2Usj
DLL命令调用转向 (系统目录＋ “ole32.dll”, “CLSIDFromString”)
CLSIDFromString (pStr2, Clsid)
nLength ＝取字节集长度 (验证码)
hMem ＝ _堆栈中分配内存 (0, nLength)
DLL命令调用转向 (系统目录＋ “ole32.dll”, “CreateStreamOnHGlobal”)
CreateStreamOnHGlobal (hMem, 真, Stream)
lpvoid ＝ _锁住全局内存块1 (hMem)
写到内存 (验证码, lpvoid, nLength)
GlobalUnlock (hMem)
pStream ＝ GetObjectPtr (Stream, Stream, 0)
DLL命令调用转向 (系统目录＋ “gdiplus.dll”, “GdipCreateBitmapFromStream”)
GdipCreateBitmapFromStream (取字节集数据 (指针到字节集 (pStream, 4), #整数型, 1), bitmap)
DLL命令调用转向 (系统目录＋ “ole32.dll”, “CreateStreamOnHGlobal”)
CreateStreamOnHGlobal (0, 真, DataStream)
pStream ＝ GetObjectPtr (DataStream, DataStream, 0)
pStream ＝取字节集数据 (指针到字节集 (pStream, 4), #整数型, 1)
DLL命令调用转向 (系统目录＋ “gdiplus.dll”, “GdipSaveImageToStream”)
GdipSaveImageToStream_int (bitmap, pStream, Clsid, 0)
DLL命令调用转向 (系统目录＋ “ole32.dll”, “GetHGlobalFromStream”)
GetHGlobalFromStream_int (pStream, hMemDataStream)
pDataStream ＝ _锁住全局内存块1 (hMemDataStream)
nStreamSize ＝ _返回全局内存块 (hMemDataStream)
.如果真 (pDataStream ≠ 0)
新图像＝取空白字节集 (nStreamSize)
_指针_读字节集 (新图像, pDataStream, nStreamSize)
bRet ＝真
.如果真结束
GlobalUnlock (hMemDataStream)
DLL命令调用转向 (系统目录＋ “gdiplus.dll”, “GdipDisposeImage”)
GdipDisposeImage (bitmap)
_释放全局内存 (hMem)
输出调试文本 (“运行完毕”)
返回 (新图像)