当前位置:编程学习 > C#/ASP.NET >>

急 高手帮忙 下面代码在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
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,