>Private Sub Command1_Click() >Dim i as Integer >FaxManJr1.FaxNumber = "555-1212" >FaxManJr1.FaxCoverPage = "c:\FaxMan Jr.\server\cover2.pg" >FaxManJr1.SendFax >Dim faxstat As FaxStatusObj >Set faxstat = FaxManJr1.StatusObject >Do >FaxManJr1.WaitForEvent 10000 ‘Wait for 10 seconds >Select Case faxstat.LastEventType >Case EVENT_STATUS >i = 0 >Text1.SelText = "Status" & vbCrLf >Case EVENT_NEGOTIATION >Text1.SelText = "Negotiation" & vbCrLf >Case EVENT_STARTTIME >Text1.SelText = "StartTime" & vbCrLf >Case EVENT_ENDTIME >Text1.SelText = "EndTime" & vbCrLf >Case EVENT_COMPLETE >Text1.SelText = "Complete" & vbCrLf >Case EVENT_TIMEOUT >i = i + 1 >Text1.SelText = "Timeout" & vbCrLf >End Select >Loop Until (faxstat.LastEventType = EVENT_COMPLETE) Or (i =9 ) ‘ 90 idle seconds >End Sub >>
local i FaxManJr1 = createobject(...) FaxManJr1.FaxNumber = "555-1212" FaxManJr1.FaxCoverPage = "c:\FaxMan Jr.\server\cover2.pg" FaxManJr1.SendFax() do while (FaxManJr1.StatusObject.LastEventType = EVENT_COMPLETE) Or (i =9 ) && 90 idle seconds FaxManJr1.WaitForEvent(10000) && Wait for 10 seconds && Assuming, that FaxManJr has an object property (or component, called StatusObject) do case case FaxManJr1.StatusObject.LastEventType = EVENT_STATUS && All these constants should be found and defined using #define command i = 0 thisform.Text1.value = "Status" Case FaxManJr1.StatusObject.LastEventType = EVENT_NEGOTIATION thisform.Text1.value = "Negotiation" && Do rest similar Case EVENT_STARTTIME >Text1.SelText = "StartTime" & vbCrLf >Case EVENT_ENDTIME >Text1.SelText = "EndTime" & vbCrLf >Case EVENT_COMPLETE >Text1.SelText = "Complete" & vbCrLf >Case EVENT_TIMEOUT >i = i + 1 >Text1.SelText = "Timeout" & vbCrLf Endcase enddo