Visual Basic

Public Sub CommPortSetup()

        If mySerialPort.IsOpen Then
            mySerialPort.Close()

        End If

        Try
            With mySerialPort
                .PortName = "COM1"
                .BaudRate = 115200
                .DataBits = 8
                .Parity = Parity.None
                .StopBits = StopBits.One
                .Handshake = Handshake.None
                .DtrEnable = True
                .RtsEnable = True
                .NewLine = vbCrLf
            End With
            mySerialPort.Open()
            MessageBox.Show("Connected to COMMPORT1")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        mySerialPort.WriteLine("AT+CMGF=1" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("AT+CMGS=+6390720831187" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("SUCCESS!" & vbCrLf )
        System.Threading.Thread.Sleep(200)






    End Sub

End Module

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x = MsgBox("moon is biger than Sun", MsgBoxStyle.YesNo)
        If x = DialogResult.Yes Then
            Button1.BackColor = Color.Blue
        Else
            Button1.BackColor = Color.Green
        End If
    End Sub
End

Sub CreateTablePessoas(db As Database)
  ' Some code here
End Sub

Sub CreateMyForm()
    Dim db As Database
    Dim tdf As TableDef

    Set db = CurrentDb()
    Set tdf = GetTable("Pessoas", db)

    If tdf Is Nothing Then
        CreateTablePessoas (db)
    End If
End Sub

Greetings!

I am currently working in an automation to extract data from IE. I have a scenario where two page will be accessed, the first one is the page without username and password on it and the second one is the page with login page to log username and password...

I am currently working on a code where the condition is if the account is logged is as "none" and level as "Administrator", then the page will be accessed and will be directed to the specific url. but when the account is logged in as "none" and level as "Guest", then will be directed to the login page and username and password will be entered.. the problem is the value or the innertext I am extracting has a <br /> between words, how can I set the condition like this?

[HTML]<div id="userid">Account: none <br /> Level: ADMINISTRATOR</div>[/HTML]
[HTML]<div id="userid">Account: none <br /> Level: GUEST</div>[/HTML]

[CODE]If .Document.GetElementById("userid").innertext = "Account: none " & "<br />" & "Level: ADMINISTRATOR" Then
        .Navigate linktesturl
                Do While .Busy: DoEvents: Loop
                Do While .ReadyState < 4: DoEvents: Loop
                .Visible = True[/CODE]
         ....code continues....

I appreciate your feedback. Thank you. :)