Rrjeta.net

Visual Basic :: RE: Dren's BMon Beta

Autori: Linkin_Park
Postuar: Thu Jul 03, 2008 6:55 am (GMT -5)
Tema P�rgjigjet: 3

Une skom far programi per bandwidth monitor po me router ( mikrotik) qysh pe shoh spe tregon sakt. mun me pa ne foto 646k me 1208 k shume dallim se per pak sih kone problem

_________________
everythin that has a beginning has an END

Visual Basic :: RE: Dren's BMon Beta

Autori: Dren
Postuar: Wed Jul 02, 2008 2:05 pm (GMT -5)
Tema P�rgjigjet: 3

Citat:

Program i mire vetem se nuk pe tregon sakt.

Hmmmm, e kam testu njekohesisht me Bandwidth Monitor PRO edhe vlera e njejte paraqitet ne 2 programet.

Citat:

Si dhe bone me shpejtesi me te medha se 2 Mbps.

Do te punoj ne te te paraqet shpejtesine deri ne 32MB/s.

Tung, Dreni

Visual Basic :: RE: Se shpejti: Network Address Translation ne Windows XP

Autori: kresha7
Postuar: Wed Jul 02, 2008 11:37 am (GMT -5)
Tema P�rgjigjet: 12

: P thats mean hhehehehhehehe

Visual Basic :: RE: Dren's BMon Beta

Autori: Linkin_Park
Postuar: Wed Jul 02, 2008 3:02 am (GMT -5)
Tema P�rgjigjet: 3

Program i mire vetem se nuk pe tregon sakt.Si dhe bone me shpejtesi me te medha se 2 Mbps.
_________________
everythin that has a beginning has an END

Visual Basic :: Dren's BMon Beta

Autori: Dren
Titulli: Dren's BMon Beta
Postuar: Tue Jul 01, 2008 6:44 pm (GMT -5)
Tema P�rgjigjet: 3

Pershendetje,

Sonte isha pak i lire dhe vendosa te bej diqka te re. Pashe nje postim te Kreshas ku perdorej netstat dhe verejta qe pas zbatimit te komandes paraqiteshin statistika mbi totalin e shkarkimeve de ngarkimeve prej startimit te kompjuterit ose NIC-se. Vendosa te bej diqka sa per te humbur kohe dhe produkti ishte nje program i vogel. Ky program ruan sasine e fundit te te dhenave te shkarkuara dhe pas nje sekode ruan sasine tjeter dhe ndryshimi i tyre do te jete shpejtesia e shkarkimit nga interneti (e te gjitha shkarkimeve njekohesisht). Keti programi i kam shtuar edhe disa opcione te vogla si nje diagram i cili paraqet grafikisht historine e transferit deri ne 21 breza (te cilet jan Shapes me lartesi variable varesisht nga ngarkesa) dhe mundesine e kalibrimit te grafikut ne baze te shpejtesise qe mundeson paraqitjen e transfereve shume te vogla (kur eshte vene ne 128kb/s) ose shpejtesive te larta deri ne 2Mb/s. Gjithashtu mundeson paraqitjen ne njesi te ndryshme. Mund te zjedhni te paraqisni vetem ne bajt, vetem ne bit ose te 2jat.

Ja nje pamje e programit:

Nese dikujt i intereson ta studioje kodin ja ku e keni:

Kodi:

Dim i As Integer
Dim S1() As String
Dim S2() As String
Dim DLPF As String
Dim LastDL As String
Dim ShpejtesiaBit As String
Dim ShpejtesiaByte As String
Dim DS As String
Dim PG As String
Dim MAXBajt As String
Dim Grafiqet(21) As Long

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Timer1_Timer()
Shell "cmd.exe /C netstat -e> C:\123.txt", vbHide

On Error Resume Next
Open "C:\123.txt" For Input As #1
Do Until EOF(1)
Dim tpVar As String
Line Input #1, tpVar
PG = PG & tpVar & vbNewLine
Loop
Close #1

Grafiqet(21) = Grafiqet(20)
Grafiqet(20) = Grafiqet(19)
Grafiqet(19) = Grafiqet(18)
Grafiqet(18) = Grafiqet(17)
Grafiqet(17) = Grafiqet(16)
Grafiqet(16) = Grafiqet(15)
Grafiqet(15) = Grafiqet(14)
Grafiqet(14) = Grafiqet(13)
Grafiqet(13) = Grafiqet(12)
Grafiqet(12) = Grafiqet(11)
Grafiqet(11) = Grafiqet(10)
Grafiqet(10) = Grafiqet(9)
Grafiqet(9) = Grafiqet(8)
Grafiqet(8) = Grafiqet(7)
Grafiqet(7) = Grafiqet(6)
Grafiqet(6) = Grafiqet(5)
Grafiqet(5) = Grafiqet(4)
Grafiqet(4) = Grafiqet(3)
Grafiqet(3) = Grafiqet(2)
Grafiqet(2) = Grafiqet(1)
Grafiqet(1) = Grafiqet(0)

