AutoHotkey Community

;Gui, -SysMenu ; no system menu, min/max buttons
;Gui -Caption ; no border
Gui, Margin ,0,0
;Gui, Margin ,20,20

gui, add, button, w200 gurl, press for url down

gui, add, button, w200 h200 vpic gpic, click for cursor location and file size

gui, show, x1300   

return

pic:
mousegetpos,x,y
FileGetSize, size1, map1.jpg

size1+=0   ; ensure result is not blank
loop, 100000
   z++

tooltip %A_GuiEvent% X%X% Y%Y%`n%size1%, x+100

return

url:   

; ****** some improvment in response in the "PIC" routine if the following 3 lines are enabled

;settimer url_down, 100
;return
;url_down:

size1=0
msgbox url d/l press OK to start d/l
fred++
UrlDownloadToFile, http://collections.mun.ca/maps/G_3400_1690_M6_MAP.jpg , map1.jpg
return


f12::reload

esc::exitapp

url := "http://www.google.com"

pwhr := COM_CreateObject( "WinHttp.WinHttpRequest.5.1" ) ; Instantiate a WinHttpRequest object.
pwhr.Open( "GET", url ) ; Initialize an HTTP request. 
pwhr.Send() ; Send the HTTP request.
text := pwhr.ResponseText ; get the response text.

FileAppend, %text%, URLDownLoad.htm

url := "http://www.google.com"

COM_Init()
pwhr := COM_CreateObject( "WinHttp.WinHttpRequest.5.1" )
COM_Invoke( pwhr, "Open", "GET", url )
COM_Invoke( pwhr, "Send" )
text := COM_Invoke( pwhr, "ResponseText" )
COM_Release( pwhr ), COM_Term()

FileAppend, %text%, URLDownLoad.htm

GETMOVIEINFO:
  ;================= reset controls
  GuiControl %$MovieInfoGui%: ,$ExpCover,
  GuiControl %$MovieInfoGui%: Move, $ExpCover, w210 h230
  GuiControl %$MovieInfoGui%: Text, $ExpTitle, Downloading Info...
  GuiControl %$MovieInfoGui%: Text, $ExpRating,
  GuiControl %$MovieInfoGui%: Text, $ExpRelease,
  GuiControl %$MovieInfoGui%: Text, $ExpRuntime,
  GuiControl %$MovieInfoGui%: Text, $ExpBudget,
  GuiControl %$MovieInfoGui%: Text, $ExpPlot,
  GuiControl %$MovieInfoGui%: Text, $ExpCast,
  $TMDbHomepage := ""
  $TMDbTrailer := ""
  Sleep 200
  ;=================
  LV_GetText($MovieToGetInfo,LV_GetNext("C"),1), LV_GetText($IMDbLink,LV_GetNext("C"),3) ;get movie title and imdblink
  ;=================  delete the file if it exists already
  IFExist % $TMDbXMLFile
    FileDelete % $TMDbXMLFile
  ;================= check internet connection
  IF NOT ConnectedToInternet() {
    Notify("Internet Connection - ERROR", "You are not connected to the internet!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
    GuiControl %$MovieInfoGui%: Text, $ExpTitle, No Info Found...
    RETURN
  }
  ;================= if imdblink does not exist do normal search
  IF $IMDbLink =
  {
    UrlDownloadToFile, http://api.themoviedb.org/2.1/Movie.search/en/xml/%$TMDbAPIKey%/%$MovieToGetInfo%, %$TMDbXMLFile%
    IF not XPath_Load(xml, $TMDbXMLFile)
      Notify("Xpath - ERROR", "Xml File could Not be Loaded!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
    FileDelete % $TMDbXMLFile
    $TMDbTitle := XPath(xml, "/OpenSearchDescription/movies/movie[1]/name/text()")
    $TMDbID := XPath(xml, "/OpenSearchDescription/movies/movie[1]/id/text()")
    $TMDbCover := XPath(xml, "/OpenSearchDescription/movies/movie[1]/images/image[@size=""mid""]/@url/text()")
    $TMDbRating := XPath(xml, "/OpenSearchDescription/movies/movie[1]/rating/text()")
    $TMDbRelease := XPath(xml, "/OpenSearchDescription/movies/movie[1]/released/text()")
    $TMDbPlot := XPath(xml, "/OpenSearchDescription/movies/movie[1]/overview/text()")
    ;================= movie.getinfo by id
    UrlDownloadToFile, http://api.themoviedb.org/2.1/Movie.getInfo/en/xml/%$TMDbAPIKey%/%$TMDbID%, %$TMDbXMLFile%
    DownloadXML_MovieGetInfo = http://api.themoviedb.org/2.1/Movie.getInfo/en/xml/%$TMDbAPIKey%/%$TMDbID%
    DownloadFile(DownloadXML_MovieGetInfo)
    IF not XPath_Load(xml, $TMDbXMLFile)
      Notify("Xpath - ERROR", "Xml File could Not be Loaded!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
    FileDelete % $TMDbXMLFile
    $TMDbRuntime := XPath(xml, "/OpenSearchDescription/movies/movie[1]/runtime/text()")
    $TMDbBudget := XPath(xml, "/OpenSearchDescription/movies/movie[1]/budget/text()")
    $TMDbCast := XPath(xml, "/OpenSearchDescription/movies/movie[1]/cast/person[@job=""Actor""]/@name/text()")
    $TMDbHomepage := XPath(xml, "/OpenSearchDescription/movies/movie[1]/homepage/text()")
    $TMDbTrailer := XPath(xml, "/OpenSearchDescription/movies/movie[1]/trailer/text()")
  } ELSE {
  ;================= else do search by imdb id
    RegExMatch($IMDbLink, "/title/\K[^/]+", $IMDbID)
    UrlDownloadToFile, http://api.themoviedb.org/2.1/Movie.imdbLookup/en/xml/%$TMDbAPIKey%/%$IMDbID%, %$TMDbXMLFile%
    IF not XPath_Load(xml, $TMDbXMLFile)
      Notify("Xpath - ERROR", "Xml File could Not be Loaded!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
    FileDelete % $TMDbXMLFile
    $TMDbTitle := XPath(xml, "/OpenSearchDescription/movies/movie/name/text()")
    $TMDbID := XPath(xml, "/OpenSearchDescription/movies/movie/id/text()")
    $TMDbCover := XPath(xml, "/OpenSearchDescription/movies/movie/images/image[1][@size=""mid""]/@url/text()")
    $TMDbRating := XPath(xml, "/OpenSearchDescription/movies/movie/rating/text()")
    $TMDbRelease := XPath(xml, "/OpenSearchDescription/movies/movie/released/text()")
    $TMDbPlot := XPath(xml, "/OpenSearchDescription/movies/movie/overview/text()")
    ;================= movie.getinfo by id
    UrlDownloadToFile, http://api.themoviedb.org/2.1/Movie.getInfo/en/xml/%$TMDbAPIKey%/%$TMDbID%, %$TMDbXMLFile%
    IF not XPath_Load(xml, $TMDbXMLFile)
      Notify("Xpath - ERROR", "Xml File could Not be Loaded!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
    FileDelete % $TMDbXMLFile
    $TMDbRuntime := XPath(xml, "/OpenSearchDescription/movies/movie/runtime/text()")
    $TMDbBudget := XPath(xml, "/OpenSearchDescription/movies/movie/budget/text()")
    $TMDbCast := XPath(xml, "/OpenSearchDescription/movies/movie/cast/person[@job=""Actor""]/@name/text()")
    $TMDbHomepage := XPath(xml, "/OpenSearchDescription/movies/movie/homepage/text()")
    $TMDbTrailer := XPath(xml, "/OpenSearchDescription/movies/movie/trailer/text()")
  }
  ;=================  update controls with info
  UrlDownloadToFile, %$TMDbCover%, %$TMDbTempCover%
  GuiControl %$MovieInfoGui%: ,$ExpCover, % $TMDbTempCover
  FileDelete % $TMDbTempCover
  $TitleText := % (($TMDbTitle = "") ? ("No Info Found...") : ($TMDbTitle))
  GuiControl %$MovieInfoGui%: Text, $ExpTitle, % $TitleText
  GuiControl %$MovieInfoGui%: Text, $ExpRating, % $TMDbRating
  GuiControl %$MovieInfoGui%: Text, $ExpRelease, % $TMDbRelease
  $RuntimeText := (($TMDbTitle = "") ? ("") : ($TMDbRuntime " min"))
  GuiControl %$MovieInfoGui%: Text, $ExpRuntime, % $RuntimeText
  $TMDbBudgetNew := "$" ThousandsSep($TMDbBudget)
  $BudgetText := (($TMDbTitle = "") ? ("") : ($TMDbBudgetNew))
  GuiControl %$MovieInfoGui%: Text, $ExpBudget, % $BudgetText
  GuiControl %$MovieInfoGui%: Text, $ExpPlot, % $TMDbPlot
  GuiControl %$MovieInfoGui%: Text, $ExpCast, % $TMDbCast
RETURN