locomaestro Posted January 20, 2007 Share Posted January 20, 2007 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 expandcollapse popupfunc 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now