DLPF = LastDL

LastDL = ""
On Error Resume Next
S1 = Split(PG, "Bytes")
On Error Resume Next
S2 = Split(S1(1), " ")

i = 0

Do Until Len(LastDL) > 0
On Error Resume Next
LastDL = S2(i)
i = i + 1
Loop

Grafiqet(0) = DS

PG = ""

Kill "C:\123.txt"

DS = LastDL - DLPF

If DS <999> 0 Then ShpejtesiaByte = DS
If DS <999000> 999 Then ShpejtesiaByte = Int(DS / 1000) & "k"
If DS <999000000> 999000 Then ShpejtesiaByte = Int(DS / 1000000) & "M"
If DS = "" Or LastDL = DLPF Then ShpejtesiaByte = 0

If DS <999> 0 Then ShpejtesiaBit = DS * 8
If DS <999000> 999 Then ShpejtesiaBit = Int(DS / 1000) * 8 & "k"
If DS <999000000> 999000 Then ShpejtesiaBit = Int(DS / 1000000) * 8 & "M"
If DS = "" Or LastDL = DLPF Then ShpejtesiaBit = 0

If Check1.Value = 1 And Check2.Value = 0 Then
Label2.Caption = ShpejtesiaByte & "B/s"
End If

If Check2.Value = 1 And Check1.Value = 0 Then
Label2.Caption = ShpejtesiaBit & "b/s"
End If

If Check1.Value = 1 And Check2.Value = 1 Then
Label2.Caption = ShpejtesiaByte & "B/s" & " ose " & ShpejtesiaBit & "b/s"
End If

If Check1.Value = 0 And Check2.Value = 0 Then
Label2.Caption = "Nuk keni zgjedhur asnj� nj�si!"
End If

Shape1.Height = Grafiqet(20) / MAXBajt * 2
Shape2.Height = Grafiqet(19) / MAXBajt * 2
Shape3.Height = Grafiqet(18) / MAXBajt * 2
Shape4.Height = Grafiqet(17) / MAXBajt * 2
Shape5.Height = Grafiqet(16) / MAXBajt * 2
Shape6.Height = Grafiqet(15) / MAXBajt * 2
Shape7.Height = Grafiqet(14) / MAXBajt * 2
Shape8.Height = Grafiqet(13) / MAXBajt * 2
Shape9.Height = Grafiqet(12) / MAXBajt * 2
Shape10.Height = Grafiqet(11) / MAXBajt * 2
Shape11.Height = Grafiqet(10) / MAXBajt * 2
Shape12.Height = Grafiqet(9) / MAXBajt * 2
Shape13.Height = Grafiqet(8) / MAXBajt * 2
Shape14.Height = Grafiqet(7) / MAXBajt * 2
Shape15.Height = Grafiqet(6) / MAXBajt * 2
Shape16.Height = Grafiqet(5) / MAXBajt * 2
Shape17.Height = Grafiqet(4) / MAXBajt * 2
Shape18.Height = Grafiqet(3) / MAXBajt * 2
Shape19.Height = Grafiqet(2) / MAXBajt * 2
Shape20.Height = Grafiqet(1) / MAXBajt * 2
Shape21.Height = Grafiqet(0) / MAXBajt * 2

If Combo1.Text = "16kB/s (128kb/s)" Then
MAXBajt = 16
Label5.Caption = "8kB"
Label3.Caption = "16kB"
End If
If Combo1.Text = "32kB/s (256kb/s)" Then
MAXBajt = 32
Label5.Caption = "16kB"
Label3.Caption = "32kB"
End If
If Combo1.Text = "64kB/s (512kb/s)" Then
MAXBajt = 64
Label5.Caption = "32kB"
Label3.Caption = "64kB"
End If
If Combo1.Text = "128kB/s (1024kb/s)" Then
MAXBajt = 128
Label5.Caption = "64kB"
Label3.Caption = "128kB"
End If
If Combo1.Text = "256kB/s (2048kb/s)" Then
MAXBajt = 256
Label5.Caption = "128kB"
Label3.Caption = "256kB"
End If

End Sub

Kodin nuk e kam vene per shkarkim per shkak te keqperdorimeve.

