Welcome to Katz - Pinoy Underground Forum

[Reborn1925]

need help about vbs code
like ko sana gumawa ng apps para ma detect kung 100mbps at 1gbps ang lan speed status ko...
sana may maka tulong..
salamat

 

[KatzSec DevOps]

Reborn1925 Next time always upload your files sa https://dl.katz.to para siguradong di ma dedeadlink. *Please Disable your adblock when visiting katz.to to keep us running forever.

 

[Atif]

Good one

 

[daniellapid19]

Reborn1925 Next time always upload your files sa https://dl.katz.to para siguradong di ma dedeadlink. *Please Disable your adblock when visiting katz.to to keep us running forever.

salamat po for the tips

 

[DepRITiOnGuE]

Need mo pa ba 'to? Kung oo, eto code.

Basically yung ginagawa ng code ay ini-store niya sa array lahat ng adapters na registered sa computer mo.
Chine-check natin isa-isa kung yung adapter ay Ethernet na 100Mbps or GigabitEthernet na 1Gbps
Chine-check natin kung anong speed, ini-store natin siya sa 'speed' na variable for checking later via if statement.
Dito, may checking na tayo via if-else statement, kung yung speed value niya is 1000000000 bits (not bytes ha), kung oo, mag-message box na LAN speed ay 1Gbps. Kung hindi, edi yung 100 Mbps na message ipapalabas. Pwede mo yan i-replace as label kung trip mo, pero yan na yung code.

Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()

For Each adapter As NetworkInterface In adapters
    If adapter.NetworkInterfaceType = NetworkInterfaceType.Ethernet Or adapter.NetworkInterfaceType = NetworkInterfaceType.GigabitEthernet Then
        Dim speed As Long = adapter.Speed
        
        If speed >= 1000000000 Then
            MessageBox.Show("LAN speed is 1 Gbps")
        Else
            MessageBox.Show("LAN speed is 100 Mbps")
        End If
        
        Exit For
    End If
Next