How to paste name and address into Fedex web page

[Docfxit]

I'd like to find out how to paste variables into a Fedex web page. What I have done so far is to create a script to copy the name and address from a software package called Anytime Organizer and then it will login to the Fedex web page to send a package. What I would like to figure out is how to paste the variables into the proper fields on the Fedex web page.

expandcollapse popup

#include <IE.au3>
 
$Url = 'http://fedex.com/us/'
$User = 'User'
$Pwd = 'password'
 
; Copy Name & Address from Anytime Organizer
 
WinActivate("Address Details")
WinWaitActive("Address Details")
Send("^c") ;Copy selected text.
$FirstName = ClipGet() ;Retrieves text from clipboard.
Send("{TAB}"); Next field
Send("^c")
$LastName = ClipGet()
Send("{TAB}{TAB}{TAB}")
Send("^c")
$Address = ClipGet()
Send("{TAB}{TAB}")
Send("^c")
$City = ClipGet()
Send("{TAB}")
Send("^c")
$State = ClipGet()
Send("{TAB}")
Send("^c")
$Zip = ClipGet()
 
; Start Internet Explorer & Login to Fedex
$test = _IEAutoLogin($Url, $User, $Pwd)
 
;Paste Name & Address into Fedex Web page
;Paste $FirstName $LastName  into Name field
;Paste $Address           into Address field
 
 
Func _IEAutoLogin($sUrl, $sUsername, $sPwd)
;funkey 09.09.09
$oIE = _IECreate($sUrl)
_IEErrorNotify(False)
_IEErrorHandlerRegister()
$oForms = _IEFormGetCollection($oIE)
If @error Then
  Return SetError(1, _IEErrorHandlerDeRegister(), $oIE) ;'no forms --> no login'
Else
  $Index = 0
  For $oForm In $oForms
   $oFormElements = _IEFormElementGetCollection($oForm)
   If IsObj($oFormElements) Then
    $IndexElement = 0
    For $oElement In $oFormElements
     If $oElement.Type = 'password' Then
      $oPwd = _IEFormElementGetObjByName($oForm, $oElement.Name)
      _IEFormElementSetValue($oPwd, $sPwd)
      For $i = $IndexElement - 1 To 0 Step -1
       $oUser = _IEFormElementGetCollection($oForm, $i)
       If $oUser.Type = 'text' Then
        _IEFormElementSetValue($oUser, $sUsername)
        ExitLoop
       EndIf
      Next
      If $oForm.action <> "0" And Not StringInStr($oForm.action, '.php') Then  ;submit
       _IEFormSubmit($oForm, 0)
       _IELoadWait($oIE)
      Else  ;click
       For $i = $IndexElement + 1 To $IndexElement + 10 ;check the next 10 elements
        $oButton = _IEFormElementGetCollection($oForm, $i)
        If $oButton.Type = 'submit' Then
         _IEAction($oButton, "click")
         ExitLoop
        EndIf
       Next
      EndIf
      Return SetExtended(_IEErrorHandlerDeRegister(), $oIE)
     EndIf
     $IndexElement += 1
    Next
   EndIf
   $Index += 1
  Next
EndIf
Return SetError(2, _IEErrorHandlerDeRegister(), $oIE) ;no password-field found
EndFunc   ;==>_IEAutoLogin

Thanks,

Docfxit

PS: I'm not sure but I think these are the fields I need to fill:

element name: toData.addressData.companyName value:Select or enter

element name: toData.addressData.contactName value:Select or enter

element name: toData.addressData.addressLine1 value:0

element name: toData.addressData.addressLine2 value:0

element name: toData.addressData.city value:0

element name: toData.addressData.stateProvinceCode value:empty

element name: toData.addressData.zipPostalCode value:0

Edited September 10, 2011 by docfxit

[DaleHohm]

Look at the IE Management UDF library in the helpfile and search this forum. You'll likely need _IECreate, _IEFormGetObjByName, _IEFormElementGetObjByName and _IEFormElementSetValue.

Dale