Ctrl_alt_canc Corp.

Script

pics Backup Intelligenti (Batch)

rem Ctrlaltcanc Corp 
rem http://ctrlaltcanccorp.altervista.org/

rem Necessita di 7zip installato in 
rem C:\Programmi\7-Zip\7z.exe

@echo off



rem imposta la cartella da bekuppare per una rapida modifica (anche da un altro file batch)

set cartella=C:\test



rem Ottiene la data e l'ora

echo @prompt set date=$d$_set time=$t$h$h$h > {a}.bat

%comspec% /e:2048 /c {a}.bat > {b}.bat

for %%v in ({b}.bat del) do call %%v {?}.bat



rem filtra i caratteri della data,dove / non è ammesso nel nome cartella

set nuovadata=%date%

set nuovadata=%nuovadata:/=-%

set nuovadata=%nuovadata:/=-%



rem Imposta la riga di comando per bakuppare tutti i file (*) contenuti in "%cartella% (impostata prima) e

rem dandole come nome,la data e l'ora del backup

C:\Programmi\7-Zip\7z.exe a -tzip "%nuovadata%_%time%.zip" %cartella%\* -r -mx=9



rem creiamo anche un pratico file di log per la consultazione futura



echo File:   %cartella%     Data:
%nuovadata%     Ora: %time% >> LogBackup.txt

Log degli accessi (Vbs)

'Ctrlaltcanc
Corp. 

'http://ctrlaltcanccorp.altervista.org



Set GG = CreateObject( "WScript.Shell" )

user=GG.ExpandEnvironmentStrings("%UserName%")

comp=GG.ExpandEnvironmentStrings("%ComputerName%")


a = InputBox("Nome e cognome")

b = InputBox("Classe")

c = Now


Set unz = CreateObject("Scripting.FileSystemObject")

Set file = unz.OpenTextFile ("c:\Mieilog.txt", 8, True)


stringa = "" & a &" della " & b
&" ha acceduto al PC '"
& comp &"' il " & c &" con l'utente '"
& user
&"'"

    file.WriteLine(stringa)


MsgBox"buona permanenza!",vbInformation,"Avviso"

    


file.Close

Traduttore (Vbs)

' Ctrlaltcanc Corp 

'http://ctrlaltcanccorp.altervista.org/



On Error Resume Next

stringainput = inputbox("Inserisci una parola inglese da tradurre: ","")



If Trim(stringainput) = "" Then

 wscript.quit

Else



 url = "http://translate.google.com/translate_t?langpair=en|it&text=" & stringainput

 

 Set conness = CreateObject("MSXML2.XMLHTTP") 

 conness.Open "GET", url, FALSE

 conness.Send

 traduz = conness.ResponseText



 Function RegExpTest(patrn, strng)

    Dim regEx, Match, Matches    

    Set regEx = New RegExp    

    regEx.Pattern = patrn    

    regEx.IgnoreCase = True    

    regEx.Global = True   

    Set Matches = regEx.Execute(strng)    

    For Each Match in Matches    

       RegExpTest = Match.Value   

    Next

 End Function



 traduz = RegExpTest("<div id=result_box dir=ltr>[a-zA-Z]+</div>", traduz)



 traduz = replace(traduz, "<div id=result_box dir=ltr>", "")



 traduz = replace(traduz, "</div>", "")

 Dim aaa

set aaa   = CreateObject("Scripting.FileSystemObject")

Set uu = CreateObject("Wscript.Shell")



Wait 1, "Sto traducendo"



Sub Wait(Seconds, Message)

On Error Resume Next

Dim unz

If IsEmpty(unz) Then Set unz = CreateObject("wscript.shell")

unz.Popup Message, 1, "Attendere", 80000

End Sub

set aaa = nothing

 Msgbox  traduz,,"Traduzione:" 

End If