/Lib/FTPLib.ahk

http://7plus.googlecode.com/ · AutoHotKey · 164 lines · 125 code · 18 blank · 21 comment · 19 complexity · 45050c3687821473e4d51774eb6b39e5 MD5 · raw file 

    

  1. /* 

    2. 

  2. http://msdn.microsoft.com/library/en-us/wininet/wininet/ftp_sessions.asp 

    3. 

  3. http://msdn.microsoft.com/library/en-us/wininet/wininet/internetopen.asp 

    4. 

  4. http://msdn.microsoft.com/library/en-us/wininet/wininet/internetconnect.asp 

    5. 

  5. */ 

    6. 

  6. 

    7. 

  7. FtpCreateDirectory(DirName) { 

    8. 

  8. global ic_hInternet 

    9. 

  9. r := DllCall("wininet\FtpCreateDirectoryA", "uint", ic_hInternet, "str", DirName) 

    10. 

  10. If (ErrorLevel != 0 or r = 0) 

    11. 

  11. return 0 

    12. 

  12. else 

    13. 

  13. return 1 

    14. 

  14. } 

    15. 

  15. 

    16. 

  16. FtpRemoveDirectory(DirName) { 

    17. 

  17. global ic_hInternet 

    18. 

  18. r := DllCall("wininet\FtpRemoveDirectoryA", "uint", ic_hInternet, "str", DirName) 

    19. 

  19. If (ErrorLevel != 0 or r = 0) 

    20. 

  20. return 0 

    21. 

  21. else 

    22. 

  22. return 1

    23. 

  23. } 

    24. 

  24. 

    25. 

  25. FtpSetCurrentDirectory(DirName) { 

    26. 

  26. global ic_hInternet 

    27. 

  27. r := DllCall("wininet\FtpSetCurrentDirectoryA", "uint", ic_hInternet, "str", DirName) 

    28. 

  28. If (ErrorLevel != 0 or r = 0) 

    29. 

  29. return 0 

    30. 

  30. else 

    31. 

  31. return 1 

    32. 

  32. } 

    33. 

  33. 

    34. 

  34. FtpPutFile(LocalFile, NewRemoteFile="", Flags=0) { 

    35. 

  35. ;Flags: 

    36. 

  36. ;FTP_TRANSFER_TYPE_UNKNOWN = 0 (Defaults to FTP_TRANSFER_TYPE_BINARY) 

    37. 

  37. ;FTP_TRANSFER_TYPE_ASCII = 1 

    38. 

  38. ;FTP_TRANSFER_TYPE_BINARY = 2 

    39. 

  39. If NewRemoteFile= 

    40. 

  40. NewRemoteFile := LocalFile 

    41. 

  41. global ic_hInternet 

    42. 

  42. r := DllCall("wininet\FtpPutFileA" 

    43. 

  43. , "uint", ic_hInternet 

    44. 

  44. , "str", LocalFile 

    45. 

  45. , "str", NewRemoteFile 

    46. 

  46. , "uint", Flags 

    47. 

  47. , "uint", 0) ;dwContext 

    48. 

  48. If (ErrorLevel != 0 or r = 0) 

    49. 

  49. return 0 

    50. 

  50. else 

    51. 

  51. return 1 

    52. 

  52. } 

    53. 

  53. 

    54. 

  54. FtpGetFile(RemoteFile, NewFile="", Flags=0) { 

    55. 

  55. ;Flags: 

    56. 

  56. ;FTP_TRANSFER_TYPE_UNKNOWN = 0 (Defaults to FTP_TRANSFER_TYPE_BINARY) 

    57. 

  57. ;FTP_TRANSFER_TYPE_ASCII = 1 

    58. 

  58. ;FTP_TRANSFER_TYPE_BINARY = 2 

    59. 

  59. If NewFile= 

    60. 

  60. NewFile := RemoteFile 

    61. 

  61. global ic_hInternet 

    62. 

  62. r := DllCall("wininet\FtpGetFileA" 

    63. 

  63. , "uint", ic_hInternet 

    64. 

  64. , "str", RemoteFile 

    65. 

  65. , "str", NewFile 

    66. 

  66. , "int", 1 ;do not overwrite existing files 

    67. 

  67. , "uint", 0 ;dwFlagsAndAttributes 

    68. 

  68. , "uint", Flags 

    69. 

  69. , "uint", 0) ;dwContext 

    70. 

  70. If (ErrorLevel != 0 or r = 0) 

    71. 

  71. return 0 

    72. 

  72. else 

    73. 

  73. return 1 

    74. 

  74. } 

    75. 

  75. 

    76. 

  76. FtpGetFileSize(FileName, Flags=0) { 

    77. 

  77. ;Flags: 

    78. 

  78. ;FTP_TRANSFER_TYPE_UNKNOWN = 0 (Defaults to FTP_TRANSFER_TYPE_BINARY) 

    79. 

  79. ;FTP_TRANSFER_TYPE_ASCII = 1 

    80. 

  80. ;FTP_TRANSFER_TYPE_BINARY = 2 

    81. 

  81. global ic_hInternet 

    82. 

  82. fof_hInternet := DllCall("wininet\FtpOpenFileA" 

    83. 

  83. , "uint", ic_hInternet 

    84. 

  84. , "str", FileName 

    85. 

  85. , "uint", 0x80000000 ;dwAccess: GENERIC_READ 

    86. 

  86. , "uint", Flags 

    87. 

  87. , "uint", 0) ;dwContext 

    88. 

  88. If (ErrorLevel != 0 or fof_hInternet = 0) 

    89. 

  89. return -1 

    90. 

  90. 

    91. 

  91. FileSize := DllCall("wininet\FtpGetFileSize", "uint", fof_hInternet, "uint", 0) 

    92. 

  92. DllCall("wininet\InternetCloseHandle",  "UInt", fof_hInternet) 

    93. 

  93. return, FileSize 

    94. 

  94. } 

    95. 

  95. 

    96. 

  96. 

    97. 

  97. FtpDeleteFile(FileName) { 

    98. 

  98. global ic_hInternet 

    99. 

  99. r :=  DllCall("wininet\FtpDeleteFileA", "uint", ic_hInternet, "str", FileName) 

    100. 

  100. If (ErrorLevel != 0 or r = 0) 

    101. 

  101. return 0 

    102. 

  102. else 

    103. 

  103. return 1 

    104. 

  104. } 

    105. 

  105. 

    106. 

  106. FtpRenameFile(Existing, New) { 

    107. 

  107. global ic_hInternet 

    108. 

  108. r := DllCall("wininet\FtpRenameFileA", "uint", ic_hInternet, "str", Existing, "str", New) 

    109. 

  109. If (ErrorLevel != 0 or r = 0) 

    110. 

  110. return 0 

    111. 

  111. else 

    112. 

  112. return 1 

    113. 

  113. } 

    114. 

  114. 

    115. 

  115. FtpOpen(Server, Port=21, Username=0, Password=0 ,Proxy="", ProxyBypass="") { 

    116. 

  116. IfEqual, Username, 0, SetEnv, Username, anonymous 

    117. 

  117. IfEqual, Password, 0, SetEnv, Password, anonymous 

    118. 

  118. 

    119. 

  119. If (Proxy != "") 

    120. 

  120. AccessType=3 

    121. 

  121. Else 

    122. 

  122. AccessType=1 

    123. 

  123. ;#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration 

    124. 

  124. ;#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net 

    125. 

  125. ;#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy 

    126. 

  126. ;#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS 

    127. 

  127. 

    128. 

  128. global ic_hInternet, io_hInternet, hModule 

    129. 

  129. hModule := DllCall("LoadLibrary", "str", "wininet.dll") 

    130. 

  130. 

    131. 

  131. io_hInternet := DllCall("wininet\InternetOpenA" 

    132. 

  132. , "str", A_ScriptName ;lpszAgent 

    133. 

  133. , "UInt", AccessType 

    134. 

  134. , "str", Proxy 

    135. 

  135. , "str", ProxyBypass 

    136. 

  136. , "UInt", 0) ;dwFlags 

    137. 

  137. 

    138. 

  138. If (ErrorLevel != 0 or io_hInternet = 0) { 

    139. 

  139. FtpClose() 

    140. 

  140. return 0

    141. 

  141. } 

    142. 

  142. 

    143. 

  143. ic_hInternet := DllCall("wininet\InternetConnectA" 

    144. 

  144. , "uint", io_hInternet 

    145. 

  145. , "str", Server 

    146. 

  146. , "uint", Port 

    147. 

  147. , "str", Username 

    148. 

  148. , "str", Password 

    149. 

  149. , "uint" , 1 ;dwService (INTERNET_SERVICE_FTP = 1) 

    150. 

  150. , "uint", 0 ;dwFlags 

    151. 

  151. , "uint", 0) ;dwContext 

    152. 

  152. 

    153. 

  153. If (ErrorLevel != 0 or ic_hInternet = 0) 

    154. 

  154. return 0 

    155. 

  155. else 

    156. 

  156. return 1 

    157. 

  157. } 

    158. 

  158. 

    159. 

  159. FtpClose() { 

    160. 

  160. global ic_hInternet, io_hInternet, hModule 

    161. 

  161. DllCall("wininet\InternetCloseHandle",  "UInt", ic_hInternet) 

    162. 

  162. DllCall("wininet\InternetCloseHandle",  "UInt", io_hInternet) 

    163. 

  163. DllCall("FreeLibrary", "UInt", hModule) 

    164. 

  164. }
    165.