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 Bangladeshi model and actress Nova Firoze , often simply known as

Confusion often arises due to other prominent figures with the same name: Takia Sultana Nova

  • Viral Misidentification

    : There have been instances where footage or images were falsely attributed to her. For example, a video from 2010 was circulated under her name despite the identity of the individual remaining unconfirmed.

    • The scandal has raised important questions about social media usage and personal responsibility
    • It has also sparked a wider conversation about celebrity culture and the pressures faced by those in the public eye

    Nova loves to travel and explore new destinations. She has been to many exotic places, both locally and internationally. Her Instagram feed is filled with stunning pictures of her travels, showcasing her adventurous side. Whether it's trying new foods, learning about different cultures, or simply enjoying the beauty of nature, Nova loves it all.

    If you are a public figure—even a micro-influencer with 5,000 followers—assume that any photo you send via WhatsApp or Messenger could end up on a YouTube video titled “Viral X News.”

    • , :
    + And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor

    Bangladeshi Model Nova Scandal Best | 100% TOP-RATED |

    The Bangladeshi model and actress Nova Firoze , often simply known as

    Confusion often arises due to other prominent figures with the same name: Takia Sultana Nova

  • Viral Misidentification

    : There have been instances where footage or images were falsely attributed to her. For example, a video from 2010 was circulated under her name despite the identity of the individual remaining unconfirmed.

    • The scandal has raised important questions about social media usage and personal responsibility
    • It has also sparked a wider conversation about celebrity culture and the pressures faced by those in the public eye

    Nova loves to travel and explore new destinations. She has been to many exotic places, both locally and internationally. Her Instagram feed is filled with stunning pictures of her travels, showcasing her adventurous side. Whether it's trying new foods, learning about different cultures, or simply enjoying the beauty of nature, Nova loves it all.

    If you are a public figure—even a micro-influencer with 5,000 followers—assume that any photo you send via WhatsApp or Messenger could end up on a YouTube video titled “Viral X News.”

    • 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