Onderwerp: 17.576 .NL-domeinnamen...

Heb je het script ook ergens? Ik ben best geinstresseerd
anders kan je het ook wel zenden naar:
f@oox.nl

Wat moeten mensen met al die al bestaande domeinnamen? :P

Zitten echt combi's tussen...

Origineel geplaatst door Raptor
Heb je het script ook ergens? Ik ben best geinstresseerd
anders kan je het ook wel zenden naar:
f@oox.nl

Dit zal je waarschijnlijk tegenvallen, maar het is een ASP/VBScript bestand

Code:

<% Server.ScriptTimeout = 86400
   SET xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

   Response.Write("<span style=""font-family : Arial, sans-serif; " &_
   "color : red; font-size : 10px;"">")

   FOR x1 = 97 TO 122
     Response.Write("<div style=""width : 100%; background-color : #F0F0F0; " &_
     "color : black; font-family : arial black, sans-serif; font-size : 32px; " &_
     "text-align : center; line-height : " &_
     "48px; "">" & CHR(x1) & "</div>")
     FOR x2 = 97 TO 122
       FOR x3 = 97 TO 122
         DomainName = CHR(x1) & CHR(x2) & CHR(x3)
         GetURL = "http://www.domain-registry.nl/bestaat.php?domein=" & DomainName
         xml.Open "GET", GetURL, False
         xml.Send

         IF InStr(xml.responseText, "domain is free") > 0 THEN
           Response.Write("<span style=""font-size : 20px; font-weight : bold; " &_
           "color : green"">" & DomainName & ".nl</span> - ")
         ELSE
           Response.Write(DomainName & ".nl - ")
         END IF
       NEXT
       Response.Flush
     NEXT
   NEXT

   Response.Write("</span>")
   SET xml = Nothing %>

Beetje aangepast ten gunste van de layout

Ik ben wel benieuwd naar het aantal nog vrije drie letter .nl domeinen, naar aanleiding van dit topic.

Origineel geplaatst door Carl<n-media>
Ik ben wel benieuwd naar het aantal nog vrije drie letter .nl domeinen, naar aanleiding van dit topic.

Het zijn er 3140
Het gaat dus vrij snel.. 100 domeinen per maand. Dan zijn over minder dan 3 jaar alle drie letter domeinen weg

Origineel geplaatst door MediaCreations
Dit zal je waarschijnlijk tegenvallen, maar het is een ASP/VBScript bestand

Waarom zou ons dat tegenvallen? Ik ben net blij dat het geen perl/php/whatever is!

Nu wat ik eigenlijk wilde vragen: zit er ook maar één vrij domein tussen dat geen q, x of y bevat?

Origineel geplaatst door MediaCreations
Dit zal je waarschijnlijk tegenvallen, maar het is een ASP/VBScript bestand

Code:

<% Server.ScriptTimeout = 86400
   SET xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

   Response.Write("<span style=""font-family : Arial, sans-serif; " &_
   "color : red; font-size : 10px;"">")

   FOR x1 = 97 TO 122
     Response.Write("<div style=""width : 100%; background-color : #F0F0F0; " &_
     "color : black; font-family : arial black, sans-serif; font-size : 32px; " &_
     "text-align : center; line-height : " &_
     "48px; "">" & CHR(x1) & "</div>")
     FOR x2 = 97 TO 122
       FOR x3 = 97 TO 122
         DomainName = CHR(x1) & CHR(x2) & CHR(x3)
         GetURL = "http://www.domain-registry.nl/bestaat.php?domein=" & DomainName
         xml.Open "GET", GetURL, False
         xml.Send

         IF InStr(xml.responseText, "domain is free") > 0 THEN
           Response.Write("<span style=""font-size : 20px; font-weight : bold; " &_
           "color : green"">" & DomainName & ".nl</span> - ")
         ELSE
           Response.Write(DomainName & ".nl - ")
         END IF
       NEXT
       Response.Flush
     NEXT
   NEXT

   Response.Write("</span>")
   SET xml = Nothing %>

