bool CMoveArmEle::choose airarm(int iAirNum)
{
USES _ CONVERSION
bool bChooseArmHead = false
If( 7 == m_iType )// No commander is needed to open a branch base.
bChooseArmHead = true
IDispatch * pDisp = m _ pHtmlView-& gt; GetForm(" f 1 ");
if( NULL == pDisp)
Returns false
CComQIPtr & ltIHTMLFormElement & gtspFormElement = pDisp
pDisp-& gt; Publish ();
long nElemCount = 0; //Get the number of fields in the form.
HRESULT HR = spFormElement-& gt; Gets the length (& ampnelemcount);
If (Failure (hours))
Returns false
For (length j = 0;; j & ltnElemCountj++)
{
CComDispatchDriver spInputElement; //Get the j th form field
HR = spFormElement-& gt; item( CComVariant( j),CComVariant(),& ampspInputElement);
If (failure (hr)) continues;
CComVariant vName, vVal, vType// Get the name, value and type of the form field.
hr = spInputElement。 GetPropertyByName( L"name ",& ampvName);
If (failure (hr)) continues;
hr = spInputElement。 GetPropertyByName( L"value ",& ampvVal);
If (failure (hr)) continues;
hr = spInputElement。 GetPropertyByName( L"type ",& ampvType);
If (failure (hr)) continues;
LPCTSTR lpName = vName.bstrVal?
OLE2CT(vname . bstr val):_ T(" NULL "); //Unknown domain name
LPCTSTR lpVal = vVal.bstrVal?
OLE2CT(vval . bstr val):_ T(" NULL "); //null value, not entered.
LPCTSTR lpType = vType.bstrVal?
OLE2CT(vtype . bstr val):_ T(" NULL "); //Unknown type
// spInputElement.ch
// strMess。 Format ("name =%s value =%s type =%s\n", lpName, lpVal, lptype);
//TRACE(strMess);
If (! BChooseArmHead) // Select the commander
{
if( (0 == strcmp(lpName," cid "))
& amp& amp(0 == strcmp(lpType," radio "))
)
{
CComQIPtr & ltIHTMLElement & gtspele(spInputElement);
If (special)
spele->; Click ();
other
Assertion (false);
bChooseArmHead = true
}
}
{//Select a conveyor belt.
if( (0 == strcmp(lpName,m_strArmType))
& amp& amp(0 == strcmp(lpType," text "))
)
{
CComQIPtr & ltIHTMLInputTextElement & gtspInputText(spInputElement);
CString strain;
Srinam. Format ("%d", iairnum);
spInputText-& gt; put_value(strAirNum。 AllocSysString());
}
}
If( 0 == strcmp(lpVal," Next "))
{
CComQIPtr & ltIHTMLInputTextElement & gtspInputText(spInputElement);
CComQIPtr & ltIHTMLInputButtonElement & gtspInputButton(spInputElement);
CComQIPtr & ltIHTMLInputHiddenElement & gtspInputHidden(spInputElement);
CComQIPtr & ltIHTMLSelectElement & gtsp select(spInputElement);
CComQIPtr & ltIHTMLElement & gtspele(spInputElement);
spele->; Click ();
}
}
}
If you still can't handle it, I suggest uploading the code to my forum.
See my signature for the forum address.