急 高手帮忙 下面代码在VB用过那么可以直接放在VC里面用吗?
<SCRIPT id="clientEventHandlersVBS" language="vbscript">sub mytime
On Error resume next
dim DevicePath,LastError,softDogPWD,DogID,Random1,Random2,Random3
set aObject = CreateObject("Syunew3A.s_simnew3")
DevicePath = aObject.FindPort(0)
LastError=aobject.lasterror
Random1=aObject.YRead(0,"FFFFFFFF","FFFFFFFF",DevicePath)
Random2=aObject.YRead(1,"FFFFFFFF","FFFFFFFF",DevicePath)
a=aObject.sWrite(Random1&Random2,DevicePath)
softDogPWD=aObject.sRead(DevicePath)
softDog.DevicePath.value=DevicePath
softDog.LastError.value=LastError
softDog.softDogPWD.value=softDogPWD
softDog.DogID.value=DogID
document.softDog.submit
end sub
sub getPWD
setTimeout "mytime()",50
end sub
</SCRIPT>
<BODY onLoad="getPWD">
<FORM id="softDog" name="softDog" action="<%: Url.Action("SoftdogOpenOrCloseManage") %>" method="post">
<INPUT id=DevicePath name=DevicePath type=hidden>
<INPUT id=lasterror name=LastError type=hidden>
<INPUT id=softDogPWD name=softDogPWD type=hidden>
<input type="submit" value="dogOK"/>
</FORM>
</BODY>
补充:.NET技术 , ASP.NET