Sign in to follow this  
Followers 0
Synthesis

Yahoo! Invisible Detector

1 post in this topic

#1 ·  Posted (edited)

I have written some days ago an invisible detector in php and I thought it's a good thing to make it also in AutoIT. The program doesn't do any damage to other servers.

How does it work?

It get's the source from a website and with _stringbetween command it gets the status : Online, Offline or Invisible.

Version 1.0

Options :

[+] Scan a Yahoo! ID

[+] Add the ID in Messenger List

[+] Send a message to ID

[+] See Yahoo! profile

[+] Visit website

Source :

#include <GUIConstantsEx.au3>
#include <Inet.au3>
#Include <string.au3>
#include <process.au3>
#NoTrayIcon


Opt('MustDeclareVars', 1)

    Local $okbutton, $about, $id, $n, $inv, $yprofile, $src
    Local $msg, $status, $id2, $avatar, $add, $send, $google, $stringbetween

    GUICreate("Yahoo! Invisible Detector 1.0", 300, 166)

    guictrlcreatelabel ("Yahoo! ID: ",10,20)
    $id = guictrlcreateinput ("",70,20,200,20)
    $okbutton = GUICtrlCreateButton("Scan", 50, 50, 70, 20)
    $about = GUICtrlCreateButton("About", 180, 50, 70, 20)
    $status = guictrlcreatelabel ("Status:Idle",0,145,300,20,0x1000)
    guictrlcreategroup ("Info",10,70,280,70)
    guictrlcreatelabel ("Status:",18,85)
    $inv = guictrlcreatelabel ("", 52,85,100,20)
    $add = guictrlcreatebutton ("Add in list",100,85,90,20)
    $send = guictrlcreatebutton ("Send something",100,110,90,20)
    $yprofile = guictrlcreatebutton ("Y! Profile",195,85,90,20)
    $google = guictrlcreatebutton ("Visit website",195,110,90,20)
    GUISetState()

    While 1
        $msg = GUIGetMsg()


        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
                
            case $msg = $add
                $id2 = guictrlread ($id)
                if $id2 = "" Then
                    guictrlsetdata ($status, "Error:No ID provided")
                Else
                    _rundos ("start ymsgr:addfriend?" & $id2)
                endif
                
            case $msg = $send
                $id2 = guictrlread ($id)
                if $id2 = "" Then
                    guictrlsetdata ($status, "Error:No ID provided")
                Else
                    _rundos ("start ymsgr:sendim?" & $id2)
                endif   

            case $msg = $yprofile
                $id2 = guictrlread ($id)
                if $id2 = "" Then
                    guictrlsetdata ($status, "Error:No ID provided")
                Else
                    _rundos ("start http://profiles.yahoo.com/" & $id2)
                endif   

            case $Msg = $google
                _rundos ("start www.google.com")

            Case $msg = $okbutton
                guictrlsetdata ($status, "Status:Verifying some resources..")
                $id2 = guictrlread ($id)
                if $id2 = "" Then
                    guictrlsetdata ($status, "Error:No ID provided")
                else
                    guictrlsetdata ($status, "Status:Scanning...")
                    $src = _inetgetsource ("http://www.4invisible.com/Default.aspx?yids=" & $id2)
                    $stringbetween = _stringbetween ($src, '<div id="p" title="', '" class=')
                    guictrlsetdata ($inv, $stringbetween[0])
                    guictrlsetdata ($status, "Status:Finished scanning")
                endif
            case $msg = $about
                msgbox (64,"About", "Yahoo! Invisible Detector 1.0" & @crlf & "Created by KaZo" & @crlf & "Date : 10/2/2009")

        EndSelect
    WEnd

    GUIDelete()

    Exit
Edited by KaZo

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0