必须要有一个com组件支持,你要要可以给你,安装一下就好了!代码如下:
VBS的set tool=CreateObject("screen.tool")
if tool.ChangeDisplay(800,600,,0) then
    MsgBox "111"
    tool.ResetDisplay
else
    MsgBox "222"
end if

解决方案 »

  1.   

    看我是怎么样解决的
    <script language="javascript1.2">
    function window.onload(){
    var srcwidth=screen.width;
    var srcheight=screen.height;
    if (srcwidth==1024) {splittop.rows="102,*";
                         splitleft.cols="340,*";
                         splitmain.rows="26,*";
                         splitbm.rows="430,*";
                              }
    else {
            splittop.rows="102,*";
            splitleft.cols="225,*";
            splitmain.rows="26,*";
            splitbm.rows="260,*";
            document.all.copyrightframe.src="frameend01.asp";
          }
    }
    </script>
      

  2.   

    代码如下:
    <html>
    <head>
    </head>
    <frameset framespacing="0" border="false" frameborder="0" rows="78,297,64">
      <frame name="top" scrolling="no" noresize target="contents" src="top.htm">
      <frameset cols="235,565">
        <frame name="contents" target="main" src="left.htm" scrolling="no" noresize>
        <frame name="main" src="dongtai.htm" scrolling="auto" noresize>
      </frameset>
      <frame name="bottom" scrolling="no" noresize target="contents" src="under.htm">
      <noframes>
      <body>
      <p>This page uses frames, but your browser doesn't support them.</p>
      </body>
      </noframes>
    </frameset>
    </html>