Modificare uno script vbs

[crazy.cat]

Non conosco niente di programmazione, quindi non andate troppo sul difficile.
E' possibile personalizzare uno script del genere cambiando magari i colori del box, oppure i font delle scritte, se si può inserire qualche altro comando particolare (un simbolo strano per esempio) vanno bene pure quelli.
Grazie

Codice: Seleziona tutto

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, p2, n, g, con, cg
Dim itemtype

p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\"

n = ws.RegRead(p1 & "RegisteredOwner")
g = ws.RegRead(p1 & "RegisteredOrganization")
t = "Utilità per il cambio nome e società di Windows"
con = InputBox("Inserisci il nuovo proprietario e premi Ok", t, n)
If con <> "" Then
  ws.RegWrite p1 & "RegisteredOwner", con
End If

cg = InputBox("Inserisci la nuova società e premi OK.", t, g)
If cg <> "" Then
  ws.RegWrite p1 & "RegisteredOrganization", cg
End If

MsgBox "Cambio dati effettuato." & vbcr & vbcr & "by MegaLab.it", 4096, "Finito"

[Robby78]

nella funzione InputBox puoi cambiare soltanto la posizione (per il carattere usa le impostazioni di sistema).

Sintassi:
InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])

Nella funzione MsgBox invece puoi decidere quali pulsanti usare ed eventualmente una immagine tipo il ! o il ?

Sintassi:
MsgBox(prompt[, buttons][, title][, helpfile, context])

Per modificare i pulsanti o l'icona a lato inserisci al posto di 4096:

Codice: Seleziona tutto

0 Display OK button only.
1 Display OK and Cancel buttons.
2 Display Abort, Retry, and Ignore buttons.
3 Display Yes, No, and Cancel buttons.
4 Display Yes and No buttons.
5 Display Retry and Cancel buttons.
16 Display Critical Message icon. 
32 Display Warning Query icon.
48 Display Warning Message icon.
64 Display Information Message icon.
0 First button is default.
256 Second button is default.
512 Third button is default.
768 Fourth button is default.
0 Application modal; the user must respond to the message box before continuing work in the current application.
4096 System modal; all applications are suspended until the user responds to the message box.


se vuoi usare + di una di queste caratteristiche usa il +; ad esempio
se vuoi il pulsante Ok e Cancel e anche l'icona di avvertimenti ci scrivi 1 + 32

Puoi sapere il tasto premuto controllando il valore di ritorno es.

Codice: Seleziona tutto

Dim Ret as integer

ret = msgbox ("Premi Ok o Cancel",1)

if ret = 2 then
   'E' stato premuto Cancel
end if


I valori di ritorno sono:

1 OK
2 Cancel
3 Abort
4 Retry
5 Ignore
6 Yes
7 No