Beetje aangepast ten gunste van de layout

Kan je deze ook makkelijk omzetten naar eentje die 4 letters controleert?

Origineel geplaatst door Raptor


Kan je deze ook makkelijk omzetten naar eentje die 4 letters controleert?

Ja hoor

Code:

<% Server.ScriptTimeout = 86400
   SET xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

   Response.Write("<span style=""font-family : Arial, sans-serif; " &_
   "color : red; font-size : 10px;"">")

   FOR x1 = 97 TO 122
     Response.Write("<div style=""width : 100%; background-color : #E0E0E0; " &_
     "color : black; font-family : arial black, sans-serif; font-size : 32px; " &_
     "text-align : center; line-height : " &_
     "48px; "">" & CHR(x1) & "</div>")
     FOR x2 = 97 TO 122
       Response.Write("<div style=""width : 100%; background-color : #F0F0F0; " &_
       "color : black; font-family : arial black, sans-serif; font-size : 32px; " &_
       "text-align : center; line-height : " &_
       "48px; "">" & CHR(x1) & CHR(x2) & "</div>")
       FOR x3 = 97 TO 122
         FOR x4 = 97 TO 122
           DomainName = CHR(x1) & CHR(x2) & CHR(x3) & CHR(x4)
           GetURL = "http://www.domain-registry.nl/bestaat.php?domein=" & DomainName
           xml.Open "GET", GetURL, False
           xml.Send

           IF InStr(xml.responseText, "domain is free") > 0 THEN
             Response.Write("<span style=""font-size : 20px; font-weight : bold; " &_
             "color : green"">" & DomainName & ".nl</span> - ")
           ELSE
             Response.Write(DomainName & ".nl - ")
           END IF
         NEXT
         Response.Flush
       NEXT
     NEXT
   NEXT

   Response.Write("</span>")
   SET xml = Nothing %>

Uitvoeren van deze code zou mij ongeveer 28 uur duren. Dat ben ik dus niet van plan Het zou trouwens technisch niet mogelijk zijn aangezien een ASP script maar 24 uur mag duren

edit: Ik weet ook niet of SIDN het wel zo leuk vind als ik 456.976 domeinen geautomatiseerd ga controleren

Dankje Ik ben op dit moment ook nog niet van plan om dat te doen

Ik heb op basis van hierboven gebruikt script een nieuw script gemaakt om bulk domeinnamen te controleren. Het script filtert alle foutieve karakters automatisch weg. Je kunt dus gewoon een stukje tekst pasten en controleren.

Het script kan hier uitgevoerd worden: http://www.bitserve.nl/checknames/ (fair use policy, geen misbruik van maken aub)
Hier staat de source: http://www.bitserve.nl/checknames/source.txt

Ik heb bij twee dingen nog hulp nodig
1. Ik wil ook graag domeinen kunnen controleren met een .NET en .COM extentie. Dus ik heb een website nodig vergelijkbaar met http://www.domain-registry.nl/bestaat.php

2. Mijn RegExp filter is momenteel ingesteld op 0-9 en A-Z, kan iemand mij vertellen hoe ik alle URL karakters door kan laten?

Alvast bedankt voor alle hulp

siy.nl (typo)mag eruit, bedankt.

Om even terug te komen op mijn vraag: zit er ook maar één vrij domein tussen dat geen q, x of y bevat?

Heb gister een hele poos gekeken maar niks kunnen vinden .

Origineel geplaatst door dotnetjunkie
Om even terug te komen op mijn vraag: zit er ook maar één vrij domein tussen dat geen q, x of y bevat?

Je hebt gelijk. Er zit niet één domeinnaam tussen die geen Q, X of Y bevat.

http://www.mediacreations.nl/dat_valt_tegen.html (111 KB)