首页 电脑 电脑学堂 查看内容

非常不错的VBS教程

2010-12-3 16:47 961 0

摘要:     现在看到很多朋友都不明白VBS,但我也没有时间全部写完,所以一天写一些,边写边和大家交流,也希望有朋友能接着写或指出我的错误。   ...
关键词: nbsp 变量 VBS 程序 SayString 字符 价格 一个 10000 其实

    以下为源文件    <HTML><HEAD><TITLE>源代码加密解密</TITLE>    <META content="text/html; charset=gb2312" http-equiv=Content-Type>    <SCRIPT language=JavaScript>    <!-- Begin    function viewSource() {    document.getSource.view.value="Please wait!";    setTimeout("document.getSource.view.value='View Source!'",6000);    window.location.href= "view-source:" + document.getSource.url.value;    return false;    }    //  End -->    </SCRIPT>    <META content="Microsoft FrontPage 6.0" name=GENERATOR></HEAD>    <BODY aLink=#33ff33 bgColor=#939393 link=#33ff33 text=#D3D3D3 vLink=#33ff33>    <CENTER>    <FORM name=getSource onsubmit="return viewSource();"><FONT size=2>输入网址按查看钮    </FONT><INPUT name=url value=http:// size="20"/> <INPUT name=view type=submit value=查看>    <a href="http://www.58ly.com/" target="_blank">龙域网安</a>    <span lang="zh-cn">    <font color="#00FF00">    </font></span><p><span lang="zh-cn">或者在下面输入你需要加密或解密的代码。</span></p>    </FORM></CENTER>    <SCRIPT language=JavaScript>    <!--    var i=0;    var ie=(document.all)?1:0;    var ns=(document.layers)?1:0;    function initStyleElements() /* Styles for Buttons Init */    {    var c = document.pad;    if (ie)    {    //c.text.style.backgroundColor="#DDDDDD";    c.compileIt.style.backgroundColor="#C0C0A8";    c.compileIt.style.cursor="hand";    c.select.style.backgroundColor="#C0C0A8";    c.select.style.cursor="hand";    c.view.style.backgroundColor="#C0C0A8";    c.view.style.cursor="hand";    c.retur.style.backgroundColor="#C0C0A8";    c.retur.style.cursor="hand";    c.clear.style.backgroundColor="#C0C0A8";    c.clear.style.cursor="hand";    }    else return;    }    /* Buttons Enlightment of "Compilation" panel */    function LightOn(what)    {    if (ie) what.style.backgroundColor = '#E0E0D0';    else return;    }    function FocusOn(what)    {    if (ie) what.style.backgroundColor = '#EBEBEB';    else return;    }    function LightOut(what)    {    if (ie) what.style.backgroundColor = '#C0C0A8';    else return;    }    function FocusOff(what)    {    if (ie) what.style.backgroundColor = '#DDDDDD';    else return;    }    /* Buttons Enlightment of "Compilation" panel */    function generate() /* Generation of "Compilation" */    {    code = document.pad.text.value;    if (code)    {    document.pad.text.value='Compiling...Please wait!';    setTimeout("compile()",1000);    }    else alert('请先把需待加密的代码copy到此框中')    }    function compile() /* The "Compilation" */    {    document.pad.text.value='';    compilation=escape(code);    document.pad.text.value="<script> <!-- document.write(unescape(\""+compilation+"\")); //--> <\/script>";    i++;    if (i=1) alert("代码已编译1次!");    else alert("代码已编译"+i+"次!");    }    function selectCode() /* Selecting "Compilation" for Copying */    {    if(document.pad.text.value.length>0)    {    document.pad.text.focus();    document.pad.text.select();    }    else alert('无任何内容被选中!')    }    function preview() /* Preview for the "Compilation" */    {    if(document.pad.text.value.length>0)    {    pr=window.open("","Preview","scrollbars=1,menubar=1,status=1,width=700,height=320,left=50,top=110");    pr.document.write(document.pad.text.value);    }    else alert('无任何内容可供预览!')    }    function uncompile() /* Decompiling a "Compilation" */    {    if (document.pad.text.value.length>0)    {    source=unescape(document.pad.text.value);    document.pad.text.value=""+source+"";    }    else alert('请把需待还原的代码copy到此框中!')    }    // -->    </SCRIPT>    <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">    <TBODY>    <TR>    <TD width="100%">    <FORM method=post name=pad align="center">    <DIV align=center><TEXTAREA cols=58 name=text rows=20 style="BACKGROUND-COLOR: #ebebeb; WIDTH: 95%"></TEXTAREA>    <BR><INPUT name=compileIt onclick=generate() onmouseout=LightOut(this) onmouseover=LightOn(this) type=button value=加密>    <INPUT name=select onclick=selectCode() onmouseout=LightOut(this) onmouseover=LightOn(this) type=button value=选中>    <INPUT name=view onclick=preview() onmouseout=LightOut(this) onmouseover=LightOn(this) type=button value=预览>    <INPUT name=retur onclick=uncompile() onmouseout=LightOut(this) onmouseover=LightOn(this) type=button value=还原>    <INPUT name=clear onmouseout=LightOut(this) onmouseover=LightOn(this) type=reset value=清除>    </DIV></FORM></TD></TR></TBODY></TABLE>    </BODY></HTML>
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系 [邮箱地址] 删除

路过

雷人

握手

鲜花

鸡蛋

最新评论

返回顶部