Program Stats

[ConsultingJoe]

This script will allow you to get a few items of data from the users of your programs.

All you need is:

-An ID name/number that is unique

-Internet access to record and view data

To check your data: http://cyberzerocool.com/mystats?id=2

To record data: http://cyberzerocool.com/mystats?id=2&add=TEST

To delete id: http://cyberzerocool.com/mystats?remove=2

expandcollapse popup

;   $ID =
;   A unique name/number for your stats
;   Example: My_program_1234
;   =====================================================================
;   NOTE: To access your starts just goto www.cyberzerocool.com/mystats/?id=$ID
;   =====================================================================

;=======Example========
#include <IE.au3>
_ProgramStats( "2" )
;======================
Func _ProgramStats( $ID )
    Local $string = "<table border='3'>"
    $string = $string & "<tr><td>Computer:</td><td>" & @ComputerName & "</td></tr>"
    $string = $string & "<tr><td>User:</td><td>" & @UserName & "</td></tr>"
    $string = $string & "<tr><td>OS Type:</td><td>" & @OSTYPE & "</td></tr>"
    $string = $string & "<tr><td>Ping:</td><td>" & Ping( "Google.com", 20 ) & "</td></tr>"
    $string = $string & "<tr><td>Date/Time:</td><td>" & @MDAY & "/" & @MON & "/" & @YEAR & "  " & @HOUR & ":" & @MIN & ":" & @SEC & "</td></tr></table>"
    ; By: Greg "Overload" Laabs
    Local Const $aURIValidChars[256] = _
            [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
            0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, _
            1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, _
            0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, _
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
    
    Local $sEncoded = ""
    For $i = 1 To StringLen($string)
        Local $c = StringMid($string, $i, 1)
        If $c = " " Then $c = "+"
        If Number($aURIValidChars[Asc($c) ]) Then
            $sEncoded &= $c
        Else
            $sEncoded &= StringFormat("%%%02X", Asc($c))
        EndIf
    Next
    
    $string = $sEncoded
    ConsoleWrite( $string )
    $ie = _IECreate("Http://cyberzerocool.techguy86.net/mystats?add=" & $string & "&id=" & $ID, 0, 0)
    _IEQuit($ie)
EndFunc

Edited December 15, 2006 by CyberZeroCool

[RazerM]

Looks good, it could be used to send optional error information if the user agrees to (like Microsofts "Customer Experience Improvement Program").

[ConsultingJoe]

Looks good, it could be used to send optional error information if the user agrees to (like Microsofts "Customer Experience Improvement Program").

Yes good idea or a work around for TCP data

[ConsultingJoe]

Looks good, it could be used to send optional error information if the user agrees to (like Microsofts "Customer Experience Improvement Program").

Yes good idea or a work around for TCP data