Translate from vbscript to javascript?

M

Martin

Shown below is the body of a web page I'm developing. When it loads, a
socket connection is established back to a socket that's on my server.
I can then send a message from the server and it will show up on this
page. This works as intended (IE only, of course).

I'm going to add some functionality to this script and I want to do it
in javascript - I'd like to do this part in javascript also.

Can someone tell me what I need to do to translate this?

Thanks.


<body>

<object id='Winsock1' classid='clsid:---A_BUNCH_OF_NUMBERS'
codebase='/mywinsock.dll'></object>

<script language=vbscript>
<!--
Sub Window_OnLoad
Winsock1.CloseConnection
Winsock1.RemoteHost = Window.Location.Hostname
Winsock1.RemotePort = 1234
Winsock1.LocalPort = 0
Winsock1.Connect
End Sub

Sub Window_OnUnload
Winsock1.CloseConnection
End Sub

Sub Winsock1_DataArrival(bytesTotal)
Dim Msg
Winsock1.Getdata Msg, vbString
alert(Msg)
End Sub

-->
</script>

</body>
 
M

Martin

Here's what I've tried so far - it doesn't work. (it's telling me
there's a ";" missing in the "<body onload..." line)

I've created a function named ConnectSocket that is called from the
onload event to replace the Sub Window_Onload in the vbscript version.
Similarly, I created the CloseSocket function (called from the
onunload event) to replace the Window_OnUnload sub in the vbscript.

The original Winsock1_DataArrival sub was simply converted to a
function - I have no idea what should actually be done with it.

Can someone give me a clue here?

Thanks.

--------------------------------------------------------
<body onload='ConnectSocket();' onunload='CloseSocket();'>

<object id='Winsock1' classid='clsid:---A_BUNCH_OF_NUMBERS---'
codebase='/mywinsock.dll'></object>

<script type='text/javascript'>
function ConnectSocket(){
Winsock1.CloseConnection;
Winsock1.RemoteHost = Window.Location.Hostname;
Winsock1.RemotePort = 1234;
Winsock1.LocalPort = 0;
Winsock1.Connect;
}

function CloseSocket(){
Winsock1.CloseConnection;
}

function Winsock1_DataArrival(bytesTotal){
var Msg;
Winsock1.Getdata Msg;
Msg = Mid(Msg,2);
alert(Msg);
}

</script>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Convert to VBScript to JavaScript ? 2
Run server-side vbscript subroutine from client-side javascript 2
vbscript to javascript 1
executing javascript and vbscript 4
Convert from VBScript... 6
Javascript variable to VBScript 0
Problem with javascript function call 7
Help to translate simple VBA code to Python 0

Members online

Total: 34 (members: 1, guests: 33)
Robots: 412

Forum statistics

Threads
473,770
Messages
2,569,584
Members
45,075
Latest member
MakersCBDBloodSupport

Latest Threads

Top