Ativando e desativando a "rede[internet]"

[AnonymousKesha 11]

Vou ensinar a como desativar e ativar a rede[internet] pelo VB

Bom isso é bem simples, são 2 códigos, creio que um membro já tenha postado eles, só que com uma propósito diferente!

 

Adicione 2 button

 

1°Butto....

Shell("ipconfig /release")

 

Essa linha torna a conexão "nula"

 

2°Button

Shell("ipconfig /renew")

Essa linha ré-conecta a "rede"

 

 

Essas linha são executadas via shell, então quando o button é acionado, uma tela muito rápida do CMD vai aparecer e sumir!

 

 

Mas uma coisa...

 

Label1.Text = (My.Computer.Network.IsAvailable)

Essa linha mostra o status da sua conexão, true = ativa False= desativada

 

Ela pode ser exibida de varias formas...por exemplo

msBox(My.Computer.Network.IsAvailable)

label1.text = My.Computer.Network.IsAvailable

textbox1.text = My.Computer.Network.IsAvailable

 

E assim por diante!

[I~Johnnie 29]

Vai me ajudar muito, pois minha rede deu problema, e não consigo arrumar,

Agora, to na Lan House, isso é tenso pacas, Mas valeu me ajudou.

[☢|EXPL01T3R|☣ 46]

Mas uma coisa...

 

 

Essa linha mostra o status da sua conexão, true = ativa False= desativada

 

Ela pode ser exibida de varias formas...por exemplo

 

 

 

 

E assim por diante!

 

acho que seria melhor usar uma verificação dentro do programa mesmo e com base no resultado ai vc exibe uma msg dizendo se esta ou não ativada a conexão

[AnonymousKesha 11]

acho que seria melhor usar uma verificação dentro do programa mesmo e com base no resultado ai vc exibe uma msg dizendo se esta ou não ativada a conexão

 

Sim ficaria +/- assim!

label1.text = My.Computer.Network.IsAvailable ' essa linha poderia ser colocada dentro de um timer com propriedade enable = true, e a propriedade de visible da label seria =false

No button seria esse código

 

If Label1.Text = "True" Then

MsgBox("Conexão[ATIVA]")

ElseIf Label1.Text = "False" Then

MsgBox("Conexão[NULA]")

End If

 

Em vez da msBox poderia ser uma label colorida e assim por diante.....