Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo realizar la entrada automática de texto TXT abierto en VB

Cómo realizar la entrada automática de texto TXT abierto en VB

Private Sub Form_Load()

Dim x

x = Shell("Notepad.exe", vbNormalFocus)

SendKeys "Este es un programa de prueba para archivos de texto ." ' Simular escribir una cadena en inglés

SendKeys "{Enter}{Enter}", True ' Ingresar dos veces

"Este es un programa de prueba para archivos de texto., True ' Simular escribiendo una cadena en inglés

SendKeys "{Enter}{Enter}", True 'Ingresar dos veces

tiempo de espera (2) 'Retraso 2 segundos

SendKeys "Automáticamente ingrese texto", True

SendKeys "{Enter} {Enter}", True

tiempo de espera (2)

SendKeys "¡Ni un virus ni un troyano! ", True

SendKeys "Ingresar texto automáticamente", True

SendKeys "{Enter} {Enter}", True

tiempo de espera (2)

SendKeys "¡Ni un virus ni un troyano! ", True

SendKeys "{Enter}{Enter}", True

tiempo de espera (2)

SendKeys "Empezar para salir... Ver elementos del menú { (}F{)}..."True

SendKeys "", True 'La tecla Alt activa la barra de menú

tiempo de espera (1)

SendKeys "( F)", True 'Presiona la letra "F", selecciona el menú "Archivo (F)"

tiempo de espera (1)

SendKeys "(X)", True 'Presiona "X", selecciona "Salir (X)"

tiempo de espera (2)

EnviarTeclas "(N)", Verdadero 'Aparecerá un cuadro de diálogo preguntando si desea guardar el archivo al disco, presione " N "Indica no guardar el archivo

Fin 'Finalizar este programa de simulación

Fin Sub

Tiempo de espera de Sub privado (retraso Como único)

Dim starttime Como único

starttime = Timer

Hacer hasta (Timer - starttime) gt；delay

Bucle

Fin del subtítulo

上篇: ¿Qué pasó con el incidente del bollo de sangre en "The Promise"? 下篇: ¿Qué procesador es el vivox23?

Artículos populares