[njinja]

Project is not complited works is still in progress but i wona show to you...
Credits to all members on hackforums.net who help for my split control :)


[img]http://img821.imageshack.us/img821/1809/15326246.png[/img]

[img]http://img708.imageshack.us/img708/8688/60973529.png[/img]

[img]http://img207.imageshack.us/img207/9912/24258335.png[/img]


Download Source code

[no1me]

look nice
you make it ..
well i see lots of help post
nooo (Click to View)kidding tnx

[njinja]

I just try to develop a useful application,I know I'm far from over complite app but I try and I shall try

[no1me]

I just try to develop a useful application,I know I'm far from over complite app but I try and I shall try

its ok
you make good work

[njinja]

Thank you,means a lot to me

[Hecker21]

Looks good so far ;D
Keep it up!

[njinja]

Thanks everyone, I have a lot of ideas that I plan to realize in this project.I hope you like it!

[Contra]

How accurate is this? I'm interested in helping code

[njinja]

Contra i post source code hire you can download then update source with yours code's and post source hire

[njinja]

no problem man :) i add some new funcions soon i will post update app hire

[Toxic Asshole]

holy shit thats fucking awsome! Nice job!

[[Chocobro] Nilef]

This is impressive work. Tidy it up and keep it going :)

[njinja]

thank you all for support,means a lot to me and work will continue :)

[Grizzly KI]

This looks awesome. Good job.
Edit: Can you re-upload this, link seems to be dead.

[njinja]

Hire is some update for this program for NetStat monitor...

Coded updete for this program save all netstat informacion to txt file

Code

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Dim outputstream As StreamWriter = File.CreateText(Application.StartupPath & "\net-stat-conn.txt")

  Dim s As Short
  Dim newstr(7) As String

  Dim I As Integer

  Dim TextA As String
  Dim TextB As String
  Dim TextC As String
  Dim TextD As String
  Dim TextE As String
  Dim TextF As String
  Dim textK As String
  Dim TextG As String
  Dim ItemCount As Integer

  ItemCount = Me.ListView1.Items.Count

  For I = 0 To ItemCount - 1
    For s = 0 To 7
    newstr(s) = ListView1.Items.Item(I).SubItems(s).Text
    Next

    TextA = newstr(0)
    TextB = newstr(1)
    TextC = newstr(2)
    TextD = newstr(3)
    TextE = newstr(4)
    TextF = newstr(5)
    textK = newstr(6)
    TextG = newstr(7)
    outputstream.WriteLine(TextA & "|" & TextB & "|" & TextC & "|" & TextD & "|" & TextE & "|" & TextF & "|" & textK & "|" & TextG)
  Next I
  outputstream.Close()
    End Sub

prew...

Code

TCP|127.0.0.1|49184|127.0.0.1|49185|Petar-Admin-PC|Established|F
TCP|127.0.0.1|49185|127.0.0.1|49184|Petar-Admin-PC|Established|F
TCP|127.0.0.1|49187|127.0.0.1|49188|Petar-Admin-PC|Established|F
TCP|127.0.0.1|49188|127.0.0.1|49187|Petar-Admin-PC|Established|F
TCP|192.168.1.100|49547|69.63.181.48|80|api-13-01-snc2.facebook.com|Established|F
TCP|192.168.1.100|49754|74.125.43.99|80|bw-in-f99.1e100.net|Established|F