Let me spoil the fun for the non-tellers 
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
WebBrowser1.Document.All("firstname").SetAttribute("value", txtFirstname.Text)
WebBrowser1.Document.All("lastname").SetAttribute("value", txtLastname.Text)
WebBrowser1.Document.All("reg_email__").SetAttribute("value", txtEmail.Text)
WebBrowser1.Document.All("reg_passwd__").SetAttribute("value", txtPass.Text)
WebBrowser1.Document.All("sex").SetAttribute("value", MorF)
WebBrowser1.Document.All("birthday_month").SetAttribute("value", txtMonth.Text)
WebBrowser1.Document.All("birthday_day").SetAttribute("value", txtDay.Text)
WebBrowser1.Document.All("birthday_year").SetAttribute("value", txtYear.Text)
Else
MsgBox("Please try again in a few moments.", MsgBoxStyle.Information, "Info")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbSex.Items.Add("Select Sex:")
cmbSex.Items.Add("Female")
cmbSex.Items.Add("Male")
End Sub
Private Sub cmbSex_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSex.SelectedIndexChanged
Select Case cmbSex.Text
Case "Select Sex:"
MsgBox("Please select your sex.", MsgBoxStyle.Information, "Info")
Case "Female"
MorF = 1
Case "Male"
MorF = 2
Case Else
MsgBox("Please select your sex.", MsgBoxStyle.Information, "Info")
End Select
End Sub
Use whatever you need.
Doesn't bypass captcha. (I tried to call the captcha but facebook hides the link.)
Bookmarks