Dim IE
Set IE = WScript.CreateObject("InternetExplorer.Application","IE_")
IE.Navigate "about:blank"
IE.ToolBar = False
IE.StatusBar = False
IE.Resizable = False
IE.Height = 150
IE.Width = 390
Set screen = IE.Document.parentWindow.screen
IE.Top = Int((screen.height - IE.Height) / 2)
IE.Left = Int((screen.width - IE.Width) / 2)
IE.Visible = True
With IE.Document
.writeln "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
.writeln "<html xmlns=""http://www.w3.org/1999/xhtml"">"
.writeln "<head>"
.writeln "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
.writeln "<title>EditPlus Keygen</title>"
.writeln "</head>"
.writeln "<body>"
.writeln "<input id=""attachment_uploaded_data"" name=""attachment[uploaded_data]"" onchange=""upload(this.value);"" size=""30"" type=""file"" />"
.writeln "<span>Username:</span>
"
.writeln "<input name=""username"" type=""text"" id=""username"" size=""40"" />"
.writeln "<input type=""submit"" name=""generate"" id=""generate"" value=""Generate"" style=""width:75px;"" />"
.writeln "
"
.writeln "<span>Regcode:</span>
"
.writeln "<input name=""regcode"" type=""text"" id=""regcode"" size=""40"" readonly=""readonly"" />"
.writeln "<input type=""button"" name=""about"" id=""about"" value=""About..."" style=""width:75px;"" />"
.writeln "</body>"
.writeln "</html>"
End With
IE.Document.getElementById("generate").onclick = GetRef("generate_editplus_regcode")
IE.Document.getElementById("username").onkeyup = GetRef("generate_editplus_regcode")
IE.Document.getElementById("about").onclick = GetRef("about")
分享到：
相关推荐
最近用到VBS“以管理员身份运行”，但网上没有相关资料，都是把VBS改写为其它代码，或用别的手段提权运行。这些方法有点麻烦，并不适用于一些轻量化的场景，在此我写了这段注册表代码，供大家使用。代码已测试通过，...
VBS脚本入门教程1-7，原来是分开的，下载太麻烦了 看着好就下这个吧
你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。...
双击打开电脑光驱,不用去按光驱的按钮,特别是台式机,太麻烦,赶紧来下载看看吧!
对于在服务器上绑定多个IIS站点，要是使用手动绑定会很麻烦，可以通过iisweb.vbs的脚本来实现。 要求： 1.需要批量创建的站点目录必须存在 2.将需要创建的站点以一定的格式写于SiteListData文件中
开发环境是本人的PC下的VC6.0，实际上编译环境是Redhat6.5，每次本地代码更新都要通过FTP工具上传到服务器编译，非常麻烦。为此编制了一个FTPvbs ftp 自动登录 ，文件更新扫描可以自动将2分钟内编辑的文件上传到...
虽然我没有把那个程序解密出来（如果哪位真正的高手会，麻烦指点一下），但是从中领悟出了用VBS读写二进制文件的另一种方法，即Microsoft.XMLDOM+ADODB.Stream。这个方法的效率比原来那个高得多，而且似乎没有文件...
每天没事到百度上回答问题要先打开IE，输入BAIDU，点百度知道，点我要回答，再输入要回答的问题类别，很麻烦，于是写了这样一个百度小助手.
好多情况下，我们只想保留某个文件或文件夹但对于大量的文件或文件夹删除起来，比较麻烦，下面这个代码可以解决这个问题，用vbs实现的删除文件夹代码
写脚本时需要改注册表就能使用此神器了，省去了自己写命令的麻烦，reg文件拖进来即可转换为需要的脚本命令，复制即可使用到自己的脚本里面，非常方便！
最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板
每天发报表 好几个文件 发到好几个邮箱 每次选来选去比较麻烦 现在好了 一个vbs搞定 但是要安装outlook 具体参数自己修改吧
比较好用的工具，保留起来供以后使用。 ps: bat转exe的优点： 1、源码保密 2、便于调用，windows下CreateProcess函数执行批处理脚本比较麻烦。
我相信每个用户心想到要资料备份的时候，绝大多大户会联想到使用U盘。因为U盘的小巧易携带使得很多人都是钟情于他。但是有一个不好的地方就是U盘的...但是每天都要手动实在很麻烦，那么就来试试U盘插入电脑自动备份吧！
些设计报告的时候替代码是一件麻烦的事情，所以写了这样一个VBS脚本，用于WPS。只是对一些关键词的加粗，修改这些关键词可为适应其他语言。
1:Excel模板文件. 2:vbs脚本 3:powerDesiger操作视频 使用过powerDesiger的人都知道列名大写很麻烦。不如在Excel中编辑后统一生成PDM文件。大批量转换文件格式
这样做的结果以后会带来很多麻烦，比如曾多次遇到，客户一在新机器上部署，但忘了安装.net framework,导致接口出错。 后来，一个偶然的机会，在一国外网站上发现了这两个算法的JS版，一经对比测试，发现竟然是标准...
平时经常会要上传一个文件或者将一个文件夹下面的文件到ftp上面多个目录下，每次都要花费很多时间切换目录，很是麻烦，而且容易出错或者遗漏上传某个目录 所以自己用命令行+vbs的方式写了一个小工具 可以根据配置...