Paso 3: Configuración de la computadora de Control
Obtener el Software NXT-G.
Abra Visual Basic expres y colocar un control timer. El doble click en el formulario y presione Ctrl + A.
Luego copia este código:
Public Class Form1
Privada Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Privada Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Timer1.Tick
Me.Text = Cursor.Position.ToString()
Me.TopMost = True
End Sub
Clase final
Ahora ejecute el programa. Ejecute el programa NXT-G. Y conectar el robot a la computadora. Abrir el control remoto y haga clic en el botón de acción. Se debe mover el brazo del bot. Coloca el ratón sobre el botón de acción y ver las coordenadas en la barra de título de la aplicación de VB que acabo de escribir. Escribir estos valores en Bloc de notas y guárdelo.
Ahora crear una cuenta de weebly. Hacer un sitio nuevo y luego en cualquier página del sitio, insertar el archivo a subir. Haga clic en él y haga clic en subir un archivo. Después de en su escritorio derecho clic y crear un nuevo archivo de texto llamado ins.txt. Abrir en Bloc de notas y escriba la palabra 'off' en él. Subirlo. En el editor de la página web, haga clic en el botón de Descargar archivo y copiar la dirección de enlace y guardarlo en el Bloc de notas.
Ahora debe tener una dirección url y coordenadas.
En el mismo programa que escribimos Quite todo el código e introduzca este código:
Public Class Form1
Ejemplo DIM como MouseEventArgs
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy como Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Privado Const MOUSEEVENTF_MOVE As Integer = & H1 ' movimiento del ratón
Privado Const MOUSEEVENTF_LEFTDOWN As Integer = & H2 ' botón izquierdo abajo
Privado Const MOUSEEVENTF_LEFTUP As Integer = & H4 ' botón izquierda arriba
Privado Const MOUSEEVENTF_RIGHTDOWN As Integer = & H8 ' botón derecho abajo
Privado Const MOUSEEVENTF_RIGHTUP As Integer = & H10 ' botón derecho para arriba
Privado Const MOUSEEVENTF_MIDDLEDOWN As Integer = & H20 ' botón del medio abajo
Privado Const MOUSEEVENTF_MIDDLEUP As Integer = & H40 ' Abotone las medias
Privado Const MOUSEEVENTF_WHEEL As Integer = & H800 ' botón de rueda rodado
Privado Const MOUSEEVENTF_ABSOLUTE As Integer = & H8000 ' movimiento absoluto
Privado declarar la función GetAsyncKeyState Lib "user32" (ByVal vkey como largo) As Integer
Declarar la función ClientToScreen Lib "user32" (ByVal hwnd As Integer, ByRef lpPoint como POINTAPI) As Integer
Público declara la función SetCursorPos Lib "user32.dll" (ByVal X As Integer, ByVal Y As Integer) como entero
Estructura pública POINTAPI
X DIM como entero
Dim Y As Integer
Estructura final
Private Sub clickdown()
Llame a mouse_event (MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub
Private Sub ClickUp()
Llame a mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
Privada Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub
Privada Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Timer1.Tick
Tratar de
My.Computer.Network.DownloadFile ("Tu Weebly archivo dirección aquí", "sample.txt")
Dim txt As String = My.Computer.FileSystem.ReadAllText("sample.txt")
My.Computer.FileSystem.DeleteFile("sample.txt")
Si Me.Text <> txt luego
Si txt. ToUpper = "ON" luego
Cursor.Position = Point(Your Coordinate X here, Your coordinate Y here) nuevo
ClickDown()
Threading.Thread.Sleep(1000)
ClickUp()
End If
End If
Me.Text = txt
CARC.
Prueba final
End Sub
Clase final
Donde está escrito ' su coordinar X aquí ' y 'Su coordinar Y aquí' introducir sus valores X e Y que guardaste.
Donde está escrito: 'Tu Weebly archivo dirección aquí' Introduzca su dirección de weebly.
Ejecute el programa y usted debería ver 'OFF' en la barra de título.
Usted es hecho!
