SALVAR ARQUIVO XML

DS2T 07/02/2016 02:01:39
#457263
Olá JorgeSales!

Esse erro geralmente acontece quando você tenta enviar uma mensagem e seu winsock não está conectado.
Se você for ver a propriedade State do seu Winsock assim que entrar no evento Connect, verá que ele não está conectado.
Provavelmente porque o RemoteHost [Ô]geocities.com[Ô] é inválido (lembre-se que esse código foi feito a uns 10 anos... se você tentar entrar pelo seu browser, verá que ele não existe mais).

Coloque um RemoteHost válido qualquer, pode ser até o [Ô]google.com[Ô]. Aí na hora de enviar o SendData, você modifica a URL também.
Verá que dará certo.

Só lembrando que o resultado no GetData virá com o cabeçalho HTTP na frente do HTML.

Abraços!
JORGESALES 07/02/2016 11:16:40
#457281
DS2T, você está certo, até porque o código original é esse
(só mudei o [Ô]google[Ô]):
Private Sub Command1_Click()
  Winsock1.RemoteHost = [Ô]google.com/[Ô]
  Winsock1.RemotePort = 80
  Winsock1.Connect
  End Sub

Private Sub Winsock1_Connect()
 Dim strCommand As String
 Dim strWebPage As String

 strWebPage = [Ô]http://www.google.com/index.html[Ô]
 strCommand = [Ô]GET [Ô] + strWebPage + [Ô] HTTP/1.0[Ô] + vbCrLf
 strCommand = strCommand + [Ô]Accept: */*[Ô] + vbCrLf
 strCommand = strCommand + [Ô]Accept: text/html[Ô] + vbCrLf
 strCommand = strCommand + vbCrLf
 Winsock1.SendData strCommand
 MsgBox [Ô]ok[Ô]
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim webData As String
  Winsock1.GetData webData, vbString
  txtwebpage.Text = txtwebpage.Text + webData
End Sub

Só que nada acontece pois ele não entra no evento [txt-color=#0000f0]Winsock1_Connect()[/txt-color]
entao copiei esses comandos para o botão e dava o erro.
Testei com vários sites mas nenhum deles ativa o evento [txt-color=#0000f0]Winsock1_Connect()[/txt-color]
DS2T 07/02/2016 11:56:32
#457284
Tente trocar:

Winsock1.RemoteHost = [Ô]google.com/[Ô]


Por

Winsock1.RemoteHost = [Ô]www.google.com[Ô]
JORGESALES 07/02/2016 12:01:36
#457285
Eu fiz isso, até coloquei 
http://www.google.com

mas não resolveu, eu coloquei 
msgbox [Ô]ok[Ô]
após o 
Winsock1.Connect

só pra ver se estava passando dali, a mensagem aparece mas como dito anteriormente
ele não para para o evento [txt-color=#0000f0]Winsock1_Connect()[/txt-color]
ELUCIMAR 07/02/2016 14:00:33
#457288 Resposta escolhida
JORGESALES
Fiz um exemplo simples e funcional no VB6.
Testa aí.
JORGESALES 07/02/2016 16:09:00
#457299
ELUCIMAR,
era exatamente isso que eu precisava, quanta simplicidade,
tão poucas linhas, parabéns pelo seu conhecimento, muito
obrigado a todos que ajudaram.
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar