كود فحص الدومين domain check

[محمد الزريعي]

الاخوة الاعزاء  السلام عليكم

كي لا اطيل عليكم هل أستطيع أفحص الدومين من الاكسل  أذا كان  الدومين محجوز أو لا ..

اريد كود فحص النظاق  وشكرا

 

[ياسر خليل أبو البراء]

أخي الكريم محمد

ممكن تضع رابط الـdomain المراد فحصه للتجربة عليه؟؟ .. ولو تقدر تضع رابطين أحدهما محجوز والآخر غير محجوز لتجربة بعض الأكواد عليه ..

حيث أنني قليل الخبرة في هذا المجال

[محمد الزريعي]

هذا النطاق غير محجوز colomos.com

وهذا النطاق محجوز   googel.com

وهذا رابط  الفحص

http://www.p5s.net/whois/mwhois.php

---------------------------------------------------------------------

 

 

طبعاً هناك اكواد في الفجل بيسك دت نت ... بس ما فهمتها ..

 

 

وهذا موقع  فيه اكواد بس ايضاً لم افهمها

 

 

http://www.codepool.biz/how-to-extract-domain-names-from-urls-in-vba.html

شاكر ومقدر لك

[الـعيدروس]

السلام عليكم

جرب هات الطريقه

'********************************
' رابط الدوماين الذي تريد التحقق منه
Private Const Ur As String = "https://www.colomos.com"
Sub Check_Url()
     MsgBox IIf(Check_Domin(Ur), "غير شاغر", "شاغر")
End Sub
Function Check_Domin(Url As String) As Boolean
    Dim Win_Htp As Object
    Dim R_a As Variant
    On Error GoTo Nex
    Set Win_Htp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With Win_Htp
    DoEvents
      .Open "GET", Url, False
      .Send
      R_a = .StatusText
    End With
    Set Win_Htp = Nothing
    If R_a = "OK" Then Check_Domin = True
    Exit Function
Nex:
End Function

 

تم تعديل نوفمبر 2, 2015 بواسطه الـعيدروس

[محمد الزريعي]

جربت هذا الكود  بس ما اشتغل معي .. ؟؟؟؟

 

[الـعيدروس]

هذا النطاق غير محجوز colomos.com

وهذا النطاق محجوز   googel.com

جربته على الموقعين الذي اعلا وزبط الاول تظهر الرساله غير محجوز

والثاني تظهر الرساله محجوز

 

 

لاتنسى تضيف الـ "

https://www.

قبل اسم الدومين في شرط الكود