 |
|
|
| Autor |
Mesaj |
HackerX
Administrator
Data inscrierii: 20/Aug/2007
Mesaje: 195
|
 Trimis: 20/08/2007 16:10 Titlul subiectului: Tutorial VBScript |
 |
|
| Cod: | 1.
MsgBox ("prompt",1,"title")
* msgbox Functia care afiseaza mesajul
* prompt Ce apare in mesaj
* 1 Nr si tipul butoanelor (vezi mai jos)
* title Titlul mesajului
=>BUTTONS<=
Mesage box poate reda una din functiile
1 = vbOK OK was clicked
2 = vbCancel Cancel was clicked
3 = vbAbort Abort was clicked
4 = vbRetry Retry was clicked
5 = vbIgnore Ignore was clicked
6 = vbYes Yes was clicked
7 = vbNo No was clicked
Mesage box suporta butoanele
0 = OK (valoarea initiala)
1 = OK si Cancel
2 = Abort, Retry, si Ignore
3 = Yes, No, si Cance
4 = Yes si No buttons
5 = Retry si Cancel
16 = Critical Message
32 = Warning Query
48 = Warning Message
64 = Information Message
0 = First button is default
256 = Second button is default
512 = Third button is default
768 = Fourth button is default
4096 = nici o aplicatie nu continua pana nu se raspunde la mesage box
2.
InputBox ("prompt","title","default","1000","1000","help.hlp",[context])
* inputbox Functia care afiseaza o casuta in care utilizatorul introduce ceva si asteapta
un raspuns
* prompt Ce apare in inputbox
* title titlul input boxului
* default valoare initiala (poate fi schimbata)
* 1000,1000 axa x si y (locul unde sa apara inputbox
* help.hlp adauga un buton "help" si cand dati click pe el acceseaza help.hlp (numele poate fi schimbat)
3.
(strReverse(sometext))
* "citeste" un text de la coada la cap
4.
int ("9,5")
* valoarea intreaga a lui 9,5
5.
hex ("99")
* afiseaza valoarea hex a lui 99
6.
cos ("90")
* afiseaza cos de 90 grade
7.
sin ("90")
* afiseaza sin de 90 grade
8.
tan ("90")
* afiseaza tangenta de 90 de grade
9.
atn ("90")
* afiseaja cotangenta de 90 de grade
10.
sqr ("81")
afiseaza radical din 81
11.
(FormatPercent(20100))
* afiseaza cat la % reprezinta 20 din 100
12.
ucase ("lowercase")
* o sa scrie "lowercase" cu litere mari
13.
lcase ("UPPERCASE")
* o sa scrie "UPPERCASE" cu litere mici
14.
("" & time())
* afiseaza ora hh:mm:ss ampm
15.
("" & WeekdayName(weekday(date)))
* afiseaza ziua
16.
("" & date())
* afiseaza data mmddyyyy
17.
("" &(Now))
* afizeaza si data si ora mmddyyyy hh:mm:ss ampm
18.
("" & (Year(Date)))
* afizeaza anul yyyy
19.
Int(100 * rnd())
* afiseaza un numar de la 0 la 100 luat la intamplare
20.
Set ws = CreateObject("WScript.Shell")
ws.regwrite "calea cheiinumele", "valoarea"
* scrie o anumita valoare in registri
21.
Dim wshshell
set wshshell = wscript.CreateObject("WScript.Shell")
Set ws = CreateObject("WScript.Shell")
wshshell.run "comanda dos"
* executa o comanda MSdos
22.
Set objComputer = CreateObject("Shell.LocalMachine")
objComputer.EnableGuest(1)
* activeaza userul "guest" pt dezactivare 1 cu 0
23.
millennium=cdate("112008 00:00:00")
msgbox ("" & DateDiff("m", Now(), millennium) & "")
* calculeaza cate luni mai sunt pana la data
specificata, pentru zile "d", pentru ore "h",
pentru minute "n" nu m, pentru secunde "s"
24.
acum sa explicam if x= y then.......................
if x = y then
msgbox ("x = y")
else
msgbox ("x non y")
if x = then
command
elseif x < y then
command2
elseif x > y then
command3
end if
^^ in loc de = putem pune > , < ^^
putem folosi si valorile unui "msgbox"
De exemplu la apasarea butonului ok sa arate "Ai apasat ok"
sa fel la cancel
ms=msgox ("Apasa un buton",1,"Title")
if ms = 1 then
msgbox ("Ai apasat ok")
else
msgbox ("Ai apasat cancel")
end if |
Acest tutorial este facut in totalitate de mine.
Astept intrebari. |
|
| Sus |
|
 |
remi
Data inscrierii: 04/Mai/2008
Mesaje: 2
|
| Trimis: 09/05/2008 23:05 Titlul subiectului: |
|
|
Identic AutoIT , vedeti p net cautati autoit si la help e tot :) E mult mai complex HF  |
|
| Sus |
|
|
|
|
Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
|
|
