Hola, hace tiempo hice un thread preguntando lo mismo pero lo dejé aparcado y ahora he vuelto a probar, pero no lo consigo. He seguido los pasos de este video:
Pero en el paso de pulsar F9, me da un access violation y no me deja continuar:
Tengo un programa que según el RDG Packer Detector está hecho en VB6 y cifrado con Petite v2.3, hay algún programa para desencriptarlo? Y si lo hay, después de desencriptarlo, con algun VB reflector podría ver su código fuente?
Hola buenas He hecho este code, pero no funciona, será la suma? o que no he puesto bien el offset, lo del 0x00.. no se si se pone así o se quitan los 0s de la izquierda :
Código
void ChangeAddr(int toadd)
{
system("cls");
long offset =0x00005578;
long pointer =0x00187F34;
long finalAddr = offset + pointer/*, sumaHex = 0x18D4AC*/, Leer;
Hola buenas. El caso es que estoy empezando con SDL, y me ha surgido esa duda, cómo comprobar que 2 cuadrados colisionan si solo tengo la posición y tamaño de cada uno(X, Y).
Se me ha ocurrido comprobar cada vértice:
Y funciona, pero me parece demasiado code, quería saber si se puede optimizar de alguna forma.
Buenas, llevo todo el dia intentando obtener el titulo de la ventana que tienes abierta pero no lo he conseguido, e aqui mi intento:
Código:
Public Class Form1 Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Function findPartialTitle(ByVal partialTitle As String) As IntPtr For Each p As Process In Process.GetProcesses() If p.MainWindowTitle.IndexOf(partialTitle, 0, StringComparison.CurrentCultureIgnoreCase) > -1 Then ' 'We found a match, so return the handle to the window ' Return p.MainWindowHandle End If Next
' 'If no match, return NULL (or close enough) ' Return IntPtr.Zero End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim hwnd As Long = findPartialTitle("YouTube") Dim lngLen As Integer = 512 Dim MyStr As String 'Create a buffer MyStr = 255
'Get the window's text GetWindowText(hwnd, MyStr, 254) MsgBox("La ventana abierta no es correcta, intentalo de nuevo: " &MyStr) End Sub End Class