'Date: 2012/2/1
'Author: test
'Description: Youku rss calculator
Dim IE
Set IE = WScript.CreateObject("InternetExplorer.Application","IE_")
IE.Navigate "about:blank"
IE.ToolBar = False
IE.StatusBar = False
IE.Resizable = False
IE.Height = 180
IE.Width = 450
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 "<span>youku id url:</span><br />"
.writeln "<input name=""url"" type=""text"" id=""url"" size=""40"" />"
.writeln "<input type=""submit"" name=""calculate"" id=""calculate"" value=""calculate"" style=""width:75px;"" />"
.writeln "<br />"
.writeln "<span>RSS:</span><br />"
.writeln "<input name=""RSS"" type=""text"" id=""RSS"" size=""40"" readonly=""readonly"" />"
.writeln "<input type=""button"" name=""about"" id=""about"" value=""About..."" style=""width:75px;"" />"
.writeln "</body>"
.writeln "</html>"
End With