ShuriZma
/
project64
mirror of https://github.com/project64/project64.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[Upload Beta] Added more comments to IE creation

This commit is contained in:
zilmar 2015-09-29 14:51:03 +10:00
parent f37195bc89
commit 48814b3c37
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Script/upload_beta.vbs
View File

@ -19,16 +19,19 @@ function CreateIeWindow ()
Set CreateIeWindow = nothing Set CreateIeWindow = nothing
For count = 0 to 100 For count = 0 to 100
WScript.StdOut.WriteLine count & ": Trying to create InternetExplorer" WScript.StdOut.WriteLine count & ": Trying to create Internet Explorer"
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_") Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
if not IE is nothing then if not IE is nothing then
WScript.StdOut.WriteLine count & ": Created Internet Explorer"
IE.Visible = True IE.Visible = True
WScript.StdOut.WriteLine IE.HWND WScript.StdOut.WriteLine IE.HWND
Set CreateIeWindow = IE Set CreateIeWindow = IE
exit for exit for
end if end if
WScript.StdOut.WriteLine count & ": Not created"
WScript.Sleep 100 WScript.Sleep 100
WScript.StdOut.WriteLine count & ": Should loop"
Next Next
if CreateIeWindow is nothing then if CreateIeWindow is nothing then
WScript.StdOut.WriteLine "Failed to create InternetExplorer.Application" WScript.StdOut.WriteLine "Failed to create InternetExplorer.Application"