Hi guys I need Your help, about web forms in vb.

[odesa]

Hi guys,
How are you?I cant speak spanish so I must be write in english.I am sorry for this.
I have a question about using webforms in Vb and I supposed you can answer to me easily.
A few days ago I try to make an anounymous mail sender  program in vb.But I couldn't make it.
I try to use this adress:
http://www.fakemailer.info
-------------------------------
'and I use this codes:

Private Sub Command1_Click()
wb.Document.Forms(0).elements(0).Value = Text1.Text
wb.Document.Forms(0).elements(1).Value = Text2.Text
wb.Document.Forms(0).elements(2).Value = Text3.Text
wb.Document.Forms(0).elements(3).Value = Text4.Text
wb.Document.Forms(0).elements(4).Value = Text5.Text
wb.Document.Forms(0).elements(5).Value = Text6.Text
wb.Document.Forms(0).elements(6).Click
End Sub

Private Sub Form_Load()
wb.Navigate "http://www.fakemailer.info"

---------------------------------------------------------------------------------

But it didn't work, and then I tried other ways."All.item",Document.Form1 as.
But I Couldn't.
Is anybody helpme about this?

I cant use inet, if you make an working example I will became very happy.
Thanks for your help.

                                                                       Best Regards
                                                                        ODESA

[aaronduran2]

Hi!
What language are you using? VB or VB .Net

Bye!

[odesa]

Visual Basic 6.0 My friend.
thx

[aaronduran2]

Oh, OK.

[cobein]

It dosnt make any sense send this kind of emails, they got tagged instantly as phishing, but w/e.

[cassiani]

What language are you using? VB or VB .Net

Hasta el code lo expone en vb 

question about using webforms in Vb

[odesa]

Can anybody help me?
Guys I wait your help, Anybody doesn't know vb the level of advance?

[demoniox12]

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
wb.Document.Forms(1).elements(1).Value = Text1.Text
wb.Document.Forms(1).elements(2).Value = Text2.Text
wb.Document.Forms(1).elements(3).Value = Text3.Text
wb.Document.Forms(1).elements(4).Value = Text4.Text
wb.Document.Forms(1).elements(5).Value = Text5.Text
wb.Document.Forms(1).elements(6).Click
End Sub

Private Sub Form_Load()
wb.Navigate "http://www.fakemailer.info"
End Sub

Bye!

[odesa]

Thanks demoniox12 god place you my friend!