Re: Request for information (General questions)

by Ludo, Friday, October 10, 2008, 08:52 (5679 days ago) @ wodDamir

I have written this code but i have an error The current connection has been aborted by the network or intermediate services.

[code]
Option Explicit
Dim http1, path
Set http1 = WScript.CreateObject( WeOnlyDo.wodHttpDLXCom.1 , wod_ )
path = Left(WScript.ScriptFullName,(Len(WScript.ScriptFullName) - (Len(WScript.ScriptName) + 1)))

'http1.ProxyType = ProxyWEBStandard
http1.ProxyType = 3
http1.ProxyHostname = 0.0.0.0
http1.ProxyPort = 80

http1.URL = http://edw.morningstar.com/login.aspx
http1.Request.FormPost.Add email , email@email.com
http1.Request.FormPost.Add password , password

'http1.Request.FormPost.Add Submit= ,

'Envoi de la requette POST avec ses parametres
http1.Post

'RECUP FICHIER
'http1.Blocking = 1
http1.Response.Filename = C:Program FilesWeOnlyDo.ComHttpDLXSamplesVBSPerformance_BAS.zip

http1.Get http://edw.morningstar.com/download.aspx?action=media&currency=BAS
'WScript.Echo http1.Response.Body

If http1.LastError <> 0 Then
MsgBox Unsuccessful Error: & http1.LastError
End If

[/code]