#include <IE.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Dim $aData[3] = [ _
"http://app3.hongkongpost.com/CGI/mt/enquiry.jsp", _
"http://www.lightake.com/ordertracking.do", _
"http://www.ukrposhta.com/www/upost.nsf/search_post?openpage" _
]
$oIE = _IECreate("",0,0)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 462, 192, 114)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 617, 377, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Submit", 552, 400, 75, 25, 0)
$Combo1 = GUICtrlCreateCombo(" ---------- select address -----------", 8, 402, 537, 25)
_ComboSetData(-1, $aData)
$Input1 = GUICtrlCreateInput("", 8, 432, 241, 21, $ES_AUTOHSCROLL)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_IEQuit($oIE)
Exit
Case $Button1
$sAddress = GUICtrlRead($Combo1)
$sKey = GUICtrlRead($Input1)
If $sKey <> "" Then
_Search($sAddress, $sKey)
EndIf
EndSwitch
WEnd
Func _Search($sAddress,$sKey)
Switch $sAddress
Case $aData[0]
_IENavigate($oIE, $sAddress)
app3_hongkongpost_com($sKey)
Case $aData[1]
_IENavigate($oIE, $sAddress)
www_lightake_com($sKey)
Case $aData[2]
_IENavigate($oIE, $sAddress)
www_ukrposhta_com($sKey)
EndSwitch
EndFunc
Func _ComboSetData($Ctrl, $aData)
For $i = 0 To UBound($aData)-1
GUICtrlSetData($Ctrl, $aData[$i] & "|")
Next
EndFunc
Func app3_hongkongpost_com($sKey)
$oInput = _IEGetObjById($oIE, 'tracknbr')
$oSubmit = _IEGetObjById($oIE, 'submit')
_IEFormElementSetValue ($oInput, $sKey)
_IEAction ($oSubmit, "click")
GUICtrlSetData($Edit1, "Загрузка...")
_IELoadWait ($oIE)
$oContent = _IEGetObjById($oIE, 'clfContent') ; тут я не могу чего-либо делать, так как не знаю, в какие элементы выполняется вывод информации
GUICtrlSetData($Edit1, _IEPropertyGet($oContent, 'innerText'))
EndFunc
Func www_ukrposhta_com($sKey)
$oInput = _IEGetObjByName($oIE, 'barcode')
$oSubmit = _IEGetObjById($oIE, 'btnsearch')
_IEFormElementSetValue ($oInput, $sKey)
_IEAction ($oSubmit, "click")
GUICtrlSetData($Edit1, "Загрузка...")
_IELoadWait ($oIE)
$oContent = _IETagNameGetCollection($oIE, 'div', 0) ; тут я не могу чего-либо делать, так как не знаю, в какие элементы выполняется вывод информации
GUICtrlSetData($Edit1, _IEPropertyGet($oContent, 'innerText'))
EndFunc
Func www_lightake_com($sKey)
$oInput1 = _IEGetObjById($oIE, '_ctl0_MainBody__ctl1_payemail')
$oInput2 = _IEGetObjById($oIE, '_ctl0_MainBody__ctl1_ordernumber')
$oSubmit = _IEGetObjById($oIE, '_ctl0_MainBody__ctl1_btnSearch')
_IEFormElementSetValue ($oInput1, '[email protected]')
_IEFormElementSetValue ($oInput2, $sKey)
_IEAction ($oSubmit, "click")
GUICtrlSetData($Edit1, "Загрузка...")
_IELoadWait ($oIE)
$oContent = _IEGetObjById($oIE, 'right') ; тут я не могу чего-либо делать, так как не знаю, в какие элементы выполняется вывод информации
GUICtrlSetData($Edit1, _IEPropertyGet($oContent, 'innerText'))
EndFunc
