Siema, sprawa wyglada tak. Do stacjonarki mam podpiety kabel sieciowy i jest to glowne zrodlo mojego internetu. Jako backup korzystam z telefonu z 3g podpietego pod usb i tu rodzi sie problem. Gdy main net mi pada, to nie moge recznie 'aktywowac' internetu z telefonu i co najlepiej dziala w tym momencie- odlaczenie kabla sieciowego! Poszukuje jakiegos programu, w ktorym recznie bede mogl wlaczac jeden wylaczac drugi etc.
pzdr
Notifications
Clear all
Technologia i oprogramowanie
11
Posts
7
Users
0
Reactions
1,630
Views
10 replies
Napisane przez pszemula
U mnie pomaga:Panel sterowania\Sieć i Internet\Połączenia sieciowe + wylaczenie polaczenia ktore aktualnie padlo
Jak mam 12 stolow w grze, to wolalbym miec cos pod reka do jednokrotnego klikniecia i z powrotem skupieniu na grze. 
Witam
Znalazłem pewien skrypt do automatycznego przełączania połączeń 
Przykład - mamy 2 połączenia lokalne (w panel sterowania - połączenia lokalne)
Połączenie lokalne 1 i 2
Pierwsze pada i chcemy włączyć drugie.
Wyłączenie pierwszego:
Spoiler
Option Explicit
Dim strNetworkConnectionsFolder, strNetworkConnectionName, strEnable, strDisable
Dim objShell, objNamespace, objItem, objNetworkConnectionsFolder, objNetworkConnection, objVerb
Dim bEnable
strNetworkConnectionsFolder = "Połączenia sieciowe"
strNetworkConnectionName = "Połączenie lokalne 1"
strEnable = "&Wyłącz"
strDisable = "&Włącz"
Set objShell = CreateObject("Shell.Application")
Set objNamespace = objShell.Namespace(3) ' (ShellSpecialFolderConstants Enumeration - http://msdn.microsoft.com/en-us/library/bb774096%28v=vs.85%29.aspx)
Set objNetworkConnectionsFolder = Nothing
' Find Network Connections Folder
For Each objItem in objNamespace.Items
If objItem.Name = strNetworkConnectionsFolder Then
Set objNetworkConnectionsFolder = objItem.GetFolder
Exit For
End If
Next
If objNetworkConnectionsFolder is Nothing Then
WScript.Echo "Network connections folder not found."
WScript.Quit
End If
Set objNetworkConnection = Nothing
' Find the Network Connection
For Each objItem in objNetworkConnectionsFolder.Items
If LCase(objItem.name) = LCase(strNetworkConnectionName) Then
Set objNetworkConnection = objItem
Exit For
End If
Next
If objNetworkConnection is Nothing Then
WScript.Echo "Network connection not found."
WScript.Quit
End If
bEnable = False
' Disable/Enable Network Connection
For Each objItem in objNetworkConnection.Verbs
If (objItem.Name = strDisable) Or (objItem.Name = strEnable) Then
Set objVerb = objItem
If objItem.Name = strEnable Then bEnable = True
End If
Next
objVerb.DoIt
'Give the connection time to stop/start
WScript.Sleep 1000
If bEnable Then
WScript.Echo "Network connection disabled."
Else
WScript.Echo "Network connection enabled."
End If
Kopiujemy, wklejamy do notatnika i zapisujemy z rozszerzeniem .vbs np: rozlaczenie.vbs
Włączenie drugiego połączenia:
Spoiler
Option Explicit
Dim strNetworkConnectionsFolder, strNetworkConnectionName, strEnable, strDisable
Dim objShell, objNamespace, objItem, objNetworkConnectionsFolder, objNetworkConnection, objVerb
Dim bEnable
strNetworkConnectionsFolder = "Połączenia sieciowe"
strNetworkConnectionName = "Połączenie lokalne 2"
strEnable = "&Włącz"
strDisable = "&Wyłącz"
Set objShell = CreateObject("Shell.Application")
Set objNamespace = objShell.Namespace(3) ' (ShellSpecialFolderConstants Enumeration - http://msdn.microsoft.com/en-us/library/bb774096%28v=vs.85%29.aspx)
Set objNetworkConnectionsFolder = Nothing
' Find Network Connections Folder
For Each objItem in objNamespace.Items
If objItem.Name = strNetworkConnectionsFolder Then
Set objNetworkConnectionsFolder = objItem.GetFolder
Exit For
End If
Next
If objNetworkConnectionsFolder is Nothing Then
WScript.Echo "Network connections folder not found."
WScript.Quit
End If
Set objNetworkConnection = Nothing
' Find the Network Connection
For Each objItem in objNetworkConnectionsFolder.Items
If LCase(objItem.name) = LCase(strNetworkConnectionName) Then
Set objNetworkConnection = objItem
Exit For
End If
Next
If objNetworkConnection is Nothing Then
WScript.Echo "Network connection not found."
WScript.Quit
End If
bEnable = False
' Disable/Enable Network Connection
For Each objItem in objNetworkConnection.Verbs
If (objItem.Name = strDisable) Or (objItem.Name = strEnable) Then
Set objVerb = objItem
If objItem.Name = strEnable Then bEnable = True
End If
Next
objVerb.DoIt
'Give the connection time to stop/start
WScript.Sleep 1000
If bEnable Then
WScript.Echo "Network connection enabled."
Else
WScript.Echo "Network connection disabled."
End If
Zapisujemy jako wlaczenie.vbs
Jak rozłączy pierwsze połączenie to uruchamiamy pierwszy plik, potem drugi i wszystko gra.
Kolorem czerwonym zaznaczyłem nazwy połączeń, które należy zmienić na swoje. Niebieską część można pominąć, jeśli nie che cię wyskakujących komunikatów.
Rly nie ma zadnych programow ktore monitoruja polaczenia sieciowe i za pomoca prostego klikniecia zmieniaja na rzadane?
Napisane przez hazelasty
Rly nie ma zadnych programow ktore monitoruja polaczenia sieciowe i za pomoca prostego klikniecia zmieniaja na rzadane?
Też czegoś takiego szukam, znalazleś jakiś soft warty uwagi?
to nie takie proste
takie funkcje maja routery czy to sprzetowe czy postawione np na linuxie
Aż tak skomplikowane chyba to by nie było. W tej chwili mogę być jednocześnie połączony z netem przez Wifi i tether usb, po ustawieniu w windzie priorytetów sieci przełączają się automatycznie. Brakuje tak naprawdę monitoringu i wyboru połączenia samemu.