Mensajes

bueno ya que no desean ayudarme solo vere si me pueden responder esto logre colocar el combobox en el formulario pero ahora no se como ponerle valores pero la cuestion esta aca como hacer que los valores que le ponga al combobox se activen en el webbrowser por que los valores en el combobox estaran dirigidos a una web especifica

jajajaajjaja plop !!! se supone que en un foro uno pregunta para aprender y no solo es que todo me lo den masticadito y si has visto bien yo tambien a pesar que no se nada de nada de visual basic logre modificar el codigo hast hacerlo a mi gusto gracias a tu ayuda pero bueno si crees que no debo preguntar tanto ok no hay problema leere el manual ps

mmm es que yo no se como hacer eso osea de poder investigarlo si puedo hacerlo la cuestion osea es como dije de una lista escoger el link que se cargue en el webbrowser y de ahi elegir un mensaje de otra lista y enviarlo eso se hace con combobox combolist o con que se puede hacer ?

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 ?

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

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

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

uhmm a ver voy a intentarlo ojala me funcione

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

pls que alguien me ayude es la unica parte que me falta ya de ahi todo estria completo solo quiero ver como lograr que el texto aparezca en el textarea y listo lo del envio ya es mas facil