Problemas encontrados al utilizar el programa Buscaminas de WINDOWS
VBSCall RunApp("notepad.exe")
Retraso 1000
// La siguiente oración es encontrar el nombre de la clase de ventana (0 ) o título ("Sin título - Bloc de notas") y devuelve el identificador encontrado Hwnd
Plugin Hwnd = Window.Find(0, "Sin título - Bloc de notas")
MsgBox "Ventana principal identificador encontrado: " &Hwnd
// La siguiente línea establece la prioridad del proceso en (por encima del estándar (A))
Plugin Memory.SetProcessLive(Hwnd, 4)
MsgBox "Volver a establecer la prioridad del proceso en (por encima del estándar (A))"
La siguiente oración devuelve la prioridad del proceso a la variable (Live)
Plugin Live = Memoria .GetProcessLive(Hwnd, 4)
MsgBox "Volver para establecer la prioridad del proceso en (arriba del estándar (A))"
La siguiente línea devuelve la prioridad del proceso a la variable ( Live ). GetProcessLive(Hwnd)
MsgBox "La prioridad del proceso de devolución es:"&Live
//La siguiente oración finalizará el proceso de manejo (Hwnd)
Memoria del complemento. TerminateProc (Hwnd)
MsgBox "Finalizar proceso del controlador"
//===================== ==== = =================================================== =
VBSCall RunApp("winmine.exe")
Retraso 1000
Complemento hwnd=Ventana .Read32Bit(hwnd,&h1005338)
MsgBox "El recuento de cuadrículas de largo y ancho del Buscaminas es:" &x& " * " &y& "Grid"
//La siguiente oración comienza en el rango de direcciones de memoria (&H7D7045B4 a &. H7D8045B4) y termina con (2 ) paso para buscar la dirección de la cadena de memoria ("Ray")
Plugin DiZhi = Memory.FindString(Hwnd, "Ray", &H7D7045B4, &H7D8045B4, &H7D8045B4, 2)
MsgBox " Buscar La dirección de memoria del primer carácter ""Ray"": &H" & Hex(DiZhi)
// La siguiente oración leerá la dirección de memoria de la cadena de memoria (&H7D7A45B4) y la devolverá a la variable (z).
ReadString(Hwnd, Clng( DiZhi), 2)
MsgBox "La cadena de memoria leída es:" &z
// Crea un bucle doble para recorrer todas las cuadrículas
TestMemory_resut=""
Dim i, j, value, strview
strview= "Nota: @ significa seguridad, * significa mía"& vbcrlf
i=0
Para x-1
j=0
Para y-1
Valor del complemento= Memoria.Read8Bit( hwnd)
Para x-1
j=0
Para y-1
Valor del complemento=Memoria Read8Bit(hwnd) Read8Bit(hwnd,&h100536(j+i *32+1))
Si valor=&h8A o valor=&h8F
strview=strview & " *"
Else
strview=strview &" @"
EndIf<
j=j+1
EndFor
strview=strview & vbcrlf
i=i+1
EndFor
TestMemory_resut="Prueba Buscaminas:" & strview
MsgBox TestMemory_resut
//Cerrar Buscaminas
Ventana del complemento.Close(hwnd)
MsgBox "Cerrar juego Buscaminas"
Ventana del complemento.