Ivo Pereira Posted March 7, 2008 Report Share Posted March 7, 2008 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 More sharing options...
jpaulino Posted March 7, 2008 Report Share Posted March 7, 2008 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 More sharing options...
jpaulino Posted March 7, 2008 Report Share Posted March 7, 2008 Falta apenas um ponto! 4 - Apagas o ficheiro Link to comment Share on other sites More sharing options...
Ivo Pereira Posted March 7, 2008 Author Report Share Posted March 7, 2008 pois, o problema é que nao estou a conseguir adicionar mais um e guardar no ficheiro .txt Link to comment Share on other sites More sharing options...
jpaulino Posted March 7, 2008 Report Share Posted March 7, 2008 Tenta assim: Dim result As String = My.Computer.FileSystem.ReadAllText("C:\contador.txt") My.Computer.FileSystem.WriteAllText("C:\contador.txt", CDbl(result) + 1, False) Link to comment Share on other sites More sharing options...
Ivo Pereira Posted March 7, 2008 Author Report Share Posted March 7, 2008 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 More sharing options...
jpaulino Posted March 7, 2008 Report Share Posted March 7, 2008 E qual é a mesagem que dá ? Link to comment Share on other sites More sharing options...
jpaulino Posted March 7, 2008 Report Share Posted March 7, 2008 Ok Link to comment Share on other sites More sharing options...
Ivo Pereira Posted March 7, 2008 Author Report Share Posted March 7, 2008 obrigado na mesma 😛 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now