Mensajes

En realidad es así, tengo una funcion en VB que tiene 2 parámetros, en un exe que no es mio.
El 1er parametro es un RichTextBox, y el 2do es la cadena, en otro lenguaje hice o en uno X (no importa) hice en asm push cadena (por ejemplo) y push PTR, call función, donde el PTR es pasado a la función como ByRef MiRichTextBox As RichTextBox, según por lo que debuguié es:

SUB FUNC(ByRef XXXX As RichTextBox, ByVal Cadena As String)

Entonces necesito el puntero XXXX para que termine de llamar a esa función, pero no encuentro como conseguir ese puntero desde otra aplicacion, me explico?

Hola, yo desde un programa que genero desde 0, he obtenido el puntero de un control, como por ejemplo:

Código (vb) [Seleccionar] Expandir


Me.Caption = VarPtr(Text1) & " - Hex: " & Hex(VarPtr(Text1)


Pero, lo que quiero hacer es obtener ese mismo puntero desde otro programa, alguien tiene alguna idea de como lo puedo obtener? (También para otros controles).
Desde ya muchas gracias.

Ok, gracias.

Hola, estaba queriendo hacer cosas que nunca había hecho, entonces se me ocurrió hacer un programa en VB con funciones Públicas en un módulo, pude obtener el Address de esa función, la misma contenía una modificación de una variable global mientras que en el form había un Timer que siempre mostraba esa variable global, la función cambia el valor de la variable por algún otro, ej 333.
Desde C++ hice una dll que se injectara en el proceso, cuando en C++ utilicé __asm he hice:

Código (vb) [Seleccionar] Expandir


pushad
pushfd

call address

popfd
popad


se me crasheaba el programa, vi que mostraba access violation, entonces le di permisos, pude hacer funcionar un mov [eax] (address), valor, pero no pude hacer que se ejecutara la función, tienen alguna idea?

Desde ya, gracias (Y)

Hola, tal vez, ésto sea de ayuda, es una función que se utiliza en el Argentum Online.

Código (vb) [Seleccionar] Expandir


Public Function RandomNumber(ByVal LowerBound As Long, ByVal UpperBound As Long) As Long
   'Initialize randomizer
   Randomize Timer
   
   'Generate random number
   RandomNumber = (UpperBound - LowerBound) * Rnd + LowerBound
End Function

'Forma de uso
Variable = RandomNumber(1, 6) 'Numero del 1 al 6


Igual se puede deducir haciendo Rnd * 1 y ver la disperción de valores del mismo. Suerte, hasta pronto.

Hola estoy aqui nuevamente, queria saber si alguno tiene idea como lograr el Ucase de vb, por ejemplo Ucase(STRING), porque cree la funcion InStr de vb pero no identifica minusculas y mayusculas, entonces me gustaria antes hacer str1 = Ucase(Param1) str2 = Ucase(Param2) y luego seguir con el code, desde ya, muchas gracias.

EI: juntando mensajes.

Hola a todos, pude resolverlo, aqui esta la respuesta:

Código (vb) [Seleccionar] Expandir


#include <algorithm>
#include <string>

....

string M_Ucase(string Cadena)
{
std::transform(Cadena.begin(), Cadena.end(), Cadena.begin(), ::toupper);

return Cadena;
}

/*
Dentro del main pueden hacer

cout << M_Ucase("blabla") << std::endl;
*/


La mejor manera y para no abrir handles y demas, creo q es esta.

Código (vb) [Seleccionar] Expandir


bool FileExist2(const char * filename)
{
return GetFileAttributes(filename) != 0xFFFFFFFF;
}


Excelente, muchas gracias BlackZeroX, antes de ver lo que codeaste, pense algo extremadamente similar pero con push_back usando el vector y se me alentaba un poco.
Muchas gracias a todos por su ayuda y aporte (Y).

Hola nuevamente, estuve buscando como lograr el redim de VB en C++, pero no pude hacer funcionar varios códigos descargados desde internet porque lo que estoy tratando de hacer es realizarlo con una estructura como por ejemplo:

struct MiStruct
{
  long ID;
 
  vector<string> v1;

  vector<string> v2;

  string Resultado;
} M_Var[1];

Y que le cargue datos en el index 1, lo que quiero hacer es redimencionarla a 2 por ejemplo, sin perder los valores anteriores.

Desde ya muchas gracias.

SOLUCIONADO

Pude encontrar algo y modificarlo:

Código (cpp) [Seleccionar] Expandir


string M_Split2(const string& s, const string& c, int index)
{
string::size_type i = 0;
string::size_type j = s.find(c);

if (j == 4294967295)
{
return "<ERROR>";
}

vector<string> v;

while (j != string::npos)
{
v.push_back(s.substr(i, j-i));

i = ++j + c.length() - 1; //Sumamos el length de lo que hay que buscar, y le restamos 1
j = s.find(c, j);
if (j == string::npos)
{
v.push_back(s.substr(i, s.length( )));
}
}

return v[index];
}