Ketu mund ta shkarkoni programin: http://dren.imeraj.net/downloads/Dren's%20BMon%20Beta.exe

PS. Ju duhet gjithsesi Driven C: ta keni writable. Ketu do te ruhen perkohesisht te dhana. Nese punoj me shume ne kete program do ta bej te rrine ne memorie.

Verejtjet dhe sygjerimet jane te mirepritura.

Kaloni mire,
Dren

Visual Basic :: RE: Se shpejti: Network Address Translation ne Windows XP

Autori: Dren
Postuar: Tue Jul 01, 2008 6:16 pm (GMT -5)
Tema P�rgjigjet: 12

Citat:

Sa per kuriozitet kjo eshte thjesht nje wrapper si netsh?!

Hallall bro, Ur on it

Kjo bahete permes netsh po ne Windows XP nuk ka menyre me GUI me ba kshtuqe vendosa me ba ni aplikacion qe me pas ma te leht.

PS. Mos ja nxa per tmadhe Kreshes, me kan i mar ai deri tash kish ba femen,qy

Visual Basic :: RE: Se shpejti: Network Address Translation ne Windows XP

Autori: kresha7
Postuar: Tue Jul 01, 2008 12:45 pm (GMT -5)
Tema P�rgjigjet: 12

nfakt skam drejt me fol qe se kam bere programin une veq e kam shok drenin edhe me doket se
ka perdor aplicationin e windowsit nejse un pe di qysh e ka ba se mi ka kalxu do sene qysh edhe pak kam lyp edhe i kam gjet hheheh ty qoska te kerkoj falje per keqkuptimin tem

Visual Basic :: RE: Se shpejti: Network Address Translation ne Windows XP

Autori: qoska
Postuar: Tue Jul 01, 2008 11:30 am (GMT -5)
Tema P�rgjigjet: 12

Hehe me fal nese me ke keqkuptuar.

Gjithe pyetja ime konsitonte si programues. Thjesht te pyeta po perdor sherbimet e windows per te bere nat apo kishe shkruar nje NDIS miniport filter qe lexonte me verte paketat

Heh une jam programues/administartor/edhe i bezdisshem nganjehere.

Te pakten di qe marr pjese ne keto projekete si programues:

http://www.freebsd.org/news/newsflash.html#event20080616:01
http://www.pfsense.org/index.php?option=com_content&task=view&id=59&Itemid=58

Sa per tu prezantuar.

Gjithmone kam patur deshiren aktualisht ti shtoja nje GUI dhe nje QoS wipfw.sf.net(ne mos gaboj)

Gjithe te mirat dhe sukses se je ne rruge te mbare.

P.S. Keshille hiq dore nga VB se te meson trurin me metodika te cuditshme.

Visual Basic :: Identifikoj dhe Paraqiti te gjitha computerat ne LAN

Autori: kresha7
Titulli: Identifikoj dhe Paraqiti te gjitha computerat ne LAN
Postuar: Mon Jun 30, 2008 9:57 pm (GMT -5)
Tema P�rgjigjet: 0

Ok sod do tju tregoj 1 menyr mat leten qe exsiton per ti par identifiku dhe paraqitur te gjitha computerat ne LAN

Krejt qka kini mi ba eshte qitni 2 buttona ne Form

dhe mos boni ndryshimin e emrave edhe qit code

Buttonit 1

Private Sub Command1_Click()
Shell "cmd.exe /C net view> c:\Computerera.txt", vbHide
End Sub

dhe Buttonit 2

Private Sub Command2_Click()
Dim LoadFile
LoadFile = Shell("explorer.exe C:\computer.txt", vbNormalFocus)
End Sub

heheheh ja pra mos keshni spata qka me ba dhe e shkruva kete shpejt ja vlen besoj edhe qka muni me ba ju egzostojn disa modula per Dos output muni mi perdor mi paraqit ne multi line textbox a ritch textbox listbox a qka perdorni ju
pershendetje tgjithve

Visual Basic :: RE: Kresha's Connection Status + Source Code

Autori: Mnaira
Postuar: Mon Jun 30, 2008 5:53 pm (GMT -5)
Tema P�rgjigjet: 3

Mire punojka.
Veq nese dikush keqkupton, nese jeni te lidhur me IPKO (me siguri edhe me Kujtesa) lidhja me LAN ju del False kurse ajo me modem ju del True. Normal sepse perdorni modem (Broadband modem).
Sa i perket .Net Remote, shikoni ketu
_________________
LIIAMR
Faqja ime e pavlere
Satirizem