HTA application for artist search using Google, Bing and Amazon
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <script src="http://ajax.cdnjs.com/ajax/libs/json2/20121008/json2.js"></script> | |
| <script src="http://ajax.googleapis.com/ajax/libs/dojo/1.6/dojo/dojo.js" data-dojo-config="parseOnLoad:true"></script> | |
| <script> | |
| dojo.require("dojo.parser"); | |
| dojo.require("dojox.image.LightboxNano"); | |
| </script> | |
| <HTA:APPLICATION | |
| APPLICATIONNAME="Artist search" | |
| ID="artistSearch" | |
| VERSION="0.2" | |
| INNERBORDER="no" | |
| BORDER="thin" | |
| SINGLEINSTANCE="no" | |
| NAVIGABLE="no" | |
| MAXIMIZEBUTTON="no" | |
| MINIMIZEBUTTON="yes" | |
| CONTEXTMENU="no" | |
| SELECTION ="no" | |
| SCROLL="no" | |
| ICON="icon.ico" | |
| /> | |
| <style type="text/css"> | |
| body { background-color: #fff; margin: 0; border: 0; padding: 0; } | |
| table { border-spacing: 10px; } | |
| div { height: 350px; padding: 0; } | |
| div.google { float: left; width: 600px; background-color: #4285F4; } | |
| div#amazon_l, div#amazon_r { width: 300px; float: right; background-color: #fff; } | |
| div#fanart { width: 300px; float: right; background-color: #C2454B; } | |
| div#bing { width: 300px; float: left; background-color: #FFB900; } | |
| div#bing_opt { width: 300px; display: none; background-color: #FFB900; } | |
| div#nav { position: absolute; top: 12px; left: 550px; width: 100px; height: 18px; } | |
| td { display: block; max-width: 154px; min-height: 20px; font: menu; padding-left: 12px; } | |
| td.split {padding-left: 26px; } | |
| td.header { height: 35px; } | |
| td.header>img { padding-right: 10px; border: 0; } | |
| span { float: left; font: menu; font-size: 8pt; color: #333; border: 0; } | |
| span.button { width: 16px; height: 16px; margin: 0 4px; } | |
| span.favicon { width: 16px; height: 16px; margin: 0 4px; } | |
| span#default { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') 0px 0px; } | |
| span#wide { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -16px 0px; } | |
| span#save { float: right; background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -32px 0px; } | |
| span#google { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -0px -32px; } | |
| span#bing { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -16px -32px; } | |
| span#amazon { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -32px -32px; } | |
| span#fanart { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -48px -32px; } | |
| span#default:hover { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') 0px -16px; } | |
| span#wide:hover { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -16px -16px; } | |
| span#save:hover { background:url('http://dl.dropboxusercontent.com/u/30782742/img/sprites.png') -32px -16px; } | |
| span.message { display: block; float: none; border: 1px solid red; color: white; padding: 10px; margin: 100px auto; width: 200px; } | |
| span.button:hover { cursor: hand; } | |
| img.thumb { width: 120px; height: 120px; } | |
| a { text-decoration: none; color: #000; padding: 2px; } | |
| a:hover { color: #EB008B; border: 0; } | |
| a img { border: 2px solid #333; border-radius: 10px; } | |
| a img:hover { border: 2px solid #00ACEE; } | |
| </style> | |
| </head> | |
| <script language="javascript"> | |
| function Google(artist) | |
| { | |
| var jsonData = Request("http://ajax.googleapis.com/ajax/services/search/images?v=1.0&q=" + encodeURI(artist) + "&imgsz=large&rsz=8") | |
| try | |
| { | |
| var result = JSON.parse(jsonData); | |
| var gTable = "<div id='google' class='google'><table><tr><td class='header'><span class='favicon' id='google'></span><a href='https://www.google.com/search?q=" + artist + "&tbm=isch' target='_blank' title='Open in browser'>more...</a></td></tr><tr>\r\n"; | |
| for (i in result.responseData.results) | |
| { | |
| var res = result.responseData.results[i]; | |
| gTable += (i!=0 && i%4==0) ? "</tr><tr>" : ""; | |
| split = (i==2 || i==6) ? " class='split'" : ""; | |
| gTable += "<td" + split + "><a dojoType='dojox.image.LightboxNano' title='Preview' href='" + res.url + "'><img class='thumb' src='" + | |
| res.tbUrl + "'></a><span class='button' id='save' title='Save...' onclick='Download(\"" + res.url + "\")'> </span>" + | |
| "<span>" + res.width + " x " + res.height + "</span></td>\r\n"; | |
| } | |
| return gTable + "</table></div>"; | |
| } | |
| catch (e) | |
| { | |
| return "<div id='google' class='google'><span class='message'>" + e.name + ": " + e.message + "</span></div>"; | |
| } | |
| } | |
| function swapNodes(node1, node2) | |
| { | |
| node1.parentNode.replaceChild(node1, node2); | |
| node1.parentNode.insertBefore(node2, node1); | |
| } | |
| function prependNode(node1, node2) { node1.parentNode.insertBefore(node2, node1); } | |
| function uenc(s) { return encodeURIComponent(s); } | |
| </script> | |
| <script language="vbscript"> | |
| arg = Split(artistSearch.commandLine, Chr(34)) | |
| If Ubound(arg) > 2 Then | |
| artist = arg(3) | |
| Else | |
| msgbox "Example usage:" & vbCrLf & vbCrLf & "artistSearch.hta ""%artist%"" [""$directory_path(%path%)""]", 64, "Information" | |
| window.close | |
| End If | |
| default_folder = "" | |
| default_filename = artist | |
| Function Bing(artist) | |
| With CreateObject("MSXML2.DOMDocument.6.0") | |
| .async = False | |
| .validateOnParse = False | |
| .resolveExternals = True | |
| .setProperty "ProhibitDTD", False | |
| url = "http://www.bing.com/images/search?q=" & uenc(artist) & "&view=large" | |
| If .load(url) Then | |
| .setProperty "SelectionLanguage", "XPath" | |
| .setProperty "SelectionNamespaces", "xmlns:xhtml='http://www.w3.org/1999/xhtml'" | |
| bmTable = "<div id='bing_main' class='bingMain'><div id='bing'><table><tr><td class='header'><span class='favicon' id='bing'></span><a href='http://www.bing.com/images/search?q=" & artist & "' target='_blank' title='Open in browser'>more...</a></td></tr><tr>" & vbCrLf | |
| For Each elem In .selectNodes("//xhtml:a[@m]") | |
| For Each m In Split(elem.getAttribute("m"), """,") | |
| mm = Split(m, ":", 2) | |
| If mm(0) = "imgurl" Then imgurl = Replace(mm(1), """", "") | |
| Next | |
| If Not c = 0 Then | |
| If c Mod 8 = 0 Then | |
| bTable = bTable & "</tr></table></div></div><div id='bing_opt' class='bingOpt'><div id='bing'><table><tr><td class='header'></td></tr><tr>" | |
| ElseIf c Mod 4 = 0 Then | |
| bTable = bTable & "</tr></table></div><div id='bing'><table><tr><td class='header'></td></tr><tr>" | |
| ElseIf c Mod 2 = 0 And (c < 8 Or Not c = 12) Then | |
| bTable = bTable & "</tr><tr>" | |
| End If | |
| End If | |
| res = Split(elem.getAttribute("t2"), Chr(183))(0) | |
| bTable = bTable + "<td><a dojoType='dojox.image.LightboxNano' title='Preview' href='" & imgurl &_ | |
| "'><img class='thumb' src='http://ts1.mm.bing.net/th?id=" & elem.getAttribute("ihk") & "&w=150&h=150'></a>" &_ | |
| "<span id='save' class='button' title='Save...' onclick='Download(""" & imgurl & """)'> </span>" & "<span>" & res & "</span></td>" & vbCrLf | |
| c = c + 1 | |
| If c = 16 Then Exit For | |
| Next | |
| If Len(bTable) > 0 Then Bing = bmTable & bTable & "</table></div></div>" | |
| End If | |
| End With | |
| End Function | |
| Function Amazon(artist) | |
| Set hmac = CreateObject("System.Security.Cryptography.HMACSHA256") | |
| Set ascii = CreateObject("System.Text.ASCIIEncoding") | |
| artist = uenc(artist) | |
| en = Split("( ) ' ,") : de = Split("%27 %28 %29 %2C") | |
| For k = LBound(en) To UBound(en) : artist = Replace(artist, en(k), de(k)) : Next | |
| DT = Year(Date()) & "-" & Pad(Month(Date())) & "-" & Pad(Day(Date())) & "T" & Pad(Hour(Now())) & ":" & Pad(Minute(Now())) & ":" & Pad(Second(Now())) & "Z" | |
| DataString = "AWSAccessKeyId=AKIAJQ3PY445MLS5KN6Q&Artist=" & artist & "&AssociateTag=delescenforgd-20&Operation=ItemSearch&ResponseGroup=Images&SearchIndex=Music&Service=AWSECommerceService&Timestamp=" & Escape(DT) & "&Version=2011-08-01" | |
| Data = "GET" & vbLf & "webservices.amazon.com" & vbLf & "/onca/xml" & vbLf & DataString | |
| hmac.Key = ascii.GetBytes_4("mTd4V3xsnzKD/LFnERB/zBjgfO+CdMwm/OLBClLa") | |
| hash = hmac.ComputeHash_2((ASCII.GetBytes_4(Data))) | |
| Signature = Replace(Escape(Base64Encode(hash)), "+", "%2B") | |
| With CreateObject("MSXML2.DOMDocument.6.0") | |
| .async = False | |
| If .load("http://webservices.amazon.com/onca/xml?" & DataString & "&Signature=" & Signature) Then | |
| .setProperty "SelectionLanguage", "XPath" | |
| .setProperty "SelectionNamespaces", "xmlns:a='http://webservices.amazon.com/AWSECommerceService/2011-08-01'" | |
| amTable = "<div id='amazon_l'><table><tr><td class='header'><span class='favicon' id='amazon'></span><a href='http://www.amazon.com/s?field-keywords=" & artist & "' target='_blank' title='Open in browser'>more...</a></td></tr><tr>" | |
| For Each elem In .selectNodes("//a:Items/a:Item/a:LargeImage") | |
| If c Mod 4 = 0 And c <> 0 Then | |
| aTable = aTable & "</tr></table></div><div id='amazon_r'><table><tr><td class='header'></td></tr><tr>" & vbCrLf | |
| ElseIf c Mod 2 = 0 And c <> 0 Then | |
| aTable = aTable & "</tr><tr>" | |
| End If | |
| aTable = aTable + "<td><a dojoType='dojox.image.LightboxNano' title='Preview' href='" & elem.selectSingleNode("a:URL").text &_ | |
| "'><img class='thumb' src='" & elem.parentNode.selectSingleNode("a:MediumImage/a:URL").text & "'></a>" &_ | |
| "<span class='button' id='save' title='Save...' onclick='Download(""" & elem.selectSingleNode("a:URL").text & """)'> </span>" &_ | |
| "<span>" & elem.selectSingleNode("a:Width").text & " x " & elem.selectSingleNode("a:Height").text & "</span></td>" & vbCrLf | |
| c = c + 1 | |
| If c = 8 Then Exit For | |
| Next | |
| If Len(aTable) > 0 Then Amazon = amTable & aTable & "</table></div>" | |
| End If | |
| End With | |
| End Function | |
| Function Pad(n) : Pad = Right(String(2, "0") & n, 2) : End Function | |
| Function Base64Encode(s) | |
| Set dom = CreateObject("MSXML2.DOMDocument.3.0") | |
| Set elem = dom.appendChild(dom.createElement("root")) | |
| elem.dataType = "bin.base64" | |
| elem.nodeTypedValue = s | |
| Base64Encode = elem.Text | |
| End Function | |
| Function Request(url) | |
| On Error Resume Next | |
| With CreateObject("MSXML2.XMLHTTP") | |
| .open "GET", url, False | |
| .send "" | |
| If Not Err.number Then Request = .responseText | |
| End With | |
| End Function | |
| Sub Download(url) | |
| Set fso = CreateObject("Scripting.Filesystemobject") | |
| If default_folder = "" Then default_folder = fso.GetParentFolderName(arg(1)) | |
| folder = default_folder | |
| If Ubound(arg) > 4 Then folder = arg(5) | |
| If default_filename = "" Then default_filename = "artist" | |
| filename = default_filename | |
| Set http = CreateObject("MSXML2.XMLHTTP") | |
| http.open "GET", url, False | |
| On Error Resume Next | |
| http.Send | |
| status = http.Status | |
| On Error Goto 0 | |
| If status = 200 Then | |
| path = Trim(InputBox("", "Save path", folder & "\" & filename & "." & fso.GetExtensionName(url))) | |
| With CreateObject("ADODB.Stream") | |
| .Type = 1 | |
| .Open | |
| .Write http.responseBody | |
| If fso.FolderExists(fso.GetParentFolderName(path)) Then .SaveToFile path, 2 | |
| End With | |
| Else | |
| msgbox "Not available!", 64, "Download Error" | |
| End If | |
| End Sub | |
| Sub Resize(w, h) | |
| Dim bing_main, bing_opt, amazon_l, amazon_r | |
| With document | |
| Set bing_main = .getElementById("bing_main") : Set bing_opt = .getElementById("bing_opt") | |
| Set amazon_l = .getElementById("amazon_l") : Set amazon_r = .getElementById("amazon_r") | |
| Set fan_art = .getElementById("fanart") | |
| End With | |
| spanDefault = "<span class='button' id='default' title='Show less' onclick='Resize(900,700);'> </span>" | |
| If Not fan_art Is Nothing Then | |
| If Not amazon_r Is Nothing Then | |
| document.body.replaceChild fan_art, amazon_r | |
| ElseIf Not bing_main Is Nothing Then | |
| prependNode bing_main, fan_art | |
| End If | |
| End If | |
| If bing_main Is Nothing Then | |
| w = 600 | |
| If amazon_l Is Nothing Then | |
| document.body.style.height = "350px" | |
| Else | |
| amazon_l.style.styleFloat = "left" | |
| End If | |
| ElseIf amazon_l Is Nothing Then | |
| document.body.style.backgroundColor = "#FFB900" | |
| If bing_opt Is Nothing Then | |
| w = 600 | |
| Else | |
| bing_opt.style.display = "block" | |
| swapNodes bing_main, bing_opt | |
| End If | |
| ElseIf Not bing_opt Is Nothing Then | |
| spanWide = "<span class='button' id='wide' title='Show more' onclick='Resize(1200, 700);'> </span>" | |
| If w = 900 Then | |
| amazon_l.style.width = "300px" | |
| amazon_l.style.styleFloat = "right" | |
| bing_opt.style.display = "none" | |
| Else | |
| If amazon_r Is Nothing And fan_art Is Nothing Then amazon_l.style.width = "600px" | |
| bing_main.style.styleFloat = "left" | |
| bing_opt.style.display = "block" | |
| bing_opt.style.width = "600px" | |
| End If | |
| End If | |
| With document.getElementById("nav") | |
| Select Case w | |
| Case 1200 .innerHtml = spanDefault | |
| Case 900 .innerHtml = spanWide | |
| End Select | |
| End With | |
| ResizeTo w, h | |
| ResizeTo 2*w - document.documentElement.offsetWidth, 2*h - document.documentElement.offsetHeight | |
| document.body.style.width = w & "px" | |
| document.body.style.height = h & "px" | |
| End Sub | |
| Sub Resized(w, h) | |
| ResizeTo w, h | |
| ResizeTo 2*w - document.documentElement.offsetWidth, 2*h - document.documentElement.offsetHeight | |
| MoveTo (screen.AvailWidth-w)/2, (screen.AvailHeight-h)/2 | |
| End Sub | |
| Sub Window_OnLoad() | |
| If artist <> "" Then | |
| Resized 900, 700 | |
| document.title = artist | |
| document.body.innerHtml = document.body.innerHtml & Google(artist) & Amazon(artist) & Bing(artist) | |
| Resize 900, 700 | |
| End If | |
| End Sub | |
| Sub Document_onKeyDown() | |
| If Window.Event.KeyCode = 27 Then window.close | |
| End Sub | |
| </script> | |
| <body> | |
| <div id='nav'></div> | |
| </body> | |
| </html> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment