Log in

View Full Version : Again.



ShawnjohnSJ
05-04-2007, 11:38 PM
Does anyone know if its possible to download files with scar? :P

Thanks <--- In advanced if someone answers my question. :]]

Smartzkid
05-04-2007, 11:42 PM
////////////////////////////////////////////////////////////
//UpdateScript(URL, FilePath, FileName, FileType : String)//
// Goes to URL givin to it takes all text on site //
// and saves it to file path given as filename givin //
////////////////////////////////////////////////////////////
//usage: UpdateScript('http://www.google.com/update.txt', //
// 'C:\', 'Google', '.txt' ) //
////////////////////////////////////////////////////////////

Procedure UpdateScript(URL, FilePath, FileName, FileType : String);
Var
WebPage : String;
FileNum : Integer;
begin
WebPage := GetPage( URL )
FileNum := ReWriteFile ( ''+FilePath+''+FileName+''+FileType+'' , true );

if( FileNum < 0 )then
Exit;

if( FileNum < 0 )then
AddtoReport('Error with updating: File Error.')

WriteFileString(FileNum, WebPage)
CloseFile(FileNum);
end;

Creds to Dark Sniper

ShawnjohnSJ
05-05-2007, 12:38 AM
I think that will work out just fine. ^_^