*- VeriSign.Prg > >Clear >@ 1,3 Say "Press the SPACE BAR to stop." > >Set Resource Off >Set Sysmenu Off >Set Talk Off >Set Status Off >Set Status Bar Off > >Local lStandard, iInitialHeight, iInitialWidth, cInitialCaption ; > , cBaseSite, iLoop, cSite > >lStandard = WVisible( "Standard" ) >If lStandard Then > Deactivate Window Standard >Endif >With _Screen > iInitialHeight = .Height > iInitialWidth = .Width > cInitialCaption = .Caption > .Height = 100 > .Width = 650 > .Caption = "VeriSign Tossers." > .MaxButton = .F. >EndWith > >cBaseSite = "www.YouTossers" >iLoop = 1 >cSite = cBaseSite + Transform( iLoop ) + ".com" > >Local oIe as InternetExplorer.Application >oIE = CreateObject( "InternetExplorer.Application" ) > >With oIE > .Silent = .T. > .Visible = .T. >EndWith > >iTotal = 1 >DO While Lastkey() # 32 > @ 3, 3 Say cSite > @ 5,3 Say Transform( iTotal, "999,999,999" ) + Space( 30 ) > @ 5,3 Say Transform( iTotal, "999,999,999" ) + " " > oIE.Navigate( cSite ) > iTotal = iTotal + 1 > fWait( oIE ) > If "The page cannot be displayed" $ oIe.Document.Body.innerHTML Then > iLoop = iLoop + 1 > cSite = cBaseSite + Transform( iLoop ) + ".com" > Endif > Inkey(2) >EndDo > >If lStandard > Activate Window Standard >Endif >With _Screen > .Height = iInitialHeight > .Width = iInitialWidth > .Caption = cInitialCaption > .MaxButton = .T. >EndWith > >Return .T. > >********************* >Function fWait( oIE ) >********************* > #If .F. Then > Local oIe as InternetExplorer.Application > #Endif > Do While oIE.Busy ; > Or oIE.Document.readyState # "complete" > ?? "." > Declare Sleep In Win32APi Integer > Sleep(1000) > Inkey() > If Lastkey() == 32 Then > Exit > Endif > EndDo > Return .T. > EndFunc && fWait( oIE ).