Jump to content

Poll!  

11 members have voted

  1. 1. What do you want to change?

  2. 2. How do you think about the program?

    • Exellent!
    • Very Good!
    • Good!
    • Not Bad!
      0
    • Bad!
      0
    • Awful!!!
      0


Recommended Posts

Posted (edited)

I have tested it :

Posted Image

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 by logmein
  • 4 weeks later...
Posted (edited)

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 by logmein
Posted (edited)

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 by jaberwocky6669
Posted (edited)

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 by jaberwocky6669
  • 5 weeks later...
Posted

@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 :idea:

Cheers, FireFox.

Posted

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.

Posted (edited)

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 :

Posted Image

Posted Image

Edited by logmein

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
  • Recently Browsing   0 members

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