sub LogIn (byval sLogName, byval sPwd, byval sExpValue)
' do something of login
sActValue=Diglog(Warning).TextBox(warning).GetText
datatable(iRow, "Actual")=sActValue ‘Export the actual value to datatable
if sActValue=sExpValue then
datatable(iRow, "Statues")="Pass" ‘Export the actual status to datatable
else
datatable(iRow, "Statues")="Fail" ‘Export the actual status to datatable
end if
end sub
以上为伪码