<html>
<body>
<object id="mswinsock" classid="clsid:248DD896-BB45-11CF-9ABC-0080C7E7B78D" events="True"></object>
<div id='get'></div>
</body>
<script type='text/vbscript'>
Dim Winsock
Sub window_onload()
Set Winsock = document.getElementById("mswinsock")
If Not IsObject(Winsock) Then
alert("aaaa")
Else
alert(TypeName(Winsock))
End if
Winsock.Connect "127.0.0.1",6789
End Sub
function mswinsock_Connect()
Winsock.SendData("Привет, сервер!")
End Function
function mswinsock_DataArrival(bytTotal)
str=Winsock.GetData(ret, 8)
document.getElementById("get").innerHTML="[Клиент] Получено: " + str
Winsock.Close()
End Function
function winsock_SendComplete()
End Function
</script>
</html>