• Здраво и добредојдовте на форумот на IT.mk.

    Доколку сеуште не сте дел од најголемата заедница на ИТ професионалци и ентузијасти во Македонија, можете бесплатно да се - процесот нема да ви одземе повеќе од 2-3 минути, а за полесна регистрација овозможивме и регистрирање со Facebook и Steam.

Контрола на интернет сообраќај преку Visual Basic?

  • Ја почнал/а темата
  • #1

Pece_648

Intern
31 јануари 2008
52
0
Dali nekoj se ima sretnato so nekoj kod vo Visual Basic koj sto ke go kontrolira internet soobrakajot download / upload. Ili moze da me nasoci na nekoja strana kade sto ima nesto slicno na ova.
 

Nikol4e

Intern
12 јануари 2008
72
2
super ideja imas, ama ne e ednostavno kako sto bi o4ekuval. i jas barav da napravam takvo nesto i kolku sto razbrav poterbno e prvo da napravis NETWORK LAYER ( koj nemozes da go napravis vo VB 6 ) pa potoa preku nego so programce (napraveno vo VB na primer )da go kontroliras internetot. Toj NETWORK LAYER ustvari kje ti bide nesto kako firewall, preku koj kje pominuva sekoja konekcija i kje mozes da e zapres ili da e limitiras!
zatoa baraj "how to make firewall in VB"
 

Nikol4e

Intern
12 јануари 2008
72
2
dokolku sakas samo da nadgleduvas kolku imas napraveno transfer ( ona sto go ima vo Connection Status ) probaj go kodov:

vo form1:
staj timer - Timer1 ( so interval 300 )
dva labels - Label1 i lable2

vo Code:

Private Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" (ByVal lprasconn As Long, ByVal lpcb As Long, ByVal lpcConnections As Long) As Long
Private Declare Function RasGetConnectionStatistics Lib "rasapi32" (ByVal hRasConn As Long, ByVal lpStatistics As Long) As Long

Private Type RASCONN
dwSize As Long
hRasConn As Long
szEntryName(0 To 256) As Byte
szDeviceType(0 To 16) As Byte
szDeviceName(0 To 128) As Byte
pad As Byte
End Type

Private Type RAS_STATS
dwSize As Long
dwBytesXmited As Long
dwBytesRcved As Long
dwFramesXmited As Long
dwFramesRcved As Long
dwCrcErr As Long
dwTimeoutErr As Long
dwAlignmentErr As Long
dwHardwareOverrunErr As Long
dwFramingErr As Long
dwBufferOverrunErr As Long
dwCompressionRatioIn As Long
dwCompressionRatioOut As Long
dwBps As Long
dwConnectDuration As Long
End Type

Private Function ConnectionStatics(Statics As RAS_STATS)
Dim conn As RASCONN
Dim stat As RAS_STATS
Dim y As Long, z As Long
conn.dwSize = Len(conn)
y = conn.dwSize
If RasEnumConnections(VarPtr(conn), VarPtr(y), VarPtr(z)) = 0 Then
stat.dwSize = Len(stat)
If RasGetConnectionStatistics(conn.hRasConn, VarPtr(stat)) = 0 Then Statics = stat
End If
End Function


Private Sub Timer1_Timer()
Dim Statics As RAS_STATS
Dim DataSent, DataRecived As Long
ConnectionStatics Statics
DataRecived = Int(Statics.dwBytesRcved / 1024)
DataSent = Int(Statics.dwBytesXmited / 1024)
Label1.Caption = "Download: " & DataRecived & " KB"
Label2.Caption = "Upload: " & DataSent & " KB"

End Sub

:)
 
  • Ја почнал/а темата
  • #4

Pece_648

Intern
31 јануари 2008
52
0
Ви благодарам за информаците ќе пробам и ќе ви кажам што сум направил.
 
  • Ја почнал/а темата
  • #5

Pece_648

Intern
31 јануари 2008
52
0
Nikol4e go probav kodot sto go postira no ne saka da pocne da odbrojuva dali go imas probano ovaj kod ili nekade da ne ima greska.
 
  • Ја почнал/а темата
  • #7

Pece_648

Intern
31 јануари 2008
52
0
Тајмерот го наместив на интервал 300 и е овозможен односно Тrue, но не сака пак да почне да одбројува.
 

Nikol4e

Intern
12 јануари 2008
72
2
a kakov internet imas? mislam deka ovaj kod bese samo za Dial Up konekcii ( i samo na takvi konekcii go imam testirano :S )
ne sum sega doma, koga kje pojdam doma kje pobaram nesto za da raboti na site konekcii..
 

Нови мислења

Последни Теми

Статистика

Теми
43,575
Мислења
823,701
Членови
28,077
Најнов член
Brlebrle
На врв Дно