ANDROID

Conexion telefono Android y PC via Web con Visual Basic (VB.NET) y App Inventor

Se trata de una pequeña aplicacion que permite conectar un telefono Android con un PC, via web, programado con App Inventor y Visual Basic (VB.NET). Si teneis dudas u os interesa el codigo dejad un comentario.

 

Imagenes AppInventor:

CODIGO VB:

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        RELOJINICIO.Enabled = True
        RELOJNUEVOS.Enabled = True
    End Sub

    Private Sub RELOJINICIO_Tick(sender As Object, e As EventArgs) Handles RELOJINICIO.Tick

        WEBINPUT.Document.All("tag").InnerText = "PC"
        WEBINPUT.Document.All("value").InnerText = """" + "ESTOY CONECTADO" + """"""
        WEBINPUT.Document.Forms(0).InvokeMember("submit")

        RELOJINICIO.Enabled = False
        RELOJLEE.Enabled = True
    End Sub

    Private Sub RELOJNUEVOS_Tick(sender As Object, e As EventArgs) Handles RELOJNUEVOS.Tick
        WEBDATOS.Refresh()
        RELOJLEE.Enabled = True

    End Sub

    Private Sub RELOJLEE_Tick(sender As Object, e As EventArgs) Handles RELOJLEE.Tick
        LEE()

        RELOJLEE.Enabled = False
    End Sub
    Public Sub LEE()

        Dim BUSCADOR1 As Integer

        If WEBDATOS.DocumentText.Contains("ANDROID</td><td>") Then

            BUSCADOR1 = WEBDATOS.DocumentText.LastIndexOf("ANDROID</td><td>")
            ANDROID.Text = WEBDATOS.DocumentText.Remove(0, BUSCADOR1 + 17)
            If ANDROID.Text.Contains("</td><td>") Then

                ANDROID.Text = ANDROID.Text.Remove(ANDROID.Text.IndexOf("</td><td>") - 1, ANDROID.Text.Length - ANDROID.Text.IndexOf("</td><td>") + 1)
            End If
      
        End If

    End Sub

    Private Sub ENVIAR_Click(sender As Object, e As EventArgs) Handles ENVIAR.Click
        WEBINPUT.Navigate("http://androidvisualbasic.appspot.com/storeavalue") 'PON LA WEB DE TU PROPIA APLICACION

        RELOJESCRIBE.Enabled = True
    End Sub

    Private Sub RELOJESCRIBE_Tick(sender As Object, e As EventArgs) Handles RELOJESCRIBE.Tick
        ESCRIBE()
        RELOJESCRIBE.Enabled = False
    End Sub
    Public Sub ESCRIBE()
        WEBINPUT.Document.All("tag").InnerText = "PC"
        WEBINPUT.Document.All("value").InnerText = """" + PC.Text + """"
        WEBINPUT.Document.Forms(0).InvokeMember("submit")
        PC.Text = ""

    End Sub

    Private Sub RELOJCIERRE_Tick(sender As Object, e As EventArgs) Handles RELOJCIERRE.Tick

        WEBINPUT.Document.All("tag").InnerText = "PC"
        WEBINPUT.Document.All("value").InnerText = """" + "ESTOY DESCONECTADO" + """"""
        WEBINPUT.Document.Forms(0).InvokeMember("submit")
        Close()
    End Sub

    Private Sub CERRAR_Click(sender As Object, e As EventArgs) Handles CERRAR.Click
        WEBINPUT.Navigate("http://androidvisualbasic.appspot.com/storeavalue") 'PON LA WEB DE TU PROPIA APLICACION

        RELOJCIERRE.Enabled = True
    End Sub

    Private Sub PC_TextChanged(sender As Object, e As EventArgs) Handles PC.TextChanged

    End Sub
End Class