【没事做发下】百度搜索提交源码

寻找星空 · 发表于 2014-9-1 15:46:59

本帖最后由 492630000 于 2014-9-1 15:49 编辑

模块使用精易模块。
简单例程附件：

百度搜索提交.zip (151.29 KB, 下载次数: 79)

ivc值也可这样获取：

' ivc ＝文本_取出中间文本 (局_返回文本, “<input type=hidden name=ivc value=”+#引号, “引号”)
' [color=#881280][font=monospace][size=3]<input [/size][/font][/color][font=monospace][size=3]type[/size][/font][color=#881280][font=monospace][size=3]=[/size][/font][/color][font=monospace][size=3]hidden[/size][/font][color=#881280][font=monospace][size=3] [/size][/font][/color][font=monospace][size=3]name[/size][/font][color=#881280][font=monospace][size=3]=[/size][/font][/color][font=monospace][size=3]ivc[/size][/font][color=#881280][font=monospace][size=3] [/size][/font][/color][font=monospace][size=3]value[/size][/font][color=#881280][font=monospace][size=3]="[/size][/font][/color][font=monospace][size=3]UhsFHlsABR8=[/size][/font][color=#881280][font=monospace][size=3]">[/size][/font][/color]
[font=monospace][size=3][color= #881280]

例程源码：

窗口程序集名	保留	保留	备注
窗口程序集1

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备注
_按钮1_被单击

POST ()

子程序名	返回值类型	公开	备注
POST

变量名	类型	静态	数组	备注
局_返回文本	文本型
局_验证码地址	文本型
局_验证码图片	字节集
局_提交验证码	文本型
ivc	文本型

局_返回文本＝到文本 (网页_访问 (“http://utility.baidu.com/addurl/validcode.php”))
局_验证码地址＝ “http://utility.baidu.com/addurl/” ＋文本_取出中间文本 (局_返回文本, “<img src=” ＋ #引号, #引号 )
ivc ＝文本_取出中间文本 (局_验证码地址, “=”, “=”) ＋ “=”
调试输出 (局_验证码地址, ivc)
图片框1.图片＝网页_访问 (局_验证码地址, 0)

判断循环首 (取文本长度 (编辑框1.内容) ≠ 4)

系统_处理事件 ()

判断循环尾 ()
局_提交验证码＝编辑框1.内容
编辑框1.内容＝ “”
局_返回文本＝到文本 (网页_访问 (“http://utility.baidu.com/addurl/apply.php”, 1, “url=http://www.baidu.com&ivc=” ＋ ivc ＋ “&code=” ＋局_提交验证码))
调试输出 (局_返回文本)

判断 (寻找文本 (局_返回文本, “提交成功”, , 假) ≠ -1)

调试输出 (“提交成功”)

调试输出 (“提交失败”)

i支持库列表	支持库注释
spec	特殊功能支持库

作孽 · 发表于 2014-9-1 17:29:33

学习了谢谢

乐天° · 发表于 2014-9-1 17:49:55

这真无聊的啊

寻找星空 · 发表于 2014-9-1 17:51:27

乐天° 发表于 2014-9-1 17:49
这真无聊的啊

无聊透顶。

乐天° · 发表于 2014-9-1 17:56:21

492630000 发表于 2014-9-1 17:51
无聊透顶。

哎论坛天天太清闲看要发也发点好玩的呀

870844869 · 发表于 2014-9-1 22:13:38

这个是百度，还是什么的？

米米工具 · 发表于 2014-9-2 10:45:02

要发也发点好玩的呀

瀷☆悊 · 发表于 2014-9-3 09:57:39

哎论坛天天太清闲看要发也发点好玩的呀

KeAlong · 发表于 2014-9-3 10:19:57

新手学习。该好好好好

guaiguai · 发表于 2014-9-6 20:03:18

还不错支持下

		自动登录	找回密码
密码			注册

[易语言纯源码] 【没事做发下】百度搜索提交源码

评分

本帖被以下淘专辑推荐:

点评