#include <IE.au3>
$oIE = _IECreate (@ScriptDir&"\留言.html", 1)
$oQuery1 = _IEGetObjByName ($oIE, "zw")
_IEFormElementOptionSelect($oQuery1, 3);选择职务 byValue
$oQuery2_1 = _IEGetObjByName ($oIE, "example")
_IEFormElementOptionSelect($oQuery2_1, "业务", 1, "byText");选发帖类型 byText
Sleep(100);选择“类型”后触发OnChange事件,延时下让“子类型”刷新数据
$oQuery2_2 = _IEGetObjByName ($oIE, "stage2")
_IEFormElementOptionSelect($oQuery2_1, 2, 1, "byIndex");选发帖类型子类 byIndex 基于0索引
$oQuery4 = _IEGetObjByName ($oIE, "city")
_IEFormElementOptionSelect($oQuery4, 11) ;选所属地市:
$oQuery5 = _IEGetObjByName ($oIE, "unit")
$oQuery5.value = "广东省江门市北郊五福街" ;填写单位
$oQuery6 = _IEGetObjByName ($oIE, "email")
$oQuery6.value = "tjztbk@126.com" ;填写Email
$oQuery7 = _IEGetObjByName ($oIE, "phone")
$oQuery7.value = "0750-888888" ;填写电话号码
$oQuery8 = _IEGetObjByName ($oIE, "title")
$oQuery8.value = "留言标题" ;填写标题
$oQuery9 = _IEGetObjByName ($oIE, "content")
$oQuery9.value = "留言内容" ;填写内容
$oQuery10 = _IEGetObjByName ($oIE, "category")
_IEFormElementOptionSelect($oQuery10, 16) ;选择发帖专题
$oQuery11 = _IEGetObjByName ($oIE, "Submit")
$oQuery11.click ;点击发送发帖专题
;_IEQuit ($oIE) ;关闭IE
|