精易论坛

标题: 调用360云检测 [打印本页]

作者: 伸伸党 时间: 2012-1-17 18:29
标题: 调用360云检测
本帖最后由伸伸党于 2012-1-17 18:44 编辑

引用了彗星http模块

模块已经打包了

{:soso__11745652282348897816_1:}

调用360云鉴定.zip (23.5 KB, 下载次数: 106)

作者: 无敌英雄 时间: 2012-1-17 18:34
我汗沙发自己的

作者: 宇智波·佐助 时间: 2012-1-17 19:00
调用网页的啊我以为是调用DLL的那，但是支持下。

作者: Apple。 时间: 2012-1-17 19:16
地板了支持

作者: ゞ小肆 时间: 2012-1-25 00:46
好东西{:3_226:}{:3_226:}{:3_226:}

作者: Tacituenknight 时间: 2012-1-27 18:01
sddddddddddddddddf{:3_227:}{:3_227:}{:3_227:}[e].版本 2
.支持库 internet
.支持库 iconv

.程序集窗口程序集1
.程序集变量程序指针, 整数型
.程序集变量标签5, 标签
.程序集变量代号, 文本型

.子程序 __启动窗口_创建完毕

写到文件 (“C:\WINDOWS\system32\SkinH_EL.dll”, #SKINdll)
写到文件 (“C:\WINDOWS\system32\SKIN.she”, #SKINshe)
加载皮肤 (“C:\WINDOWS\system32\SKIN.she”, “”)
程序指针＝设置窗口信息_ (取窗口句柄 (), -4, 到数值 (&消息反馈))
复制窗口组件 (标签4, 标签5)
标签5.可视＝真
标签5.左边＝宽度

.子程序消息反馈, 整数型
.参数窗口句柄, 整数型
.参数消息值, 整数型
.参数参数一, 整数型
.参数参数二, 整数型

SetClassLong (窗口句柄, -26, 位或 (GetClassLong (窗口句柄, -26), -149815296))
返回 (呼叫窗口函数地址_ (到数值 (程序指针), 窗口句柄, 消息值, 参数一, 参数二))

.子程序获取验证码

代号＝到文本 (HTTP读文件 (到文本 (取随机数 (0, 999999999))))
画板1.底图＝ HTTP读文件 (“http://www.qihuatong.com/server/validate_num_code.do?type=1&” ＋代号)
编辑框2.内容＝ “”
画板2.可视＝真
处理事件 ()
画板1.复制 (0, 1, 12, 16, 画板2, 0, 0, 1)
识别1 ()
画板1.复制 (11, 5, 12, 16, 画板2, 0, 0, 1)
识别2 ()
画板1.复制 (28, 2, 12, 16, 画板2, 0, 0, 1)
识别3 ()
画板1.复制 (39, 2, 12, 16, 画板2, 0, 0, 1)
识别4 ()
画板2.可视＝假

.子程序 _按钮2_被单击
.局部变量封包, 文本型
.局部变量返回, 文本型

.如果真 (编辑框1.内容＝ “”)
信息框 (“电话号码不能为空”, 16, )
返回 ()
.如果真结束
.如果真 (取文本长度 (编辑框1.内容) ≤ 10)
信息框 (“电话号码格式错误！” ＋ #换行符＋ “正确格式如：区号+固话(小灵通) / 11位的手机号码”, 16, )
返回 ()
.如果真结束
封包＝ “http://www.qihuatong.com/call/call.do?method=call&u_i=553&s_i=0&b_i=4756161&lang=0&tel=” ＋编辑框1.内容＋ “&vcode=” ＋编辑框2.内容＋ “&g_i=0&telG=0&valiset=0&noCache=” ＋代号
返回＝到文本 (编码转换 (HTTP读文件 (封包), “UTF-8”, “GBK”, ))
.如果真 (寻找文本 (返回, “您将立即接到我们的电话”, , 假) ＞ -1)
信息框 (“拨打电话成功！”, 64, )
获取验证码 ()
返回 ()
.如果真结束
.如果真 (寻找文本 (返回, “电话号码格式错误”, , 假) ＞ -1)
信息框 (“电话号码格式错误！” ＋ #换行符＋ “正确格式如：区号+固话(小灵通) / 11位的手机号码”, 16, )
获取验证码 ()
返回 ()
.如果真结束
.如果真 (寻找文本 (返回, “验证码错误”, , 假) ＞ -1)
信息框 (“验证码自动识别错误，请重试！”, 16, )
获取验证码 ()
返回 ()
.如果真结束
信息框 (“拨打失败，错误未知！”, 16, )
获取验证码 ()

.子程序 _时钟2_周期事件

标签4.左边＝标签4.左边＋ 1
标签5.左边＝标签5.左边＋ 1
.如果真 (标签4.左边＝宽度－标签4.宽度)
标签5.左边＝ 0 －标签5.宽度
.如果真结束
.如果真 (标签5.左边＝宽度－标签4.宽度)
标签4.左边＝ 0 －标签4.宽度
.如果真结束

.子程序 _时钟1_周期事件

标签4.文本颜色＝多项选择 (取随机数 (1, 9), #红色, #蓝色, #蓝灰, #青绿, #青蓝, #紫色, #紫红, #黑色, #品红)
标签5.文本颜色＝标签4.文本颜色

.子程序识别1
.局部变量相似度, , , "10"
.局部变量特征码, 文本型
.局部变量 x
.局部变量 y

.计次循环首 (画板2.高度 × 画板2.宽度, )
x ＝ x ＋ 1
.如果真 (x ＝画板2.宽度)
      x ＝ 0
      y ＝ y ＋ 1
.如果真结束
.如果 (画板2.取点 (x, y) ＞ #灰色)
      特征码＝特征码＋ “0”
.否则
      特征码＝特征码＋ “1”
.如果结束

.计次循环尾 ()
相似度 [1] ＝取相似度 (特征码, #图1_0)
相似度 [2] ＝取相似度 (特征码, #图1_1)
相似度 [3] ＝取相似度 (特征码, #图1_2)
相似度 [4] ＝取相似度 (特征码, #图1_3)
相似度 [5] ＝取相似度 (特征码, #图1_4)
相似度 [6] ＝取相似度 (特征码, #图1_5)
相似度 [7] ＝取相似度 (特征码, #图1_6)
相似度 [8] ＝取相似度 (特征码, #图1_7)
相似度 [9] ＝取相似度 (特征码, #图1_8)
相似度 [10] ＝取相似度 (特征码, #图1_9)
数组排序 (相似度, 假)
.判断开始 (相似度 [1] ＝取相似度 (特征码, #图1_0))
编辑框2.内容＝ “0”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_1))
编辑框2.内容＝ “1”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_2))
编辑框2.内容＝ “2”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_3))
编辑框2.内容＝ “3”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_4))
编辑框2.内容＝ “4”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_5))
编辑框2.内容＝ “5”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_6))
编辑框2.内容＝ “6”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_7))
编辑框2.内容＝ “7”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_8))
编辑框2.内容＝ “8”
.判断 (相似度 [1] ＝取相似度 (特征码, #图1_9))
编辑框2.内容＝ “9”
.默认
编辑框2.内容＝ “?”
.判断结束

.子程序识别2
.局部变量相似度, , , "10"
.局部变量特征码, 文本型
.局部变量 x
.局部变量 y

.计次循环首 (画板2.高度 × 画板2.宽度, )
x ＝ x ＋ 1
.如果真 (x ＝画板2.宽度)
      x ＝ 0
      y ＝ y ＋ 1
.如果真结束
.如果 (画板2.取点 (x, y) ＞ #灰色)
      特征码＝特征码＋ “0”
.否则
      特征码＝特征码＋ “1”
.如果结束

.计次循环尾 ()
相似度 [1] ＝取相似度 (特征码, #图2_0)
相似度 [2] ＝取相似度 (特征码, #图2_1)
相似度 [3] ＝取相似度 (特征码, #图2_2)
相似度 [4] ＝取相似度 (特征码, #图2_3)
相似度 [5] ＝取相似度 (特征码, #图2_4)
相似度 [6] ＝取相似度 (特征码, #图2_5)
相似度 [7] ＝取相似度 (特征码, #图2_6)
相似度 [8] ＝取相似度 (特征码, #图2_7)
相似度 [9] ＝取相似度 (特征码, #图2_8)
相似度 [10] ＝取相似度 (特征码, #图2_9)
数组排序 (相似度, 假)
.判断开始 (相似度 [1] ＝取相似度 (特征码, #图2_0))
编辑框2.加入文本 (“0”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_1))
编辑框2.加入文本 (“1”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_2))
编辑框2.加入文本 (“2”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_3))
编辑框2.加入文本 (“3”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_4))
编辑框2.加入文本 (“4”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_5))
编辑框2.加入文本 (“5”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_6))
编辑框2.加入文本 (“6”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_7))
编辑框2.加入文本 (“7”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_8))
编辑框2.加入文本 (“8”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图2_9))
编辑框2.加入文本 (“9”)
.默认
编辑框2.内容＝ “?”
.判断结束

.子程序识别3
.局部变量相似度, , , "10"
.局部变量特征码, 文本型
.局部变量 x
.局部变量 y

.计次循环首 (画板2.高度 × 画板2.宽度, )
x ＝ x ＋ 1
.如果真 (x ＝画板2.宽度)
      x ＝ 0
      y ＝ y ＋ 1
.如果真结束
.如果 (画板2.取点 (x, y) ＞ #灰色)
      特征码＝特征码＋ “0”
.否则
      特征码＝特征码＋ “1”
.如果结束

.计次循环尾 ()
相似度 [1] ＝取相似度 (特征码, #图3_0)
相似度 [2] ＝取相似度 (特征码, #图3_1)
相似度 [3] ＝取相似度 (特征码, #图3_2)
相似度 [4] ＝取相似度 (特征码, #图3_3)
相似度 [5] ＝取相似度 (特征码, #图3_4)
相似度 [6] ＝取相似度 (特征码, #图3_5)
相似度 [7] ＝取相似度 (特征码, #图3_6)
相似度 [8] ＝取相似度 (特征码, #图3_7)
相似度 [9] ＝取相似度 (特征码, #图3_8)
相似度 [10] ＝取相似度 (特征码, #图3_9)
数组排序 (相似度, 假)
.判断开始 (相似度 [1] ＝取相似度 (特征码, #图3_0))
编辑框2.加入文本 (“0”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_1))
编辑框2.加入文本 (“1”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_2))
编辑框2.加入文本 (“2”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_3))
编辑框2.加入文本 (“3”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_4))
编辑框2.加入文本 (“4”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_5))
编辑框2.加入文本 (“5”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_6))
编辑框2.加入文本 (“6”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_7))
编辑框2.加入文本 (“7”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_8))
编辑框2.加入文本 (“8”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图3_9))
编辑框2.加入文本 (“9”)
.默认
编辑框2.内容＝ “?”
.判断结束

.子程序识别4
.局部变量相似度, , , "10"
.局部变量特征码, 文本型
.局部变量 x
.局部变量 y

.计次循环首 (画板2.高度 × 画板2.宽度, )
x ＝ x ＋ 1
.如果真 (x ＝画板2.宽度)
      x ＝ 0
      y ＝ y ＋ 1
.如果真结束
.如果 (画板2.取点 (x, y) ＞ #灰色)
      特征码＝特征码＋ “0”
.否则
      特征码＝特征码＋ “1”
.如果结束

.计次循环尾 ()
相似度 [1] ＝取相似度 (特征码, #图4_0)
相似度 [2] ＝取相似度 (特征码, #图4_1)
相似度 [3] ＝取相似度 (特征码, #图4_2)
相似度 [4] ＝取相似度 (特征码, #图4_3)
相似度 [5] ＝取相似度 (特征码, #图4_4)
相似度 [6] ＝取相似度 (特征码, #图4_5)
相似度 [7] ＝取相似度 (特征码, #图4_6)
相似度 [8] ＝取相似度 (特征码, #图4_7)
相似度 [9] ＝取相似度 (特征码, #图4_8)
相似度 [10] ＝取相似度 (特征码, #图4_9)
数组排序 (相似度, 假)
.判断开始 (相似度 [1] ＝取相似度 (特征码, #图4_0))
编辑框2.加入文本 (“0”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_1))
编辑框2.加入文本 (“1”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_2))
编辑框2.加入文本 (“2”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_3))
编辑框2.加入文本 (“3”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_4))
编辑框2.加入文本 (“4”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_5))
编辑框2.加入文本 (“5”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_6))
编辑框2.加入文本 (“6”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_7))
编辑框2.加入文本 (“7”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_8))
编辑框2.加入文本 (“8”)
.判断 (相似度 [1] ＝取相似度 (特征码, #图4_9))
编辑框2.加入文本 (“9”)
.默认
编辑框2.内容＝ “?”
.判断结束

.子程序取相似度, 小数型
.参数文本1, 文本型
.参数文本2, 文本型
.局部变量计次, 整数型
.局部变量同, 整数型
.局部变量 i, 整数型

计次＝取文本长度 (文本1)
.计次循环首 (计次, i)
.如果真 (取文本中间 (文本1, i, 1) ＝取文本中间 (文本2, i, 1))
      同＝同＋ 1
.如果真结束

.计次循环尾 ()
返回 (同)

.子程序 __启动窗口_首次激活

获取验证码 ()

.子程序 _按钮1_被单击
.局部变量返回, 字节集

返回＝ HTTP读文件 (“http://register.sdo.com/gaea/SendPhoneMsg.ashx?page=REG&mobile=” ＋编辑框3.内容)
.如果 (返回＝ { 48 })
信息框 (“发送成功”, 64, “成功”)
.否则
信息框 (“发送失败”, 16, “失败”)
.如果结束

[/e]

作者: Tacituenknight 时间: 2012-1-27 18:01
sdfsdfsdfsdfsdfsdf