$ListView1 = GUICtrlCreateListView("", 232, 176, 721, 370, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES))
_GUICtrlListView_AddColumn($ListView1, "Items", 100)
_GUICtrlListView_AddColumn($ListView1, "SubItems 1", 100)
_GUICtrlListView_AddColumn($ListView1, "SubItems 2", 100)
_GUICtrlListView_AddColumn($ListView1, "SubItems 3", 100)
_GUICtrlListView_AddColumn($ListView1, "SubItems 1", 100)
_GUICtrlListView_AddColumn($ListView1, "SubItems 1", 100)
_GUICtrlListView_AddColumn($ListView1, "SubItems 1", 100)
_GUICtrlListView_AddColumn($ListView1, "SubItems 1", 100)
Case $Button1
$oIE = _IEAttach ("http://eps.laigang.com/EPro/EBid/ManageBid/InviteFee_List.aspx","url")
$oForm = _IEFormGetObjByName ($oIE, "form1")
$oQuery = _IEFormElementGetObjByName ($oForm, "SupplierName")
_IEFormElementSetValue ($oQuery, GUICtrlRead($Input1))
$oQuery = _IEFormElementGetObjByName ($oForm, "InviteName")
_IEFormElementSetValue ($oQuery, GUICtrlRead($Input2))
$oQuery = _IEFormElementGetObjByName ($oForm, "InviteCode")
_IEFormElementSetValue ($oQuery, GUICtrlRead($Input3))
WinActivate("InviteFee_List - 360安全浏览器 4.0 正式版", "")
Sleep(500)
MouseClick("LEFT",32,167)
Sleep(1000)
WinActivate("操作助手", "")
$oIE = _IEAttach ("http://eps.laigang.com/EPro/EBid/ManageBid/InviteFee_List.aspx","url")
$oTable = _IETableGetCollection ($oIE, 2)
$aTableData = _IETableWriteToArray ($oTable, True)
_GUICtrlListView_AddArray($ListView1, $aTableData)
从网页里提取的表内容到数组,但是数组没法显示到LISTVIEW里。没有GUI的情况下,用_ArrayDisplay测试过可以显示数组内容 |