DomainChecker

[Bru]

Hello to all, I am trying to work on a simple little thing. To help domain buyers out.

This little tool will simply check if a domain is taken.. or not.

Here is my code so far..

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>


$Form1 = GUICreate("DomainChecker", 352, 109, 192, 124)
$Label1 = GUICtrlCreateLabel("URL To Check :", 16, 16, 98, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 120, 16, 217, 21)
$Button1 = GUICtrlCreateButton("Check Domain", 120, 48, 217, 25, 0)
$Label2 = GUICtrlCreateLabel("Status:", 120, 80, 55, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("...", 176, 80, 16, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            
        Case $Button1
            $sDomain = GUICtrlRead($Input1)
            $sLink = "http://www.whois.net/whois_new.cgi?d=" & $sDomain
            $oIE = _IECreate($sLink, 0,0)
            _IENavigate($oIE, $sLink)
            _IELoadWait($oIE)
            
            $sCheck = _IEBodyReadHTML($oIE)
            
            If StringInStr($sCheck, "Available for you now!") Then
                GUICtrlSetData($Label3, "Available")
            Else
                GUICtrlSetData($Label3, "Unavailable")
            EndIf

    EndSwitch
WEnd

I have a problem with this, for some reason it does not change the status.

Thanks..

Ant

[martin]

Hello to all, I am trying to work on a simple little thing. To help domain buyers out.

This little tool will simply check if a domain is taken.. or not.

Here is my code so far..

expandcollapse popup

#include <ButtonConstants.au3>
 
  #include <EditConstants.au3>
 
  #include <GUIConstantsEx.au3>
 
  #include <StaticConstants.au3>
 
  #include <WindowsConstants.au3>
 
  #include <IE.au3>
 
  
 
  
 
  $Form1 = GUICreate("DomainChecker", 352, 109, 192, 124)
 
  $Label1 = GUICtrlCreateLabel("URL To Check :", 16, 16, 98, 20)
 
  GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
 
  $Input1 = GUICtrlCreateInput("", 120, 16, 217, 21)
 
  $Button1 = GUICtrlCreateButton("Check Domain", 120, 48, 217, 25, 0)
 
  $Label2 = GUICtrlCreateLabel("Status:", 120, 80, 55, 24)
 
  GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
 
  $Label3 = GUICtrlCreateLabel("...", 176, 80, 16, 24)
 
  GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
 
  GUISetState(@SW_SHOW)
 
  
 
  
 
  While 1
 
      $nMsg = GUIGetMsg()
 
      Switch $nMsg
 
          Case $GUI_EVENT_CLOSE
 
              Exit
 
              
 
          Case $Button1
 
              $sDomain = GUICtrlRead($Input1)
 
              $sLink = "http://www.whois.net/whois_new.cgi?d=" & $sDomain
 
              $oIE = _IECreate($sLink, 0,0)
 
              _IENavigate($oIE, $sLink)
 
              _IELoadWait($oIE)
 
              
 
              $sCheck = _IEBodyReadHTML($oIE)
 
              
 
              If StringInStr($sCheck, "Available for you now!") Then
 
                  GUICtrlSetData($Label3, "Available")
 
              Else
 
                  GUICtrlSetData($Label3, "Unavailable")
 
              EndIf
 
  
 
      EndSwitch
 
  WEnd

I have a problem with this, for some reason it does not change the status.

Thanks..

Ant

Doesn't the site say

Your domain is available

and not

Available for you now

And don't you need

"http://www.whois.net/checkdomain/index.php?domain="&$sDomain & "tld=com"

Edited February 10, 2009 by martin

[Bru]

Noo,

And no.

Lol.

If you think, what if someone wants to search for a .org site. Or a .net site. Etc.

Not all sites are .com remember.

[martin]

Noo,

And no.

Lol.

If you think, what if someone wants to search for a .org site. Or a .net site. Etc.

Not all sites are .com remember.

No, don't be daft. I don't mean that it has to be com I mean you didn't have anything there, com or org or net so I was giving an example.

If I go here you will see that the text is as I said and not as your script is expecting, so what do you base your "Noo" on?

[Bru]

Ahh yes i see what you mean now.

And, hmm. When i checked it it said Available for you now.

Strangeee :S.

[Bru]

Bump.

Sorry but i would love to make this work.

Thanks for any help! : )

Ant