Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Breaking News about VeriSign.
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00832759
Message ID:
00832791
Views:
16
yeah VeriSign sure pulled a fast one....
problem:
http://www.betanews.com/article.php3?sid=1063691303
one fix anyway:
http://www.imperialviolet.org/dnsfix.html

>Apparently the domain name most often entered in error is www.YouTossers.Com - maybe I should turn this into a screen saver!
*- 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 ).
ICQ 10556 (ya), 254117
Previous
Reply
Map
View

Click here to load this message in the networking platform