Problema con file .vbs!

[ballacoilupi72]

Ho scaricato i due file vbs per aggiungere il testo vicino all'orologio e per disabilitare i ballon tips;ma quando vado a cliccarci sopra per aprirli direttamente da winrar mi compare un file di testo, se gli estraggo e poi ci clicco sopra invece mi da messaggio "impossibile aprire il file" con le opzioni di ricerca dell'applicazione necessaria ad aprirlo!
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?

[crazy.cat]

Con winzip si aprono benissimo in file.
Salvati i due file qui sotto con estensione .vbs

Questo è il file dell'orario

Codice: Seleziona tutto

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

Questo è quello dei palloncini.

Codice: Seleziona tutto

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

[ballacoilupi72]

come faccio a fare le modifiche?
devo modificare il file di testo?
la chiave del registro descritta nell'articolo dei palloncini nel mio sistema non c'è!
...non capisco scusa!

[crazy.cat]

Copi il testo che ho messo nei due box, apri con notepad un file di testo e lo incolli dentro, quando lo vai a salvare deve avere estensione .vbs e un nome qualsiasi.

[ballacoilupi72]

ok ho provato con il primo!
copiato e incollato su notepad, salvato con estensione .vbs ma il sistema mi dice che non ha l'applicazione per aprirlo!
il problema è proprio questo: quale applicazione dovrebbe aprire i vbs?

[crazy.cat]

Non hai Microsoft office installato?

Sono dei file visual basic script, io li apro con un doppio click sopra e applico le modifiche.

[ballacoilupi72]

ho office 2007!
provo a farli aprire da office? ma cosa di office?
Internet Explorer l'ho tolto con nlite! può dipendere da quello?
qualcosa non torna...

[ballacoilupi72]

i file .vbs non me li apre! Probabilmente nel mio sistema manca qualche applicazione!
Ho provato a togliere i palloncini agendo sulla chiave del registro,ma ho trovato solo la voce "StartButtonBallonTips" che è impostata sul valore 2!