Visual Basic - Urgente!

Life is soft - evento anual de software empresarial
 
Vista:

Urgente!

Publicado por Alberto (8 intervenciones) el 28/11/2006 16:01:39
Que tal amigos quisiera saber si existe alguna forma para implementar un sistema en VB6 que recabe informacion de una pagina web mediante metodos propios de la pagina, algo como mandar la informacion de un query por url, no se si exista alguna otra forma , les agradeceria mucho si me mostraran un ejemplo de codigo o alguna idea de como hacer esto, de antemano gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente!

Publicado por ANTININO (13 intervenciones) el 28/11/2006 23:01:37
pero... no teneis ni idea, o es que os manda algun error en el codigo?
tenes codigo, o queres que lo hagamos nosotros?
si nos lo podieras aclarar es posible que te podamos alludar en lo que podamos.

zuerte colega!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente!

Publicado por Alberto (8 intervenciones) el 29/11/2006 16:43:53
Gracias amigo, lo que queria en principio era mandar un post a un server para recabar informacion pero con informacion que yo le suministrara, eso ya lo tengo con el codigo de abajo ahora no se si hay alguna forma para tomar el codigo fuente de una web page pero solo tomar el texto plano sin parsear gracias

intNewBytes = Len(strPostData) - 1
If intNewBytes < 0 Then
Exit Sub
End If
ReDim ByteArray(intNewBytes)
For i = 0 To intNewBytes
strCH = Mid$(strPostData, i + 1, 1)
If strCH = Space(1) Then
strCH = "+"
End If
ByteArray(i) = Asc(strCH)
Next
End Sub
Private Sub Command1_Click()
strPostData = "Name1=Value1&Name2=Value2"
BuildPostData bytpostdata(), strPostData
varPostData = bytpostdata
strHeader = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
Web.Navigate2 "http://algunsitio.com", 0, "", varPostData, strHeader
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar