VBS真麻烦
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")