commit
074e735ccc
|
@ -45,7 +45,7 @@ Sub Navigate(IE, url)
|
|||
End Sub
|
||||
|
||||
Sub ValidateLoggedIn(IE)
|
||||
WScript.StdOut.WriteLine "ValidateLoggedIn start"
|
||||
WScript.StdOut.WriteLine "ValidateLoggedIn start"
|
||||
Navigate IE, "http://forum.pj64-emu.com/"
|
||||
Wait IE
|
||||
|
||||
|
@ -407,10 +407,10 @@ Function Stream_StringToBinary(Text, CharSet)
|
|||
End Function
|
||||
|
||||
Function ReadBinaryFile(path)
|
||||
Const adTypeText = 2
|
||||
Const adTypeBinary = 1
|
||||
Const adTypeText = 2
|
||||
Const adTypeBinary = 1
|
||||
|
||||
dim inStream
|
||||
dim inStream
|
||||
dim myByte,myByteValue,myCharacter
|
||||
|
||||
set inStream=WScript.CreateObject("ADODB.Stream")
|
||||
|
|
Loading…
Reference in New Issue