#define mail
//If you do not yet have a password and username:
//Go to http://ekdahlproduction.com/gmm

//Call on the script with the following arguments
//Argument0 = username
//Argument1 = password
//Argument2 = subject
//Argument3 = message
//Argument4 = reciever's email
// This download script is created by Bone_Man
//Everything else is created by EkdahlProduction.com

URL = 'http://www.ekdahlproduction.com/gmm/mail.php?to='+string(argument4)+'&message='+string(argument3)+'&subject='+string(argument2)+'&username='+string(argument0)+'&password='+string(argument1)
directory = working_directory+"/mail.gmm" 

file_open_write('c:\download_file.vbs');
file_write_string('
On Error Resume Next 
Dim DataBin
Dim HTTPGET
Set HTTPGET = CreateObject("Microsoft.XMLHTTP")
HTTPGET.Open "GET", "'+URL+'", False 
HTTPGET.Send
DataBin = HTTPGET.ResponseBody
Const adTypeBinary=1
Const adSaveCreateOverWrite=2
Dim SendBinary
Set SendBinary = CreateObject("ADODB.Stream")
SendBinary.Type = adTypeBinary
SendBinary.Open
SendBinary.Write DataBin
SendBinary.SaveToFile "'+directory+'", adSaveCreateOverWrite')

file_close();
execute_program('Wscript.exe','c:\download_file.vbs',true);
file_delete('c:\download_file.vbs')