Quantcast
Channel: AutoIt v3 - General Help and Support
Viewing all articles
Browse latest Browse all 12506
↧

Sending files using HTTP post: (total bytes written = 0)

March 11, 2015, 7:47 am
$
0
0

Hi everybody,

 

I'm currently working on a script for sending files to a remote server by using the HTTP post method.

It's not my fav. way of sending files, but the remote party only supports this method.

So be it.

 

After digging through many examples over the net, I've managed to create a script that seems to do the trick.

 

There is one issue with my approach.

When I'm checking the returned @extended value from _WinHttpWriteData it always returns 0, despite a 200 OK status code from the remote site.

How come, what am I doing wrong here.

 

The script runs against a public httppost test server, so if needed you can run the script as well.

 

Thanks for your time.

AutoIt          
  1. #include <WinHttp.au3>
    2. 

  2.  
    3. 

  3. If FileExists(@ScriptDir & "\a_text_file.txt") Then
    4. 

  4.     SendFile("a_text_file.txt")
    5. 

  5. Else
    6. 

  6.     MsgBox(64,"Error","Unknown file, nothing to do")
    7. 

  7. EndIf
    8. 

  8.  
    9. 

  9. If FileExists(@ScriptDir & "\another_text_file.txt") Then
    10. 

  10.     SendFile("another_text_file.txt")
    11. 

  11. Else
    12. 

  12.     MsgBox(64,"Error","Unknown file, nothing more to do")
    13. 

  13. EndIf
    14. 

  14.  
    15. 

  15. Exit
    16. 

  16.  
    17. 

  17. Func SendFile($sFileName)
    18. 

  18.  
    19. 

  19.  
    20. 

  20.     Local $sFolder = @ScriptDir & "\"
    21. 

  21.     Local $sFileData = FileRead($sFolder & $sFileName)
    22. 

  22.     Local $iFileLen = StringLen($sFileData)
    23. 

  23.  
    24. 

  24.     Local $bUseProxy = 0
    25. 

  25.     Local $sProxyIP = "0.0.0.0"
    26. 

  26.     Local $sProxyPort = "8080"
    27. 

  27.  
    28. 

  28.     Local $sUserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:33.0) Gecko/20100101 Firefox/33.0"
    29. 

  29.     Local $sMethod = "POST"
    30. 

  30.     Local $sHttpVersion = "HTTP/1.1"
    31. 

  31.  
    32. 

  32.     Local $iBytesWritten
    33. 

  33.     Local $sResponseHeader
    34. 

  34.     Local $sResponseData
    35. 

  35.     Local $hSession
    36. 

  36.     Local $hConnect
    37. 

  37.     Local $hRequest
    38. 

  38.  
    39. 

  39.     Local $sUrlPrefix = "http://"
    40. 

  40.     Local $sHostName = "posttestserver.com"
    41. 

  41.     Local $sUrlSuffix = "/"
    42. 

  42.     Local $sPHP_Script = "post.php"
    43. 

  43.     Local $sPHP_Param = "?dump&html&dir=testing_the_script"
    44. 

  44.  
    45. 

  45.     Local $sUserName = ""
    46. 

  46.     Local $sUserPass = ""
    47. 

  47.  
    48. 

  48.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    49. 

  49.     ; 1) Create/Open a session handle
    50. 

  50.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    51. 

  51.  
    52. 

  52.     ;Depending on using a proxy we use the appropriate function call
    53. 

  53.     If $bUseProxy = 1 Then
    54. 

  54.         $hSession = _WinHttpOpen($sUserAgent,$WINHTTP_ACCESS_TYPE_NAMED_PROXY,$sProxyIP & ":" & $sProxyPort,$WINHTTP_NO_PROXY_BYPASS,0)
    55. 

  55.         If @error Then ConsoleWriteError("Step 1) _WinHttpOpen(" & $sUserAgent & "," & $WINHTTP_ACCESS_TYPE_NAMED_PROXY & "," & $sProxyIP & ":" & $sProxyPort & "," & $WINHTTP_NO_PROXY_BYPASS & ",0) raises error: " & @error & @CRLF)
    56. 

  56.         ConsoleWrite("Step 1) Proxy ==> $hSession: " & $hSession & @CRLF)
    57. 

  57.     Else
    58. 

  58.         $hSession = _WinHttpOpen($sUserAgent, $WINHTTP_ACCESS_TYPE_NO_PROXY,$WINHTTP_NO_PROXY_NAME,$WINHTTP_NO_PROXY_BYPASS,0)
    59. 

  59.         If @error Then ConsoleWriteError("Step 1) _WinHttpOpen(" & $sUserAgent & "," & $WINHTTP_ACCESS_TYPE_NO_PROXY & "," & $WINHTTP_NO_PROXY_NAME & "," & $WINHTTP_NO_PROXY_BYPASS & ",0) raises error: " & @error & @CRLF)
    60. 

  60.         ConsoleWrite("Step 1) No proxy ==> $hSession: " & $hSession & @CRLF)
    61. 

  61.     EndIf
    62. 

  62.  
    63. 

  63.  
    64. 

  64.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    65. 

  65.     ; 2) Create/Open connection handle
    66. 

  66.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    67. 

  67.  
    68. 

  68.     ; Are we using HTTP or HTTPS?
    69. 

  69.     If StringInStr($sUrlPrefix,"Https",0) Then  ; HTTPS
    70. 

  70.         If $hSession Then $hConnect = _WinHttpConnect($hSession,$sURLPrefix & $sHostName & $sUrlSuffix,$INTERNET_DEFAULT_HTTPS_PORT)
    71. 

  71.         ConsoleWrite("Step 2) Executing function _WinHttpConnect(" & $hSession & "," & $sURLPrefix & $sHostName & $sUrlSuffix & "," & $INTERNET_DEFAULT_HTTPS_PORT & ") " & @CRLF)
    72. 

  72.         ConsoleWrite("Step 2) $hConnect: " & $hConnect & @CRLF)
    73. 

  73.  
    74. 

  74.     Else        ; HTTP
    75. 

  75.         If $hSession Then $hConnect = _WinHttpConnect($hSession,$sURLPrefix & $sHostName & $sUrlSuffix,$INTERNET_DEFAULT_HTTP_PORT)
    76. 

  76.         ConsoleWrite("Step 2) Executing function _WinHttpConnect(" & $hSession & "," & $sURLPrefix & $sHostName & $sUrlSuffix & "," & $INTERNET_DEFAULT_HTTP_PORT & ") " & @CRLF)
    77. 

  77.         ConsoleWrite("Step 2) $hConnect: " & $hConnect & @CRLF)
    78. 

  78.     EndIf
    79. 

  79.  
    80. 

  80.  
    81. 

  81.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    82. 

  82.     ; 3a) Create/Open a request handle
    83. 

  83.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    84. 

  84.  
    85. 

  85.     ; Are we using HTTP or HTTPS?
    86. 

  86.     If StringInStr($sUrlPrefix,"Https",0) Then  ; HTTPS
    87. 

  87.         If $hConnect Then $hRequest = _WinHttpOpenRequest($hConnect,$sMethod, $sUrlSuffix & $sPHP_Script & $sPHP_Param, $sHttpVersion,$WINHTTP_NO_REFERER, "*/*", $WINHTTP_FLAG_SECURE)
    88. 

  88.         ConsoleWrite("Step 3a) Executing funcion: _WinHttpOpenRequest(" & $hConnect & "," & $sMethod & "," & $sUrlSuffix & $sPHP_Script & $sPHP_Param & "," & $sHttpVersion & "," & $WINHTTP_NO_REFERER & ",*/*," & $WINHTTP_FLAG_SECURE & ")" & @CRLF)
    89. 

  89.         ConsoleWrite("Step 3a) $hRequest: " & $hRequest & @CRLF)
    90. 

  90.     Else        ; HTTP
    91. 

  91.         If $hConnect Then $hRequest = _WinHttpOpenRequest($hConnect,$sMethod, $sUrlSuffix & $sPHP_Script & $sPHP_Param, $sHttpVersion,$WINHTTP_NO_REFERER, "*/*", Default)
    92. 

  92.         ConsoleWrite("Step 3a) Executing funcion: _WinHttpOpenRequest(" & $hConnect & "," & $sMethod & "," & $sUrlSuffix & $sPHP_Script & $sPHP_Param & "," & $sHttpVersion & "," & $WINHTTP_NO_REFERER & ",*/*," & Default & ")" & @CRLF)
    93. 

  93.         ConsoleWrite("Step 3a) $hRequest: " & $hRequest & @CRLF)
    94. 

  94.     EndIf
    95. 

  95.  
    96. 

  96.     If $sUserName <> "" Then
    97. 

  97.         ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    98. 

  98.         ; 3b)Pass credentionals before sending a request
    99. 

  99.         ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    100. 

  100.         _WinHttpSetCredentials($hRequest, $WINHTTP_AUTH_TARGET_SERVER, $WINHTTP_AUTH_SCHEME_BASIC, $sUserName,$sUserPass)
    101. 

  101.         If @error Then ConsoleWriteError("Step 3b) _WinHttpSetCredentials raised an error: " & @error & @CRLF)
    102. 

  102.         ConsoleWrite("Step 3b) Executing funcion: _WinHttpSetCredentials(" & $hRequest & "," & $WINHTTP_AUTH_TARGET_SERVER & "," & $WINHTTP_AUTH_SCHEME_BASIC & "," & $sUserName & "," & $sUserPass & ")" & @CRLF)
    103. 

  103.  
    104. 

  104.  
    105. 

  105.         ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    106. 

  106.         ; 3c)Send the request
    107. 

  107.         ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    108. 

  108.         If $hRequest Then _WinHttpSendRequest($hRequest,$WINHTTP_NO_ADDITIONAL_HEADERS,$WINHTTP_NO_REQUEST_DATA,0,0)
    109. 

  109.         If @error Then ConsoleWriteError("Step 3c) _WinHttpSendRequest raised an error: " & @error & @CRLF)
    110. 

  110.         ConsoleWrite("Step 3c) Executing funcion: _WinHttpSendRequest(" & $hRequest & "," & $WINHTTP_NO_ADDITIONAL_HEADERS & "," & $WINHTTP_NO_REQUEST_DATA & ",0,0)" & @CRLF)
    111. 

  111.         ConsoleWrite("Step 3c) $hRequest: " & $hRequest & @CRLF)
    112. 

  112.  
    113. 

  113.  
    114. 

  114.         ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    115. 

  115.         ; 3d) End the request
    116. 

  116.         ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    117. 

  117.         _WinHttpReceiveResponse($hRequest)
    118. 

  118.  
    119. 

  119.         $sResponseHeader = _WinHttpQueryHeaders($hRequest)
    120. 

  120.         If @error Then ConsoleWriteError("Step 3d) _WinHttpQueryHeaders raised an error: " & @error & @CRLF)
    121. 

  121.         ConsoleWrite("Step 3d) $sResponseHeader: " & $sResponseHeader & @CRLF)
    122. 

  122.  
    123. 

  123.         $iStatusCode = _WinHttpQueryHeaders($hRequest,$WINHTTP_QUERY_STATUS_CODE)
    124. 

  124.         If @error Then ConsoleWriteError("Step 3d) _WinHttpQueryHeaders raised an error: " & @error & @CRLF)
    125. 

  125.         ConsoleWrite("Step 3d) $iStatusCode: " & $iStatusCode & @CRLF & @CRLF)
    126. 

  126.     EndIf
    127. 

  127.  
    128. 

  128.  
    129. 

  129.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    130. 

  130.     ; 4) Send the next request
    131. 

  131.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    132. 

  132.     _WinHttpSendRequest($hRequest,$WINHTTP_NO_ADDITIONAL_HEADERS, $sFileData, $iFileLen,Default)
    133. 

  133.  
    134. 

  134.     If @error Then ConsoleWriteError("Step 4) _WinHttpSendRequest raised an error: " & @error & @CRLF)
    135. 

  135.     ConsoleWrite("Step 4) Executing function _WinHttpSendRequest(" & $hRequest & "," & $WINHTTP_NO_ADDITIONAL_HEADERS & "," &  $sFileData & "," & $iFileLen & ",Default)" & @CRLF)
    136. 

  136.     ConsoleWrite("Step 4) $hRequest: " & $hRequest & @CRLF)
    137. 

  137.  
    138. 

  138.  
    139. 

  139.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    140. 

  140.     ; 5) Write data to server
    141. 

  141.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    142. 

  142.     _WinHttpWriteData($hRequest,$sFileData,0)
    143. 

  143.  
    144. 

  144.     ;Success - Returns 1
    145. 

  145.     ;- @extended receives the number of bytes written.
    146. 

  146.  
    147. 

  147.     $iBytesWritten = @extended
    148. 

  148.     ;Despite a successful post, @extended remains 0
    149. 

  149.     ;Why??????
    150. 

  150.  
    151. 

  151.     ConsoleWrite("Step 5) Executing function _WinHttpWriteData(" & $hRequest & "," & $sFileData & ",0)" & @CRLF)
    152. 

  152.     If @error Then
    153. 

  153.         ConsoleWriteError("Step 5) _WinHttpWriteData raised an error: " & @error & @CRLF)
    154. 

  154.     Else
    155. 

  155.         ConsoleWrite("Step 5) File " & $sFolder & $sFileName & " succesfully send to " & $sHostName & " Total bytes written: " & $iBytesWritten & @CRLF)
    156. 

  156.     EndIf
    157. 

  157.  
    158. 

  158.  
    159. 

  159.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    160. 

  160.     ; 6) End the request
    161. 

  161.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    162. 

  162.     _WinHttpReceiveResponse($hRequest)
    163. 

  163.  
    164. 

  164.  
    165. 

  165.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    166. 

  166.     ; 7) Show response from server
    167. 

  167.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    168. 

  168.     $sResponseHeader = _WinHttpQueryHeaders($hRequest)
    169. 

  169.     ConsoleWrite("Step 7) $sResponseHeader: " & $sResponseHeader & @CRLF)
    170. 

  170.  
    171. 

  171.     $iStatusCode = _WinHttpQueryHeaders($hRequest,$WINHTTP_QUERY_STATUS_CODE)
    172. 

  172.     ConsoleWrite("Step 7) $iStatusCode: " & $iStatusCode & @CRLF)
    173. 

  173.     ConsoleWrite("Step 7) Remote server responded with: " & _WinHttpReadData($hRequest) & @CRLF)
    174. 

  174.  
    175. 

  175.  
    176. 

  176.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    177. 

  177.     ; 8) Close handles
    178. 

  178.     ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    179. 

  179.     _winHttpCloseHandle($hRequest)
    180. 

  180.     _winHttpCloseHandle($hConnect)
    181. 

  181.     _winHttpCloseHandle($hSession)
    182. 

  182.  
    183. 

  183. EndFunc
    184.

