<![CDATA[Серый форум — HTA/VBS:Как получить ссылку на объект в Win7x32]]> https://forum.script-coding.com/viewtopic.php?id=7600 Thu, 20 Sep 2012 18:07:22 +0000 PunBB <![CDATA[Re: HTA/VBS:Как получить ссылку на объект в Win7x32]]> https://forum.script-coding.com/viewtopic.php?pid=64030#p64030 mswinsock.ocx

]]> Thu, 20 Sep 2012 18:07:22 +0000 https://forum.script-coding.com/viewtopic.php?pid=64030#p64030 <![CDATA[Re: HTA/VBS:Как получить ссылку на объект в Win7x32]]> https://forum.script-coding.com/viewtopic.php?pid=64017#p64017 Большое спасибо за пример с window_onload() и document.getElementById в hta-приложении. Подскажите, пожалуйста, как в процедуре обработки события узнать ID-объекта, который ею обрабатывается.

]]> Thu, 20 Sep 2012 13:51:19 +0000 https://forum.script-coding.com/viewtopic.php?pid=64017#p64017 <![CDATA[HTA/VBS:Как получить ссылку на объект в Win7x32]]> https://forum.script-coding.com/viewtopic.php?pid=64011#p64011 Уважаемые гуру! Подскажите как заставить работать код в Win7 32bit. В XPSP3 все прекрасно работает, а в семерке, при вызове Winsock.Connect появляется сообщение "Объект не поддерживает это свойство или метод...." т.е. не создается ссылка на объект?


<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>
]]> Thu, 20 Sep 2012 08:26:46 +0000 https://forum.script-coding.com/viewtopic.php?pid=64011#p64011