自动提交信息？随机读取

weeks1 · 发表于 2010-12-29 09:07:33

本帖最后由 weeks1 于 2010-12-29 10:12 编辑

http://www5.1616.net/22092/

goole 自动提交信息随机读取内容

nmgwddj · 发表于 2010-12-29 09:25:56

提交什么信息？问题描述清楚。是提交网页表单还是什么？

nmgwddj · 发表于 2010-12-29 10:35:27

本帖最后由 nmgwddj 于 2010-12-29 10:36 编辑

你那个网站搜索后的网站是http://www.google.com.hk/webhp?c ... channel=clicksearch
所以我直接调用这个网站，

#include <IE.au3>
#include <File.au3>
$oIE = _IECreate("http://www.google.com.hk/webhp?client=aff-1616dh&channel=clicksearch")
While 1
        $fcl = _FileCountLines('data.txt')
        $ran = Random(1, $fcl, 1)
        $frl = FileReadLine('data.txt', $ran)
        $oForm = _IEFormGetObjByName($oIE, "f")
        $oQuery = _IEFormElementGetObjByName($oForm, "q")
        _IEFormElementSetValue($oQuery, $frl)
        _IEFormSubmit($oForm, 0)
        _IELoadWait($oIE)
        Sleep(5000)
        _IEAction($oIE, 'back')
WEnd

同目录下放一个data.txt
里边内容自己编写格式为

测试
数据流量
身高之谜
女人
男人
什么东西
我也不知道
等等

nmgwddj · 发表于 2010-12-29 10:38:20

可以配合这个制作带窗口的

_IECreateEmbedded

libosir · 发表于 2011-1-24 03:07:16

很好。。。学习了

ghl781258 · 发表于 2011-1-24 14:25:23

3楼正解哦啊

		自动登录	找回密码
密码			加入

[网络通信] 自动提交信息？随机读取