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

.

Xwapserieslat Vaishnavy And Sharun Raj P03 H Best [upd] [ Working COLLECTION ]

This public link is valid for 7 days and shares a thread, including any personal information you added. This link or copies made by others cannot be deleted. If you share with third parties, their policies apply. Can’t copy the link right now. Try again later.

: If "Vaishnavy" and "Sharun Raj" are names of people, they might be involved in a TV series, web series, or movies. The mention of "p03" could imply a specific season or episode number.

Operating through platforms like the Sharun Raj Instagram Profile , the duo maintains a consistent public-facing portfolio. Their content primarily features: High-energy lifestyle reels and romantic skits. xwapserieslat vaishnavy and sharun raj p03 h best

If you’re trying to write about involving Vaishnavy and Sharun Raj (e.g., creators, actors, or public figures), please provide the correct title, platform, or context. I’d be glad to write a genuine long‑form article on that topic.

Most plausibly, XwapSeriesLat is an amateur web series catalog, possibly hosted on free platforms (Dailymotion, Telegram, YouTube unlisted, or an archive site). This public link is valid for 7 days

The vast majority of Vaishnavy and Sharun Raj’s series are hosted on the , which has become the primary destination for their content. The platform has recently expanded its offerings by introducing the UC Zone (Uncut Zone) , where viewers can now access complete web series in their uncut, full‑length versions .

The “Uncut Zone” is a dedicated section for full-length, uncut versions of popular web series, including “Chat for Love,” “She Plus Me,” “Bad Chemist Boy,” and “Naughty Game Delivery Boy”. Can’t copy the link right now

The emergence of long, semi-structured keywords like this one is a common phenomenon in the modern internet ecosystem. It typically happens due to three main factors: 1. Algorithmic Aggregation

: A niche but growing fanbase among fans of experimental South Indian music. The song might gain traction on platforms like YouTube for its cultural authenticity and unique sound.

If you find the series on a gray platform, look for the creators’ contact info (often in the video description or channel banner) and request a legal copy. Many indie producers will share their work for free or for a small donation via UPI (India) or PayPal.

: These segments are characteristic of automated database tags, platform category codes, or specific alphanumeric serials used by third-party hosting sites and search indexing bots to organize video content.

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

Instr (, , ) If Instr(1,mail,@) then ...
Lcase () a=Lcase("") ... a=""
Ucase () a=Ucase("") ... a=""
Left (,N ) a=Left("",3) ... a="" N
Right (,N ) a=Right("",3) ... a="" N
Len () a=Len("") ... a=6
Ltrim () a=Ltrim(" ",) a=" "
Rtrim () a=Rtrim(" ",) a=" "
Trim () a=Ttrim(" ",) a=""
Mid (, , N ) a=Mid("",3,2) a="" "" N
Left(,N ) a=Left("",3) a="" N
Space (N) a=Space(5) N
String (N , ) a=String(5,"A") a="AAAAA" N
Ltrim () a=Ltrim(" ",) a=" "

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