Sign in to follow this  
Followers 0
AutoitFaN1000

tri-web-access program

3 posts in this topic

#1 ·  Posted (edited)

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.

#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 by AutoitFaN1000

Share this post


Link to post
Share on other sites



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.

Share this post


Link to post
Share on other sites

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.. :P

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