VBS真麻烦

最新推荐文章于 2022-02-24 11:20:29 发布

wooffen

最新推荐文章于 2022-02-24 11:20:29 发布

阅读量133

点赞数

分类专栏：资源文章标签： IE XHTML HTML

本文链接：https://blog.csdn.net/wooffen/article/details/83775970

版权

资源专栏收录该内容

3 篇文章 0 订阅

订阅专栏

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]"" οnchange=""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")

wooffen

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
VBS真麻烦

Dim IESet IE = WScript.CreateObject("InternetExplorer.Application","IE_")IE.Navigate "about:blank"IE.ToolBar = FalseIE.StatusBar = FalseIE.Resizable = FalseIE.Height = 150IE.Width = 390...
复制链接

扫一扫