Get email, full name, address,... from Whois !

[traimoc]

for Example:

Registrant:

EyePlastics, LLC

601 Providence Park

Mobile, Alabama 36695

United States

Registered through: GoDaddy.com, Inc. (http://www.godaddy.com)

Domain Name: DRMARKBROWN.COM

Created on: 14-May-04

Expires on: 14-May-12

Last Updated on: 09-May-09

Administrative Contact:

Brown, Mark Mark@eyeplastics.com

EyePlastics, LLC

601 Providence Park

Mobile, Alabama 36695

United States

2516502020 Fax --

Technical Contact:

Brown, Mark Mark@eyeplastics.com

EyePlastics, LLC

601 Providence Park

Mobile, Alabama 36695

United States

2516502020 Fax --

Domain servers in listed order:

NS09.DOMAINCONTROL.COM

NS10.DOMAINCONTROL.COM

the only thing I can extract is email:

$mail=StringRegExp($Text,"\w+@\w+.\w+",2)

And the full name, maybe I take the first line of Administrative Contact.

But my real problem is: to take the address " 601 Providence Park", in some case it lay on the third or the second line of Administrative Contact, I don't know when to get the 2nd or 3rd ! And the address, country !

All I want to know is to check which link is address,email,full name....

I've searched a lot but I found nothing !

Now, I need your help !

Thanks !

[somdcomputerguy]

Perhaps FileReadLine?

Function FileReadLine

[GEOSoft]

Here is one I did a few months ago. You will probably find what you need (or close to it) in here.

expandcollapse popup

#include<inet.au3>
$sUBase = "http://whois.domaintools.com/"
$Gw = 450
$Gh = 400
$Frm_main = GUICreate("Domain Lookup", $Gw, $Gh)
$In_Lookup = GUICtrlCreateInput("Enter the domain or IP address", 10,10, 250, 20)
$btn_Go = GUICtrlCreateButton("Go", 290, 10, 40, 20)
$Btn_Copy = GUICtrlCreateButton("Copy", 360, 10, 40, 20)
GUICtrlSetState($Btn_Copy, 144)
$Edit_Results = GUICtrlCreateEdit("", 10, 40, $Gw-20, $Gh - 50, BitOR(0x0800, 0x00200000, 0x00100000))
GUISetState()

While 1
   $gMsg = GUIGetMsg()
   Switch $gMsg
      Case -3
         Exit
      Case $Btn_Go
         GUICtrlSetData($Edit_Results, "")
         $sURL = GUICtrlRead($In_Lookup)
         If NOT StringInStr($sURL, ".") Then
            GUICtrlSetState($In_Lookup, 256)
            ContinueLoop
         EndIf
         $sURL = StringReplace($sUrl, "http:\\","")
         $sURL = StringReplace($sURL, "www.", "")
         GUISetCursor(15, 1)
         $sStr = _InetGetSource($sUBase & $sURL)
        ;ClipPut($sStr)
        ;$sStr = ClipGet()
         $sStr = StringRegExp($sStr, "(?i)<p class=\\?'whois_record\\?'>([domain|org].*[name|not]?.+)</p>", 1)
         If NOT @Error Then
            $sStr = $sStr[0]
            GUICtrlSetData($Edit_Results, _FixString($sStr))
            GUICtrlSetState($Btn_Copy, 80)
            GUISetCursor(-1)
         Else
            $sStr = "Unable to complete the search." & @CRLF & @CRLF
            $sStr &= "Most likely causes:" & @CRLF & "You entered an invalid address." & @CRLF 
            $sStr &= "You have exceeded your maximum number of lookups for the day."
            GUICtrlSetData($Edit_Results, $sStr)
            GUISetCursor(-1)
         EndIf
      Case $Btn_Copy
         ClipPut(GuiCtrlRead($Edit_Results))
      Case Else
   EndSwitch
Wend

Func _FixString($sStr)
   $sStr = StringReplace($sStr, "&nbsp;", Chr(32))
   $sStr = StringRegExpReplace($sStr, "(?i)<br\s?/?>", @CRLF)
   $sStr = StringReplace($sStr, "&amp;", "&")
   $sStr = StringReplace($sStr, "<p>",  @CRLF & @CRLF)
   $sStr = StringRegExpReplace($sStr, "(?i)\(?<a title=\\.?Search for this email address\\.+>\)?", @CRLF)
   $sStr = StringRegExpReplace($sStr,"<.+>.*", "")
   $sStr = StringRegExpReplace($sStr, "(?i).+email:.*\v?", "")
   $sStr = StringRegExpReplace($sStr, "(?i)([a-z]+)\s*(:)\h*(.*)", "$1$2 $3")
   Return $sStr
EndFunc