UFANET. Локал без VPN.
Автор
Сообщение
Indimion
Стаж: 16 лет
Сообщений: 8
Откуда: Russia
проверил я локал без впн. проверил два случая где с скриптом и без него. работает в двух случаях. но без скрипта торрент качает на скорости свободы. возможно торрент настроить надо
DirkNOVI
Стаж: 16 лет
Сообщений: 15
У кого нить на Российской есть без ВПн?
Джигмэн
Стаж: 15 лет
Сообщений: 42
Если я сейчас поставлю тариф Скупой рыцарь, без +, локал станет платным?..
unmazable
Стаж: 15 лет
Сообщений: 14
Откуда: Russia
помогите пожалуйста мне. ВОт ввёл и неподрубает толком инет. Вот отчёт route print:===========================================================================
Список интерфейсов
0x1 ........................... MS TCP Loopback interface
0x2 ...00 c1 28 00 15 fa ...... Realtek RTL8139 Family PCI Fast Ethernet NIC - ¦
шэшяюЁЄ яырэшЁют•шър яръхЄют
===========================================================================
===========================================================================
Активные маршруты:
Сетевой адрес Маска сети Адрес шлюза Интерфейс Метрика
0.0.0.0 0.0.0.0 10.64.184.1 10.64.184.104 20
10.8.0.1 255.255.255.255 10.64.184.1 10.64.184.104 1
10.8.2.1 255.255.255.255 10.64.184.1 10.64.184.104 1
10.8.3.1 255.255.255.255 10.64.184.1 10.64.184.104 1
10.64.184.0 255.255.255.0 10.64.184.104 10.64.184.104 20
10.64.184.104 255.255.255.255 127.0.0.1 127.0.0.1 20
10.255.255.255 255.255.255.255 10.64.184.104 10.64.184.104 20
127.0.0.0 255.0.0.0 127.0.0.1 127.0.0.1 1
224.0.0.0 240.0.0.0 10.64.184.104 10.64.184.104 20
255.255.255.255 255.255.255.255 10.64.184.104 10.64.184.104 1
Основной шлюз: 10.64.184.1
===========================================================================
Постоянные маршруты:
Отсутствуету тебя 10.64.ххх.ххх ип , их не сделали для подключения без впн, вроде только 10.16х.ххх.ххх
Tapac
Стаж: 16 лет
Сообщений: 9
Я знаю, что для меня не работает. Я запустил этот скрипт. У меня теперь не раотает ни Local ни анлим, route -f не помогаетисправить эту ошибку.
Денис
Стаж: 16 лет
Сообщений: 268
Откуда: Уфа
Tapac
route -f и перезагрузиться
Vonagrav
Стаж: 15 лет
Сообщений: 34
Сетевые подключения>Подключениепо локальной сети нажми правой кнопкой мыши, ИСПРАВИТЬ! помогает 100%! или выключи "Подключениепо локальной сети" и снова включи, тоже помогает.
Arkorn
Стаж: 15 лет
Сообщений: 20
Народ, а это будут везде врубать? Или это всё ещё тесты? И если есть более точная информация плиз ссыль =))
SecondFry
Стаж: 16 лет
Сообщений: 8
Откуда: Уфа
к
Вышел из ситуации так:
Создается файл routing.bat
Правая кнопка, изменить:
start C:\routing\routing.vbs
(путь до файла должен быть ваш :) )
Потом правая кнопка, запустить от имени администратора
С бесплатным локалом без подключения:
Стало:
' **********************************************************'
' Маршрутизация для сети "Уфанет"
' делает возможной работу двух VPN соединений одновременно
' или делает возможной работу подключения по тарифу Свобода вместе с использованием локальных реусрсов на высокой скорости
' Просто установите два соединения и запустите скрипт
' На Windows Vista(R) сначала запускать Локал потом Анлим
' Отключить UAC и Брендмауэр в случае если вы используете связку @local + свобода
' После первого запуска, если попросят, перезагрузиться
' Именно в таком порядке!
' Ничего не отключать если вы используете связку lan + свобода
' Создать файл routing.bat с содержимым start C:\routing\routing.vbs
' Выполнить с правами администратора
'
' Для работы через дополнительный шлюз (ADSL модем, например)
' Прописать его IP ниже между ковычек gw_ip
' Затем запустить соединение уфанета с @local
' Затем запустить скрипт
' **********************************************************'
Option Explicit
Dim shl, exec, tmp1, tmp2, tmp3, tmp4, OSVer, mess
Dim fsob, fl, shl2, exec2, drob1, TmpDir, gw_is_local, gw_is_global
Dim local_ip, global_ip, gw_ip
Dim sw, ex, i, n, m, s
Dim ip(20), st(20)
Set drob1 = CreateObject("WScript.Shell")
TmpDir = drob1.ExpandEnvironmentStrings("%temp%")
local_ip = ""
global_ip = ""
'------------------------------------------------------'
gw_ip = "" ' <-- IP шлюза писать сюда, между ковычек
'------------------------------------------------------'
mess = ""
tmp1 = ""
tmp2 = ""
tmp3 = ""
tmp4 = ""
gw_is_local = false
gw_is_global = false
ex = ""
i=0
n=0
m=0
s=0
sw=false
Set shl = CreateObject("WScript.Shell")
if left(shl.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), 1) = "6" then
ex = shl.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter")
if ex <> 1 then
shl.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter", 1, "REG_DWORD"
MsgBox "Необходима перезагрузка.", vbInformation
sw = true
end if
end if
if not sw then
Set shl = nothing
Set exec = nothing
Set shl = CreateObject("WScript.Shell")
Set exec = shl.Exec("ipconfig.exe")
Do While Not exec.StdOut.AtEndOfStream
tmp2 = tmp1
tmp1 = exec.StdOut.Read(1)
if (isnumeric(tmp1) and isnumeric(tmp2)) or (tmp1 = "." and isnumeric(tmp2)) then i=1
if i=1 and tmp2=chr(13) then
i=0
if len(tmp3) > 6 and len(tmp3) < 16 then
ip(n) = tmp3
n=n+1
end if
tmp3 = ""
end if
if i=1 then tmp3 = tmp3 & tmp2
Loop
tmp1 = ""
tmp2 = ""
tmp3 = ""
tmp4 = ""
Set shl = nothing
Set exec = nothing
for m=0 to n-1
'msgbox ip(m)
tmp4 = left(ip(m),6)
if tmp4 = "77.79." or tmp4 = "92.50." or tmp4 = "81.30." or tmp4 = "89.189" or tmp4 = "94.41." or tmp4 = "79.140" or tmp4 = "212.46" or tmp4 = "95.30." then global_ip = ip(m)
if tmp4 = "172.27" then local_ip = ip(m)
if tmp4 = "172.25" then s = s + 1
next
for m=0 to n-1
tmp4 = left(ip(m),5)
if tmp4 = "10.16" then local_ip = ip(m)
next
if (s = 2) then mess = "Недостаточно денег на счете. И срок действия безлимита истек." & chr(13): sw = true
if (s = 1) and (local_ip <> "") and not sw then mess = "Период действия безлимитного доступа истек." & chr(13): sw = true
if (s = 1) and (global_ip <> "") and not sw then mess = "Недостаточно денег на счете." & chr(13): sw = true
if (local_ip = "") and (global_ip <> "") and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение с @local." & chr(13): sw = true
if (local_ip <> "") and (global_ip = "") and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение по безлимитному договору." & chr(13): sw = true
if (local_ip = "") and (global_ip = "") and not sw then mess = "Установите два VPN подключения одновременно." & chr(13) & "(@local и анлим)" & chr(13): sw = true
if (local_ip <> "") and (global_ip <> "") then sw = false: mess = ""
if (local_ip <> "") and (gw_ip <> "") then
sw = false
mess = ""
gw_is_global = true
end if
if (global_ip <> "") and (gw_ip <> "") then
sw = false
mess = ""
gw_is_local = true
end if
if gw_is_local then local_ip = gw_ip
if gw_is_global then global_ip = gw_ip
if mess <> "" then msgbox mess, vbInformation
end if
if not sw then
msgbox "Ваш внешний IP: " & global_ip & chr(13) & "Ваш локальный IP или гейт: " & local_ip
Set exec = CreateObject("WScript.Shell")
exec.Run "route delete 0.0.0.0", 0, true
exec.Run "route add 0.0.0.0 mask 0.0.0.0 " & global_ip & " metric 3", 0, true
exec.Run "route add 172.16.0.0 mask 255.240.0.0 " & local_ip & " metric 2", 0, true
exec.Run "route add 172.25.0.0 mask 255.255.0.0 " & local_ip & " metric 2", 0, true
if not gw_is_global and left(global_ip, 2) <> "95" then
exec.Run "route add 10.0.0.0 mask 255.0.0.0 " & local_ip & " metric 2", 1, true
end if
exec.Run "route add 81.30.176.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true
exec.Run "route add 81.30.192.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true
exec.Run "route add 89.189.128.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true
exec.Run "route add 77.79.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true
exec.Run "route add 79.140.16.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true
exec.Run "route add 92.50.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true
exec.Run "route add 92.50.168.0 mask 255.255.248.0 " & local_ip & " metric 1", 0, true
exec.Run "route add 193.84.31.0 mask 255.255.255.224 " & local_ip & " metric 1", 0, true
exec.Run "route add 194.0.68.0 mask 255.255.252.0 " & local_ip & " metric 1", 0, true
exec.Run "route add 94.41.0.0 mask 255.255.0.0 " & local_ip & " metric 1", 0, true
exec.Run "route add 81.30.199.50 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
exec.Run "route add 81.30.199.69 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
exec.Run "route add 81.30.199.70 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
exec.Run "route add 81.30.197.10 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
exec.Run "route add 81.30.199.84 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
exec.Run "route add 10.193.1.13 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
MsgBox "Выполнено."
end if
' routing ver 1.93.2
' - Beeline + Ufanet :)
'(c) Рустам Second_Fry Губайдуллин 2009. secondfry@gmail.com
'(c) Harry Gimalder 2009. harrygimal@gmail.com
Вот ссылка на архив с готовым бат-файлом и скриптом: routing.zip
sidorov1111
UserGate - стандартный вариант как проксика (можно найти взломанную 100%)
Последний раз редактировалось: SecondFry (2009-04-26 17:09), всего редактировалось 1 раз
Tapac
Стаж: 16 лет
Сообщений: 9
да непомогает мне это!!!
Локал вообще непашет а анлим рабоатет 1 раз из 30 !!!
SecondFry
Стаж: 16 лет
Сообщений: 8
Откуда: Уфа
Tapac
перезагрузи комп и не включай скрипт. таблица роутинга не остается навечно*
*по обыкновению своему, если ты не прописывал ее сохранение
ErrorMan
Стаж: 15 лет
Сообщений: 1
Текс, нужна помощь.
Я сам живу не в сипайлово, человеку одному сделать надо.
По умолчанию локал без впн - работает. Ип 10.16*.*54.58
В батник забил такое
route -f
route -p add 10.0.0.0 mask 255.0.0.0 10.16*.*54.1
route -p add 81.30.176.0 mask 255.255.240.0 10.16*.*54.1
route -p add 81.30.192.0 mask 255.255.224.0 10.16*.*54.1
route -p add 89.189.128.0 mask 255.255.224.0 10.16*.*54.1
route -p add 77.79.128.0 mask 255.255.192.0 10.16*.*54.1
route -p add 79.140.16.0 mask 255.255.248.0 10.16*.*54.1
route -p add 79.140.24.0 mask 255.255.252.0 10.16*.*54.1
route -p add 79.140.28.0 mask 255.255.252.0 10.16*.*54.1
route -p add 92.50.128.0 mask 255.255.192.0 10.16*.*54.1
route -p add 94.41.0.0 mask 255.255.192.0 10.16*.*54.1
route -p add 94.41.64.0 mask 255.255.224.0 10.16*.*54.1
route -p add 94.41.96.0 mask 255.255.240.0 10.16*.*54.1
route -p add 94.41.112.0 mask 255.255.248.0 10.16*.*54.1
route -p add 94.41.120.0 mask 255.255.252.0 10.16*.*54.1
route -p add 94.41.124.0 mask 255.255.252.0 10.16*.*54.1
route -p add 94.41.128.0 mask 255.255.248.0 10.16*.*54.1
route -p add 94.41.136.0 mask 255.255.252.0 10.16*.*54.1
route -p add 94.41.140.0 mask 255.255.254.0 10.16*.*54.1
route -p add 172.16.0.0 mask 255.240.0.0 10.16*.*54.1
route -p add 192.168.0.0 mask 255.255.0.0 10.16*.*54.1
route -p add 193.84.31.0 mask 255.255.255.224 10.16*.*54.1
pause
По умолчанию локал без впн работает. Ип 10.16*.*54.58
В чем ошибка?
Его просто клинит на какой-то строчке и она начинает повторяться.
При подключенном безлиме скорость не повышается выше 7кб.
Так в чем ошибка? каков метод решения?
З.Ы. * это число, убрал ради безопасности.
Tapac
Стаж: 16 лет
Сообщений: 9
всё, у мну @local ообще упал нахрен - неработает. А анлим пашет(((
Cargo
Стаж: 16 лет
Сообщений: 3
Откуда: Russia
всё, у мну @local ообще упал нахрен - неработает. А анлим пашет(((
route -f и перезагрузиться, точно помогает
Tapac
Стаж: 16 лет
Сообщений: 9
всё, у мну @local ообще упал нахрен - неработает. А анлим пашет(((
route -f и перезагрузиться, точно помогает
вотыт умный ид идурак. ПИШЕ ВТОРЙО РАЗ: я уже делал так и перезагружался - НЕПОМОГАЕТ !!!
теперь понял ?
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы не можете скачивать файлы
Текущее время: 28-Ноя 09:54
Часовой пояс: UTC + 5
| Автор | Сообщение |
|---|---|
|
Indimion
Стаж: 16 лет |
|
|
проверил я локал без впн. проверил два случая где с скриптом и без него. работает в двух случаях. но без скрипта торрент качает на скорости свободы. возможно торрент настроить надо
|
|
|
DirkNOVI
Стаж: 16 лет |
|
|
У кого нить на Российской есть без ВПн?
|
|
|
Джигмэн
Стаж: 15 лет |
|
|
Если я сейчас поставлю тариф Скупой рыцарь, без +, локал станет платным?..
|
|
|
unmazable
Стаж: 15 лет |
|
|
помогите пожалуйста мне. ВОт ввёл и неподрубает толком инет. Вот отчёт route print: =========================================================================== Список интерфейсов 0x1 ........................... MS TCP Loopback interface 0x2 ...00 c1 28 00 15 fa ...... Realtek RTL8139 Family PCI Fast Ethernet NIC - ¦ шэшяюЁЄ яырэшЁют•шър яръхЄют =========================================================================== =========================================================================== Активные маршруты: Сетевой адрес Маска сети Адрес шлюза Интерфейс Метрика 0.0.0.0 0.0.0.0 10.64.184.1 10.64.184.104 20 10.8.0.1 255.255.255.255 10.64.184.1 10.64.184.104 1 10.8.2.1 255.255.255.255 10.64.184.1 10.64.184.104 1 10.8.3.1 255.255.255.255 10.64.184.1 10.64.184.104 1 10.64.184.0 255.255.255.0 10.64.184.104 10.64.184.104 20 10.64.184.104 255.255.255.255 127.0.0.1 127.0.0.1 20 10.255.255.255 255.255.255.255 10.64.184.104 10.64.184.104 20 127.0.0.0 255.0.0.0 127.0.0.1 127.0.0.1 1 224.0.0.0 240.0.0.0 10.64.184.104 10.64.184.104 20 255.255.255.255 255.255.255.255 10.64.184.104 10.64.184.104 1 Основной шлюз: 10.64.184.1 =========================================================================== Постоянные маршруты: Отсутствует |
|
|
Tapac
Стаж: 16 лет |
|
|
Я знаю, что для меня не работает. Я запустил этот скрипт. У меня теперь не раотает ни Local ни анлим, route -f не помогаетисправить эту ошибку.
|
|
|
Денис
Стаж: 16 лет |
|
|
Tapac
route -f и перезагрузиться |
|
|
Vonagrav
Стаж: 15 лет |
|
|
Сетевые подключения>Подключениепо локальной сети нажми правой кнопкой мыши, ИСПРАВИТЬ! помогает 100%! или выключи "Подключениепо локальной сети" и снова включи, тоже помогает.
|
|
|
Arkorn
Стаж: 15 лет |
|
|
Народ, а это будут везде врубать? Или это всё ещё тесты? И если есть более точная информация плиз ссыль =))
|
|
|
SecondFry
Стаж: 16 лет |
|
|
к
Вышел из ситуации так:
Создается файл routing.bat Правая кнопка, изменить: start C:\routing\routing.vbs
Потом правая кнопка, запустить от имени администратора С бесплатным локалом без подключения: Стало:' **********************************************************'
' Маршрутизация для сети "Уфанет" ' делает возможной работу двух VPN соединений одновременно ' или делает возможной работу подключения по тарифу Свобода вместе с использованием локальных реусрсов на высокой скорости ' Просто установите два соединения и запустите скрипт ' На Windows Vista(R) сначала запускать Локал потом Анлим ' Отключить UAC и Брендмауэр в случае если вы используете связку @local + свобода ' После первого запуска, если попросят, перезагрузиться ' Именно в таком порядке! ' Ничего не отключать если вы используете связку lan + свобода ' Создать файл routing.bat с содержимым start C:\routing\routing.vbs ' Выполнить с правами администратора ' ' Для работы через дополнительный шлюз (ADSL модем, например) ' Прописать его IP ниже между ковычек gw_ip ' Затем запустить соединение уфанета с @local ' Затем запустить скрипт ' **********************************************************' Option Explicit Dim shl, exec, tmp1, tmp2, tmp3, tmp4, OSVer, mess Dim fsob, fl, shl2, exec2, drob1, TmpDir, gw_is_local, gw_is_global Dim local_ip, global_ip, gw_ip Dim sw, ex, i, n, m, s Dim ip(20), st(20) Set drob1 = CreateObject("WScript.Shell") TmpDir = drob1.ExpandEnvironmentStrings("%temp%") local_ip = "" global_ip = "" '------------------------------------------------------' gw_ip = "" ' <-- IP шлюза писать сюда, между ковычек '------------------------------------------------------' mess = "" tmp1 = "" tmp2 = "" tmp3 = "" tmp4 = "" gw_is_local = false gw_is_global = false ex = "" i=0 n=0 m=0 s=0 sw=false Set shl = CreateObject("WScript.Shell") if left(shl.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), 1) = "6" then ex = shl.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter") if ex <> 1 then shl.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter", 1, "REG_DWORD" MsgBox "Необходима перезагрузка.", vbInformation sw = true end if end if if not sw then Set shl = nothing Set exec = nothing Set shl = CreateObject("WScript.Shell") Set exec = shl.Exec("ipconfig.exe") Do While Not exec.StdOut.AtEndOfStream tmp2 = tmp1 tmp1 = exec.StdOut.Read(1) if (isnumeric(tmp1) and isnumeric(tmp2)) or (tmp1 = "." and isnumeric(tmp2)) then i=1 if i=1 and tmp2=chr(13) then i=0 if len(tmp3) > 6 and len(tmp3) < 16 then ip(n) = tmp3 n=n+1 end if tmp3 = "" end if if i=1 then tmp3 = tmp3 & tmp2 Loop tmp1 = "" tmp2 = "" tmp3 = "" tmp4 = "" Set shl = nothing Set exec = nothing for m=0 to n-1 'msgbox ip(m) tmp4 = left(ip(m),6) if tmp4 = "77.79." or tmp4 = "92.50." or tmp4 = "81.30." or tmp4 = "89.189" or tmp4 = "94.41." or tmp4 = "79.140" or tmp4 = "212.46" or tmp4 = "95.30." then global_ip = ip(m) if tmp4 = "172.27" then local_ip = ip(m) if tmp4 = "172.25" then s = s + 1 next for m=0 to n-1 tmp4 = left(ip(m),5) if tmp4 = "10.16" then local_ip = ip(m) next if (s = 2) then mess = "Недостаточно денег на счете. И срок действия безлимита истек." & chr(13): sw = true if (s = 1) and (local_ip <> "") and not sw then mess = "Период действия безлимитного доступа истек." & chr(13): sw = true if (s = 1) and (global_ip <> "") and not sw then mess = "Недостаточно денег на счете." & chr(13): sw = true if (local_ip = "") and (global_ip <> "") and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение с @local." & chr(13): sw = true if (local_ip <> "") and (global_ip = "") and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение по безлимитному договору." & chr(13): sw = true if (local_ip = "") and (global_ip = "") and not sw then mess = "Установите два VPN подключения одновременно." & chr(13) & "(@local и анлим)" & chr(13): sw = true if (local_ip <> "") and (global_ip <> "") then sw = false: mess = "" if (local_ip <> "") and (gw_ip <> "") then sw = false mess = "" gw_is_global = true end if if (global_ip <> "") and (gw_ip <> "") then sw = false mess = "" gw_is_local = true end if if gw_is_local then local_ip = gw_ip if gw_is_global then global_ip = gw_ip if mess <> "" then msgbox mess, vbInformation end if if not sw then msgbox "Ваш внешний IP: " & global_ip & chr(13) & "Ваш локальный IP или гейт: " & local_ip Set exec = CreateObject("WScript.Shell") exec.Run "route delete 0.0.0.0", 0, true exec.Run "route add 0.0.0.0 mask 0.0.0.0 " & global_ip & " metric 3", 0, true exec.Run "route add 172.16.0.0 mask 255.240.0.0 " & local_ip & " metric 2", 0, true exec.Run "route add 172.25.0.0 mask 255.255.0.0 " & local_ip & " metric 2", 0, true if not gw_is_global and left(global_ip, 2) <> "95" then exec.Run "route add 10.0.0.0 mask 255.0.0.0 " & local_ip & " metric 2", 1, true end if exec.Run "route add 81.30.176.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true exec.Run "route add 81.30.192.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true exec.Run "route add 89.189.128.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true exec.Run "route add 77.79.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true exec.Run "route add 79.140.16.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true exec.Run "route add 92.50.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true exec.Run "route add 92.50.168.0 mask 255.255.248.0 " & local_ip & " metric 1", 0, true exec.Run "route add 193.84.31.0 mask 255.255.255.224 " & local_ip & " metric 1", 0, true exec.Run "route add 194.0.68.0 mask 255.255.252.0 " & local_ip & " metric 1", 0, true exec.Run "route add 94.41.0.0 mask 255.255.0.0 " & local_ip & " metric 1", 0, true exec.Run "route add 81.30.199.50 mask 255.255.255.255 " & global_ip & " metric 1", 0, true exec.Run "route add 81.30.199.69 mask 255.255.255.255 " & global_ip & " metric 1", 0, true exec.Run "route add 81.30.199.70 mask 255.255.255.255 " & global_ip & " metric 1", 0, true exec.Run "route add 81.30.197.10 mask 255.255.255.255 " & global_ip & " metric 1", 0, true exec.Run "route add 81.30.199.84 mask 255.255.255.255 " & global_ip & " metric 1", 0, true exec.Run "route add 10.193.1.13 mask 255.255.255.255 " & global_ip & " metric 1", 0, true MsgBox "Выполнено." end if ' routing ver 1.93.2 ' - Beeline + Ufanet :) '(c) Рустам Second_Fry Губайдуллин 2009. secondfry@gmail.com '(c) Harry Gimalder 2009. harrygimal@gmail.com UserGate - стандартный вариант как проксика (можно найти взломанную 100%) Последний раз редактировалось: SecondFry (2009-04-26 17:09), всего редактировалось 1 раз |
|
|
Tapac
Стаж: 16 лет |
|
|
да непомогает мне это!!!
Локал вообще непашет а анлим рабоатет 1 раз из 30 !!! |
|
|
SecondFry
Стаж: 16 лет |
|
|
Tapac
перезагрузи комп и не включай скрипт. таблица роутинга не остается навечно* *по обыкновению своему, если ты не прописывал ее сохранение |
|
|
ErrorMan
Стаж: 15 лет |
|
|
Текс, нужна помощь.
Я сам живу не в сипайлово, человеку одному сделать надо. По умолчанию локал без впн - работает. Ип 10.16*.*54.58 В батник забил такое route -f
route -p add 10.0.0.0 mask 255.0.0.0 10.16*.*54.1 route -p add 81.30.176.0 mask 255.255.240.0 10.16*.*54.1 route -p add 81.30.192.0 mask 255.255.224.0 10.16*.*54.1 route -p add 89.189.128.0 mask 255.255.224.0 10.16*.*54.1 route -p add 77.79.128.0 mask 255.255.192.0 10.16*.*54.1 route -p add 79.140.16.0 mask 255.255.248.0 10.16*.*54.1 route -p add 79.140.24.0 mask 255.255.252.0 10.16*.*54.1 route -p add 79.140.28.0 mask 255.255.252.0 10.16*.*54.1 route -p add 92.50.128.0 mask 255.255.192.0 10.16*.*54.1 route -p add 94.41.0.0 mask 255.255.192.0 10.16*.*54.1 route -p add 94.41.64.0 mask 255.255.224.0 10.16*.*54.1 route -p add 94.41.96.0 mask 255.255.240.0 10.16*.*54.1 route -p add 94.41.112.0 mask 255.255.248.0 10.16*.*54.1 route -p add 94.41.120.0 mask 255.255.252.0 10.16*.*54.1 route -p add 94.41.124.0 mask 255.255.252.0 10.16*.*54.1 route -p add 94.41.128.0 mask 255.255.248.0 10.16*.*54.1 route -p add 94.41.136.0 mask 255.255.252.0 10.16*.*54.1 route -p add 94.41.140.0 mask 255.255.254.0 10.16*.*54.1 route -p add 172.16.0.0 mask 255.240.0.0 10.16*.*54.1 route -p add 192.168.0.0 mask 255.255.0.0 10.16*.*54.1 route -p add 193.84.31.0 mask 255.255.255.224 10.16*.*54.1 pause В чем ошибка? Его просто клинит на какой-то строчке и она начинает повторяться. При подключенном безлиме скорость не повышается выше 7кб. Так в чем ошибка? каков метод решения? З.Ы. * это число, убрал ради безопасности. |
|
|
Tapac
Стаж: 16 лет |
|
|
всё, у мну @local ообще упал нахрен - неработает. А анлим пашет(((
|
|
|
Cargo
Стаж: 16 лет |
|
|
всё, у мну @local ообще упал нахрен - неработает. А анлим пашет(((
|
|
|
Tapac
Стаж: 16 лет |
|
|
всё, у мну @local ообще упал нахрен - неработает. А анлим пашет(((
теперь понял ? |
|
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы не можете скачивать файлы
Текущее время: 28-Ноя 09:54
Часовой пояс: UTC + 5