Request for information (wodWebServer / wodWebServer.NET)
Hello,
I would like to know if this tool could answer my expectations :
- Connection to websites ( http or https protocols) for which i know the login and password
- File download (permanent url or simulation of user action click on a webpage)
- File upload (same as previously)
Thanks.
Best regards.
Re: Request for information
Hi Ludovic,
Yes you can do that all using wodHttpDLX. Did you maybe check wodHttpDLX samples that in included in installation?
You can find it in component Samples folder when you install wodHttpDLX. Maybe they can help you to start developing with wodHttpDLX.
Let us know how it goes.
Regards,
Drazen
Re: Request for information
Hi and thank you to your answer.
I have downloaded the tool but the VB script sample is too basic, it doesn't help me to develop my application.
Have you a small exemple for my request ? a script that connects to an HTTPS site and download a file and send an other file.
Best regards.
Re: Request for information
Ludo,
For downloading, all you need to do is set Filenane property of response object to point to some file on hard-drive:
[code]wodHttp1.Response.Filename = C:weonlydo.jpg
wodHttp1.Get http://www.weonlydo.com/Images/weonlydo.gif [/code]
The above code will download the image to C: .
As for upload, I assume you mean form-based upload. For that, you can use something like this:
[code]wodHttp1.URL = http://www.weonlydo.com/HttpDLX/Demo/TestFormUpload.asp
wodHttp1.Request.FormUpload.Add Name , Text2.Text
wodHttp1.Request.FormUpload.AddFile TheFile , Text1.Text
wodHttp1.Post[/code]
In this code snippet, first parameter of .Add methods are Names of intpu fields, while second parameter is value that is sent (just as if you would type them in browser.
You can even see this form on the following URL: http://www.weonlydo.com/HttpDLX/Demo/TestFormUpload.htm
Hope this helps.
Regards,
Damba
Re: Request for information
I have written this code but i have an error The current connection has been aborted by the network or intermediate services.
![[image]](C:Documents and Settingsdasnevel.CDGRESEAUBureaumessage.jpg)
[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¤cy=BAS
'WScript.Echo http1.Response.Body
If http1.LastError <> 0 Then
MsgBox Unsuccessful Error: & http1.LastError
End If
[/code]
