Ok, after lots of testing, I have figured out that it will not accept any user made text, for example "Me.TextBox.Text"
Heres the code I have (Its after the browser is navigated:
Dim sent As HtmlElement = Me.Browser.Document.GetElementById("ctl00_ctl00_cphRoblox_cphMyRobloxContent_lConfirmationMessage")
If sent IsNot Nothing Then
If sent.InnerText.StartsWith("Your message has been sent") Then
If V >= Me.FriendList.Items.Count Then
Me.StartButton.ForeColor = Color.Green
Me.StartButton.Text = "Start"
Me.FriendList.Enabled = True
Me.AddButton.Enabled = True
Me.DeleteButton.Enabled = True
Me.ClearButton.Enabled = True
Me.IDbox.Enabled = True
Me.Browser.Stop()
Else
V = V + 1
Me.FriendList.SetSelected(V, True)
Me.Browser.Navigate("http://www.roblox.com/My/PrivateMessage.aspx?RecipientID=" + Me.FriendList.SelectedItem)
End If
End If
End If
If Me.Browser.Url.ToString = "http://www.roblox.com/Error/Default.aspx?aspxerrorpath=/My/PrivateMessage.aspx" Then
V = V + 1
Me.FriendList.SetSelected(V, True)
Me.Browser.Navigate("http://www.roblox.com/My/PrivateMessage.aspx?RecipientID=" + Me.FriendList.SelectedItem)
ElseIf Not Me.Browser.Url.ToString = "https://www.roblox.com/Login/Default.aspx?ReturnUrl=%2fMy%2fPrivateMessage.aspx%3fRecipientID%3d" + Me.FriendList.SelectedItem + "&RecipientID=" + Me.FriendList.SelectedItem Then
Dim title As HtmlElement = Me.Browser.Document.GetElementById("ctl00_ctl00_cphRoblox_cphMyRobloxContent_rbxMessageEditor_txtSubject")
Dim body As HtmlElement = Me.Browser.Document.GetElementById("ctl00_ctl00_cphRoblox_cphMyRobloxContent_rbxMessageEditor_txtBody")
Dim send As HtmlElement = Me.Browser.Document.GetElementById("ctl00_ctl00_cphRoblox_cphMyRobloxContent_lbSend")
Dim n As String = vbNewLine
If Me.SigBox.Enabled = True Then
If Me.SigBox.Text = "<Signature>" Then
title.InnerText = Me.SubjectBox.Text
body.InnerText = Me.BodyBox.Text + n + n + "This Message Brought To You By Internet Robloxerâ„?quot;
Else
title.InnerText = Me.SubjectBox.Text
body.InnerText = Me.BodyBox.Text + n + n + Me.SigBox.Text
End If
Else
title.InnerText = Me.SubjectBox.Text
body.InnerText = Me.BodyBox.Text
End If
send.InvokeMember("click")
End If
Ok, My problem is, When I try saying "InnerText =" I can not use anything like "Me.SigBox.Text" I can only use strings like "Hello" but I need it from the text box. I have tried making a string value, and making the text the value. But that doesn't work either. How should I do this?