17.576 .NL-domeinnamen...

Heb je het script ook ergens? :D 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...

Citaat:

---

Origineel geplaatst door Raptor
Heb je het script ook ergens? :D 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.

Citaat:

---

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 :D
Het gaat dus vrij snel.. 100 domeinen per maand. Dan zijn over minder dan 3 jaar alle drie letter domeinen weg :)

Citaat:

---

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?

Citaat:

---

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?

Citaat:

---

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 :p

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

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 :).

Citaat:

---

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)