vbscript תjavascript£¬Ð¡µÜллÁË

<SCRIPT ID="clientdoscheckVBS" LANGUAGE="vbscript">
        Sub dogcheck_onclick
            On Error resume next
            dim aObject,DevicePath
            set aObject = CreateObject("Syunew3A.s_simnew3")
            DevicePath = aObject.FindPort(0)
            if aObject.LastError <> 0 then
                msgbox "δÕÒµ½£¬ÔÙ½øÐеǼ!"
                exit sub
            end if
            form1.lockbhText.value = aObject.YReadString(0, 11, "ffffffff", "ffffffff", devicepath)
            If aObject.LastError <> 0 Then
                MsgBox "¶Á´íÎó!"
                Exit Sub
            end if
            MsgBox "¶Á³É¹¦!"
           
        end sub
    </SCRIPT>

---

ÁíÍ⣬jsÊÇÑϸñÇø·Ö´ó