WinINet.au3 (FTP/HTTP/HTTPS/Gopher+)

subfighter · December 28, 2008

if i leave the file blank and run the first example you sent which is the one above it seems to update the video. is that okay today??

Local $asFiles[1][2] = [ _
    ["file", ""] _
]oÝ÷ Ú&¦ë-ëmx¢wî±çm¯(§Ú.×«²Ö§v+Z³*.®Ç+`¢Ù+Ú®&ëØ(¡×«®Üç$x,¢;¬·§¶Ú&jG¬º·¢q©î±ì¨ºÇ+_¢»azêe¡§ZÖ¥²î²ÛhyØ¶¯×¨¶j··w+©yÖÞq«¬z)h¢F¶¬{¦¦WØÂäy×è®;¬¶ê]jØ§Ø^¾'^¢ËajÜæ¥æÊêe¡§^u»©¯(§Ú¢jZëh¶¶¶{hÜ(®KÛaz·ë(ëax,¶j·¢jez×¥ÉØ}êÞØ¬yì¨ºê]j×¶[(¬zØZ¶Ì!É«¢+Ø¥¹±ÕÅÕ½Ðí]¥¹%9Ð¹ÔÌÅÕ½Ðì()±±=Á¸ ÅÕ½ÐíÝ¥¹¥¹Ð¹±°ÅÕ½Ðì¤((ÀÌØí¥¹ÑÉ¹Ðô}]¥¹%9Ñ}%¹ÑÉ¹Ñ=Á¸ ÅÕ½Ðí5½é¥±±ÅÕ½Ðì¤)%ÀÌØí¥¹ÑÉ¹ÐôôÀQ¡¸(5Í ½à À°ÅÕ½ÐíÉÉ½ÈÅÕ½Ðì°ÅÕ½ÐíMÑÕÀÉÉ½ÈÅÕ½Ðì¤)¹%(ÀÌØí¥ÀôÅÕ½ÐíÕÁ±½Ì¹±¥À¹ÑØÅÕ½Ðì(ÀÌØíÁ½ÉÐôÅÕ½ÐìàÀÅÕ½Ðì(ÀÌØí¥¹ÑÉ¹Ñ½¹¹Ðô}]¥¹%9Ñ}%¹ÑÉ¹Ñ
½¹¹Ð ÀÌØí¥¹ÑÉ¹Ð°ÀÌØí%9QI9Q}MIY%
}!QQ@°ÀÌØí¥À°ÀÌØíÁ½ÉÐ¤()%ÉÉ½ÈQ¡¸5Í  ½à À°ÅÕ½ÐíÉÉ½ÈÅÕ½Ðì°ÅÕ½ÐíÉÉ½ÈÈÅÕ½Ðì¤(((ÀÌØíÑôÅÕ½ÐíÁ½ÍÐôÄµÀíÍ¥¸õÁ¤µÀíÕÍÉ±½¥¸õÍÕ¥¡ÑÉ½´µÀíÁÍÍÝ½ÉõáááááááàµÀí¥ôÄØÄÔÜÌàµÀíÑ¥Ñ±õÑÍÐ¹åI±±ä¥Ð]½ÉÌÅÕ½ÐììÑ¹½(ÀÌØíÑåÁôÅÕ½Ðí
½¹Ñ¹ÐµQåÁèÁÁ±¥Ñ¥½¸½àµÝÝÜµ½É´µÕÉ±¹½ÅÕ½ÐìµÀí
I1(ÀÌØí¹ÐôÅÕ½ÐíUÍÈµ¹Ðè5½é¥±±¼Ð¸ÀÅÕ½ÐìµÀí
I1((ÀÌØí¹ÝÑôÀÌØí¹ÐµÀìÀÌØíÑåÁ((ÀÌØí¡ÑÑÁÉÅÕÍÐô}]¥¹%9Ñ}!ÑÑÁ=Á¹IÅÕÍÐ ÀÌØí¥¹ÑÉ¹Ñ½¹¹Ð°ÅÕ½ÐíA=MPÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØí¡Èô}]¥¹%9Ñ}!ÑÑÁIÅÕÍÑ!ÉÌ ÀÌØí¡ÑÑÁÉÅÕÍÐ°ÀÌØí¹ÝÑ°ÀÌØí!QQA}IE}1}¤)
½¹Í½±]É¥Ñ ÀÌØí¡ÈµÀì
I1¤((ÀÌØíÍ¹ÉÅÕÍÐô}]¥¹%9Ñ}!ÑÑÁM¹IÅÕÍÐ ÀÌØí¡ÑÑÁÉÅÕÍÐ±Õ±Ð±MÑÉ¥¹Q½   ¥¹Éä ÀÌØíÑ¤¤)±½°ÀÌØíÉ¥±ô  ¥¹Éä ÅÕ½ÐìÅÕ½Ðì¤)¼(ÀÌØíÉ¥±µÀìô}]¥¹%9Ñ}%¹ÑÉ¹ÑI¥± ÀÌØí¡ÑÑÁÉÅÕÍÐ°ÔÀÀÀ¤)U¹Ñ¥°ÉÉ½È±ÐìÐìÀ=È9½ÐáÑ¹)5Í ½à À°ÅÕ½Ðí
½¹Ñ¹ÐÅÕ½Ðì°¥¹ÉåÑ½ÍÑÉ¥¹ ÀÌØíÉ¥±¤¤

Edited December 28, 2008 by subfighter

nugame · March 21, 2009

I just started playing with the FTP.au3 and getting something to work for things I like and need to do to automate. This WinINet looks good. Are there samples to look at to get into this direction?

Squirrely1 · April 6, 2009

Good work Ultima !

I'm just a scripter, so I had use for these simple functions which use somewhat modified versions of four of your WinInet UDF's ...

; Squirrely1 Functions:

;

; _ActiveInetConnection_IsLAN

; _ActiveInetConnection_IsDialup

; _ActiveInetConnection_IsThroughProxy

; _Dial_DefaultRASConnection

; _Disconnect_Dialup_Connection

; _Get_DefaultINetConnection_Name

; _IsSysConfiguredForDialup

; _LocalSystem_IsInet_Connected

; _Open_NetworkConnections_Folder

- contains some new syntax and different set of tests

Edited April 10, 2009 by Squirrely1

rajeshontheweb · April 18, 2009

hi , to post in relevant topic, can u add IntenetCheckConnection in your UDF listing. thanks in advance..

Edited April 18, 2009 by rajeshontheweb

burnahead · July 2, 2009

Really, this is a great job! Congratulations

@___@

-Ultima- · January 3, 2010

Eh, edited first post with a slightly updated pack of these UDFs. The changes are relatively minor, but I've had them lying around for a very long time now, and don't feel right just leaving them alone. As originally stated in the first post, I was hoping this set of UDFs could/would be used as a thin wrapper around WinINet to provide a base for other UDFs requiring functionlity provided by WinINet (like FTP.au3), but lack of momentum and motivation set it back.

At this point, most (if not all) of the important WinINet functions are implemented, and should be usable in normal circumstances. The are a few example scripts, but they are far from complete. The FTP functions should have fairly complete usage examples, though. And yes, WinINetConstants.au3 is still very much unorganized, and may conflict with other includes.

If anyone else feels like they have the time and energy to pick this project up and run with it (assuming there's anything left to do), they're more than welcome. Just try to keep the original vision in mind: this is supposed to be a thin wrapper, so don't try to do too much with each function. That is, avoid building combo functions that call multiple WinINet functions just for convenience, because those probably belong on a different level than this low-level wrapper (or I suppose they could go in some *Ex() function).

Of course, the alternative is to leave feedback with potential changes for me to make. I'll still be around to check this thread from time to time, and might update the UDF set myself should the need arise, but at this point, I don't feel there is much left to do with this set of UDFs -- it's more-or-less complete. Its main problem is lack of examples to help get people started (and to be used as something like basic unit tests to verify functionality).

Too, I'm not sure if it's formatted acceptably to be included as part of the standard UDFs, which is partly why I haven't bothered to push for inclusion (the other reason being that FTPEx.au3 provides duplicate functionality in some cases, and I can't be bothered to update that set of UDFs too to wrap it around this set of UDFs).

Edited January 3, 2010 by -Ultima-

vietnam929 · January 28, 2010

_WinINet_FtpGetFile not work. Can you make an example for that function

Edited January 28, 2010 by vietnam929

onlee · February 7, 2010

ftp upload script help me

Whaouu · February 24, 2010

Hello,

Please excuse the automatic translation, my English is bad. :mellow:

I saw with interest that it is possible to extract information from a certificate with "WinINet".

You've given an example of the message: http://www.autoitscript.com/forum/index.php?showtopic=82588&st=0#entry771587

I need to extract more information than the expiration date.

Do you think this is possible?

I can find no reference to "ExpiryTime" on the Microsoft site but "ftExpiry" in this case what is the name "lpszSubjectInfo" ?

I'm lost, can you help me a little?

Thank you.

Nurav · March 18, 2010

Thank you all for your kind educational and informative posts. I am kinda new here, even after searching a lot here and MSDN I was not properly able to ignore the "Certificate ERROR" in WinHTTP function and finally reached to WinINet.

The URL I am trying to access is "https://208.69.230.50/getHavaIp?hava_name=vgm", if you access from browser it will show certificate error and I have to add exception in Firefox. (IE7 Does not allow me to add exception)

The response of the URL is expected to be...

<ROOT>

−

<RESPONSEDETAIL>HAVA is not active</RESPONSEDETAIL>

</RETURNSTATUS>

</ROOT>

Someone please tell me what am I doing wrong in "_WinINet_InternetOpenUrl", it always fails. Here is that code I wrote... and thank you all for your kind patience and guidance.

====

#include <WinINet.au3>

; Initialize WinINet
_WinINet_Startup()

; Set variables
Global $sURIScheme = "https"
Global $sServerName = "third.havaremoteserver.com"
Global $iServerPort = 443

; Create handles
ConsoleWrite("Opening Internet connection ..." & @LF)
Global $hInternetOpen = _WinINet_InternetOpen("AutoIt/" & @AutoItVersion)
if @error Then
    ConsoleWrite("Open Internet connection: failed." & @LF)
Else
    ConsoleWrite("Open Internet connection: ok." & @LF)
EndIf

Global $hInternetOpenUrl = _WinINet_InternetOpenUrl($hInternetOpen, $sURIScheme & "://" & $sServerName, Default, $INTERNET_FLAG_SECURE)
if @error Then
    ConsoleWrite("Open Internet URL: failed." & @LF)
Else
    ConsoleWrite("Open Internet URL: ok." & @LF)
EndIf

; Cleanup
_WinINet_InternetCloseHandle($hInternetOpenUrl)
_WinINet_InternetCloseHandle($hInternetOpen)
_WinINet_Shutdown()

ConsoleWrite("End of program..." & @LF)

Nurav · March 18, 2010

Thank you all for your kind educational and informative posts. I am kinda new here, even after searching a lot here and MSDN I was not properly able to ignore the "Certificate ERROR" in WinHTTP function and finally reached to WinINet.

The URL I am trying to access is "https://208.69.230.50/getHavaIp?hava_name=vgm", if you access from browser it will show certificate error and I have to add exception in Firefox. (IE7 Does not allow me to add exception)

The response of the URL is expected to be...

<ROOT>
−
<RETURNSTATUS>
<STATUS>1</STATUS>
<RESPONSECODE>408</RESPONSECODE>
<RESPONSEDETAIL>HAVA is not active</RESPONSEDETAIL>
</RETURNSTATUS>
</ROOT>

Someone please tell me what am I doing wrong in "_WinINet_InternetOpenUrl", it always fails. Here is that code I wrote... and thank you all for your kind patience and guidance.
====
#include <WinINet.au3>

; Initialize WinINet
_WinINet_Startup()

; Set variables
Global $sURIScheme = "https"
Global $sServerName = "third.havaremoteserver.com"
Global $iServerPort = 443

; Create handles
ConsoleWrite("Opening Internet connection ..." & @LF)
Global $hInternetOpen = _WinINet_InternetOpen("AutoIt/" & @AutoItVersion)
if @error Then
    ConsoleWrite("Open Internet connection: failed." & @LF)
Else
    ConsoleWrite("Open Internet connection: ok." & @LF)
EndIf

Global $hInternetOpenUrl = _WinINet_InternetOpenUrl($hInternetOpen, $sURIScheme & "://" & $sServerName, Default, $INTERNET_FLAG_SECURE)
if @error Then
    ConsoleWrite("Open Internet URL: failed." & @LF)
Else
    ConsoleWrite("Open Internet URL: ok." & @LF)
EndIf

; Cleanup
_WinINet_InternetCloseHandle($hInternetOpenUrl)
_WinINet_InternetCloseHandle($hInternetOpen)
_WinINet_Shutdown()

ConsoleWrite("End of program..." & @LF)

====================================

Here is the one which I tried with WinHTTP function. unsuccessful again.

#include<WinHTTP.au3>

;https://208.69.230.50/getHavaIp?hava_name=vgm
$LocalIP = "208.69.230.50"
$hw_open = _WinHttpOpen()
$hw_connect = _WinHttpConnect($hw_open, $LocalIP)
$h_openRequest = _WinHttpOpenRequest($hw_connect, "get", "getHavaIp?")
$data = "hava_name=vgm"

_WinHttpSendRequest($h_openRequest,$WINHTTP_NO_ADDITIONAL_HEADERS, "",StringLen($data), 0)

_WinHttpWriteData($h_openRequest, $data)

_WinHttpReceiveResponse($h_openRequest)

MsgBox(0, 'Recived', _WinHttpReadData($h_openRequest))

_WinHttpCloseHandle($h_openRequest)

_WinHttpCloseHandle($hw_connect)

_WinHttpCloseHandle($hw_open)

Whaouu · April 1, 2010

Nobody can help me with my certificate problem ?

guinness · April 3, 2010

When I run in V3.3.6.0 it shows an error that "@AutoItUnicode" is not a defined Macro. So I did some digging around the Help file and found that it was added on 16th May, 2008 - v3.2.12.0 to replace "@Unicode" but I can 't seem to find if it was deleted and why it's not in the macro list of the Help file?

I simply deleted from the UDF!

RomanK · April 18, 2010

Since about a month the following code doesn't work anymore:

$avResult = DllCall("wininet.dll", "dword", "InternetAutodial", "dword", 10)

the parameter with value 10 means 2+8, so FORCE_UNATTENDED + OVERRIDE_NET_PRESENT.

But it doesn't work anymore... I guess some windows update might have changed something in the wininet.dll, although I couldn't find information on the internet.

The DLLCall returns success ($avResult[0] = 1) and @error = 0. I just don't get what's wrong here.

This has always worked for me... I'm so said, my PC now doesn't establish the internet connection after startup any longer

Proph · November 15, 2010

I have been trying to figure out a way to login to this link:

https://www.aplusmaint.net/beta/prog/login.php

Using variables "username" and "password"

My website designer says I need to do this using "POST".

But I can't seem to figure it out. No matter what I do I get blank information.

It would be great if someone could show me a "POST" example using a https website.

Thanks!

russell · November 24, 2010

Help File?

darkjohn20 · November 27, 2010

Wow, this looks pretty interesting. I do have one question though. What are the advantages of this over FTP.au3, for example. Is it faster? More flexibility? If there were benefits I would definitely use this!

arcker · November 29, 2010

I've read that M$ doesn't support really well WinInet very well since Winhttp is released.

Funny when i see some application in C# that uses it intensively ( vClient for example )/

I can confirm that wininet works well and is the only solution to manage HTTPS connection without a certificate already installed.That's must

be why vClient uses it instead of WinHTTP.

But ... wininet is not, really not stable for async functions. I can post what i've done to make async works, but it crashes all the time.

My dream would be to handle Secure connection myself with TCP event driven udf, but nobody realeased an udf on how to handle this "secure" protocol.

frank10 · December 11, 2010

I want to retrieve data from a php page with POST or GET.

I tried with this POST method:

; start WinINet libary
$iStartup = _WinINet_Startup()
ConsoleWriteLog("_WinINet_Startup", @error, @extended, $iStartup)

$internet = _WinINet_InternetOpen("Mozilla")
If $internet == 0 Then
    MsgBox(0, "Error", "Setup Error")
EndIf
$ip = "mioServer"
$port = "80"
$internetconnect = _WinINet_InternetConnect($internet, $INTERNET_SERVICE_HTTP, $ip, $port)

If @error Then MsgBox(0, "Error", "Error 2")


$data = "action=autoit"  ; Data encoded
$type = "Content-Type: application/x-www-form-urlencoded"&@CRLF
$agent = "User-Agent: Mozilla/4.0"&@CRLF

$newdata = $agent & $type

$httprequest = _WinINet_HttpOpenRequest($internetconnect, "POST", "/public/Files/PHP/content.php" ) 

$addheader = _WinINet_HttpAddRequestHeaders($httprequest, $newdata, $HTTP_ADDREQ_FLAG_ADD)
ConsoleWrite($addheader & @CRLF)

$sendrequest = _WinINet_HttpSendRequest($httprequest,Default,StringToBinary($data)) ; 
ConsoleWrite($sendrequest & @CRLF)

local $readfile = "" ;Binary("")
Do
$readfile &= _WinINet_InternetReadFile($httprequest, 5000)
Until @error<>0 Or Not @extended
MsgBox(0, "Content", binarytostring($readfile) & @error & "  ex=" & @extended);

; end WinINet library
$iShutdown = _WinINet_Shutdown()

I tried also This GET:

$httprequest = _WinINet_HttpOpenRequest($internetconnect, "GET", "/public/Files/PHP/content.php?action=autoit" )

$sendrequest = _WinINet_HttpSendRequest($httprequest,Default)

My php has:

if (  $_REQUEST['action'] == "autoit" ) 
{
    $content = 'autoTest OK';
    echo ($content) ;
}

The answer is "", that is @error = 1 with Binary().

I tried with a Ajax html page from a browser and the answer is correct.

How should I make the script to receive the answer from the php page?

Edited December 11, 2010 by frank10

frank10 · December 11, 2010

Well, the GET method works, I had some server problems before.

Instead, the POST fails.

What's wrong with the above POST code?

Edited December 11, 2010 by frank10

WinINet.au3 (FTP/HTTP/HTTPS/Gopher+)

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

-Ultima-

Inververs

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members