[RESOLVIDO] Quem já utilizou...

[Ivo Pereira]

Boas pessoal,

gostaria de fazer um contador para saber quantas pessoas já utilizaram o meu programa, e estava a pensar fazer um da seguinte forma:

1 - quando o programa inicia-se, estabelecia uma conexão à Internet, a um ficheiro txt num host que me pertence

2 - verificava qual o número que lá estava

3 - punha o número num int

4 - acrescentava +1 ao número

5 - gravava a variável num ficheiro txt (com o mesmo nome e tudo, mas não estou a conseguir fazer esta parte)

6 - fazia o upload do ficheiro para o meu host

será que me podiam ajudar, ajudando a fazer este método, ou sugerindo outros?  ?

Cumprimentos

[jpaulino]

Porque é que está a queres complicar! Tratasse de um ficheiro de text com um tamanho mínimo e tudo é muito rápido.

1 - Descarregas um ficheiro

2 - Localmente verificas a versão e adicionas mais um

3 - Descarregas o ficheiro

So tens de usar qualquer coisa do género:

        My.Computer.Network.UploadFile("c:\Programa\contador.txt", "http://www.omeudominio.com/contador.txt")

        My.Computer.Network.DownloadFile("http://www.omeudominio.com/contador.txt", "c:\Programa\contador.txt")

[jpaulino]

Falta apenas um ponto!

4 - Apagas o ficheiro

[Ivo Pereira]

pois, o problema é que nao estou a conseguir adicionar mais um e guardar no ficheiro .txt

[jpaulino]

Tenta assim:

  Dim result As String = My.Computer.FileSystem.ReadAllText("C:\contador.txt")

  My.Computer.FileSystem.WriteAllText("C:\contador.txt", CDbl(result) + 1, False)

[Ivo Pereira]

eu já tinha feito de outra forma, o que não estou a conseguir fazer é o upload...

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        File.Delete("C:/asneiras.txt")
        My.Computer.Network.DownloadFile("http://ivopereira.110mb.com/asneiras.txt", "C:/asneiras.txt")
        Dim pessoas As Integer = File.ReadAllText("C:/asneiras.txt")
        pessoas += 1
        File.WriteAllText("C:/asneiras.txt", pessoas)
        My.Computer.Network.UploadFile("C:/asneiras.txt", "http://ivopereira.110mb.com/asneiras.txt", "username", "password")
    End Sub

onde tá username e password, tão os meus dados de acesso, claro que não os vou por aqui como é óbvio LOL

mas, tipo, consigo fazer tudo, incrementa o valor no ficheiro .txt, mas não faz o upload...

EDIT: esquece... já está a funcionar às mil maravilhas 😛

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        File.Delete("C:/asneiras.txt")
        My.Computer.Network.DownloadFile("http://ivopereira.110mb.com/asneiras.txt", "C:/asneiras.txt")
        Dim pessoas As Integer = File.ReadAllText("C:/asneiras.txt")
        pessoas += 1
        File.WriteAllText("C:/asneiras.txt", pessoas)
        My.Computer.Network.UploadFile("C:/asneiras.txt", "ftp://ivopereira.110mb.com/asneiras.txt", "username", "password")
    End Sub

foi só mudar na parte de upload de http:// para ftp://

[jpaulino]

E qual é a mesagem que dá ?

[jpaulino]

Ok

[Ivo Pereira]

obrigado na mesma 😛