Miscellany

$siteUrl = "http://data-solution.net/amd/";
$dldir = @DesktopDir & "\amd\";
$uAgent = "Thank you very much, sir.";
;$curlPath = @scriptdir & "\curl.exe";
$curlPath = "s:\utilities\curl\curl.exe";

dim $month;
dim $day;
dim $year;

DirCreate($dldir);
for $year = 3 to 6 step 1
	if ($year < 10) Then
		$year = "0" & $year;
	EndIf
	for $month = 1 to 12 Step 1
		if ($month < 10) Then
			$month = "0" & $month;
		EndIf
		for $day = 1 to 31 step 1
			if ($day < 10) Then
				$day = "0" & $day;
			EndIf
			Run(@Comspec & ' /c ' & $curlPath & " -A " & chr(34) & $uAgent & chr(34) & " " & $siteUrl & $month & $day & $year & ".jpg > " & chr(34) & $dldir & $month & $day & $year & ".jpg" & chr(34), @ScriptDir, @SW_HIDE);
			sleep(200);		
		Next
	Next
Next

; get rid of the empties
for $year = 3 to 6 step 1
	if ($year < 10) Then
		$year = "0" & $year;
	EndIf
	for $month = 1 to 12 Step 1
		if ($month < 10) Then
			$month = "0" & $month;
		EndIf
		for $day = 1 to 31 step 1
			if ($day < 10) Then
				$day = "0" & $day;
			EndIf
			$size = FileGetSize($dldir & $month & $day & $year & ".jpg");
			if ($size < 5000) Then
				FileDelete($dldir & $month & $day & $year & ".jpg");
			EndIf			
		Next
	Next
Next

Exit