Jump to content

[RESOLVIDO] Quem já utilizou...


Ivo Pereira
 Share

Recommended Posts

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

Link to comment
Share on other sites

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")

Link to comment
Share on other sites

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://

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.