HitCounter.Txt

Global.asax

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' هنا نكتب الكود
End Sub

'جلب رقم عداد الزوار الموجود في ملف عداد الزوار HitCounter
        'ومن ثم زيادة الرقم الموجود في الملف رقم واحد واعادة تخزين الرقم الجديد

        'جلب عدد الزوار الموجود حاليا في الملف وتخزيه في متغير من نوع رقم طويل

        Dim HitCounterR As New IO.StreamReader("C:\HitCounter.txt")
        Dim HitCounter As Long = CLng(HitCounterR.ReadToEnd())
        HitCounterR.Close()

        'زيادة رقم واحد على المتغير الموجود بعدد الزواؤ
        HitCounter = HitCounter + 1

        'اعادة تخزين الرقم الجديد لعدد الزوار في الملف النصي
        Dim HitCounterW As New IO.StreamWriter("C:\HitCounter.txt")
        HitCounterW.Write(HitCounter)
        HitCounterW.Close()

Dim HitCounter As Long = CLng(HitCounterR.ReadToEnd())

Dim HitCounterR As New IO.StreamReader("C:\HitCounter.txt")

Dim HitCounterW As New IO.StreamWriter("C:\HitCounter.txt")

hitcounter.aspx

Private Sub Page_Load

'جلب عدد الزوار الموجود حاليا في الملف وتخزيه في متغير
        Dim HitCounterR As New IO.StreamReader(SitePath & "\HitCounter.txt")
        Dim HitCounter As String = HitCounterR.ReadToEnd()
        HitCounterR.Close()

HitCounter

'عرض عداد الزوار باسلوب صورة مرسومه بشكل مميز
        Dim imgNew As System.Drawing.Image = New Bitmap(1, 1)
        Dim gc As Graphics = Graphics.FromImage(imgNew)
        Dim font As Font = New Font("Verdana", 12, FontStyle.Underline)
        Dim size As SizeF = gc.MeasureString(HitCounter, font)
        Dim width As Integer = CType(size.Width, Integer) + 1
        Dim height As Integer = CType(size.Height, Integer) + 1
        imgNew = New Bitmap(width, height)
        gc = Graphics.FromImage(imgNew)
        gc.FillRectangle(Brushes.White, 0, 0, width, height)
        gc.DrawString(HitCounter, font, Brushes.Black, 0, 0)
        imgNew.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)

 HitCounter

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        'جلب عدد الزوار الموجود حاليا في الملف وتخزيه في متغير
        Dim HitCounterR As New IO.StreamReader(SitePath & "\HitCounter.txt")
        Dim HitCounter As String = HitCounterR.ReadToEnd()
        HitCounterR.Close()

        'عرض عداد الزوار باسلوب صورة مرسومه بشكل مميز
        Dim imgNew As System.Drawing.Image = New Bitmap(1, 1)
        Dim gc As Graphics = Graphics.FromImage(imgNew)
        Dim font As Font = New Font("Verdana", 12, FontStyle.Underline)
        Dim size As SizeF = gc.MeasureString(HitCounter, font)
        Dim width As Integer = CType(size.Width, Integer) + 1
        Dim height As Integer = CType(size.Height, Integer) + 1
        imgNew = New Bitmap(width, height)
        gc = Graphics.FromImage(imgNew)
        gc.FillRectangle(Brushes.White, 0, 0, width, height)
        gc.DrawString(HitCounter, font, Brushes.Black, 0, 0)
        imgNew.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)


    End Sub