Red de conocimiento informático - Problemas con los teléfonos móviles - Recomendación del código fuente de la clave Vb

Recomendación del código fuente de la clave Vb

Biblioteca de sub-sueño de declaración privada "kernel 32" (ByVal dw milisegundos mientras)

Subcomando privado 1_Click()

Temporizador 1. intervalo = 4200

Temporizador1. enable = true

Conector final

Subtimer1_Timer() privado

Dim wsh

Establecer wsh = CreateObject(" wscript . shell ")

Múltiples actividades

Guau. Enviar clave "{J}"

Duerme 700

Guau. Enviar clave "{J}"

Duerme 700

Guau. Enviar clave "{J}"

Duerme 700

Guau. Enviar clave "{L}"

Conector final

Según sus requisitos, es más conveniente utilizar el control del temporizador para lograr esto.

Mi máquina sólo tiene war3. Podría escribirlo si me esforzara lo suficiente.

Luego usa el procesamiento por lotes para implementar la salida de la tecla de acceso directo en el juego.

Primero, crea un bloc de notas en cualquier lugar.

Lucha interior.

@Desactivar eco

taskkill /f/im vb6.exe

Vb6.exe se refiere al proceso que desea finalizar. Si ya ha generado un ejecutable, cámbiele el nombre en consecuencia.

Guarda y cambia el sufijo de txt a bat.

Crear otro lote

@Desactivar echo

gt" perfil de usuario \ escritorio \ 2 . VBS " echo set wsh shell = wscript createobject(" wscript . . shell ")"

gt gt" perfil de usuario \ escritorio \ 2. VBS " echo strdesktop = wsh shell carpeta especial ("Todos los escritorios de usuario")

gt gt" usuario. perfil \ escritorio \ 2 . VBS " echo set oshelllink = wsh shell . crear acceso directo (strdesktop ; " \a.lnk ")

gt gt " perfil de usuario \ escritorio \ 2 . ruta = " f:\a . bat "

gt gt " perfil de usuario \ escritorio \ 2 . VBS " estilo de ventana echooshell = 1.

gt gt" perfil de usuario \ escritorio \ 2. VBS " echooshelllink . hotkey = " ctrl alt f 10 "

gt gt " perfil de usuario \ escritorio \ 2 . VBS " echooshelllink. descripción = " "

gt gt" perfil de usuario \ escritorio \ 2. VBS " echo oshelllink directorio de trabajo = " c:\ windows \ "

gt gt" perfil de usuario\ escritorio \. 2.vbs "Echo oShellLink. Rescate

Llame a "userprofile\desktop\2.vbs"

del/f/q " userprofile\desktop\2.VBS"

"F: \ a.bat" y "CTRL ALT F10" se refieren a la ruta del primer bat y la tecla de acceso directo que se configurará (se recomienda no configurarlo solo en F10).

Haz doble clic para ejecutar el segundo bate.

Luego ingresa al juego y abre el programa vb.

Si no es necesario, presione "CTRL ALT F10".