Advertisement
anonymous1184

update().ahk

Jul 12th, 2022
1,448
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Update() {
  2.     url := "https://raw.githubusercontent.com/Gewerd-Strauss/AHK-Code-Snippets/Update()-Test/version.ini"
  3.     http := ComObjCreate("WinHttp.WinHttpRequest.5.1")
  4.     http.Open("GET", url, false), http.Send()
  5.     remote := http.responseText
  6.     FileRead current, % A_ScriptDir "\version.ini"
  7.     if (current = remote)
  8.         return
  9.     MsgBox 0x40024,, New version`, update?
  10.     IfMsgBox No
  11.         return
  12.     url := "https://github.com/Gewerd-Strauss/AHK-Code-Snippets/archive/refs/heads/Update()-Test.zip"
  13.     file := A_Temp "\update.zip"
  14.     UrlDownloadToFile % url, % file
  15.     shell := ComObjCreate("Shell.Application")
  16.     root := file "\AHK-Code-Snippets-Update-Test" ;**
  17.     items := shell.Namespace(root).Items
  18.     for item in items
  19.         shell.Namespace(A_ScriptDir).CopyHere(item, 0x14) ; FOF_SILENT|FOF_NOCONFIRMATION
  20.     MsgBox 0x40040,, Update finished!
  21.     Reload
  22. }
  23.  
  24. ; FOF_MULTIDESTFILES        := 0x00000001 ;     1
  25. ; FOF_CONFIRMMOUSE          := 0x00000002 ;     2
  26. ; FOF_SILENT                := 0x00000004 ;     4
  27. ; FOF_RENAMEONCOLLISION     := 0x00000008 ;     8
  28. ; FOF_NOCONFIRMATION        := 0x00000010 ;    16
  29. ; FOF_WANTMAPPINGHANDLE     := 0x00000020 ;    32
  30. ; FOF_ALLOWUNDO             := 0x00000040 ;    64
  31. ; FOF_FILESONLY             := 0x00000080 ;   128
  32. ; FOF_SIMPLEPROGRESS        := 0x00000100 ;   256
  33. ; FOF_NOCONFIRMMKDIR        := 0x00000200 ;   512
  34. ; FOF_NOERRORUI             := 0x00000400 ;  1024
  35. ; FOF_NO_UI                 := 0x00000614 ;  1556
  36. ; FOF_NOCOPYSECURITYATTRIBS := 0x00000800 ;  2048
  37. ; FOF_NORECURSION           := 0x00001000 ;  4096
  38. ; FOF_NO_CONNECTED_ELEMENTS := 0x00002000 ;  8192
  39. ; FOF_WANTNUKEWARNING       := 0x00004000 ; 16384
  40. ; FOF_NORECURSEREPARSE      := 0x00008000 ; 32768
  41.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement