ss_select.htm

数字信号在无线信道中传输时

<script language="VBScript">
	On Error Resume Next	
	Dim ss
	Set ss=CreateObject("SSReader.SSAPI")
	if err<>0 then
		Alert ("创建对象失败!")
	else	
		ss.GetDoc external.menuArguments.document,1,0	'选中部分的代码
	end if
</script>