��� ������� �������� ��������� ������
� MSIE 4.x!
� ����� ������ ���� ���������� ����
��������!
�����������.
� �� �������, ���� ������ ������ (BASIC - Begginners Allpurpose Symbolic Instruction Code, �.� ������������� ��������� ������������� ��� ��� ����������� :) ����� ������� ������ ����������������. ���� ��� ��������� �����, ��������� ����� ������ ����������� �� �����������. ���� ������� ���� ���� ���������������� �������� ������ ����� � ������� 1963 ����. ������ ����� ��������� ������� ��������� ���������� ����� ������������ �������� ��� ������ ������������ ���������� ��. ������ � ���� ����������� ����� ������ ������ ����� �����. � �� �����, ������ �������, ������ ���� �������������� ����� Fortran, Cobol, Algol, PL/1, Focal � Pascal. �� ���, �� ���������� ������� ������, ������� ���� ������� � ������, ������ ����������� ��� ����.
��� ��� �� ���������� ��� ���� ����������� Microsoft, �� ������ ��� �������� �������������� �������� ��������������� ������� (�������� Quick Basic). �� ����� ����� ������ �� ��� ���� �������, ��� �� Turbo Bacic �������� Borland, ������� ����� �������� �� ����� C++. ������������ "�������������" PC �����������, �������� � ���������� ������ ������� ��� Windows ����������. ����� ������ � 1991 ���� ���� Visual Basic, ����������� ��������� ��������� ���������� ���������, �������� ���������� ������. �� ��� ��, �� ����� ������, �� �� �������� Visual Basic ����� ���� ������� ��� �� �� � Java. � ���������� ��������� ���� Internet, � ����� HTML ����� ��������� �������� �������� ���������� �� ��� ���������. ������������ ������ ��� ���� ����� ��� Java Script. ��, ������ ���. ����� ���� ������ Microsoft Internet Explorer 3.0, � ���, ������ ��������� Java script ��������� � ��������� Visual Basic Scripting Edition, ��� ������ VBscript. ��� ��������, JavaScript ��� ���������� Netscape � �������� ���� �������� ��� LiveScript. ����� ������ ������ Java, Netscape ������������� ��� � JavaScript, ����� �������� �������� �� Sun. Microsoft �������������� ����������� JScript ��� ������ ��������, �� ��� ������ ���� �� �������� �������������� � Sun.
����� Java, MSIE3.0 (� ����), ����� ��� � ��������� ��������� �� VBScript. Netscape Navigator �� ������������ ���� (�������, ��� ����) VBScript, ������� ���� ���� �� ����� ������ �����������, � ������ ���� �� ��������. � ����, �������� �������� ������ �� ������� QB ���������� ������, � �� � ������, ����� ������� �� VBscript � ��������� �������� �������� ��� ��������, �� ��� �� ���������� ��������� � JavaScript � ���� �� ������ ������������� ��. �������, ���� � �������� �������� � �������, �� ������� VBScript ����� ��� ������. � ���� ������ � ��������� ���������� ������ VBScript, �� �������� � ��������. ��� ����, ������ �������������� �������� ������������ � ���������� Web����������. ��� � ��� �� �������:) ������.
C�������� VBScript � JavaScript.
������ ��� �������� ��������� VBScript, ������� ������� ��� ����������, ������� ��������� �� JS � VBS. ��� ����� �������� ��� ���, ��� ����� JavaScript (� ���� � �� ��������:(.
���� ���������: ������ ����� � ������� ����, �������� ������ "�����������" � ����� ���������� � ������ ����.
| Java Script | VB Script |
| <FORM NAME=forma> <INPUT TYPE="text" NAME="text1"><BR> <INPUT TYPE="text" NAME="text2"><BR> <INPUT TYPE="button" NAME="knopka" VALUE="�����������" OnClick=copyfun()> </FORM> <SCRIPT LANGUAGE="JavaScript"> function copyfun() </SCRIPT> |
<FORM NAME=forma> <INPUT TYPE="text" NAME="text1"><BR> <INPUT TYPE="text" NAME="text2"><BR> <INPUT TYPE="button" NAME="knopka" VALUE="�����������" OnClick=copyfun()> </FORM> <SCRIPT LANGUAGE="VBScript"> sub copyfun </SCRIPT> |
��, ��� �����, �������� ����������� ���. JS ������������ ������ �������, VBS � ������� � ��������� (������������). ��� �� ������� ��������, ��� VBS ������� �� JS �� ������������ � �������� ��������, �.�. ��� ���� ��� copyfun(), ��� CoPYfuN() - ���� ���:). ��� ��� ������ ������� ������, ���, ��� ����� ��� ������, ����� ����� ������� VBS, � ��� ��� �� ����� ���� �� ���� �� ������� ����� ��� �����, ��������� ������������� �� ��������. ������� ����� �� ��������, ������� ���������� �� ����� ��������� ��������. � �������, ��� �� ���� �� ������ ������ ��������� �� ������������ ������� (QB ��� TB)? ����� ��� ������ ������ ��� ���.
�� QuickBasic �� VBscript - ���� ���.
������ �������� �� ����������� ��������. ������ ������� ��� ����� ���������, ��������� �� ����� ������ "������ ����� :)" �� �� ��������� ��������� ������� "������������" ��������� - �� VBscript, ����� �������� - ��� ����� ���� ����� ������.
�������� ������, �������� ���������, ������� �� ��������� ������� ���������� ����� �� 1 �� 100, � ���������� ��� ��� �������. ��� ������������ �������������, ��������� ������ �������� ��������� � ���, ������ ���������� ����� ��� ������. ������� ������� �������. � ������ ������ ��������� ������������.��������� �� ������� �������:
10 CLS : RANDOMIZE
20 a = INT ( RND(1)*100+1 ) : p = 1
30 PRINT "�������� ����� �� 1 �� 100, �������� ���:)"
40 PRINT "��� �������";
50 INPUT v
60 IF a > v THEN PRINT "���������� ����� ������" :
p = p + 1 : GOTO 40
70 IF a
��� ������, ����� ��������� ����� �� ���� �� ��0010:) � ���� ������� ����������� ��������� GOTO (���������, �� ��� ��� ������?). ��� ��� ��� �� ��������, ����� ��������:
10 ������� ������ � ��������� ���������� ��������� �����. 20 ���������� "a" ������������� ����� ��������� �������� �� 1 �� 100, �������� ����� ������� ������������� ��������=1. 30, 40 ��������� ���������. 50 ���� ������ �������� "v". 60 ���� ���������� ����� ������ ������ ��������, �� ��������� ���������, �� ������� ������������� ������� ������� � ��������� ������������ �� ������ 40. 70 ���� ���������� ����� ������ ������ ��������, �� ��������� ���������, �� ������� ������������� ������� ������� � ��������� ������������ �� ������ 40. 80 ���� ����� �������� �� ��������� ������������, ������, �� ����, �������� ����� ������� ����� � ��������. 90 THE END
��� �������� �������� �� ������ ���������� ����� ��������� �������� ���:
<html>
<head>
<title>������ �����</title>
</head>
<body bgcolor="white" text="black">
< ... html ��� ����� �������������� � VB ���������� ... >
<script language="VBscript">
... ��� ��������� ...
</script>
</body>
</html>
����, ������� ��������� ����������� �������� ������� � ������� VBscript
������� �� ������ "�������� �����" � �������� ���:)
��� ���������:
<FORM NAME=ugadai>
<INPUT TYPE="button" NAME="begin" VALUE="��������
�����"><BR><BR>
��� �������:<BR>
<INPUT TYPE="text" NAME="chislo"> <BR>
<INPUT TYPE="button" NAME="but" VALUE="Enter">
</FORM>
<!--************************* ������ �����
******************************-->
<script language="vbscript"><!--
dim a ' ���������� ���������� dim p dim v sub begin_onclick ' ��������� ������������� ��� ������� (������� onclick) ' ������ � ������ begin randomize ' ��������� ���������� ��������� ����� a=int(rnd(1)*100+1) ' ������������ ���������� (a) ���������� �������� p = 1 ' ��������� �������� alert "����� ��������" ' ����� ��������� � ��������� ���� end sub ' ����� ��������� sub but_onclick ' ��������� ������������� ��� ������� (������� onclick) ������ � ������ but v = document.ugadai.chislo.value ' ���������� (v) ������������� �������� ' ������������ � ���� ����� ����� ' ����: �������� (������ ��� html ��������).����� � ������ ugadai. ' ������- ���� ��� ����� � ������ chislo. �������� value v=cint(v) ' ��������� ���� ��� ����� �������� ��������� ' ����������, �� ���������� (v) ���� �������- ' ������ � ������������� ��� (������� cint) if a > v then alert "���������� ����� ������, ���������� ���" p = p + 1 end if if a < v then alert "���������� ����� ������, ���������� ���" p = p + 1 end if if a = v then document.write"<center>������ �� "&p&" �����.</center>" end if ' �������� document.write ������� ������������ ' � �������� ���������� � ����� ���� �������� ' ��� html ���. end sub --></script>
���� ��������� � ����������� ������� ����������� ���, �� �������� ������ ������ �����. ������� �� ��������� �������, ������� ����� ���������� �� ���� ���������� ���������:
__��� �� ���������, ���� �� �� � ������ ������� �� �������� ����������? ����� �� �������� ���������� "a" �������� � ��������� "sub begin_onclick" �� ���� "�����" � ������ ���������� (�������� "sub but_onclick" ). ��� �������� �������� ��� � ������, ��� � ����, ��� �������� "a" �� ����� ������ ���������. ����� ����� ��������������� ���������� "public a" ������ "dim a" ����� �������� "a" ������ ������ �� ���� �������� �� ������ ������ ����������, ��� ��������� ��� ��������� ���������. ���� �������� "dim a(100)" �� ����� ����� ������ �� ����� ���������� "a", � �������� ��� � ������� �������. �� ������ ������� ���������� ����� � �� ���������, ���� ���� ��������� ��������� � ����� ���������.
__��� ����� ��� ���������? ��������� ��� ����� �������� ������� ��� �����������. ����� ���������:
sub name_������� ....... end sub.
name - ��� ��� ���������, �������� �� ��������, ��� ������ "�������� �����" ���������� "chislo", ������ ������������ sub chislo_onclick ���������� ��� ������� �� ��� ������.
������� - ��, ��� ����� "���������" � ���� ��������. �������� "onclick" ��������, ��� ��������� ����������, ��� ������� �� ������, �������������� �������� � ����� (��� � ����� ������). ���������� ��������� ����� �������. �� ����� ���������������� ����� ��������: window_onload - ����������� ��� ������ �������� ���������:
<Script language="VBscript"><!--
Sub window_onload
Alert "����� ���������� �� ��� ��������
��������!"
end sub
--></Script>
��� �������� ��������� �������� ������ � ������ �������� � ������� ��
������� onmouseover - ��������� ��� ��������� ��������� ���� �� ����� ������.
�������� �� ��� ������ ��������� ����
������:
<a href="http://wanderfly.da.ru/" name="link">
�������� �� ��� ������ ��������� ����</a>
<script language="vbscript"><!--
sub link_onmouseover
alert "������"
end sub
--></script>
����������, ������ ������ �� ������ ������������ ������ ��� ����� �� ������ "xxx", ������ ��� ������ �� ��� ����������:) �� ���� �������� alert "������" �� status="��� �������� ��������", �� ��� ��������� �������� � ������ �������.
__ ����� ������ ��������� ���������� ����������� ��� "���������" �� ������ � ���� �����?
x = top.���_������.document.���_�����.���_�������_text_box.value
����� �������, ����� ��������� �� ����� ������ � ���� ��������, ���� ���� ��� ����������� � ������ ������.
�������� ������ �����. VBscript ������� �� �������� ������� ����������� ���������� � ������� (��������������, �������������� ������ � �.�.). ������� ���������� � ������������� ���������� �����-������ ���������� �� ���� �������� � ��������� ��������, ������� ����� "���������" ��� �������������� ������������ � ��������.
���������� ����������. ��������� ��������� � �������.
����� ��� ���� ����� ������������������ � ��������� ��������, �������� �������� ��������� � ������� VBscript. � �� ������� ������ PRINT "������" ��� �������� ��������� ���� For ���������� Next x :)
| ��������� | ������ | �������� |
��������� ������ � ���������.
| Dim ���_������� (�������) | dim a(10),b(20,30) | ���������� ������� |
| Erase ���_������� | erase a | ������� ����������� ������� |
��������� ������������.
| ���������� = �������� | a=137 a=b c="������" | ������������ |
| Set ���������� = ������ | set a=document.forma1 | ������������ ���������� ������� ������ �� ������. |
�����������.
| ' ����������� | ' ����� |  |
| Rem ����������� | rem ����� |  |
��������� Boolean.
| ���������� = False | if a=false then ... | �������� ���� boolean ������ 0 |
| ���������� = True | if a=true then ... | �������� ���� boolean ������ -1 |
�������.
The payload may contain Trojan horses, ransomware, or info-stealers designed to harvest saved browser passwords, cryptocurrency wallets, and personal data. Safety Tips for PC Gamers
Older games sometimes struggle with modern multi-core processors. Setting the CPU affinity via Windows Task Manager to utilize fewer cores can instantly resolve freezing issues. Will There Ever Be an Official Prototype 3?
– Fans hoped the acquisition would revive dormant IPs like Prototype. However, as of now, no such plans have materialized.
��������� ������������ � ����������
| ������� ������ ������, ������� ��� � ��� ����: + And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor |
��������� �������
The payload may contain Trojan horses, ransomware, or info-stealers designed to harvest saved browser passwords, cryptocurrency wallets, and personal data. Safety Tips for PC Gamers
Older games sometimes struggle with modern multi-core processors. Setting the CPU affinity via Windows Task Manager to utilize fewer cores can instantly resolve freezing issues. Will There Ever Be an Official Prototype 3?
– Fans hoped the acquisition would revive dormant IPs like Prototype. However, as of now, no such plans have materialized.
��������� � �����
| Call ���_������� | Call but_onclick | ����� ������������ |
| Do ... Loop Until ������� |
Do a=a+1 Loop Until a>=5 |
��������� ��� ���� �� ���� ���, ���� ������� �� ����� �������� |
| Do ... Loop While ������� |
Do a=a+1 Loop While a<5 |
��������� ��� ���� �� ���� ���, ���� ������� ����������� |
| Do Until ������� ... Loop |
Do Until a>=5 a=a+1 Loop |
��������� ���������� ����, ���� ������� �� ������ �������� |
| Do While ������� ... Loop |
Do While a<5 a=a+1 Loop |
��������� ���������� ����, ���� ������� ����������� |
| For �������=������ To ����� Step ��� ... next |
For i=1 to 5 a=a+1 next |
���� (��������: ������� "next" � �� "next i") |
| IF ������� Then ��������1 Else ��������2 End if |
IF a>1 Then alert"������" | ���������� ���� ��� ���������� ������� |
| Select Case X Case ��������1 �������� Case ��������2 ��������2 ... End select |
Select Case X Case 10 alert"x=10" Case 20 alert"x=20" End select |
���������� ���������� ���� ��� ���������� �������� |
| While ������� �������� Wend |
While a<5 a=a+1 Wend |
���������� ���� ���� ������� ������� |
O��������� ������� � ��������
| Dim ���������� | Dim a | ���������� ���������� |
| Sub ���_������� ��� End sub |
Sub but_onclick Alert x End sub |
������������ |
| Function ���(���������) ��� End function |
Function(x,y) x=x*y End function |
������� |
| Exit ... | Exit Do (For, Function, Sub) | ��������� ����� |
��� ������� �������� � VBscript.
��� �������� � �������� ����������, ������ ������� ��� �� �� ��� �����: ������, ��� html ��� ����� �������� ���������� ����������� �������� ���������� (������, ������, ����� ��� ����� ���������� � �.�.), � ������, �������� �� �������, ������� �������� �������� ��� ��������� �������� ������������ � ���������� ����������. ��� ����� ������� ������� ������������� ������������ �������� ��� ��� �������, �� ������� ����������� ����������.
���������� �������� ������ ������ ���������, ��� ��������.
�������� ���������� ������:
<html> <head> <script language="VBScript"> Sub but_onclick Alert "������ �����:)" End sub </script> </head> <body> <form> <input type="button" name="but"> </form> </body> </html>
����� ������, �� ����� ������, ����� �������. ��������� ��� ���������� name="���" � ���� ���������������� ������� ����������, ��� �� "���" ����� � ���������� ��������� � ����� ���� ������������� ����� �������, ������� ������ ��������� ��� ���������� ��������.
����� �������� ������������ � �������� ����������:
<html>
<head>
<script language="VBScript">
Sub scenariy
Alert "������ �����:)"
End sub
</script>
</head>
<body>
<form>
<input type="button" name="but" _
onclick="scenariy" language="VBScript">
</form>
</body>
</html>
����� ������ �������� ������������ Java Script. ����� ��� �����������, ����� ������ ������� ����� �������� ��, ��� ���� � ��� �� �������� ����� �������� �� ������ ��������� ����������.
�������������� ����� ��������:
<html> <body> <script language="VBScript"> Alert "������ �����" </script> </body> </html>
��� ��������� � ���� ������ ���������� ����� ����� �������� ���������.
����� �� ������ ���������:
<html>
<head>
<script language="VBScript">
Sub but_onclick
Call butalert("������ �����")
End Sub
Sub butalert(a)
Alert a
End Sub
</script>
</head>
<body>
<form>
<input type="button" name="but" _
onclick="scenariy" language="VBScript">
</form>
</body>
</html>
��� �������, ����� ��������������� ������
��������, ����� ��������� ����� ��������� ���:
�������� ���� ������ VBscript
��������, �� ��� ������ �� "������" ��������, ��� ������, ��� ��� ����������� ���������� ���������� ���� ���� ������ ���� ����� ��� �������� (a$="������"). � VBscript ����� ������ �� �������, �� ����� ������ ���� ��� ������, ���������� VARIANT. �� ����� ��������� ��� ������� ��� � ����� ������ ��������. ������� ��� ����, ����� ����� ���������� ��� ������, ���������� ������������ ������� ��������������. � �������, ����� �������� � ���� ����� ����� ��������� ������, � ������� ������� ����� "3" � ������ "2" �������� � ���������� "32":
<Script language="VBscript"> sub summa summatext1=document.formasum.summa1.value summatext2=document.formasum.summa2.value alert summatext1+summatext2 end sub </Script>
������� ���� ������� ���, ����� ���������� summatext1 � summatext2 ���� ������������� � ����� ����� �������� Cint(����������):
<Script language="VBscript"> sub summa summatext1=Cint(document.formasum.summa1.value) summatext2=Cint(document.formasum.summa2.value) alert summatext1+summatext2 end sub </Script>
������� ������ VARIANT.
| ������ | ������� �������������� | �������� |
| Epty | - | ������������� ������������� ����� ����������, ����� �� ��� �� ��������� ����� ��������. |
| Null | - | ��������� �� ��, ��� ���������� �� �������� ���������� ������. |
| Boolean | CBool(x) | ������������ ��� ����������� ���������� ����������, ����������� ��� ���������� �������� True ��� False |
| Byte | CByte(x) | ����� �������� ��� ������ ����������� �������� 0..255 |
| Integer | CInt(x) | ����� ��� � �������� -32768 .. 32768 |
| Long | CLng(x) | ������� ��� ����� ���������� � �������� -2147483648 .. 2147483647 |
| Single | CSngl(x) | ��� ����� � ��������� ������ ��������� �������� |
| Double | CDbl(x) | ��� ����� � ��������� ������ ������� �������� |
| Date/Time | CDate(x) | ����� � ������� ������������ ����� � ���� �� 1 ������ 100 ���� �� 31 ������� 9999 ���� |
| Currency | CCur(x) | ����������� �������� ������ ��� �������� ������� |
| String | CStr(x) | ���������� ��� ������ |
| Object | - | ������ �� ������� ole, html, ActiveX |
| Error | - | ��� ������ ��������������� ��� �������� ������� ������ |
��������� ������� VBscript
� ���������� ������� ��������� ��������� �������� ������ ��� ��������� ���� �������.
���� ��� �� ��������� � ����� ������, �� ����� ������������ ������ ����������� ������:
if a=1 and b=2 or c=3 then alert a ����� �������� ��� if a=1 _ and b=2 _ or c=3 _ then alert a
��� "����������" ���� ��������� ���������� ����� ������������ ���� "&" ��� "+", �.�. a="���" b="���" ����� a&b="������"
��� �������� ����������, �� ������ ������, ��������� � ���� ����������� <Script language="Vbscript><!-- ��� --></script>
����������
� ��� �������, ��� ���� ������� �� ���� ���������� ��� � ��� ��� VBscript, � ������ ���� ��������� ������ ���������� ������ � �������� ������, ��������� ��� ��������� ���������� ���������, ��� ���������� ActiveX ����������. ���, ���� ������������� ���� ���� ����������������, ����� ��������������� ����� (�� ������ :) "������� VBscript" ����� ��� ������. ��������� ���������� ������ � ���� ������ �� ���.
��� ��� ��������!
������� ������� (23.09.1998) www.midi.ru