FiveTech Support Forums

// author: ssbbs
// 下載更新紀錄
Func    GetModify()
Local   cFile   := "d:\myapp\tmp\a1.exe"
        If File(cFile)
           fErase(cFile)
        EndIf
        If URLDownloadToFile( 0, "www.myside.com/down/a1.exe", cFile, 0, 0 ) == 0
           msgInfo( "檔案取回成功", "OK" )
        Else
           MsgStop( "修改紀錄檔無法讀取！", "警告！" )
        EndIf
Return  NIL
DLL32   FUNCTION URLDownloadToFile(pCaller AS LONG, 
                                                         szURL AS STRING, 
                                                         szFileName AS STRING,
                                                         dwReserved AS LONG,
                                                         lpfnCB AS LONG);
        AS LONG PASCAL;
        FROM "URLDownloadToFileA";
        LIB "urlmon"