【没事做发下】百度搜索提交源码 - 精易论坛

' 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	特殊功能支持库