强制弹出广告页面+自动最小化代码

2016-02-19 15:20 11 1 收藏

今天图老师小编给大家介绍下强制弹出广告页面+自动最小化代码，平时喜欢强制弹出广告页面+自动最小化代码的朋友赶紧收藏起来吧！记得点赞哦~

【 tulaoshi.com - Web开发】

这个弹窗代码，效果很好，不过有点复杂！请细看！

这里涉及三个页面：

   弹窗页：1.htm 放置弹窗代码的页面
   中间页：2.htm 中间过度页面
   弹出页：3.htm 被弹出的页面

在1.htm放入代码如下：主要是通过对话框强制弹出2.htm，大小为0,0

CODE:
script language="javascript"
focusid=setTimeout("focus();window.showModelessDialog(''2.htm'','''',''scroll:1;status:1;help:1;toolbar=1;resizable:1;dialogWidth:0px;dialogHeight:0px'')",3000)
/script

在2.htm里放置代码如下：自动关闭对话框页面2.htm，同时弹窗3.htm

CODE:
script language="javascript"
!--
function openWindow2(URL,Name,features) { //v2.0
window.open(URL,Name,features);}
openWindow2(''3.htm'',''pop'',''resizable,height=600,width=1024,toolbar,menubar,scrollbars,location,left=0,top=0'');
//--
setTimeout(''window.close();'', 0);
/script

在3.htm里放置代码：弹出后自动最小化

CODE:

在body标签里加入：body onload="min.Click()"
以下代码加入body/body区域
object id="min" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
param name="Command" value="Minimize"
/object object id="max" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
param name="Command" value="Maximize"
/object

来源:https://www.tulaoshi.com/n/20160219/1609424.html

上一篇： SQL Server安全专题:SQL Server 2000的安全配置
下一篇： js代码小记（判断textbox的长度并且固定最多收入字符）

看过《强制弹出广告页面+自动最小化代码》的人还看了以下文章更多>>

怎样用代码隐藏、最大化、最小化ACCESS的主窗口

标签：编程语言网络编程

(问) 怎样用代码隐藏、最大化、最小化ACCESS的主窗口？ (答) 通过一函数已定义的常量 fSetAccessWindow 实现。该函数能用来完全隐藏 Access 窗口并将你自己的窗体显示在桌面上。在弹出式窗体的 Open 事件中使用 SW_HIDE 参数调用 fSetAccessWindow 函数实现。注意：如果你隐藏了 Access 主窗...

MSN怎么最小化到右下角？

MSN怎么最小化到右下角？其实这个主要是微软自家的Windows Live Messenger也就是MSN没有完好的兼容windows7，所以默认Windows Live Messenger 的图标不会最小化到托盘区，其实只需要一个小小的修改就可以实现这个功能了具体操作如下: 如果 Windows Live Messenger 正开着，先将其关掉; 然后鼠标点击你之前...

vb编程实现将所有窗口最小化

标签：编程语言网络编程

一些应用软件提供了一种方便的功能，只需要一个操作就可以将Windows桌面上的所有窗口最小化。首先，我们要遍历桌面上的所有窗口；其次，要判断窗口类型，桌面上的很多窗口无法最小化，或者窗口是不可见的，如中文Win 95中的输入法窗口。最后，将类型符合的窗口最小化。下面通过程序来介绍如何实现这种功能。首先，在Project中加入一...

小知识,如Form淡出、捕捉Form最小化

标签：编程语言网络编程

(*)Form淡出 1)AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入 AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出 2)窗体有AlphaBlend属性和AlphaBlendValue属性，将AlphaBlend属性设为True，然后在Timer组件中随着时间改变AlphaBlendValue的值（0-255）即可 AlphaBlendValue:=1;//窗体透明...

Delphi模拟最小化恢复关闭按纽

标签： Delphi

我们做多文档应用程序开发时,如果在主From中指定mainMenu时,在主菜单上右角上会自动出现最小化,恢复,关闭按纽,但主菜单放入Toolbar等中时,该三个按纽不会自动出现,因此需要编程实现。实现原理: 按纽的实现,从Tbitbtn继承下来最理想,但需要过滤TbitBtn的焦点响应消息,使其不能获得焦点状态。按纽的功能的实现是比较关键...

查看更多精彩>>