Ho cercato in giro, ma non ho capito cosa serve per gestire questo tipo di file!
Che sia un servizio che ho disattivo nel sistema?
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, g, con
Dim itemtype
Message = "Per funzionare bene questo script chiuderà" & vbCR
Message = Message & "e riaprirà la shell di Windows Explorer." & vbCR
Message = Message & "Questo non danneggerà il tuo computer." & vbCR & vbCR
Message = Message & "Continuo (Si/No)?"
X = MsgBox(Message, vbYesNo, "Avviso")
If X = 6 Then
On Error Resume Next
p1 = "HKEY_CURRENT_USER\Control Panel\International\sTimeFormat"
t = "Utilità per modifica formato orario di Windows"
con = InputBox("Inserisci una scritta e il formato dell'ora e premi Ok" & vbcr & vbcr & "Nella scritta non è possibile usare le lettere H,h,m,s,t" & vbcr & vbcr & "L'ora può essere nel formato hh.mm.ss HH-mm-ss", t, n)
If con <> "" Then
ws.RegWrite p1 , con
End If
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finito." & vbcr & vbcr & "by MegaLab.it", 4096+64, "Avviso"
Else
MsgBox "Nessun cambiamento è stato fatto." & vbcr & vbcr & "by MegaLab.it", 4096+48, "Interrotto dall'utente"
End If
Option Explicit
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips"
itemtype = "REG_DWORD"
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum <> 1 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("I balloon tips sono abilitati", 64, "Visualizza o nascondi i balloon tips")
End If
If n = 1 Then
WshShell.Regwrite p, 0, itemtype
MyBox = MsgBox("I balloon tips sono disabilitati", 64, "Visualizza o nascondi i balloon tips")
End If
Set WshShell = Nothing
Visitano il forum: Nessuno e 14 ospiti
megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising