Sign in to follow this  
Followers 0
locomaestro

Anonymous Email Function?

1 post in this topic

i need help doing a function to send an anonymous email through this website but i dont really know how to use the IE functions am havin problems with it

in the html code it uses

<input type=text name=from size=50>

i dont know how to get the type i only know how to get the object by name so am havin trouble makin a function to work. the reason i want to do this function is because its more convenient , you can send an email from any address you want to ANY ADDRESS you want without havin a message sayin that this is a fake email, its more convenient than the fake_emailer function since it uses a different website that doesnt tell you its a fake email. anyways i would really appreciate if you could help me do this function

this is spyrorocks fake_email function but i want to make a better one

func fake_email($to, $from, $from_name, $subject, $message, $silent)

;==============================================

; For Use with IE.au3 version 2.0 !

; This code is (C) Brad Reddicopp 2006

;==============================================



$i = 1

$oIE = _IECreate ("http://www.fake-mailer.com/fmlite/", 0, 0)

; get pointers to the login form and username and password fields

$o_form = _IEFormGetCollection ($oIE, 0)

$o_name = _IEFormElementGetObjByName ($o_form, "name")

$o_to = _IEFormElementGetObjByName ($o_form, "to")

$o_subject = _IEFormElementGetObjByName ($o_form, "subject")

$o_from = _IEFormElementGetObjByName ($o_form, "from")

$o_message = _IEFormElementGetObjByName ($o_form, "message")



If @error = 1 Then 

if $silent = 1 then MsgBox(0, "Error","No connection")

return 0

EndIf



; Set field values and submit the form

_IEFormElementSetValue ($o_name, $from_name)

_IEFormElementSetValue ($o_to, $to)

_IEFormElementSetValue ($o_subject, $subject)

_IEFormElementSetValue ($o_from, $from)

_IEFormElementSetValue ($o_message, $message)

_IEFormSubmit ($o_form)



While $i = 1

If WinExists("Email was sent - Microsoft Internet Explorer") Then

$i = 0

ExitLoop

EndIf

If WinExists("http://www.fake-mailer.com/fmlite/sendMail.php") Then

WinKill("http://www.fake-mailer.com/fmlite/sendMail.php")

If $silent = 1 Then MsgBox(16, "Email Sender", "Error Sending Email")

$i = 0

Exit

EndIf

WEnd

If $silent = 1 Then MsgBox(64, "Email Sender", "Email Was Sent")

WinKill("Email was sent - Microsoft Internet Explorer")

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