Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

Modificare uno script vbs

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

Modificare uno script vbs

Messaggioda crazy.cat » ven lug 28, 2006 7:25 am

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"
Avatar utente
crazy.cat
MLI Hero
MLI Hero
 
Messaggi: 30959
Iscritto il: lun gen 12, 2004 1:38 pm
Località: Mestre

Messaggioda Robby78 » ven lug 28, 2006 8:27 am

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
Povera patria! Schiacciata dagli abusi del potere di gente infame, che non sa cos'è il pudore - Franco Battiato
ricordati di pensare! - mia mamma
Avatar utente
Robby78
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3829
Iscritto il: gio gen 08, 2004 5:25 pm
Località: Emilia Romagna


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

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