假代码

<input id="form:bkg_num" name="form:bkg_num" type="text" value="" maxlength="35" size="20" style="font-size: 16px">

 

<input id="form:bkg_num" name="form:bkg_num" type="text" value="123" maxlength="35" size="20" style="font-size: 16px">

  

search botton

<input id="form:goToCargoTrackingBkg" name="form:goToCargoTrackingBkg" type="submit" value="Search" onclick="return validateBKGNumber();;clear_form();" style="font-size: 16px" class="button">

<input id="form:goToCargoTrackingBkg" name="form:goToCargoTrackingBkg" type="submit" value="Search" onclick="return validateBKGNumber();;clear_form();" style="font-size: 16px" class="button">

 

 

reference 选择 internet controls 和 HTML object library

 

正式：

 

Option Explicit

Const URLstr As String = "http://moc.oocl.com/party/cargotracking/mobile/mobile_ct_search.jsf?ANONYMOUS_BEHAVIOR=BUILD_UP&ENTRY_TYPE=OOCL&ENTRY=MCC"

'<input id="form:bkg_num" name="form:bkg_num" type="text" value="" maxlength="35" size="20" style="font-size: 16px">

'<input id="form:goToCargoTrackingBkg" name="form:goToCargoTrackingBkg" type="submit" value="Search" onclick="return validateBKGNumber();;clear_form();" style="font-size: 16px" class="button">

 

Function FillBKNO ( bkno As String) As Boolean

　　' ms internet controls

　　' ms html object lib

 

　　Dim objIE As SHDocVw,InternetExplorer

　　Dim ieDoc As MSHTML.HTMLDocument

 

　　Dim BKidFid As MHTML.HTMLInputElement   ' booking number 

　　Dim SubmitID As MHTML.HTMLInputElement   ' submit 

 

　　Dim 

 

https://www.youtube.com/watch?v=4ebheN9midA