Red de conocimiento informático - Aprendizaje de código fuente - El lenguaje simple inyecta automáticamente el código fuente DLL

El lenguaje simple inyecta automáticamente el código fuente DLL

.Versión 2

.Biblioteca eAPI de soporte

.Biblioteca de especificaciones de soporte

.Biblioteca de clases de soporte iext

.Ensamblaje Ensamblaje de Windows 1

. Mango del método de entrada de la variable ensamblada, número entero

. Subrutina __Start_Window_Create_Complete

Transparencia de la variable local, número entero

. , entero

. Determinar el inicio (si el proceso existe ("DNF.exe")

_Launch Window. Mover (obtener ancho de pantalla () - (_StartupWindow. ancho + 7), obtener alto de pantalla () - _Launch Window.Height - 37, , )

Primero repite la variable (1, 200, 3, Transparencia)

Establece la transparencia de la ventana (obtén el identificador de la ventana (), Transparencia)

_Launch Window.Visual = True

Retraso (2)

.Fin del bucle variable()

Retraso (5000)

. Bucle variable primero (1, 100, 1, posición de la barra de progreso)

ProgressBar1.Position = ProgressBarPosition

Si es verdadero (progressbar1.position = 20)

.

Etiqueta transparente 1.title = "Butterfly está iniciando..."

Retraso (1000)

Etiqueta transparente 1.Title = "Dielianhua se está actualizando..." . "

Inject()

.Si es verdadero final

.Si es verdadero (ProgressBar1.Position = ProgressBar1.MaximumPosition)

TransparentLabel1 . Título = "Iniciar llamada saliente..."

.

Método de entrada activar()

.Si es verdadero Fin

.Si true (ProgressBar1.Position = ProgressBar1.MaximumPosition)

TransparentLabel1.Title = "Activación exitosa..."

Retraso (ProgressBar1.Position = ProgressBar1.MaximumPosition)

p >

Retraso (2000)

Transparencia = 200

Efecto de aparición gradual (tomar el identificador de ventana (), falso, 5000)

Retraso (500). )

_Iniciar ventana.Visible = false

.Finalizar si es verdadero

Retraso (50)

.Fin de bucle variable ()

.Predeterminado

Detener reproducción ()

Cuadro de mensaje ("Vaya a la selección de canales para activar esta asistencia", 0, )

Destruir()

Finaliza el juicio

.

La subrutina inyecta archivos dll y escribe los archivos requeridos por el método de entrada

Escribe archivos (tome un directorio específico (10) + "\Sougoo.ime", #Shurufa)

identificador del método de entrada = método de entrada. Instalación (obtener el directorio específico (10) + "\Sougoo.ime", "método de entrada HUHU")

Salida de depuración (identificador del método de entrada)

Escribir en un archivo (obtener el directorio específico (10) + "\DNF Star.dll", #Huhu Hang)

. if (identificador del método de entrada ≠ 0)

Método de entrada. Configure la inyección (tome el directorio específico (10) + "\Sougoo.ime", tome el directorio específico (10) + "\DNF Star.dll")

De lo contrario

. Marca transparente 1.title = "Falló la inyección del método de entrada...".

_Ventana de inicio. Destruir ()

.si final

. Activación del método de entrada de subrutina

Variable local bool, tipo lógico

bool = si el proceso existe ("DNF.exe")

. (bool)

Método de entrada. Activar (obtener identificador 2 ("DNF.exe", ), identificador del método de entrada)

Super retraso (1000,)

Reloj1. Terminar si es verdadero

. Evento Subroutine_clock1_cycle

Determinar el inicio (si el proceso existe ("DNF.exe"))

Predeterminado

__Start window_will_be_destroyed ()

<. p>.Juicio finalizado

.Subrutina __Startup_Window_will_be_destroyed

Retraso (500)

Terminar proceso ("TXPlatform.exe")

Terminar proceso ("TenSafe.exe")

Eliminar archivo (directorio especificado (10) + "\DNF Star.dll")

Eliminar archivo (directorio especificado (10) )+" \Sougoo.ime")

Método de entrada. .Desinstalar(InputMethodHandle)

Retraso(1000)

Destruir()

.Versión 2

.Imagen Shurufa

.Foto Shurufa

.