Attached Files

↧
Search
Viewing all articles
Browse latest Browse all 12506

Trending Articles

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

Download: FK ft Shenky – Nakuyewa ”Prod by: Shenky”

February 16, 2017, 4:24 pm

How to win at Markstrat (Markstrat Tips and Tricks) – Vodites

January 5, 2014, 10:34 pm

Ominde Commission Report and Recommendations – Ominde Report of 1964

March 16, 2015, 5:14 am

Bureau of Internal Revenue: Regional Offices (Directory)

January 9, 2014, 11:06 pm

GO 53 on Enhancement of Ex-gratia upto 5 Lakhs Toddy Tappers in Telangana

March 26, 2017, 11:23 pm

Cakewalk CA-2A Leveling Amplifier v2.0.1.97 WiN, v2.0.1.96 OSX Incl Keygen

October 17, 2016, 7:20 am

Mp3 Download: Mdu - Kunjenjenjena

December 7, 2017, 8:16 am

How the kill the job , when DTP request running for long hours.

July 26, 2013, 2:41 am

Microsoft Intune から展開しているアプリのアップデートについて

October 17, 2016, 4:11 am

18-year-old girl was beaten for half an hour by two Northampton men in 'an...

September 1, 2017, 10:00 pm

Car crash in Dunton Bassett leaves driver in critical condition

October 7, 2014, 7:51 am

Macky 2, Two Others In Road Accident

March 29, 2015, 5:34 am

Application log 00000000000000089514: Could not convert queue DLVST90CLNT

May 14, 2015, 11:27 pm

Detroit mafia: D’Anna Brothers agree to plea deal

April 21, 2016, 6:56 am

Delivery block field greyed out using VA02

January 26, 2016, 2:52 pm

Muloraki Au

June 22, 2016, 1:44 am

【個人撮影】スマホのプライベート映像♪「中に出さないで///」カラオケ屋での生ハメ撮りが流出ｗ【リベンジポルノ】＠PornHub

October 12, 2017, 2:23 pm

BREAKING NEWS: Diamond Platnumz Is Reported Dead After Ghastly Car Accident

February 9, 2018, 4:56 am

FIAT 500 B0111 B0112

July 5, 2018, 10:31 am
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>