Total USB Security

[FranckGr]

I has fixed the program. Thanks for your feedback!

Still ...

[logmein]

I have tested it :

Tell me what is the program's Date Created. (The current was : 3/28/2010 10:03 AM) or you can redownload it here : http://usbsecurity.ucoz.org/Total_USB_Security.exe

Edited March 29, 2010 by logmein

[logmein]

The source released!. See first post!

Download this archive and put files in : @WindowsDir & '\Total USB Security'.

http://www.mediafire.com/?zoj4oniuyg2

Some variables in the script is named randomize or by Vietnamese so it quite difficult to understand. Sorry!

Edited April 23, 2010 by logmein

[jaberwacky]

The source released!. Get it!(Direct)

Some variables in the script is named randomize or by Vietnamese so it quite difficult to understand. Sorry!

And the ini, lng, etc we'll need to compile it too...

[jaberwacky]

The source released!. Get it!(Direct)

Download this archive and put files in : @WindowsDir & '\Total USB Security'.

http://www.mediafire.com/?zoj4oniuyg2

Some variables in the script is named randomize or by Vietnamese so it quite difficult to understand. Sorry!

Note : Please remove the line : 743

In this function _getlanguagefile(), you have FileClose($hdl) after the return statement. After I switched them around then the program stopped saying error all over the place!

Func _getlanguagefile()
    Local $list

    $hdl = FileFindFirstFile($installdir & '\Languages\*.lng')

    If $hdl = -1 Then
        FileInstall('C:\Program Files\Total USB Security\Languages\English.lng', $installdir & '\Languages\English.lng')
    EndIf

    If Not _loadini('Language') = 'error' Then
        _writeini('Language', 'English')
    EndIf

    While 1
        $file = FileFindNextFile($hdl)
        If @error Then ExitLoop
        $list &= $file & '|'
    WEnd
 
    FileClose($hdl)

    ConsoleWrite($list & @CRLF)

    Return $list
EndFunc ;==>_getlanguagefile

Edited April 23, 2010 by jaberwocky6669

[logmein]

Are you get 'error' all over the place? Please download and install this package in @WindowsDir & '\Total USB Security' first!

http://www.mediafire.com/?zoj4oniuyg2

[jaberwacky]

Are you get 'error' all over the place? Please download and install this package in @WindowsDir & '\Total USB Security' first!

http://www.mediafire.com/?zoj4oniuyg2

Right, I got all of that in the correct folder. I was getting 'error' on all of the buttons until I modified the above mentioned function.Now I don't know how that could have been causing the error but anyways, there ya go.

Edited April 23, 2010 by jaberwocky6669

[logmein]

To : i542

This is only a small program. It may have many of bugs. Don't trust it 100%!

[FireFox]

@logmein

Nice work! I will take a look at it and I will give you feed back about the french language and compatibility with win7

Cheers, FireFox.

[logmein]

VERSION 2.2.2.0 RELEASED! SEE FIRST POST!

Special Thanks to Firefox!

Edited May 24, 2010 by logmein

[jaberwacky]

Why doesn't this support Windows Seven? I removed this code:

If @OSVersion <> 'WIN_XP' Then
    If @OSVersion <> 'WIN_2003' Then
        If @OSVersion <> 'WIN_2000' Then
            If @OSVersion <> 'WIN_2003' Then
                MsgBox(16, $programtitle, 'Total USB Security doesn''t support this OS!')
                Exit
            EndIf
        EndIf
    EndIf
EndIf

And the program runs fine. Granted, I do not have a USB with any autoruns on it but it does run on 7.

[logmein]

Thanks about the feedback. I've not tested it on Windows 7 so I think It's better than change code snippet to this :

If @OSVersion <> 'WIN_XP' Then
    If @OSVersion <> 'WIN_2003' Then
        If @OSVersion <> 'WIN_2000' Then
            If @OSVersion <> 'WIN_2008' Then
                MsgBox (16,$programtitle,'Total USB Security did not tested on this OS. It may cause system crash!')
            EndIf
        EndIf
    EndIf
EndIf

Note : I'm going to build a new version 3.0 with a lot of new features. Pre-beta screenshots :

Edited May 25, 2010 by logmein