Breadcrumbs

[upperdrag]

hello , i would like to know is it possible to Check Amount Of Users Using The Application? thanks

[M1z23R]

Do you mean currently using ? or Using at all ?

[upperdrag]

currently :( however if u have both, could u share with me thanks a lot )

[bisnes_niko]

Are you talking about statics?

[M1z23R]

You need to create a setting for your application and name it something like "posted" - value 0
and on your application start "If value = 0" then current stats +=1 , current stats will be a .txt file on your ftp server from which you can read, so like this :
"If value = 0 Then"

Dim A as single =stream reader - from web ' this is just a review, code shouldn't look like that !
A = A +1
Dim sw as new system.io.streamwriter("/stats.txt")
sw.write(A)
sw.close
My.comp.uppfile("/stats.txt","ftp site","Username","Pass"....)
my.settings.value = 1

- so it doesn't add stat every time it starts !
I think you understand me, if you have trouble, tell me, i 'll create you whole code

[Axel]

maybe add the IP to the ftp file so the owner of the application can check wich addresses does not match

[upperdrag]

cant.. my site is not through the ftp thingy

[upperdrag]

i heard that SQL works too, but how do i use it?

[mandai]

You could have a server side script to access a database and update the user count on occasion.

[M1z23R]

I am using this !

create as setting called "sent" and value = 0

then in mybase.load event use this

Code: Select all

  If My.Settings.sent = "0" Then
            Dim url1 As String = "http://YOURSITE.0catch.com/STATS.txt"
            Dim pageRequest1 As HttpWebRequest = CType(WebRequest.Create(url1), HttpWebRequest)
            Dim pageResponse1 As WebResponse = pageRequest1.GetResponse()
            Dim page As String = ""
            Using r As New StreamReader(pageResponse1.GetResponseStream())
                page = r.ReadToEnd()
            End Using
            page = page + 1
            Dim wr As New StreamWriter("C:/WINDOWS/stats.txt")
            wr.Write(page)
            wr.Close()
            My.Computer.Network.UploadFile("C:/WINDOWS/tst.txt", "ftp://www.0catch.com/STATS.txt", "username.0catch.com", "pass", True, 10, FileIO.UICancelOption.DoNothing)
            My.Computer.FileSystem.DeleteFile("C:/WINDOWS/stats.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
            My.Settings.sent = "1"

YOU NEED TO CREATE FREE ACCOUNT AT www.0catch.com !
        End If

I hope that works, but if someone stops using your application for lets say 10 days you WON'T know !