• Close
    • > > > SUGGESTION: send email with/without log and loot image to email at end of attack >

    Announcements
    Post your Java Libraries Here! Check out the official TBC wiki!

    Thread Rating:
    • 1 Vote(s) - 2 Average
    • 1
    • 2
    • 3
    • 4
    • 5
    SUGGESTION: send email with/without log and loot image to email at end of attack
    sardo Offline
    Donator
    *****
    Donators
    Posts: 4
    Threads: 1
    Joined: Feb 2015
    Reputation: 0
    #1
    02-25-2015, 06:41 AM (This post was last modified: 02-25-2015, 06:42 AM by sardo.)
    would be a good feature the ability to receive an email containing the log and screenshot at the end of each attack.
    Thanks, best regards
    Luca
    Find
    Reply
    promac Offline
    Banned
    Posts: 92
    Threads: 3
    Joined: Dec 2014
    #2
    02-25-2015, 07:27 AM
    Smtp Mailer That Supports Html And Attachments -> they have acces to this script , but u can do it much easier, dropbox folder Wink sync of folder Loot .. just an idea
    Website Find
    Reply
    b3n3tt3 Offline
    Junior Member
    **
    Verified Member
    Posts: 22
    Threads: 1
    Joined: Feb 2015
    Reputation: 0
    #3
    02-25-2015, 10:17 AM (This post was last modified: 02-25-2015, 10:18 AM by b3n3tt3.)
    Made this last week, I guess I'll share it to you then.

    ReturnHome.au3
    Code:
    ;Returns home when in battle, will take screenshot and check for gold/elixir change unless specified not to.
    #Include<file.au3>

    Func ReturnHome($TakeSS = 1, $GoldChangeCheck = True) ;Return main screen
            If $GoldChangeCheck = True Then
                If $checkKPower Or $checkQPower Then
                    If _Sleep(50000 - $delayActivateKQ) Then Return
                Else
                    If _Sleep(50000) Then Return
                EndIf
                While GoldElixirChange()
                    If _Sleep(1000) Then Return
                WEnd
            EndIf

            $checkKPower = False
            $checkQPower = False
            SetLog("Returning Home", $COLOR_BLUE)
            If $RunState = False Then Return
            Click(62, 519) ;Click Surrender
            If _Sleep(500) Then Return
            Click(512, 394) ;Click Confirm
            If _Sleep(2000) Then Return

             Local $Date = @MDAY & "." & @MON & "." & @YEAR
             Local $Time = @HOUR & "." & @MIN




              $SmtpServer = "smtp.gmail.com"              ; address for the smtp-server to use - REQUIRED
             $FromName = "John Doe"                      ; name from who the email was sent
             $FromAddress = "email@email.com"    ; address from where the mail should come
             $ToAddress = "email@email.com"      ; destination address of the email - REQUIRED
             $Subject = "An attack is made"                  ; subject from the email - can be anything you want it to be
             $Body = "time: " & @MDAY & "-" & @MON & "-" & @YEAR & " "  & @HOUR & ":" & @MIN & ":" & @SEC            ; the messagebody from the mail - can be left blank but then you get a blank mail
             $AttachFiles = $dirLoots & $Date & " at " & $Time & ".jpg;"                       ; the file you want to attach- leave blank if not needed
             $CcAddress = ""       ; address for cc - leave blank if not needed
             $BccAddress = ""     ; address for bcc - leave blank if not needed
             $Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
             $Username = "user"           ; username for the account used from where the mail gets sent - REQUIRED
             $Password = "pass"                  ; 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

    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")


    If $TakeSS = 1 Then
                SetLog("Taking snapshot of your loot", $COLOR_ORANGE)

                _CaptureRegion()
                _GDIPlus_ImageSaveToFile($hBitmap, $dirLoots & $Date & " at " & $Time & ".jpg")
                $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
    If @error Then
        MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
    EndIf
            EndIf


            If _Sleep(2000) Then Return
            Click(428, 544) ;Click Return Home Button

            Local $counter = 0
            While 1
                If _Sleep(2000) Then Return
                _CaptureRegion()
                If _ColorCheck(_GetPixelColor(284, 28), Hex(0x41B1CD, 6), 20) Then
                    _GUICtrlEdit_SetText($txtLog, "")
                    Return
                EndIf

                $counter += 1

                If $counter >= 50 Then
                    SetLog("Cannot return home.", $COLOR_RED)
                    checkMainScreen()
                    Return
                EndIf
             WEnd






          EndFunc   ;==>ReturnHome


    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
        Local $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])
    ;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
                If FileExists($S_Files2Attach[$x]) Then
                    ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                    $objEmail.AddAttachment($S_Files2Attach[$x])
                Else
                    ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                    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
        If Number($IPPort) = 0 then $IPPort = 25
        $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
        ; Set Email Importance
        Switch $s_Importance
            Case "High"
                $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
            Case "Normal"
                $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
            Case "Low"
                $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
        EndSwitch
        $objEmail.Fields.Update
        ; Sent the Message
        $objEmail.Send
        If @error Then
            SetError(2)
            Return $oMyRet[1]
        EndIf
        $objEmail=""
    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
    Find
    Reply
    sardo Offline
    Donator
    *****
    Donators
    Posts: 4
    Threads: 1
    Joined: Feb 2015
    Reputation: 0
    #4
    02-25-2015, 10:31 AM
    nice thanks!
    Find
    Reply
    promac Offline
    Banned
    Posts: 92
    Threads: 3
    Joined: Dec 2014
    #5
    02-25-2015, 10:36 AM
    (02-25-2015, 10:17 AM)b3n3tt3 Wrote:  Made this last week, I guess I'll share it to you then.

    ReturnHome.au3

    Code:
    ;Returns home when in battle, will take screenshot and check for gold/elixir change unless specified not to.
    #Include<file.au3>

    Func ReturnHome($TakeSS = 1, $GoldChangeCheck = True) ;Return main screen
    If $GoldChangeCheck = True Then
    If $checkKPower Or $checkQPower Then
    If _Sleep(50000 - $delayActivateKQ) Then Return
    Else
    If _Sleep(50000) Then Return
    EndIf
    While GoldElixirChange()
    If _Sleep(1000) Then Return
    WEnd
    EndIf

    $checkKPower = False
    $checkQPower = False
    SetLog("Returning Home", $COLOR_BLUE)
    If $RunState = False Then Return
    Click(62, 519) ;Click Surrender
    If _Sleep(500) Then Return
    Click(512, 394) ;Click Confirm
    If _Sleep(2000) Then Return

    Local $Date = @MDAY & "." & @MON & "." & @YEAR
    Local $Time = @HOUR & "." & @MIN




     $SmtpServer = "smtp.gmail.com"              ; address for the smtp-server to use - REQUIRED
    $FromName = "John Doe"                      ; name from who the email was sent
    $FromAddress = "email@email.com"    ; address from where the mail should come
    $ToAddress = "email@email.com"      ; destination address of the email - REQUIRED
    $Subject = "An attack is made"                  ; subject from the email - can be anything you want it to be
    $Body = "time: " & @MDAY & "-" & @MON & "-" & @YEAR & " "  & @HOUR & ":" & @MIN & ":" & @SEC            ; the messagebody from the mail - can be left blank but then you get a blank mail
    $AttachFiles = $dirLoots & $Date & " at " & $Time & ".jpg;"                       ; the file you want to attach- leave blank if not needed
    $CcAddress = ""       ; address for cc - leave blank if not needed
    $BccAddress = ""     ; address for bcc - leave blank if not needed
    $Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
    $Username = "user"           ; username for the account used from where the mail gets sent - REQUIRED
    $Password = "pass"                  ; 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

    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")


    If $TakeSS = 1 Then
    SetLog("Taking snapshot of your loot", $COLOR_ORANGE)

    _CaptureRegion()
    _GDIPlus_ImageSaveToFile($hBitmap, $dirLoots & $Date & " at " & $Time & ".jpg")
    $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
    If @error Then
       MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
    EndIf
    EndIf


    If _Sleep(2000) Then Return
    Click(428, 544) ;Click Return Home Button

    Local $counter = 0
    While 1
    If _Sleep(2000) Then Return
    _CaptureRegion()
    If _ColorCheck(_GetPixelColor(284, 28), Hex(0x41B1CD, 6), 20) Then
    _GUICtrlEdit_SetText($txtLog, "")
    Return
    EndIf

    $counter += 1

    If $counter >= 50 Then
    SetLog("Cannot return home.", $COLOR_RED)
    checkMainScreen()
    Return
    EndIf
    WEnd






     EndFunc   ;==>ReturnHome


    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
       Local $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])
    ;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
               If FileExists($S_Files2Attach[$x]) Then
                   ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                   $objEmail.AddAttachment($S_Files2Attach[$x])
               Else
                   ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                   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
       If Number($IPPort) = 0 then $IPPort = 25
       $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
       ; Set Email Importance
       Switch $s_Importance
           Case "High"
               $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
           Case "Normal"
               $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
           Case "Low"
               $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
       EndSwitch
       $objEmail.Fields.Update
       ; Sent the Message
       $objEmail.Send
       If @error Then
           SetError(2)
           Return $oMyRet[1]
       EndIf
       $objEmail=""
    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

    great , already tested?
    Website Find
    Reply
    bushido-21 Offline
    Banned
    Posts: 136
    Threads: 5
    Joined: Dec 2014
    #6
    02-25-2015, 11:11 AM
    nice thanks
    Find
    Reply
    b3n3tt3 Offline
    Junior Member
    **
    Verified Member
    Posts: 22
    Threads: 1
    Joined: Feb 2015
    Reputation: 0
    #7
    02-25-2015, 01:37 PM
    It should work since it works for me and i got it from autoit forums
    Find
    Reply
    promac Offline
    Banned
    Posts: 92
    Threads: 3
    Joined: Dec 2014
    #8
    02-25-2015, 07:13 PM
    100% working Wink
    Website Find
    Reply
     


    Forum Jump:


    Users browsing this thread: 1 Guest(s)

    About The Bytecode Club

    We're a community focused on Reverse Engineering, we try to target Java/Android but we also include other langauges/platforms. We pride ourselves in supporting and free and open sourced applications.

    TBC Tools

    Resources

    Website

    Powered By MyBB, © 2002-2024 MyBB Group.