You need one var called "message"
Here is the code:
Hope you like it...
Here is the code:
Code
Public Sub FBWall(ByVal message As String)
If (Me.TextBox26.Text = "1") Then
Try
Dim enumerator As IEnumerator
Dim enumerator2 As IEnumerator
Dim browser As New WebBrowser
browser.Navigate("http://m.facebook.com/home.php?")
Do While (browser.ReadyState <> WebBrowserReadyState.Complete)
Application.DoEvents
Loop
Try
enumerator = browser.Document.All.GetEnumerator
Do While enumerator.MoveNext
Dim current As HtmlElement = DirectCast(enumerator.Current, HtmlElement)
If (current.GetAttribute("name") = "status") Then
current.SetAttribute("value", message)
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator,IDisposable).Dispose
End If
End Try
Try
enumerator2 = browser.Document.All.GetEnumerator
Do While enumerator2.MoveNext
Dim element2 As HtmlElement = DirectCast(enumerator2.Current, HtmlElement)
If (element2.GetAttribute("name") = "update") Then
element2.InvokeMember("click")
End If
Loop
Finally
If TypeOf enumerator2 Is IDisposable Then
TryCast(enumerator2,IDisposable).Dispose
End If
End Try
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
ProjectData.ClearProjectError
End Try
End If
End Sub
