¿Puede VB obtener colores en la memoria?
La función declarada de forma privada GetWindowThreadProcessId Lib "usuario 32" (ByVal hwnd es Long, lpdwProcessId es Long) es Long
declara en privado la función proceso abierto Lib " kernel 32 "(ByVal dwDesiredAccess es Long, ByVal bInheritHandle es Long, ByVal dwProcessId es Long) es Long
declara de forma privada la función CloseHandle Lib " kernel 32 "(ByVal hObject As Long)
La función de declaración privada GetLastError Lib "kernel32 "() es Long
Constante privada PROCESS _ ALL _ ACCESS = & ampH1F0FFF
Deja que el programa tenga teclas de acceso rápido.
Función de declaración privada GetAsyncKeyState Lib " usuario 32 " (ByVal vKey As Long) es un número entero
El frente del formulario
Función de declaración privada SetWindowPos Lib " usuario 32 " (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal w flags As Long)Long
Color RGB colección
p>Tipo privado POINTAPI
x tiene la misma longitud
Siempre que
tipo final
La función de declaración privada GetPixel Lib "gdi32" (ByVal hdc es Long, ByVal x es Long, ByVal y es Long) es Long
La función de declaración privada GetCursorPos Lib "usuario 32" (punto LP como POINTAPI) es Long
Privado Declarar la función GetWindowDC Lib "usuario 32" (ByVal hwnd As Long) como Long
Declarar de forma privada la función SetCursorPos Lib "usuario32" (ByVal x as Long, ByVal y as Long) as Long
Simular eventos del mouse
privado Declarar Sub mouse _ event Lib " usuario 32 "(ByVal dw flags es Long, ByVal dx es Long, ByVal dy es Long, ByVal cButtons es Long, ByVal dwExtraInfo es Long)
const mouse eventf _ left down = & amp deuterio
Const MOUSEEVENTF _ LEFTUP = & ampH4
const mouse eventf _ MIDDLEDOWN = & amp;H20
p>const mouse eventf _ middle up = & amp;H40
Const MOUSEEVENTF _ MOVE = & ampH1 'Mover el mouse
evento constante del mouse f _ ABSOLUTE = & amp H8000
evento constante del mouse f _ derecha abajo = & H8
Const MOUSEEVENTF _ RIGHTUP = & ampH10
privado Declarar Sub keybd _ evento Lib " usuario 32 "(ByVal bVk es Byte, ByVal bScan es Byte, ByVal dwFlags es Long, ByVal dwExtraInfo es Long)
Solo Const VK_F1 = & ampH70
Const VK_F2 solamente = & ampH71
p>Constante VK_F3 mientras = & ampH72
Const VK F4 mientras = & ampH73
Constante VK_F5 Mientras = & amp;H74
Solo Constat VK F6 = & ampH75
Solo Constat VK F7 = & ampH76
Solo Constat VK F8
To = &H77
Const VK_F9 As Long=&H78
const KEYEVENTF_KEYUP As Long = &Deutero
Declaración privada Biblioteca Sub-Sleep "kernel 32" "( ByVal dw milisegundos mientras)
título del juego const As String = " YB _ cliente en línea "
Título del juego Const As String = "Nuevo documento de texto-Bloc de notas"
Dim SWD As String 'Contenido de promoción
Dim IsGuaJi es un "signo de gancho" booleano
Dim es una columna auxiliar como un símbolo de acción auxiliar rojo y azul complementario booleano
Atenuar rojo y verde como relación de complemento rojo del número entero
Dim LanBiLv es la 'relación de complemento azul' del entero
Dim HongPoint(6) As Long 'complemento rojo matriz de puntos El valor de lista correspondiente.
Dim LanPoint(6) es el valor de la lista correspondiente a la matriz de puntos azules complementaria Long '.
La matriz de puntos dim f (1 a 9) es larga 'f1f2...F9 corresponde al valor de la lista.
Dim i es un número entero, j es un número entero largo y k es un número entero largo.
Deje que el programa tenga teclas de acceso rápido.
Forma booleana de tecla de acceso rápido de función (vKeyCode)
HotKey = GetAsyncKeyState(código vkey)<0
Finalizar función
Zianjian ( KStr es una cadena)
Múltiples actividades
Seleccionar caso KStr
Caso "F1"
Llamar a keybd_event(VK_F1, 0, 0 , 0)
Retraso 300
Llamar keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0)
Caso "F2"
Llamar keybd_event (VK_F2, 0, 0, 0)
Retraso 300
Llamar keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0)
Caso "F3”
Llamar a keybd_event(VK_F3, 0, 0, 0)
Retraso 300
Llamar a keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0)
Caso "F4"
Llamar a keybd_event(VK_F4, 0, 0, 0)
Retraso 300
Llamar a keybd_event(VK_F4, 0, KEYEVENTF_KEYUP, 0)
Caso "F5"
Llamar a keybd_event(VK_F5, 0, 0, 0)
Dormir 100
Llamar a keybd_event( vbKeyF5, 0, KEYEVENTF_KEYUP, 0)
Enviar clave "rellenar rojo"
Enviar clave "{ENTER}"
Dormir 100
Enviar clave " ..."
Enviar tecla "{ENTER}"
Dormir 100
Caso "F6"
Llamar a keybd_event(VK_F6, 0, 0, 0)
Retraso 300
Llamar keybd_event(VK_F6, 0, KEYEVENTF_KEYUP, 0)
Caso "F7"
Llamar a keybd_event(VK_F7, 0, 0, 0)
Retraso 300
Llamar a keybd_event(VK_F7, 0, KEYEVENTF_KEYUP, 0)
Caso "F8"
Llamar a keybd_event(VK_F8, 0, 0, 0)
Retraso 300
Llamar a keybd_event(VK_F8, 0, KEYEVENTF_KEYUP, 0)
Caso "F9"
Llamar keybd_event(VK_F9, 0, 0, 0)
Retraso 300
Llamar keybd_event(VK_F9, 0, KEYEVENTF_KEYUP, 0 )
Finalizar selección
Retraso 100
Conector final
Encuentre el color de la pantalla y descubrió que es verdadero.
Función FindColor(ColorStr As String)As String ' Como booleano
man==402 353
FindColor = "" ' = False
Para j = 402 a 404
Múltiples actividades
Para k = 250 a 450
Múltiples actividades
Si GetYanSe (j , k) = UCase(ColorStr), entonces
FindColor = j & amp" ++ " & amp absolutamente cierto
Salir
Terminará si ...
Luego
Luego
MsgBox "pppp "
Finalizar función
'
Zi Yan (la familia de Yan es larga)
La familia de Yan durmiendo
Conector final
Determina si el juego se está ejecutando.
La función IsRun() es un valor booleano
IsRun = False
' Dim hwnd As Long ' almacena el identificador devuelto por la función FindWindow.
hwnd = FindWindow(vbNullString, GameTitle)
Si hwnd = 0, entonces
IsRun = False
Otro
IsRun = True
Terminará si...
Finalizar función
Subcomando privado 1_Click()
Retraso 3000
MsgBox "kljk "
Conector final
Subcomando privado 2_Click()
Si IsRun = False, entonces
MsgBox "¡El juego no se está ejecutando!", 16
Conector de salida
Terminará si...
Si CheckFuZhu.value = 1, entonces
IsFuZhu = True
Otro
IsFuZhu = False
Terminará si...
Si CheckGuaJi .value = 1 , entonces
IsGuaJi = True
Otros
IsGuaJi = False
Si… terminará
Yo. WindowState = 1
Título del juego AppActivate
Conector final
Subcomando privado 3_Click()
Si IsRun = False, entonces
p>MsgBox "El juego no se ejecuta, ¿cómo puedo gritar?", 16
Conector de salida
Terminará si...
Si CheckHanHua.value = 1, entonces
I. WindowState = 1
Título del juego AppActivate
SWD = Texto1. Texto
TemporizadorHanHua. Intervalo = Val(ComboHanHua.Text) * 1000
TimerHanHua. enable=Verdadero
Otro
TimerHanHua. enable = false
Terminará si...
Finalizar conector
Subcomando privado 4_Click()
Atenuar qq mientras sea largo
p>
Abre la aplicación. Caminos y caminos.
" \data.ini "Salida como #1
Para qq = 0 a 150 paso 1
Imprimir #1, qq & amp" * 6 == " & amp lattice yense Idioma (qq,6)
Luego
Cierre #1
MsgBox "Normal"
Conector final
Subcomando privado 5_Click()
HongBiLv = ComboHongBi. Índice de lista
MsgBox rojo doble verde
Conector final
Subform_Load() privado
Resolución de pantalla
tw % = pantalla. ancho/pantalla. TwipsPerPixelX
th% = pantalla. altura/pantalla. TwipsPerPixelY
Si tw % & lt& gt, entonces 800
MsgBox "La resolución de pantalla actual es:" & tw % & amp "×" & th % & ampvbCrLf &; amp;"& amp"¡Este complemento solo admite una resolución de 800 × 600! ", 16
Fin
Terminará si...
Inicio
TimerHanHua. Enable = False
Para i = 1 a 9
ComboHong.AddItem "F" &i
ComboBackCity.AddItem "F" &i
" & ampi
ComboJiNeng.AddItem " F " & ampi
ComboPingKan.AddItem " F " & ampi
Kongbo Kengo.AddItem " F " & ampi
Kongbochi .AddItem " F " & ampi
ComboHanHua.AddItem i
Luego
para i = 20 a 80 pasos 10
ComboHongBi. AddItem i & amp"%"
HongboHongBi p>
ComboHongBi Texto = "50%"
ComboHongBi Texto = "50%"
ComboBackCity. /p>
Kongbo Chi. Texto = "F4"
ComboHanHua.
Eres rojo 80% = 13370 = 11960 = = 10591776349 = = 0020 y siguientes. yyy===6
Con LAN 80% = 13370 = 11960 = = 10591735943 = =ff8273.
LANyyy===19
Hongdian(0) = 49
Hongdian(1) = 63
Hongdian (2) = 77
Punto de inundación (3) = 91
Punto de inundación (4) = 105
Punto de inundación (5) = 119
Punto de inundación(6) = 133
LanPoint(0) = 43
LanPoint(1) = 59
LanPoint(2) = 73
LanPoint(3) = 91
LanPoint(4) = 105
LanPoint(5) = 119
LanPoint(6) = 133
F1 F2...F9
XXX = 439 476 512 550 586 624 661 698 735 yyy = = = 578
Para i = 1 a 9
FPoint(i) = 439 + i * 37
Entonces
IsFuZhu = False
IsGuaJi = False
Fin conector
Subformulario privado_Descargar(cancelar a entero)
Fin
Finalizar conector
Programa de monitoreo de tiempo Tecla rápida F12
Subtemporizador privado 1_Timer()
Actividades múltiples
F12 abre la ventana.
Si Hotkey(vbKeyF12) = True, entonces
SetWindowPos Me.hwnd, -1, 0, 0, 0, 3
i. WindowState = vbNormal
Terminará si...
Control+1 comienza a colgar.
Si HotKey(vbKeyControl) = True, HotKey(vbKey1) = True, entonces
IsGuaJi = True
Si... terminará
Control+2 para dejar de colgar.
Si HotKey(vbKeyControl) = True, HotKey(vbKey2) = True, entonces
IsGuaJi = False
Si... terminará
Conector final
Función GetYanSe(zX es largo, zY es largo) como cadena
Mostrar TPO como POINTAPI
Marcar sTmp como cadena
p>Dim lColor tiene la misma longitud
Longitud lDC
lDC = GetWindowDC(0)
Llamar a GetCursorPos(tPOS)
lColor = GetPixel(lDC, tPOS.x, tPOS.y)
lColor = GetPixel(lDC, zX, zY)
sTmp = Derecha $(" 000000 " & Hex(lColor), 6)
GetYanSe = UCase(sTmp)
caption = "R:" &Derecha$(sTmp,2)&" G:" & amp; Mid$(sTmp, 3, 2) y amp" B:" & ampLeft$(sTmp, 2)
Función final
Subtemporización privada 2_Timer()
Mostrar TPO como POINTAPI
Llamar a GetCursorPos(tPOS)
I.
tPOS.x & "* *" & tPOS.y & "* *" & GetYanSe(tPOS.x, tPOS.y)
Conector final
Acción auxiliar
Subtemporizador privado FuZhu_Timer()
Si IsFuZhu = False, salga de Sub
Youhong 80% = 13370 = 11960 = = 10591776349 = = 0020ff.
Rojo yyy===6
Con LAN 80% = 13370 = 11960 = = 10591735943 = = ff 8273.
Azul yyy===19
Complemento rojo
HongBiLv = ComboHongBi. Índice de lista
Si GetYanSe(HongPoint(HongBiLv), 6)<& gtentonces "0020FF"
Llame a An Jian. Texto)
Terminará si...
Rellena en azul
LanBiLv = ComboLanBi. Índice de lista
Si GetYanSe(LanPoint(LanBiLv), 19)<> entonces "FF8273"
Anjian Kangbolan. Texto
Terminará si...
No hay retorno rojo
Si CheckNoHongBack.value = 1, entonces
Si GetYanSe( FPoint (Right(combo hong. Text, 1)), 578) = "B5FFE7 "Luego
Instala ComboBackCity. Texto
Terminará si...
Terminará si...
Sin retorno azul
Si CheckNoLanBack.value = 1, entonces
Si GetYanSe(FPoint(right(ComboLan.Text, 1)), 578) = "B5FFE7 "entonces
Instala ComboBackCity. Texto
Terminará si...
Terminará si...
Finalizar conector
Cuelga automáticamente
Private Sub TimerGuaJi_Timer()
Si IsGuaJi = False, entonces sal de Sub
Come dulces de cinco colores
Si CheckChiTang.value = 1 , luego
Sopa de huevo Anjian. Texto
Retraso 100
Finalizar si...
Recoger la cosa
Si CheckJianWu.value = 1, entonces
Construir una casa saludable. Texto
Retraso 100
Terminará si...
'****************** ****** *************
mouse_event MOUSEEVENTF_MOVE, -600, 0, 0, 0
Mostrar TPO como POINTAPI
Llamar a GetCursorPos (tPOS)
SetCursorPos tPOS.x - 600, tPOS.y
Retraso 350
SetCursorPos 402, 353
Retraso 350
La combinación de presionar y soltar el botón izquierdo del mouse es un clic.
mouse_event evento del mouse f_LEFTDOWN o MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Conector final
Subtemporizador privadoHanHua_Timer()
Si Derecha(SWD, 3) = "!!!" Entonces
SWD = Texto1. Texto
Otro
SWD = Texto1. Texto y amplificador "!!!"
Terminará si...
SendKeys SWD
Enviar clave "{ENTER}"
Conector final
Encuentra el color de la pantalla y descubre que es verdadero.
Función FindColor(ColorStr As String)As String ' Como booleano
man==402 353
FindColor = "" ' = False
Para j = 402 a 404
Múltiples actividades
Para k = 250 a 450
Múltiples actividades
Si GetYanSe (j , k) = UCase(ColorStr), entonces
FindColor = j & amp" ++ " & amp absolutamente cierto
Salir
Terminará si ...
Luego
Luego
MsgBox "pppp "
Finalizar función
'
Zi Yan (la familia de Yan es larga)
La familia de Yan durmiendo
Conector final
Determina si el juego se está ejecutando.
La función IsRun() es un valor booleano
IsRun = False
' Dim hwnd As Long ' almacena el identificador devuelto por la función FindWindow.
hwnd = FindWindow(vbNullString, GameTitle)
Si hwnd = 0, entonces
IsRun = False
Otro
IsRun = True
Terminará si...
Finalizar función
Subcomando privado 1_Click()
Retraso 3000
MsgBox "kljk "
Conector final
Subcomando privado 2_Click()
Si IsRun = False, entonces
MsgBox "¡El juego no se está ejecutando!", 16
Conector de salida
Terminará si...
Si CheckFuZhu.value = 1, entonces
IsFuZhu = True
Otros
IsFuZhu = False
Terminará si...
Si CheckGuaJi .value = 1 , entonces
IsGuaJi = True
Otros
IsGuaJi = False
Si… terminará
Yo. WindowState = 1
Título del juego AppActivate
Conector final
Subcomando privado 3_Click()
Si IsRun = False, entonces
p>MsgBox "El juego no se ejecuta, ¿cómo puedo gritar?", 16
Conector de salida
Terminará si...
Si CheckHanHua.value = 1, entonces
I.
WindowState = 1
Título del juego AppActivate
SWD = Texto1. Texto
TemporizadorHanHua. Intervalo = Val(ComboHanHua.Text) * 1000
TimerHanHua. enable=Verdadero
Otro
TimerHanHua. enable = false
Terminará si...
Finalizar conector
Subcomando privado 4_Click()
Atenuar qq mientras sea largo
p>
Abre la aplicación. Caminos y caminos. " \data.ini "Salida como #1
Para qq = 0 a 150 paso 1
Imprimir #1, qq & amp" * 6 == " & amp lattice yense Idioma (qq,6)
Luego
Cierre #1
MsgBox "Normal"
Conector final
Subcomando privado 5_Click()
HongBiLv = ComboHongBi. Índice de lista
MsgBox rojo doble verde
Conector final
Subform_Load() privado
Resolución de pantalla
tw % = pantalla. ancho/pantalla. TwipsPerPixelX
th% = pantalla. altura/pantalla. TwipsPerPixelY
Si tw % & lt& gt, entonces 800
MsgBox "La resolución de pantalla actual es:" & tw % & amp "×" & th % & ampvbCrLf &; amp;"& amp"¡Este complemento solo admite una resolución de 800 × 600! ", 16
Fin
Terminará si...
Inicio
TimerHanHua. Enable = False
Para i = 1 a 9
ComboHong.AddItem "F" &i
ComboBackCity.AddItem "F" &i
" & ampi
ComboJiNeng.AddItem " F " & ampi
ComboPingKan.AddItem " F " & ampi
Kongbo Kengo.AddItem " F " & ampi
Kongbochi .AddItem " F " & ampi
ComboHanHua.AddItem i
Luego
para i = 20 a 80 pasos 10
ComboHongBi. AddItem i & amp"%"
HongboHongBi p>
ComboHongBi Texto = "50%"
ComboHongBi Texto = "50%"
ComboBackCity. /p>
Texto Kongbo Chi. = "F4"
ComboHanHua.
Youhong 80% = 13370 = 11960 = = 10591776349 = = 0020 y siguientes.
Rojo yyy===6
Con LAN 80% = 13370 = 11960 = = 10591735943 = = ff 8273.
LANyyy===19
Hongdian(0) = 49
Hongdian(1) = 63
Hongdian (2) = 77
Punto de inundación (3) = 91
Punto de inundación (4) = 105
Punto de inundación (5) = 119
Punto de inundación(6) = 133
LanPoint(0) = 43
LanPoint(1) = 59
LanPoint(2) = 73
LanPoint(3) = 91
LanPoint(4) = 105
LanPoint(5) = 119
LanPoint(6) = 133
F1 F2...F9
XXX = 439 476 512 550 586 624 661 698 735 yyy = = = 578
Para i = 1 a 9
FPoint(i) = 439 + i * 37
Entonces
IsFuZhu = False
IsGuaJi = False
Fin conector
Subformulario privado_Descarga(cancelar a entero)
Fin
Finalizar conector
Programa de monitoreo de tiempo Tecla rápida F12
Subtemporizador privado 1_Timer()
Actividades múltiples
F12 abre la ventana.
Si HotKey(vbKeyF12) = True, entonces
SetWindowPos Me.hwnd, -1, 0, 0, 0, 3
i. WindowState = vbNormal
Terminará si...
Control+1 comienza a colgar.
Si HotKey(vbKeyControl) = True, HotKey(vbKey1) = True, entonces
IsGuaJi = True
Si... terminará
Control+2 para dejar de colgar.
Si HotKey(vbKeyControl) = True, HotKey(vbKey2) = True, entonces
IsGuaJi = False
Si... terminará
Conector final
Función GetYanSe(zX es largo, zY es largo) como cadena
Mostrar TPO como POINTAPI
Anotar sTmp como cadena
Dim lColor tiene la misma longitud
Longitud lDC
lDC = GetWindowDC(0)
Llamar a GetCursorPos(tPOS)
lColor = GetPixel(lDC, tPOS.x, tPOS.y)
lColor = GetPixel(lDC, zX, zY)
sTmp = Derecha $(" 000000 " & Hex(lColor), 6)
GetYanSe = UCase(sTmp)
caption = "R:" &Derecha$(sTmp,2)&" G:" & amp; Mid$(sTmp, 3, 2) y amp" B:" & ampLeft$(sTmp, 2)
Función final
Subtemporización privada 2_Timer()
Mostrar TPO como POINTAPI
Llamar a GetCursorPos(tPOS)
I. tPOS.x & "* *" & tPOS.y & "* *" & GetYanSe(tPOS.x, tPOS.y)
Conector final
Acción auxiliar
Subtemporizador privado FuZhu_Timer()
Si IsFuZhu = False, salga de Sub
Youhong 80% = 13370 = 11960 = = 10591776349 = = 0020ff.
Rojo yyy===6
Con LAN 80% = 13370 = 11960 = = 10591735943 = = ff 8273.
Azul yyy===19
Complemento rojo
HongBiLv = ComboHongBi. Índice de lista
Si GetYanSe(HongPoint(HongBiLv), 6)<& gtentonces "0020FF"
Llame a An Jian. Texto)
Terminará si...
Rellena en azul
LanBiLv = ComboLanBi. Índice de lista
Si GetYanSe(LanPoint(LanBiLv), 19)<> entonces "FF8273"
Anjian Kangbolan. Texto
Terminará si...
No hay retorno rojo
Si CheckNoHongBack.value = 1, entonces
Si GetYanSe( FPoint (Right(combo hong. Text, 1)), 578) = "B5FFE7 "Luego
Instala ComboBackCity. Texto
Terminará si...
Terminará si...
Sin retorno azul
Si CheckNoLanBack.value = 1, entonces
Si GetYanSe(FPoint(right(ComboLan.Text, 1)), 578) = "B5FFE7 "entonces
Instala ComboBackCity.
Texto
Terminará si...
Terminará si...
Finalizar conector
Cuelga automáticamente
Private Sub TimerGuaJi_Timer()
Si IsGuaJi = False, entonces sal de Sub
Come dulces de cinco colores
Si CheckChiTang.value = 1 , luego
Sopa de huevo Anjian. Texto
Retraso 100
Finalizar si...
Recoger la cosa
Si CheckJianWu.value = 1, entonces
Construir una casa saludable. Texto
Retraso 100
Terminará si...
'****************** **** ***********
mouse_event MOUSEEVENTF_MOVE, -600, 0, 0, 0
Mostrar TPO como POINTAPI
Llamar a GetCursorPos (tPOS)
SetCursorPos tPOS.x - 600, tPOS.y
Retraso 350
SetCursorPos 402, 353
Retraso 350
La combinación de presionar y soltar el botón izquierdo del mouse es un clic.
mouse_event evento del mouse f_LEFTDOWN o MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Conector final
Subtemporizador privadoHanHua_Timer()
Si Derecha(SWD, 3) = "!!!" Entonces
SWD = Texto1. Texto
Otro
SWD = Texto1. Texto y amplificador "!!!"
Terminará si...
SendKeys SWD
Enviar clave "{ENTER}"
Conector final