Russian LinkExchange Advertising Network

     Visual Basic Script - ������ ����������������

��� ������� �������� ��������� ������ � 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()
{
var copytext;
copytext=document.forma.text1.value;
document.forma.text2.value=copytext;
}

</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

dim copytext
copytext=document.forma.text1.value
document.forma.text2.value=copytext
end sub

</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

��������� �������

Prototype 3 Free Download Pc Game Full Version Verified //free\\ «UHD»

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" ����� ��� ������. ��������� ���������� ������ � ���� ������ �� ���.

��� ��� ��������!


� ������� �� ����, ���� ��������, ���������� ���� ��������� �� VBScript. ���� ����, ������ �� ������, ������� ���, ����� �� ���� ��� ����� �����. � ���� ���� ���� �������� �������� ����� ��� �� 15 �����! ����� ������ ����� � �������.


������� ������� (23.09.1998) www.midi.ru