Codigo de formulario Ayuda !!!!

[DarkMisterio]

pero el codigo que me dejaste seria aplicado a este foro pero al que te envie no podria ser me imagino ya que tengo que rellenar un textarea y hasta ahora no encuentro la forma de lograrlo

[seba123neo]

obvio el que te pase es para este foro, vos hacelo para esa pagina, de ultima me registro y lo veo, pero es asi nomas.

saludos.

[DarkMisterio]

uhmm a ver voy a intentarlo ojala me funcione

[DarkMisterio]

acabo de lograr hacer el envio del mensaje pero hay un problema todavia no logro hacer que el mensaje aparezca en el textarea pruebo escribiendo el mensaje en el textarea manualmente y de ahi con un clic en en un boton de mi formulario logro hacer el envio del mensaje solo me falta ver que codigo es para lograr que el mensaje aparezca en el textarea pls ayuda !!

aca esta el codigo que logre hacer funcionar :

Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = "RubyLinda"
WebBrowser1.Document.All("vb_login_password").Value = "123456789"
Call Logearse
End Sub

Private Sub Command2_Click()
WebBrowser1.Document.All("vB_Editor_001_textarea").Value = "mensajes que debe salir en el textarea"
Call EnviarMensaje
End Sub

Private Sub Command3_Click()
WebBrowser1.Navigate "http://www.argentinawarez.com/r.php?do=nrespuesta&noquote=1&p=3835308"
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.argentinawarez.com"
End Sub

Private Sub Logearse()
Dim oDoc As HTMLDocument
Dim iElements As Integer, i As Integer
Dim oInputs As HTMLInputElement

Set oDoc = WebBrowser1.Document

With WebBrowser1.Document
iElements = (oDoc.getElementsByTagName("INPUT").length - 1)
For i = 0 To iElements
Set oInputs = oDoc.getElementsByTagName("INPUT")(i)
If oInputs.Type = "submit" And oInputs.Value = "Entrar" Then
oInputs.Click
Exit For
End If
'List1.AddItem oInputs.Name & " | " & oInputs.Type & " | " & oInputs.Value
Next i
End With
End Sub

Private Sub EnviarMensaje()
Dim oDoc As HTMLDocument
Dim iElements As Integer, i As Integer
Dim oInputs As HTMLInputElement

Set oDoc = WebBrowser1.Document

With WebBrowser1.Document
iElements = (oDoc.getElementsByTagName("INPUT").length - 1)
For i = 0 To iElements
Set oInputs = oDoc.getElementsByTagName("INPUT")(i)
If oInputs.Type = "submit" And oInputs.Value = "Publicar Respuesta" Then
oInputs.Click
Exit For
End If
'List1.AddItem oInputs.Name & " | " & oInputs.Type & " | " & oInputs.Value
Next i
End With
End Sub


Lo unico que me falta es lograr que el mensaje aparezca en el textarea por que el envio si se realiza pero lo del mensaje no :S por favor es la unica ayuda que me falta para lograr completarlo

[seba123neo]

ahi veo que el campo para escribir no es un text sino es un frame, entonces la forma de escribirle es otra, despues de varias pruebas, al final logre escibir, proba esto:

Código (vb) [Seleccionar] Expandir

WebBrowser1.Document.frames("vB_Editor_001_iframe").Document.body.innerHTML = "Mensajeeeeeeeeeee"

saludos.

[DarkMisterio]

mucchas gracias logre terminar el codigo para los comentarios y todo y funciona perfectamente ya mas adelante lo ire mejorando para que pueda ser mucho ams facil el envio y que pueda ser usado para cualkier foro gracias :D aca dejo el codigo :

Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = "RubyLinda"
WebBrowser1.Document.All("vb_login_password").Value = "123456789"
Call Logearse
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "http://www.argentinawareza.com/r.php?do=nrespuesta&noquote=1&p=3835308"
End Sub

Private Sub Command3_Click()
WebBrowser1.Document.frames("vB_Editor_001_iframe").Document.body.innerHTML = Text3.Text
Call EnviarMensaje
End Sub

