Como "Pegar" informações de um servidor?

[koal40 0]

Olá!!Eu trabalhava com o VB.NET, mas tive que começar q mexer com o VB6 ... e me surgiram dúvidas...Bom.. eu estou fazendo um programinha pra atualizar arquivos antigos.. ai vão os problemas:1. Não consigo fazer o programa pegar informações do servidor (por exemplo a vesão do programa para checar se necessita de atualização.2. Caso precise de atualização, como faço para o programa baixar os arquivos necessários??Muito obrigado!

[Luizgrs 0]

Se você for fazer isso via internet dá uma olhada nesse artigo:

http://www.macoratti.net/atual_vb.htm

 

Já se for por rede, você pode usar o FileSystemObject (ou as funções nativas do VB) para ler arquivos, e copiá-los de um local da rede (servidor) para o pc.

 

Já para saber se há novas versões, você pode usar um arquivo texto para escrever sobre a útima versão do arquivo, e no programa que roda em cada máquina você tem a versão do arquivo que está sendo usado, depois é só comparar.

[koal40 0]

opa brigadão, vou ler o artigo!! =))e pesquisar um pouco sobre o arquivo de texto que é uma boa ideia!

[koal40 0]

Olá, estou me virando aqui, mas entou com algumas dúivdas pendentes, bem...1º. Como funciona e o que faz: objetoInet.getChunk ?2º. Como fazer o ProgressBar correr junto ao download (digo a porcentagem de download)... (estou procurando na net mas não encontro)Obrigado!

[koal40 0]

opa valeu galera, consegui aqui com este código: (Download + ProgessBar)

Dim tamanho as LongDim baixado as LongDim caminho as StringPrivate Sub Inet_StateChanged(ByVal State As Integer)Dim bData() As ByteDim ff As Integer Select Case State Case 8 If tamanho = 0 Then tamanho = CLng(Inet.GetHeader("Content-Length")) End If Case 11 Inet.Cancel Case 12 ff = FreeFile caminho = "teste.gif" Open App.Path & "\" & caminho For Binary As #ff bData = Inet.GetChunk(1024, icByteArray) DoEvents Put #ff, , bData Do While UBound(bData()) > 0 bData = Inet.GetChunk(1024, icByteArray) DoEvents Put #ff, , bData baixado = baixado + UBound(bData()) barra.Value = Round((baixado / tamanho) * 1000) Loop Close #1 barra.Value = 1000 stat.Caption = "Atualização completa! Iniciando Checagem..." End SelectEnd Sub

usei um Objeto Inet chamado Inet, um progressbar chamado barra e um label chamado stat.

[Luizgrs 0]

O getChunck segundo o Object Browser do VB, serve para pega uma parte do documento, sendo o primeiro parâmetro o tamanho e o segundo o tipo.