Étape 3: Configuration de l’ordinateur de contrôle
Téléchargez le logiciel de NXT-G.
Ouvrez Visual Basic express et insérer un contrôle timer. Le doubleclick sur le formulaire et appuyez sur Ctrl + A.
Puis copiez ce code :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Text = Cursor.Position.ToString()
Me.TopMost = True
End Sub
End Class
Maintenant, exécutez le programme. Exécutez le programme NXT-G. Et connectez votre robot à l’ordinateur. Ouvrir la commande à distance et cliquez sur le bouton d’action. Il doit se déplacer le bras du robot. Passer la souris sur le bouton d’action et de voir les coordonnées sur la barre de titre de l’application VB que nous viens d’écrire. Écrire ces valeurs dans le bloc-notes, puis enregistrez-le.
Maintenant, créez un compte de weebly. Faire un nouveau site, puis sur n’importe quelle page du site, insérez l’un fichier à télécharger. Cliquez dessus et cliquez sur téléchargement un fichier. Après cela sur votre bureau droite cliquez et créez un nouveau fichier texte nommé ins.txt. Ouvrez-le dans le bloc-notes et tapez le mot « off » en elle. Télécharger. Dans l’éditeur de site Web, faites un clic droit sur le bouton Télécharger en fichier et copier l’adresse du lien et enregistrez-le dans le bloc-notes.
Maintenant vous devriez avoir une url et les coordonnées.
Dans le même programme que nous avons écrit supprimer tout le code et entrez ce code :
Public Class Form1
Dim instance As MouseEventArgs
Private Declare Sub mouse_event Lib « user32 » (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Private Const MOUSEEVENTF_MOVE As Integer = & H1 ' déplacement de la souris
Private Const MOUSEEVENTF_LEFTDOWN As Integer = & H2 ' bouton gauche vers le bas
Private Const MOUSEEVENTF_LEFTUP As Integer = & H4 ' bouton de gauche vers le haut
Private Const MOUSEEVENTF_RIGHTDOWN As Integer = & H8 "bouton droit vers le bas
Private Const MOUSEEVENTF_RIGHTUP As Integer = & H10 ' bouton droit vers le haut
Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = & H20 "bouton du milieu vers le bas
Private Const MOUSEEVENTF_MIDDLEUP As Integer = & H40 ' middle button up
Private Const MOUSEEVENTF_WHEEL As Integer = & H800 ' bouton de roulette roulé
Private Const MOUSEEVENTF_ABSOLUTE As Integer = & H8000 ' mouvement absolu
Private Declare Function GetAsyncKeyState Lib « user32 » (ByVal vClé As Long) As Integer
DECLARE Function ClientToScreen Lib « user32 » (ByVal hwnd As Integer, ByRef lpPoint As POINTAPI) As Integer
Public Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Integer, ByVal Y As Integer) As Integer
Public Structure POINTAPI
Dim X As Integer
Dim Y As Integer
EndStructure
Private Sub clickdown()
Appelez mouse_event (MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Sub
Private Sub ClickUp()
Appelez mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Essayez
My.Computer.Network.DownloadFile (« Votre Weebly fichier adresse ici », « exemple.txt »)
Dim txt As String = My.Computer.FileSystem.ReadAllText("sample.txt")
My.Computer.FileSystem.DeleteFile("sample.txt")
Si Me.Text <> txt puis
Si txt. ToUpper = « ON » puis
Cursor.Position = New Point(Your Coordinate X here, Your coordinate Y here)
ClickDown()
Threading.Thread.Sleep(1000)
ClickUp()
End If
End If
Me.Text = txt
Attraper
End Try
End Sub
End Class
Où il est écrit "votre coordonnée X ici ' et « Votre coordonnée Y ici » entrez vos valeurs X et Y que vous avez enregistré.
Lorsqu’il est écrit: « Votre Weebly fichier adresse ici » entrez votre adresse de weebly.
Exécutez le programme et vous devriez voir « OFF » dans la barre de titre.
Vous avez terminé !
