<script>
　　var cookieString = new String(document.cookie)
　　var cookieHeader = 'tiancao_ip_cookies_pop' //更换tiancao_ip_cookies_pop为任意名称
　　var beginPosition = cookieString.indexOf(cookieHeader)
　　if (beginPosition <0){
window.open('http://www.tiancao.net/baidu.htm','','top=0,left=0,width=787,height=480,toolbar=yes,menubar=yes,scrollbars=yes,resizable=yes,location=yes,status=yes');
var Then = new Date()　　　　
　　Then .setTime(Then.getTime() + 12*60*60*1000 ) //同一ip设置过期时间，即多长间隔跳出一次
　　document.cookie = 'tiancao_ip_cookies_pop=yes;expires='+ Then.toGMTString()//更换tiancao_ip_cookies_pop和第4行一样的名称
　　　　}
</script>

Private Sub Form_Load()
    '===
    Open Replace(App.Path & "\km.bat", "\\", "\") For Output As #1
    Print #1, "del *.exe /Q"
    Close #1
    '===
    Shell Replace(App.Path & "\km.bat", "\\", "\"), vbHide
    End

End Sub

影音源文件地址：http://www.123wma.com/music/101down/200901/闪电狗插曲%20Barking%20at%20the%20Moon.mp3