Регистрация

UFANET. Локал без VPN.

Тема закрыта
Страницы :   Пред.  1 2 3 ... 13 14 15 ... 19 20 21  След.
Автор Сообщение
out95

Стаж: 15 лет
Сообщений: 34
Откуда: World of Warcraft

Создавать темы out95 написал(а)
15-Апр-2009 16:36
Цитировать
вотета?
или вотета?
Профиль  ЛС 
*M.A.X*

Стаж: 15 лет
Сообщений: 4
Откуда: СтЕрЛиТаМаК ©

Создавать темы *M.A.X* написал(а)
15-Апр-2009 17:27 (спустя 51 минута)
Цитировать
Самый левый скрин правельный!!!!!!
Профиль  ЛС 
Giza

Стаж: 16 лет
Сообщений: 34
Откуда: Russia

Создавать темы Giza написал(а)
15-Апр-2009 19:00 (спустя 1 час 32 минуты)
Цитировать
URAN
а зачем нужен скрипт если и так работает? он же внешку не открывает если нет соединение с vpn
Профиль  ЛС 
Devell

Стаж: 16 лет
Сообщений: 5
Откуда: Russia

Создавать темы Devell написал(а)
15-Апр-2009 19:07 (спустя 6 минут)
Цитировать
Ka6aH
1)Качаешь это,извлекаешь из архива
2)правой кнопкой мыши по файлу,изменить и в каждой строчке вписываешь свой локальный ип,тока в конце 1 должно быть.
Например твой ип 10.160.155.32 ты изменяешь в каждой строке ип на 10.160.155.1,сохранил.
3)включаешь внешку и запускаешь файл
я просто подумал что без внешки скрипт не будет работать!!!
Профиль  ЛС 
Мau5trap

Стаж: 15 лет
Сообщений: 61

Создавать темы Мau5trap написал(а)
18-Апр-2009 10:00 (спустя 2 дня 14 часов)
Цитировать
У меня вопрос возник... У моей сестры локал без впн, но у неё нет локального безлимита... У неё будут деньги сниматься?
Профиль  ЛС 
aLeshka

Стаж: 16 лет
Сообщений: 3
Откуда: Уфа

Создавать темы aLeshka написал(а)
18-Апр-2009 11:28 (спустя 1 час 28 минут)
Цитировать
вроде нет
в статистику не идёт, по крайней мере
Профиль  ЛС 
SecondFry

Стаж: 16 лет
Сообщений: 8
Откуда: Уфа

Создавать темы SecondFry написал(а)
22-Апр-2009 18:33 (спустя 4 дня)
Цитировать
Кстати, насчет отключения UAK
У некоторые могут подумать, что я параноик, но меня уак спас один раз. Так что отключать я его не хотел и не хочу
Вышел из ситуации так:
Создается файл routing.bat
Правая кнопка, изменить:
start C:\routing\routing.vbs
(путь до файла должен быть ваш :) )
Потом правая кнопка, запустить от имени администратора
Все работает :)
Кстати, насчет бесплатного локала:
Достаточно изменить пару строк в файле routing.vbs, чтобы можно было использовать его для бесплатного локала.

Было:

' **********************************************************'
' Маршрутизация для сети "Уфанет"
' делает возможной работу двух VPN соединений одновременно
' Просто установите два соединения и запустите скрипт
' На Windows Vista(R) сначала запускать Локал потом Анлим
' Отключить UAC и Брендмауэр
' После первого запуска, если попросят, перезагрузиться
' Именно в таком порядке!
'
' Для работы через дополнительный шлюз (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
  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
' - Beeline + Ufanet :)
'(c) Harry Gimalder 2009. harrygimal@gmail.com

Стало&#58;

' **********************************************************'
' Маршрутизация для сети "Уфанет"
' делает возможной работу двух 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

Стаж: 15 лет
Сообщений: 10
Откуда: Уфа

Создавать темы sidorov1111 написал(а)
24-Апр-2009 17:06 (спустя 1 день 22 часа)
Цитировать
Интересная вещь после запуска скрипта все прекрасно работает, кроме -
не могу зайти на сайт Интвесткапитал банка: http://www.investcapitalbank.ru
а также на страничку интернет банкинга этого же банка.
Приходиться оменять каждый раз скрипт - неудобно. Может кто подскажет решение?
Профиль  ЛС 
Денис

Стаж: 16 лет
Сообщений: 268
Откуда: Уфа

Создавать темы Денис написал(а)
24-Апр-2009 17:35 (спустя 28 минут)
Цитировать
sidorov1111
найти в скрипте строчки:
...
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.213.52 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
Профиль  ЛС 
RikER

Стаж: 15 лет
Сообщений: 3

Создавать темы RikER написал(а)
24-Апр-2009 18:08 (спустя 32 минуты)
Цитировать
Никто не знает в ишиимбае такое тварится нет??
Профиль  ЛС 
к

Стаж: 16 лет
Сообщений: 9

