十一月末，冒泡

Main(1)

Func Main($iFlag=0)
    Local $aSRE = List()
    ArrayWriteLOG('atom_list', $aSRE)
    If $iFlag = 0 Then Exit
    Local $i, $sName, $iSize = UBound($aSRE)
    For $i=0 To $iSize - 1
        $sName=StringRegExp($aSRE[$i], '/files/(.*)', 3)
        Local $hDownload = InetGet($aSRE[$i], @ScriptDir&'\'&$sName[0],1, 1)
        Do
            Sleep(1)
            TraySetToolTip('Downloading: '&$aSRE[$i])
        Until InetGetInfo($hDownload, 2)
        InetClose($hDownload)
    Next
    Exit
EndFunc

Func ArrayWriteLOG($sFilename, $aArray)
    Local $hFile = FileOpen(@ScriptDir & '\' &$sFilename & '.log', 1)
    _FileWriteFromArray($hFile, $aArray)
    FileClose($hFile)
EndFunc

Func List()
    Local $sPreGet = $Atom&$Parameter&$MaxNum
    Local $sResGet = Get($sPreGet)
    Local $sPTN = '<link rel="direct" href="(.*)" />'
    Return StringRegExp($sResGet, $sPTN, 3)
EndFunc

Func Get($oURL)
    Local $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')
    $oHTTP.Open('get', $oURL, False)
    $oHTTP.Send()
    $sReturn = BinaryToString($oHTTP.responseBody)
    $oHTTP.Nothing
    Return $sReturn
EndFunc

;#FUNCTION#=================================================================
; Name...........: _FileWriteFromArray
; Description ...: Writes an array to a specified file.
; Author ........: Jos van der Zande <jdeb at autoitscript dot com>
; Modified.......: Updated for file handles by PsaltyDS, @error = 4 msg and 2-dimension capability added by Spiff59 and fixed by guinness.
;===========================================================================
Func _FileWriteFromArray($sFilePath, $aArray, $iBase = 0, $iUBound = 0, $sDelimeter = "|")
    ; Check if we have a valid array as input
    If Not IsArray($aArray) Then Return SetError(2, 0, 0)

    ; Check the number of dimensions
    Local $iDims = UBound($aArray, 0)
    If $iDims > 2 Then Return SetError(4, 0, 0)

    ; Determine last entry of the array
    Local $iLast = UBound($aArray) - 1
    If $iUBound < 1 Or $iUBound > $iLast Then $iUBound = $iLast
    If $iBase < 0 Or $iBase > $iLast Then $iBase = 0

    ; Open output file for overwrite by default, or use input file handle if passed
    Local $hFileOpen
    If IsString($sFilePath) Then
        $hFileOpen = FileOpen($sFilePath, $FO_OVERWRITE)
    Else
        $hFileOpen = $sFilePath
    EndIf
    If $hFileOpen = -1 Then Return SetError(1, 0, 0)

    ; Write array data to file
    Local $iError = 0
    Switch $iDims
        Case 1
            For $i = $iBase To $iUBound
                If FileWrite($hFileOpen, $aArray[$i] & @CRLF) = 0 Then
                    $iError = 3
                    ExitLoop
                EndIf
            Next
        Case 2
            Local $sTemp
            Local $iCols = UBound($aArray, 2)
            For $i = $iBase To $iUBound
                $sTemp = $aArray[$i][0]
                For $j = 1 To $iCols - 1
                    $sTemp &= $sDelimeter & $aArray[$i][$j]
                Next
                If FileWrite($hFileOpen, $sTemp & @CRLF) = 0 Then
                    $iError = 3
                    ExitLoop
                EndIf
            Next
    EndSwitch

    ; Close file only if specified by a string path
    If IsString($sFilePath) Then FileClose($hFileOpen)

    ; Return results
    If $iError Then Return SetError($iError, 0, 0)
    Return 1
EndFunc   ;==>_FileWriteFromArray