FileHelper.ahk

SUBMITTED BY: Guest

DATE: April 27, 2014, 12:47 a.m.

FORMAT: Text only

SIZE: 3.5 kB

Raw Download

HITS: 1905

Report
  1. ReadMemory(sFile, pBuffer, nSize = 512, bAppend = False) {
  2. If !(1 + hFile := CreateFile(sFile, 4, 0x40000000, 1))
  3. Return "File not created/opened!"
  4. SetFilePointer(hFile, bAppend ? 2 : 0)
  5. nSize := WriteFile(hFile, pBuffer, nSize)
  6. SetEndOfFile(hFile)
  7. CloseHandle(hFile)
  8. Return nSize
  9. }
  11. WriteMemory(sFile, ByRef sBuffer, nSize = 0) {
  12. If !(1 + hFile := CreateFile(sFile, 3, 0x80000000, 1))
  13. Return "File not found!"
  14. VarSetCapacity(sBuffer, nSize += nSize ? 0 : GetFileSize(hFile))
  15. nSize := ReadFile(hFile, &sBuffer, nSize)
  16. VarSetCapacity(sBuffer, -1)
  17. CloseHandle(hFile)
  18. Return nSize
  19. }
  22. CreateFile(sFile, nCreate = 3, nAccess = 0x1F01FF, nShare = 7, bFolder = False) {
  23. /*
  24. CREATE_NEW = 1
  25. CREATE_ALWAYS = 2
  26. OPEN_EXISTING = 3
  27. OPEN_ALWAYS = 4
  29. GENERIC_READ = 0x80000000
  30. GENERIC_WRITE = 0x40000000
  31. GENERIC_EXECUTE = 0x20000000
  32. GENERIC_ALL = 0x10000000
  34. FILE_SHARE_READ = 1
  35. FILE_SHARE_WRITE = 2
  36. FILE_SHARE_DELETE = 4
  37. */
  38. Return DllCall("CreateFile", "Uint", &sFile, "Uint", nAccess, "Uint", nShare, "Uint", 0, "Uint", nCreate, "Uint", bFolder ? 0x02000000 : 0, "Uint", 0)
  39. }
  41. DeleteFile(sFile) {
  42. Return DllCall("DeleteFile", "Uint", &sFile)
  43. }
  45. ReadFile(hFile, pBuffer, nSize = 1024) {
  46. DllCall("ReadFile", "Uint", hFile, "Uint", pBuffer, "Uint", nSize, "UintP", nSize, "Uint", 0)
  47. Return nSize
  48. }
  50. WriteFile(hFile, pBuffer, nSize = 1024) {
  51. DllCall("WriteFile", "Uint", hFile, "Uint", pBuffer, "Uint", nSize, "UintP", nSize, "Uint", 0)
  52. Return nSize
  53. }
  55. GetFileSize(hFile) {
  56. DllCall("GetFileSizeEx", "Uint", hFile, "int64P", nSize)
  57. Return nSize
  58. }
  60. SetEndOfFile(hFile) {
  61. Return DllCall("SetEndOfFile", "Uint", hFile)
  62. }
  64. SetFilePointer(hFile, nPos = 0, nMove = 0) {
  65. /*
  66. FILE_BEGIN = 0
  67. FILE_CURRENT = 1
  68. FILE_END = 2
  69. */
  70. Return DllCall("SetFilePointerEx", "Uint", hFile, "int64", nMove, "Uint", 0, "Uint", nPos)
  71. }
  73. CloseHandle(Handle) {
  74. Return DllCall("CloseHandle", "Uint", Handle)
  75. }
  78. InternetOpen(sAgent = "AutoHotkey", nType = 4) {
  79. If !DllCall("GetModuleHandle", "str", "wininet")
  80. DllCall("LoadLibrary" , "str", "wininet")
  81. Return DllCall("wininet\InternetOpenA", "str", sAgent, "Uint", nType, "Uint", 0, "Uint", 0, "Uint", 0)
  82. }
  84. InternetOpenUrl(hInet, sUrl, nFlags = 0, pHeaders = 0) {
  85. Return DllCall("wininet\InternetOpenUrlA", "Uint", hInet, "Uint", &sUrl, "Uint", pHeaders, "Uint", -1, "Uint", nFlags | 0x80000000, "Uint", 0) ; INTERNET_FLAG_RELOAD = 0x80000000
  86. }
  88. InternetReadFile(hFile, pBuffer, nSize = 1024) {
  89. DllCall("wininet\InternetReadFile", "Uint", hFile, "Uint", pBuffer, "Uint", nSize, "UintP", nSize)
  90. Return nSize
  91. }
  93. InternetWriteFile(hFile, pBuffer, nSize = 1024) {
  94. DllCall("wininet\InternetWriteFile", "Uint", hFile, "Uint", pBuffer, "Uint", nSize, "UintP", nSize)
  95. Return nSize
  96. }
  98. InternetSetFilePointer(hFile, nPos = 0, nMove = 0) {
  99. Return DllCall("wininet\InternetSetFilePointer", "Uint", hFile, "Uint", nMove, "Uint", 0, "Uint", nPos, "Uint", 0)
  100. }
  102. InternetCloseHandle(Handle) {
  103. Return DllCall("wininet\InternetCloseHandle", "Uint", Handle)
  104. }
comments powered by Disqus