Private Sub Command4_Click()
WebBrowser1.Navigate "http://www.argentinawareza.com/r.php?do=nrespuesta&noquote=1&p=3824420"
End Sub

Private Sub Command5_Click()
WebBrowser1.Navigate "http://www.argentinawareza.com/r.php?do=nrespuesta&noquote=1&p=3822384"
End Sub

Private Sub Command6_Click()
WebBrowser1.Navigate "http://www.argentinawareza.com/r.php?do=nrespuesta&noquote=1&p=3779398"
End Sub

Private Sub Command7_Click()
WebBrowser1.Navigate "http://www.argentinawareza.com/r.php?do=nrespuesta&noquote=1&p=3845291"
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.argentinawareza.com"
End Sub

Private Sub Logearse()
Dim oDoc As HTMLDocument
Dim iElements As Integer, i As Integer
Dim oInputs As HTMLInputElement

Set oDoc = WebBrowser1.Document

With WebBrowser1.Document
iElements = (oDoc.getElementsByTagName("INPUT").length - 1)
For i = 0 To iElements
Set oInputs = oDoc.getElementsByTagName("INPUT")(i)
If oInputs.Type = "submit" And oInputs.Value = "Entrar" Then
oInputs.Click
Exit For
End If
'List1.AddItem oInputs.Name & " | " & oInputs.Type & " | " & oInputs.Value
Next i
End With
End Sub

Private Sub EnviarMensaje()
Dim oDoc As HTMLDocument
Dim iElements As Integer, i As Integer
Dim oInputs As HTMLInputElement

Set oDoc = WebBrowser1.Document

With WebBrowser1.Document
iElements = (oDoc.getElementsByTagName("INPUT").length - 1)
For i = 0 To iElements
Set oInputs = oDoc.getElementsByTagName("INPUT")(i)
If oInputs.Type = "submit" And oInputs.Value = "Publicar Respuesta" Then
oInputs.Click
Exit For
End If
'List1.AddItem oInputs.Name & " | " & oInputs.Type & " | " & oInputs.Value
Next i
End With
End Sub


Modifique el codigo que me diste seba123neo para poder usar un mensaje puesto ya en un textbox y de ahi hacer el envio del mensaje al frame y que haga el envio del mensaje y funciono :D le puse 5 botones para el cambio de post donde comentar ahi es donde quiero mejorarlo por que si tengo 20 posts donde comentar no puedo poner 20 botones pero eso ya lo ire preguntando de a pocos gracias por su ayuda seba123neo por la ayuda y por las criticas

[TGa.]

amigo yo que tu no dejaria el usuario y password para que lo lea todo el mundo

[DarkMisterio]

ajajja si pues ya me habia dado cuenta de eso pero cambie el pass ps ademas cambie esta sección :

Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = "RubyLinda"
WebBrowser1.Document.All("vb_login_password").Value = "123456789"
Call Logearse
End Sub

por esta :

Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = Text1.Text
WebBrowser1.Document.All("vb_login_password").Value = Text2.text
Call Logearse
End Sub

Asi hago que tenga que colocar el user y pass para loguearme y no ya no solo esatri dentro del formulario a toda vista ps ya con la otra manera logro poder usar varios usuarios

[DarkMisterio]

bueno a ver si me ayudan con esto acabe mi programa pero ahora me entro una duda como tengo que colocar un boton para cada link donde tengo que comentar como puedo hacerpara tener una lista de links y activarlos al momento de seleccionarlo y de ahi enviar el mensaje diganme se podria hacer asi con un textlist ? o un combo que kreo que vi por ahi ¡' y se podria hacer lo mismo asi para mensajes diferentes ? en vez de estar escribiendolo ? asi evitaria colocar tantos botones y escribir mensajes diferentes como podria lograrlo ?

[BlackZeroX]

.
Ppues usando todo lo que tienes ya hecho solo implementale un for next que recorra una lista X.

y dicha lista la puedes tener donde quieras... ListBox ListView en un textbox en un archivo de texto plano etc etc etc.

Dulces Lunas!¡.