Mensajes

Wenas! ya hacia tiempo no me pasaba por aca.. y hoy me puse a hacer un crypter.. lo pude hacer scan-time y me salio de 10 =) ahora el tema es hacerlo run-time.. alguno me puede guiar? o sea seria cosa de inyectar en memoria el .exe que fue cifrado.. o.. inyectar en memoria todo el codigo completo del exe cifrado y desencriptarlo en memoria..mmm no se como se haria y si se puede en vb.. o como?..
lo que hice hasta ahora esta todo hecho en vb 6.0 que lo que hago es.. cifro con el crypter.exe y guardo stub + marca + archivo .exe cifrado .. eso si.. encriptacion linda.. =) despues el stub lo que hace es que al abrirlo copia en temporal su propio archivo split a la marka, descifro, guardo el exe y ejecuto..

bueno.. desde ya muchas gracias..

salu2!

Código [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click 'aca la funcion a llamar o el boton..
KeyAscii = 0
End If
End Sub

salu2!

muchisimas gracias muy util! una pregunta el color es en rgb?, el color que pusiste vos es un azul no? o un marronsito?

salu2!

hmm el titulo lo dice todo... eske hay un juego que el sendkeys parece que lo tiene blokeado.. y no puedo hacer que funcione el sendkeys

salu2!
y gracias de antemano!

Hola, yo lo que kisiera hacer es sakar un screen y luego ver si tiene tal color en algun lugar de la pantalla y que me de las coordenadas... aver si me pueden orientar de como hacerlo...

ej: abro una ventana que contiene el color verde en algun lugar y yo kisiera obtener las coordenadas de el lugar donde se encuentra eso...

salu2!

Haber haber y no seamos animales .Si yo fuese tu, lo que haria es cogeria el notepad o cualquier procesador de texto y cargaría tu txt. Luego reemplazaría los ©-« por comas(,)....poniendo claro reemplazar todo....no los reemplaces uno a uno que con tu respuesta de antes te veo capaz  . Despues reemplazaría los * por comas también (,). Así tienes todos tus campos diferenciados por comas, ok? Vale...pues te vas al Access por ejem, y carga ese fichero creado .txt, y seguramente te saldrá un asistenten que te indicara que si quieres crear los campos por las comas separadas....le dices que sí. Luego te los separara en tu caso en 3 campos...y te dirá que como quieres llamarlos.....por ejem. 1º Tema, 2º Pregunta,3º Respuesta.....y siges con el asistente hasta crear la bbdd. Ya teniendo la bbdd pues la atacas en vb y velocidad solucionada. Espero haberte ayudado.
Saludos.

muchisimas gracias a todos... la respuesta que me sirvio fue esta..

salu2!!

exacto.. si asi esta.. pero lo como ya dije tarda muchisimo al buskar la pregunta osea yo lo que hago es copiar del irc la pregunta y pegarla en el programa y que el programa me devuelva la respuesta.. esta hecho.. funciona.. PERO el instr tarda muchisimo para cuando me da la respuesta ya termino la pregunta y hasta 3 preguntas mas xDD nose xq es tan lento...  si kieren les dejo el archivo .txt asi si kieren hacen pruebas

salu2!

PD: un ejemplo de como estan las preguntas:

Biologia©-«"Al nacer las crías de tigre son ciegas, a qué edad abren los ojos: a los 3, 7, 14, 25, ó 30 días.*14
Biologia©-«"La Mantis Religiosa hembra inicia el acto sexual arrancando la...".*cabeza del macho
Biologia©-«"Pterigotos": Subclase de insectos que característicamente tienen...*alas

Para eso utiliza base de datos que contengan las preguntas y respuestas....y si quieres mas campos, y sentecias sql. Es enormemente mas rapido.
Saludos.

gracias, muy buena solucion ^^ pero hmm entonces tendria que crear la tabla y agregarle todos los valores.. y no me veo haciendolo a 80.000 lineas a menos que me ponga a reemplazar las cosas haciendo un programa rapido que lo haga...

alguna otra solucion??

salu2!

Wenas.. estuve intentando hacer un pekeño programa para que responder rapidamente las trivias... pero lo que sucede es que al buscar las preguntas tarda muchisimo al ser tan grande donde busca (11mb)

Private Sub Command1_Click()
Dim buskeda As Integer
If pregunta = "" Then
buskeda = InStr(1, RichTextBox1.Text, Text1.Text)
If buskeda > 0 Then
pregunta = Mid(RichTextBox1.Text, buskeda)
terminarespuesta = InStr(1, pregunta, vbCrLf) - 1
respuesta = Left(pregunta, terminarespuesta)
empiezarespuesta = InStr(1, respuesta, "*") + 1
respuesta = Mid(respuesta, empiezarespuesta)
Text2.Text = respuesta
End If
Else
buskeda = InStr(1, pregunta, Text1.Text)
If buskeda > 0 Then
pregunta = Mid(pregunta, buskeda)
terminarespuesta = InStr(1, pregunta, vbCrLf)
respuesta = Left(pregunta, terminarespuesta)
empiezarespuesta = InStr(1, respuesta, "*")
respuesta = Mid(respuesta, empiezarespuesta)
Text2.Text = respuesta
End If
End If
End Sub

Private Sub Command2_Click()
respuesta = ""
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Form_Load()
Path = App.Path & "\preguntas.txt"
Dim Extraido As String
Open (Path) For Binary As #1
Extraido = Space(LOF(1))
Get #1, , Extraido
Close #1
RichTextBox1.Text = Extraido
End Sub

ahi esta el code.. pero el instr es lo que hace que tarde muchisimo... alguna solucion para que sea rapido??

salu2!

hay un metodo que se iniciaba junto a windows y en modo system... lo habia posteado nhaalclkiemr

salu2!