| 1 | #Region ;**** Directives created by AutoIt3Wrapper_GUI **** |
|---|
| 2 | #AutoIt3Wrapper_Outfile=asd.exe |
|---|
| 3 | #AutoIt3Wrapper_Compression=4 |
|---|
| 4 | #AutoIt3Wrapper_Change2CUI=y |
|---|
| 5 | #AutoIt3Wrapper_Run_Tidy=y |
|---|
| 6 | #AutoIt3Wrapper_Tidy_Stop_OnError=n |
|---|
| 7 | #AutoIt3Wrapper_Run_Obfuscator=y |
|---|
| 8 | #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** |
|---|
| 9 | |
|---|
| 10 | ;Initialise Variables |
|---|
| 11 | $size = -1 |
|---|
| 12 | $lastsize = 0 |
|---|
| 13 | $count = 0000 |
|---|
| 14 | $date = @MON & "-" & @MDAY & "-" & StringTrimLeft(@YEAR, 2) |
|---|
| 15 | $name = "trance.fm " & $date & " " & StringFormat("%04u", $count) & ".aac" |
|---|
| 16 | ;Start Loop |
|---|
| 17 | While 1 |
|---|
| 18 | If FileExists($name) Then |
|---|
| 19 | ;We Dont want to overwrite the last music segment we got |
|---|
| 20 | $count += 1 |
|---|
| 21 | $date = @MON & "-" & @MDAY & "-" & StringTrimLeft(@YEAR, 2) |
|---|
| 22 | $name = "trance.fm " & $date & " " & StringFormat("%04u", $count) & ".aac" |
|---|
| 23 | Else |
|---|
| 24 | ;The Data for today's date dosent exist |
|---|
| 25 | |
|---|
| 26 | ;Start Watcher 'Thread' |
|---|
| 27 | AdlibRegister("Status", 500) |
|---|
| 28 | |
|---|
| 29 | ;Start WGet |
|---|
| 30 | RunWait(@ScriptDir & '\bin\wget.exe --tries=1 --retry-connrefused --read-timeout=30 -nc -q --output-document="' & $name & '" "http://uk01.dj.trance.fm/32.aac"', @ScriptDir, @SW_HIDE) |
|---|
| 31 | AdlibUnRegister("Status"); Possibly Not Needed |
|---|
| 32 | ; Make sure wget is closed |
|---|
| 33 | Do |
|---|
| 34 | $PID = ProcessExists("wget.exe") |
|---|
| 35 | If $PID Then ProcessClose($PID) |
|---|
| 36 | Until ProcessExists("wget.exe") = False |
|---|
| 37 | ; If the filesize is not worth getting; waste it |
|---|
| 38 | If FileGetSize($name) / 1024 < 256 Then |
|---|
| 39 | FileDelete($name) |
|---|
| 40 | $count -= 1 |
|---|
| 41 | EndIf |
|---|
| 42 | EndIf |
|---|
| 43 | Sleep(1000) |
|---|
| 44 | WEnd |
|---|
| 45 | |
|---|
| 46 | Func Status() |
|---|
| 47 | ;Make windows dump cache and update the filesize |
|---|
| 48 | $test = FileOpen($name, 1) |
|---|
| 49 | FileFlush($test) |
|---|
| 50 | FileClose($test) |
|---|
| 51 | ;------Format the output filesize data, Byte, KB, MB------- |
|---|
| 52 | If Not FileGetSize($name) > $lastsize Then Return |
|---|
| 53 | $lastsize = FileGetSize($name) |
|---|
| 54 | If FileGetSize($name) > 0 And Round(FileGetSize($name) / 1024, 2) < 0.99 Then |
|---|
| 55 | $size = FileGetSize($name) & " Bytes" |
|---|
| 56 | Else |
|---|
| 57 | If Round(FileGetSize($name) / 1024, 2) > 0.99 And Round(FileGetSize($name) / 1048576, 2) < 0.99 Then |
|---|
| 58 | $size = Round(FileGetSize($name) / 1024, 2) & " KB" |
|---|
| 59 | Else |
|---|
| 60 | If Round(FileGetSize($name) / 1048576, 2) > 0.99 And Round(FileGetSize($name) / 1048576, 0) <= 50 Then |
|---|
| 61 | $size = Round(FileGetSize($name) / 1048576, 2) & " MB" |
|---|
| 62 | Else |
|---|
| 63 | If Round(FileGetSize($name) / 1048576, 0) >= 50 Then |
|---|
| 64 | ; It the file is over 50MB stop download |
|---|
| 65 | Do |
|---|
| 66 | $PID = ProcessExists("wget.exe") |
|---|
| 67 | If $PID Then ProcessClose($PID) |
|---|
| 68 | Until ProcessExists("wget.exe") = False |
|---|
| 69 | EndIf |
|---|
| 70 | EndIf |
|---|
| 71 | EndIf |
|---|
| 72 | EndIf |
|---|
| 73 | ; Display Current File and Size |
|---|
| 74 | ConsoleWrite($name & "= " & $size & @CRLF) |
|---|
| 75 | EndFunc ;==>Status |
|---|
