| 1 | #include <array.au3>
|
|---|
| 2 | Dim $attribs[3][2]
|
|---|
| 3 | $attribs[0][0] = "method"
|
|---|
| 4 | $attribs[0][1] = "user.getlovedtracks"
|
|---|
| 5 | $attribs[1][0] = "api_key"
|
|---|
| 6 | $attribs[1][1] = 'aa72a3b1161d33d0eba36f986fa1fb43'
|
|---|
| 7 | $attribs[2][0] = "user"
|
|---|
| 8 | $attribs[2][1] = "JRSmile"
|
|---|
| 9 | $res = __lastfm_send($attribs)
|
|---|
| 10 | ConsoleWrite($res & @CRLF)
|
|---|
| 11 |
|
|---|
| 12 |
|
|---|
| 13 | Func __lastfm_send($attribs)
|
|---|
| 14 | Local $namespace
|
|---|
| 15 | If (Not IsArray($attribs)) Or (UBound($attribs, 0) <> 2) Then Return SetError(1, 0, False)
|
|---|
| 16 | $f = ObjCreate("pocketXMLRPC.Factory")
|
|---|
| 17 | $mystruct = ObjCreate("PocketXMLRPC.Struct")
|
|---|
| 18 | For $i = 0 To UBound($attribs) - 1
|
|---|
| 19 | If $attribs[$i][0] = "method" Then
|
|---|
| 20 | $tmp = StringSplit($attribs[$i][1],".", 1)
|
|---|
| 21 | $method = $tmp[2]
|
|---|
| 22 | $namespace = $tmp[1]
|
|---|
| 23 | Else
|
|---|
| 24 | Execute("$mystruct." & $attribs[$i][0] & ' = ' & "$attribs[$i][1]" & '')
|
|---|
| 25 | ConsoleWrite("$mystruct." & $attribs[$i][0] & ' = ' & "$attribs[$i][1]" & ' ==> ' & $attribs[$i][1] & @CRLF)
|
|---|
| 26 | EndIf
|
|---|
| 27 | Next
|
|---|
| 28 | $mystruct.user = $attribs[2][1]
|
|---|
| 29 | $mystruct.api_key = $attribs[1][1]
|
|---|
| 30 |
|
|---|
| 31 | $objReq = $f.Proxy("http://ws.audioscrobbler.com/2.0/", $namespace & ".")
|
|---|
| 32 | $r = Execute("$objreq." & $method & "($mystruct)")
|
|---|
| 33 | $mystruct = 0
|
|---|
| 34 | $f = 0
|
|---|
| 35 | $r = StringReplace($r, '\"', '"')
|
|---|
| 36 | Return $r
|
|---|
| 37 | EndFunc ;==>__lastfm_send
|
|---|
