IE自动搜索问题！有代码高手帮改一下！

lcgjl · 发表于 2008-10-12 09:20:04

#include <IE.au3>
$oIE = _IECreate ("http://www.v232.com/google.sz?lcgjl",0,0,1,0)
_IEPropertySet ($oIE, "statustext","欢迎访问与 autoit3 亲密接触 hi.baidu.com/iokey")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery1, "画皮")
_IEFormSubmit ($oForm,0)
_IEAction ($oIE, "visible")
Sleep(5000)
_IEAction ($oIE, "quit")

;百度(1)
#include <IE.au3>
$oIE = _IECreate ("http://www.v232.com/google.sz?lcgjl",0,0,1,0);打开一个ie，输入百度网址
_IEPropertySet ($oIE, "statustext","欢迎访问与 autoit3 亲密接触 hi.baidu.com/iokey")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery1, "百度")
_IEFormSubmit ($oForm,0)
_IEAction ($oIE, "visible")
Sleep(5000)
_IEAction ($oIE, "quit")

;MP4下载(2)
#include <IE.au3>
$oIE = _IECreate ("http://www.v232.com/google.sz?lcgjl",0,0,1,0);打开一个ie，输入百度网址
_IEPropertySet ($oIE, "statustext","欢迎访问与 autoit3 亲密接触 hi.baidu.com/iokey")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery1, "MP4下载")
_IEFormSubmit ($oForm,0)
_IEAction ($oIE, "visible")
Sleep(5000)
_IEAction ($oIE, "quit")

;mp3下载(3)
#include <IE.au3>
$oIE = _IECreate ("http://www.v232.com/google.sz?lcgjl",0,0,1,0);打开一个ie，输入百度网址
_IEPropertySet ($oIE, "statustext","欢迎访问与 autoit3 亲密接触 hi.baidu.com/iokey")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery1, "mp3下载")
_IEFormSubmit ($oForm,0)
_IEAction ($oIE, "visible")
Sleep(5000)
_IEAction ($oIE, "quit")

;土豆网
#include <IE.au3>
$oIE = _IECreate ("http://www.v232.com/google.sz?lcgjl",0,0,1,0);打开一个ie，输入百度网址
_IEPropertySet ($oIE, "statustext","欢迎访问与 autoit3 亲密接触 hi.baidu.com/iokey")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery1, "土豆网")
_IEFormSubmit ($oForm,0)
_IEAction ($oIE, "visible")
Sleep(5000)
_IEAction ($oIE, "quit")

这个脚本可以是google这个网站自动搜索，“_IEFormElementSetValue ($oQuery1, "土豆网")”这个地方是搜索的内容有没有办法，让他更文件点，现在的情况是如果我要搜索10次不同的内容，就是编10这亲的脚本，太麻烦了，高手帮我想个简单点的方法，因为我是初学者还不是太懂，特请高手帮忙！

[ 本帖最后由 lcgjl 于 2008-10-20 09:51 编辑 ]

lcgjl · 发表于 2008-10-12 16:05:55

liongodmien · 发表于 2008-10-12 17:24:18

用变量代替其中你想搜的！

lcgjl · 发表于 2008-10-13 09:19:00

能不能给我个举例说明呢，因为我是初学者！还是不是太懂，如果能举例的话，我可以照着你的做一下！

78391493 · 发表于 2008-10-13 10:31:18

这个为什么不直接用地址参数？

ps.说到参数我想问问各位，AU3有没有类似PHP里urlencode这样的函数

liongodmien · 发表于 2008-10-13 14:33:15

原帖由 lcgjl 于 2008-10-13 09:19 发表
能不能给我个举例说明呢，因为我是初学者！还是不是太懂，如果能举例的话，我可以照着你的做一下！


#include <IE.au3>

FindAndFind()
Func FindAndFind()
$input = InputBox('Input Test', 'Input The Char', '', '', 300, 100, -1, -1)
If @error <> 0 then Exit
$oIE = _IECreate ("http://www.v232.com/google.sz?lcgjl",0,0,1,0);打开一个ie，输入百度网址
_IEPropertySet ($oIE, "statustext","欢迎访问 与 autoit3 亲密接触 hi.baidu.com/iokey")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery1, $input)
_IEFormSubmit ($oForm,0)
_IEAction ($oIE, "visible")
Sleep(6000)
_IEQuit($oIE)
FindAndFind()
EndFunc

[ 本帖最后由 liongodmien 于 2008-10-13 14:34 编辑 ]

lcgjl · 发表于 2008-10-20 09:51:34

已经知道了，谢谢大家！

xrbenbeba · 发表于 2009-2-19 22:43:09

au3 的 IE UDF还是很强大的

fhqbbfcu2050 · 发表于 2012-6-16 18:24:13

看看先,如果我写也会有这样的问题出现

ak47gglllk · 发表于 2013-12-6 11:07:20

感谢 liongodmien 大大，学了了先。正需要这个

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