Domain Check

This code has been declared by its author to be Public Domain code.

Domain Check by GC-Martijn

2003

This is my first script I made for a company :)
And my first script that I post here.
It's very basic and fast.
comments:martijn@...

AppTitle "Domain Check"
Graphics 420,540,16,2
SetBuffer FrontBuffer() 

Print "Made by GC-Martijn 2003"
Print "extensies: nl,com,net,org,info,nu,de"
Print ""

While Not KeyHit(1)
	DomainCheck()
	WaitKey
	Cls
Wend

Function DomainCheck()

Color 255,255,0
domein$	= Input$("Domain:") 
Color 255,255,255

lenght 	= Len(domein$)

ext		= Instr(domein$,".",1) 
leng 	= lenght-ext

extensie$ 	= Right$(domein$, leng)

	If extensie$ = "com" Or extensie$ = "net" Then
		wh$		="whois.networksolutions.com"
	EndIf
	
	If extensie$ = "nl" Then
		wh$		="whois.domain-registry.nl"
	EndIf
	
	If extensie$ = "org" Or extensie$ = "info" Then
		wh$		="whois.networksolutions.com"
	EndIf

	If extensie$ = "nu" Then
		wh$		="whois.nic.nu"
	EndIf
	
	If extensie$ = "de" Then
		wh$		="whois.nic.de"
	EndIf		
	
www	= OpenTCPStream(wh$,43)

If Not www Then
	Print "Error in TCPStream"
Else
	WriteLine www,domein$
	While Not Eof(www)
    	Print ReadLine(www)
	Wend
	CloseTCPStream www
EndIf

End Function

Comments

None.

Code Archives Forum