tri-web-access program

[AutoitFaN1000]

It is a program to acess the internet, and to get your e-mail if you use hot mail, if not you can modify the

Send( "www.hotmail.com" )

to fit your needs.

expandcollapse popup

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\scite\koda\forms\e-mail.kxf
$Form1_1 = GUICreate("Form1", 633, 447, 196, 127)
$Label1 = GUICtrlCreateLabel("Hello kind person, what would you like to do?", 176, 56, 308, 21)
GUICtrlSetFont(-1, 11, 800, 2, "Roman")
$Button1 = GUICtrlCreateButton("Access my e-mail", 56, 128, 161, 41, 0)
$Label2 = GUICtrlCreateLabel("And what might your e-mail address be?", 48, 176, 191, 17)
$Input1 = GUICtrlCreateInput("E-mail Address", 72, 200, 145, 21)
$Label3 = GUICtrlCreateLabel("And your password? Don't worry, i won't give it away.", 40, 240, 254, 17)
$Input2 = GUICtrlCreateInput("Password", 80, 272, 145, 21)
$Acsessweb = GUICtrlCreateButton("Access the web", 352, 120, 161, 41, 0)
$Address = GUICtrlCreateInput("Address", 360, 200, 145, 21)
$Label4 = GUICtrlCreateLabel("And what, pray, is the web address?", 352, 176, 175, 17)
$Label5 = GUICtrlCreateLabel("Please use if you would like to search via google", 176, 368, 233, 25)
$Google = GUICtrlCreateButton("Google", 200, 312, 193, 41, 0)
$Search = GUICtrlCreateInput("Search for...", 208, 408, 177, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    if $nMsg = $Button1 Then
        Msgbox(4, "E-mail address", GUICtrlRead($Input1))
        MouseClick( "left" ,45, 845 ,1 )
        MouseClick( "left" ,65, 389 )
        Mouseclick( "left" ,256, 68 )
        Send( "www.hotmail.com" )
        MouseClick( "left", 880, 65 )
        Sleep( 5000 )
        MouseClick( "left", 757, 538 )
        Sleep(3000)
        Send( GUICtrlRead($Input1))
        MouseClick( "left", 728, 504 )
        Send( GUICtrlRead($Input2))
        MouseClick("left", 751, 607 )
        Sleep ( 3000 )
        MouseClick( "left", 78, 278)
        Msgbox(0, "Done!", "Tadaaaa, Thank you for useing your very own, custon made e-mail acsess program, coppy wright 2007 Shearer Inc. All rights reserved.", 10 )
    EndIf
    if $nMsg = $Acsessweb Then
        Msgbox(4, "Address", GUICtrlRead($Address))
        MouseClick( "left" ,45, 845 ,1 )
        MouseClick( "left" ,65, 389 )
        Sleep( 7000 )
        Mouseclick( "left" ,256, 68 )
        Send(GUICtrlRead($Address))
        MouseClick( "left", 880, 65 )
    EndIf
    If $nMsg = $Google Then
        MouseClick( "left" ,45, 845 ,1 )
        MouseClick( "left" ,65, 389 )
        Sleep(7000)
        MouseClick( "left", 941, 65 )
        Send(GUICtrlRead($Search))
        MouseClick( "left", 1131, 63 )
    EndIf       
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Also, if you don't have a computewr with the same display settings as mine... just edit this to fit. Since i am fairly new to autoit... i am stuck with mouseclick() since i don't know the exe name of firfox. Hope you like it.

Edited December 23, 2007 by AutoitFaN1000

[Heroic]

Okay, just something that you should know.

When people have different resolutions, mouse co ordinatants doesn't usually work. But seeing that you told us to change it to our needs if needed will properly take longer than to program it to read whats on the web and function with it.

Start practising with

#include <IE.au3>

and all the _IE commands.

[gseller]

So this is just a recorded macro from your pc. Good effort ... As stated above chckout the helpfile and try the samples. Really neat learning stuff in there to show you how to do what your macro is doing with out the mouse movents and works for almost everyone..