(05-11-2022, 01:59 AM)SMcNeill Wrote: (Say that title ten times fast!  That's a great tongue twister!)

Code: (Select All)

Screen _NewImage(1024, 720, 32)
com$ = "curl -H " + Chr$(34) + "Accept: application/vnd.github.v3+json" + Chr$(34)
com$ = com$ + " https://api.github.com/repos/QB64-Phoenix-Edition/QB64pe/releases"
com$ = com$ + " >temp.txt"

Shell _Hide com$
_Delay 1 'give the os time to download and create the file
Open "temp.txt" For Binary As #1
Do Until EOF(1)
    Line Input #1, temp$
    If InStr(temp$, "download_count") Then Print Mid$(temp$, 27);
    If InStr(temp$, "browser_download_url") Then Print Mid$(temp$, 33)
Loop

For anyone who wants to take a look at the number of downloads the Phoenix Edition has for each release, you can use the little app above to do so.

If you're really curious about a lot more junk than just the download count, you can open the "temp.txt" and get a whole status report on the repo and the releases and such.  I'm not certain if anyone else would be interested in this type of thing, but I thought I'd share just in case. 

$CONSOLE:ONLY

WIDTH 120, 70, 120, 100

IF _FILEEXISTS("temp.txt") THEN KILL "temp.txt"



com$ = "curl -H " + CHR$(34) + "Accept: application/vnd.github.v3+json" + CHR$(34)

com$ = com$ + " https://api.github.com/repos/QB64-Phoenix-Edition/QB64pe/releases"

'com$ = com$ + " https://api.github.com/repos/QB64Official/qb64/releases"

com$ = com$ + " >temp.txt"



SHELL com$

PRINT "Downloading..";

DO

    _LIMIT 30

    PRINT ".";

LOOP UNTIL _FILEEXISTS("temp.txt")

PRINT



OPEN "temp.txt" FOR BINARY AS #1

DO UNTIL EOF(1)

    LINE INPUT #1, temp$

    IF INSTR(temp$, "download_count") THEN PRINT MID$(temp$, 27),

    IF INSTR(temp$, "browser_download_url") THEN

        temp1$ = MID$(temp$, 33)

        'temp1$ = MID$(temp1$, _INSTRREV(temp1$, "/") + 1)

        PRINT temp1$

    END IF

LOOP



PRINT

PRINT "Press <ESC> to exit."

DO

    _LIMIT 30

LOOP UNTIL INKEY$ = CHR$(27)