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文件前先检查其内容，以...
在实际操作中，确保你了解脚本的全部功能，避免无意间删除重要文件或造成不必要的麻烦。 总的来说，VBS脚本自删除样例是一个结合了文件操作和用户交互的例子，它展示了VBS在系统自动化和管理方面的潜力。通过理解并...
你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。...
VBS（Visual Basic Script）是一种基于Visual Basic编程语言的脚本版本，主要用于Windows系统中的自动化任务和网页交互。...不过，使用这类工具时，应确保了解其工作原理和潜在的风险，以避免不必要的麻烦。
同时，防止将此类软件误发给不熟悉情况的人，以免引起不必要的麻烦。 总结，VBScript整人软件是结合了编程与趣味性的一种应用，通过学习和理解VBScript，你可以创建属于自己的个性化整人程序，但一定要在尊重他人和...
双击打开电脑光驱,不用去按光驱的按钮,特别是台式机,太麻烦,赶紧来下载看看吧!
此类脚本通常用于在不影响系统核心功能的情况下，制造一些小麻烦或玩笑，比如锁定任务管理器、禁用命令提示符、弹出窗口等。 ### VBS整人代码解析 #### 1. 创建对象与获取系统信息 - **创建WScript.Shell对象**：...
根据提供的标题“vbs证人代码”以及描述“整人代码 可以恶搞一下 直接修改就可以”，我们可以了解到这些脚本主要用于娱乐目的，通过VBScript（Visual Basic Scripting Edition）编写一系列自动化的操作来“整蛊”或...
不过，由于我们已经知道脚本可能会被杀软拦截，因此建议在不了解脚本具体内容的情况下不要轻易运行，以免引起不必要的麻烦。 总之，"恶搞快捷方式.vbs" 是一个VBScript脚本，它的功能是将文件夹转化为快捷方式，...
对于在服务器上绑定多个IIS站点，要是使用手动绑定会很麻烦，可以通过iisweb.vbs的脚本来实现。 要求： 1.需要批量创建的站点目录必须存在 2.将需要创建的站点以一定的格式写于SiteListData文件中
开发环境是本人的PC下的VC6.0，实际上编译环境是Redhat6.5，每次本地代码更新都要通过FTP工具上传到服务器编译，非常麻烦。为此编制了一个FTPvbs ftp 自动登录 ，文件更新扫描可以自动将2分钟内编辑的文件上传到...
### 知识点说明 ...因此，在执行此操作之前，用户必须确保对网络设备和注册表有足够的了解，以免造成不必要的麻烦。同时，由于MAC地址是网络中设备的唯一标识符，随意更改可能违反某些网络的使用政策或法律法规。
每天发报表 好几个文件 发到好几个邮箱 每次选来选去比较麻烦 现在好了 一个vbs搞定 但是要安装outlook 具体参数自己修改吧
我相信每个用户心想到要资料备份的时候，绝大多大户会联想到使用U盘。因为U盘的小巧易携带使得很多人都是钟情于他。但是有一个不好的地方就是U盘的...但是每天都要手动实在很麻烦，那么就来试试U盘插入电脑自动备份吧！
这个VBS脚本执行上述操作，省去了手动操作的麻烦。不过，值得注意的是，关闭自动更新可能会使系统暴露于未修复的安全漏洞之下，因此建议定期手动检查更新或在有安全顾虑时恢复自动更新功能。 此外，Windows 10还...