Sign in to follow this  
Followers 0

detected as virus

9 posts in this topic

Posted

I wrote a really simple tool (noobie XD)and AntiVir marks it as a trojan.

Can u tell me why ? (maybe it's the shutdown function)

Any other suggestions welcome.

;time saver v 2.0 by zentral
Dim $delay =200 , $set=0

TrayTip("Time saver","Ready !"&@CRLF&"Please choose a time option." , 10, 1)
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
$1item = TrayCreateItem("15 min")
TrayItemSetOnEvent(-1,"_15")
$1item = TrayCreateItem("30 min")
TrayItemSetOnEvent(-1,"_30")
$2item = TrayCreateItem("60 min")
TrayItemSetOnEvent(-1,"_60")
$setitem = TrayCreateItem("Custom")
TrayItemSetOnEvent(-1,"_custom")
TrayCreateItem("")
$aboutitem = TrayCreateItem("About")
TrayItemSetOnEvent(-1,"_about")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"ExitScript")
TraySetState(4)

while 1 
    if $set= 1 then 
        Sleep($delay)
        _stop()
    EndIf
WEnd

Func _15()
    $delay = 900000
    TrayTip("Time saver", "15 minutes."&@CRLF&"Started at"&@HOUR&":"&@MIN&":"&@SEC, 10, 1)
    TraySetState(8)
    $set=1
EndFunc

Func _30()
    $delay = 1800000
    TrayTip("Time saver", "30 minutes."&@CRLF&"Started at"&@HOUR&":"&@MIN&":"&@SEC, 10, 1)
    TraySetState(8)
    $set=1
EndFunc

Func _60()
    $delay = 3600000
    TrayTip("Time saver", "60 minutes."&@CRLF&"Started at"&@HOUR&":"&@MIN&":"&@SEC, 10, 1)
    TraySetState(8)
    $set=1
EndFunc

Func _custom()
    Do
    $time= InputBox("Time saver","How much time ? (minutes)")
    Until $time>0
    $delay = $time*60000
    TrayTip("Time saver",$time&" minutes"&@CRLF&"Started at"&@HOUR&":"&@MIN&":"&@SEC, 10, 1)
    TraySetState(8)
    $set=1
EndFunc

func _stop()
    Beep(500,500)
$m=msgbox(276,"Time saver _ WARNING!","Time expired ... system shutdown"&@CRLF&"Are you doing something important?",300000)
if $m=7 or $m=-1 then
    msgbox(64,"Time saver","5 seconds to shutdown...",5)
    shutdown(0) 
    Exit
else
    msgbox(64,"Time saver","You got 15 more min.")
    sleep(900000)
    Beep(500,500)
    msgbox(16,"Time saver _ WARNING!","Time expired ... system shutdown",5)
    shutdown(0) 
    Exit
EndIf
EndFunc

Func _about()
    TrayTip("Time saver", "by "&@CRLF&"Please visit AutoIt website.", 10, 1)
EndFunc

Func exitscript()
    Exit
EndFunc

Share this post


Link to post
Share on other sites



Posted

zentral,

Please read the Sticky topic "Are my Autoit EXES really infected?" about 2 cms above yours! :mellow:

M23

Share this post


Link to post
Share on other sites

Posted (edited)

zentral,

Please read the Sticky topic "Are my Autoit EXES really infected?" about 2 cms above yours! :mellow:

M23

Damn i wrote an useless post :( .

i'm really sry... Btw any suggestions about the script?

Edited by zentral

Share this post


Link to post
Share on other sites

Posted

zentral,

Damn useless post

If you mean yours, I quite agree! :mellow:

As to your script, I would change it to allow for a "Cancel" button in the MsgBox and then only shut down if the user presses OK or the timeout occurs. Otherwise you are a bit stuck if you change your mind at the last second!

M23

Share this post


Link to post
Share on other sites

Posted (edited)

I would change the contents of your While 1 loop. With OnEventMode (or TrayOnEventMode), I only use a loop to keep the script running, but don't execute commands in it. Also, all the different functions are not required and imo not very pretty.

I would do it like:

$1 = TrayCreateItem("15 min")
TrayItemSetOnEvent(-1,"_setDelay")
$2 = TrayCreateItem("30 min")
TrayItemSetOnEvent(-1,"_setDelay")
$3 = TrayCreateItem("60 min")
TrayItemSetOnEvent(-1,"_setDelay")

While True ; Forever
    Sleep(100) ; Wait for events
WEnd

Func _setDelay()
    Switch @GUI_CTRLID
    Case $1 ; 15 min
         $tip = 15
         $delay = 900000
    Case $2 ; 30 min
         $tip = 30
         $delay = 1800000
    Case $3 ; 60 min
         $tip = 60
         $delay = 3600000
    EndSwitch
    TrayTip("Time saver", $tip & " minutes."&@CRLF&"Started at"&@HOUR&":"&@MIN&":"&@SEC, 10, 1)
    TraySetState(8)
    Sleep($delay)
    _stop()
EndFunc
Edited by dani

Share this post


Link to post
Share on other sites

Posted

Damn useless post.

i'm really sry... Btw any suggestions about the script?

Not useless. It answers your question.

Share this post


Link to post
Share on other sites

Posted

Not useless. It answers your question.

Clearly he means his own post, not M23's :mellow:

Share this post


Link to post
Share on other sites

Posted (edited)

Yes, i mean my own post

Thanks you all.

p.s.: dani thx for your script. Obviously i have a lot to learn.

Edited by zentral

Share this post


Link to post
Share on other sites

Posted

Topic closed.

Start a new topic with valid title when you still have autoit3 questions

Share this post


Link to post
Share on other sites
This topic is now closed to further replies.
Sign in to follow this  
Followers 0

  • Recently Browsing   0 members

    No registered users viewing this page.