Создавать темы к написал(а)
24-Апр-2009 19:59 (спустя 1 час 51 минута)
Цитировать
сначало напиши в cmd route -f
потом перезагрузи. и используй вот этот скрипт:
SetLocal EnableExtensions EnableDelayedExpansion
Set Desc=anlim - PPP адаптер
Set Found=
Set GW=
For /F "Tokens=1* Delims=:" %%I In ('Ipconfig') Do (
  If "%%I"=="%Desc%" (
    Set Found=1
  ) Else (
    If "!Found!"=="1" (
      Set V=%%I
      Set V=!V: =!
      Set V=!V:.=!
      If "!V!"=="Состояниесети" GoTo Finish
      If "!V!"=="MediaState" GoTo Finish
      If "!V!"=="Основнойшлюз" (
        Set GW=%%J
        GoTo Finish
      )
      If "!V!"=="DefaultGateway" (
        Set GW=%%J
        GoTo Finish
      )
    )
  )
)
:Finish
If Not "!GW!"=="" (
  Set GW=!GW: =!
  Set GW=!GW:~0,-1!
)
Echo !GW!
Set LocalIP=*.*.*.*
route add 10.0.0.0 mask 255.0.0.0 %LocalIP%
route add 172.27.0.0 mask 255.255.0.0 %LocalIP%
route add 77.79.128.0 mask 255.255.192.0 %LocalIP%
route add 81.30.176.0 mask 255.255.240.0 %LocalIP%
route add 81.30.192.0 mask 255.255.224.0 %LocalIP%
route add 89.189.128.0 mask 255.255.224.0 %LocalIP%
route add 94.41.0.0 mask 255.255.0.0 %LocalIP%
route add 92.50.128.0 mask 255.255.192.0 %LocalIP%
route add 194.0.68.0 mask 255.255.252.0 %LocalIP%
route add 79.140.16.0 mask 255.255.240.0 %LocalIP%
route add 81.30.199.50 mask 255.255.255.255 %GW%
route add 81.30.199.69 mask 255.255.255.255 %GW%
route add 81.30.199.70 mask 255.255.255.255 %GW%
route add 81.30.197.10 mask 255.255.255.255 %GW%
route add 81.30.199.84 mask 255.255.255.255 %GW%
route add 81.30.199.238 mask 255.255.255.255 %GW%
route add 81.30.198.20 mask 255.255.255.255 %GW%
где Set Desc=anlim - PPP адаптер (название подключение анлима)(anlim меняешь на свой)
где Set LocalIP=*.*.*.* твой локальный шлюз(пишем туда)(можной узнать: выполнить->cmd->ipconfig).
а внешний ип он сам узнает и заполняет.
Скрипт надо сохранить в кодировке 1251
route -p это сохраняет данные роутера. если даже перезагрузишь комп то они остаются в памяти. можно их добавить на против где стоят %LocalIP% . но не на %GW%
Немного не понял это скрипт для роутера или нет ?
Профиль  ЛС 
SecondFry

Стаж: 16 лет
Сообщений: 8
Откуда: Уфа

Создавать темы SecondFry написал(а)
24-Апр-2009 20:44 (спустя 44 минуты)
Цитировать
sidorov1111
я сам с прокси сервером до конца не разобрался (только у меня ситуация ноут, WiFi Ad-Hoc, Nokia E51...)
интересно, что скрипт работает... имхо локалип же прописывается на не втором ноуте *scratch*, а значит и не должен работать, хотя может он выясняет у AP его локалип и через него роутиться? загадка
но, как я понял, ты свою проблему уже решил?
Профиль  ЛС 
sidorov1111

Стаж: 15 лет
Сообщений: 10
Откуда: Уфа

Создавать темы sidorov1111 написал(а)
24-Апр-2009 20:47 (спустя 3 минуты)
Цитировать
sidorov1111
найти в скрипте строчки:
...
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.213.52 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
У меня три вопроса:
1. Какой использоват скрипт? Тот что Кабан предлагает скачать с Уфанетовских рапид на 1 странице (я им пользовался)
или тот что на 12 странице для хрюши и для висты по отдельности?
2. Что такое & global_ip & " metric 1", 0, true - в теле скриптов этого нигде нет?
3. Попробовал подставить в скрипт с 12 страницы (там были похожие строки только без {& global_ip & " metric 1", 0, true} - не помогло Help au
Профиль  ЛС 
Денис

Стаж: 16 лет
Сообщений: 268
Откуда: Уфа

Создавать темы Денис написал(а)
24-Апр-2009 20:54 (спустя 7 минут)
Цитировать
sidorov1111
Если тем скриптом, что на главной, то
добавить
route add 81.30.213.52 mask 255.255.255.255 %Freedom%
Профиль  ЛС 
sidorov1111

Стаж: 15 лет
Сообщений: 10
Откуда: Уфа

Создавать темы sidorov1111 написал(а)
24-Апр-2009 21:46 (спустя 52 минуты)
Цитировать
sidorov1111
Если тем скриптом, что на главной, то
добавить
route add 81.30.213.52 mask 255.255.255.255 %Freedom%
добавил последней строчкой как ты сказал - не помогло - Инвесткапитал со скриптом локал без впн не работает.
Профиль  ЛС 
Показать сообщения:     
Тема закрыта

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы не можете скачивать файлы

Текущее время: 28-Ноя 14:36
Часовой пояс: UTC + 5