Sign in to follow this  
Followers 0
Synthesis

Hi5 Info Viewer

1 post in this topic

I'm back with another cool program.

With this new program, you can retrieve information about a user, even if they have hidden it (with CSS).

Version 1.0.0 (beta)

~First version : retrieves avatar and name

#include <GUIConstantsEx.au3>
#notrayicon
#include <inet.au3>
#include <string.au3>
#include <array.au3>

Opt('MustDeclareVars', 1)

Local $version, $ver

$version = "1.0.0"
if fileexists ("temp.txt") Then
    filedelete ("temp.txt")
endif
inetget ("http://hi5profilegenerator.webs.com/updates/info.txt","temp.txt")
fileopen ("temp.txt",1)
$ver = filereadline ("temp.txt",1)
fileclose ("temp.txt")
if $ver = $version Then
    hi5_info_viewer()
Else
    msgbox (64, "Newer version", "A newer version (" & $ver & ") was found" & @crlf & "" & @crlf & "Go to http://hi5profilegenerator.webs.com to get the latest version.")
    hi5_info_viewer()
endif


func hi5_info_viewer()
    Local $okbutton, $cancelbutton, $error, $page
    Local $msg, $link, $link2, $status, $src
    Local $profile_name, $avatar

    GUICreate("Hi5 Information Viewer BETA!", 500, 400)
    GUISetBkColor(0x0033CC)
    $status = guictrlcreatelabel ("Idle",0,382,500,20,0x1)
    guictrlsetcolor (-1, 0xffffff)
    GUICtrlCreateTab(10, 10, 480, 370)
    guictrlcreatetabitem ("Hi5 Info Viewer")
    guictrlcreatelabel ("Type the hi5 link below",0,100,500,20,0x1)
    $link = guictrlcreateinput ("",40,120,420,20,0x1)
    $okbutton = GUICtrlCreateButton("Go!", 120, 250, 70, 20)
    $cancelbutton = GUICtrlCreateButton("Cancel", 300, 250, 70, 20)
    guictrlcreatetabitem ("About")
    guictrlcreatelabel ("Hi5 Information Viewer",0,50,500,20,0x1)
    guictrlcreatelabel ("Created by Andrew Gaftoneanu",0,150,500,20,0x1)
    guictrlcreatelabel ("Version:" & $version,0,170,500,20,0x1)
    guictrlcreatelabel ("http://hi5profilegenerator.webs.com",0,190,500,20,0x1)
    guictrlcreatelabel ("Hi5 Information Viewer is a tool created by Andrew Gaftoneanu in AutoIT. It fetches all the " & @crlf & "information of a person from About Me, User Details and Interests. Also retrieves stats and the" & @crlf & "avatar.",0,300,500,60,0x1)

    GUISetState()

    While 1
        $msg = GUIGetMsg()


        Select
            
            Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
                ExitLoop

            Case $msg = $okbutton
                guictrlsetdata ($status, "Verifying if the link is valid...")
                $link2 = guictrlread ($link)
                $error = stringinstr ($link2, "hi5.com/friend/p")
                if $error=0 Then
                    sleep (1500)
                    guictrlsetdata ($status, "Invalid link provided")
                else
                    sleep (1500)
                    guictrlsetdata ($status, "The link is valid")
                    sleep (1500)
                    guictrlsetdata ($status, "Fetching profile information")
                    $src = _inetgetsource ($link2)
                    $profile_name = _stringbetween ($src,"<title>hi5 - ", "</title>")
                    $avatar = _stringbetween ($src,"<img src=","border=")
                    sleep (500)
                    guictrlsetdata ($status, "Creating page..")
                    if fileexists ($profile_name[0] & '.html') Then
                        filedelete ($profile_name[0] & '.html')
                    endif
                    $page = fileopen ($profile_name[0] & '.html',1)
                    filewrite ($page, '<html><style type="text/css">body {background-color: #3399FF;}ul {float:right;width:100%;padding:0;margin:0;list-style-type:none;}.link4 a {float:left;width:5.0em; text-decoration:none;padding:0.1em 0.1em;}li {display:inline}</style><head><title>' & $profile_name[0] & '</title></head><body><center><font size="5">Info about ' & $profile_name[0] & '</font><br><font size="3">Generated by Hi5 Information Viewer 1.0.0 by Andrew Gaftoneanu</font><br><br>' &  '<center><table border="0"><tr><td><center>--------------------------------------------------<br><h2>' & $profile_name[0] & "'" & 's avatar</h2></center><br><center><img src=' & $avatar[0] & ' width="200" height="200" title="' & $profile_name[0] & '"></center>' & "</td></tr><tr><td><center><br>" & '--------------------------------------------------</center><br><center><font size="4">© <a href="http://hi5profilegenerator.webs.com/info.html">Hi5 Information Viewer</a> by Andrew Gaftoneanu</font></center></body></html>')
                    fileclose ($page)
                    sleep (1500)
                    guictrlsetdata ($status, "File created : " & $profile_name[0] & '.html')
                endif
        EndSelect
    WEnd

    GUIDelete()

    Exit
    
endfunc

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