[Закрыто] Joikuspot (Страница 4 из 5)

Вышла версия 1.1.0, кто нибудь может выложить .deb?

Выложил: http://uploaded.to/file/2n77ya
Защита репозиториев никак не поменялась пока. Что в программе изменилось я не знаю, еще не ставил.

Вчера обновилась до 1.2.0
Deb тут: http://ul.to/tpnyxx

P.S. Changelog не известен)))

Лучше всего купить Repeater, который будет продливать сигнал.

Правильно я понял что WiFi модуль N900 умеет быть AP? Тогда походу можно заменить сабжевую софтину свободной hostapd и парой прямых рук.
Ценное свойство.

Как я частично решил проблему реконнекта с JoikuSpot на ноутбуке c Windows 7

По ряду причин соединение с JoikuSpot на ноутбуке часто рвется, кроме это существует еще несколько неприятных факторов:
1) потеря сигнала Wifi
2) ограниченное по времени выделение IP-адреса
3) отсутствие автоматического подсоединения к сети компьютер-компьютер
4) другие причины

Для того, чтобы упростить процедуру реконнекта я внес в список "Управление беспроводными сетями" соединение типа "компьютер-компьютер" с именем, соответствующим имени соединений (JoikuSpot_XXXXXXXXXXXX) в списке "Текущих подключений", указав тип шифрования.

Теперь подключение к сети требует исключительно нажатия кнопки "Подключить" и не требует ввода ключа.

Однако, как я упомянул ранее, данный способ также меня не устраивает, так как реконнекты случаются довольно часто и быть оператором подключений не очень хочется.

Поэтому передо мной стояла задача найти способ одной командой определить наличие подключения, а другой командой запустить механизм подключения к сети.

Со вторым проблем не возникло. Достаточно в командной стоке написать "netsh wlan connect name=JoikuSpot_XXXXXXXXXXXX".

Но вот каким образом определить, существует ли подключение к сети?

Для этого пришлось написать VBScript.

Dim objShell
Set objShell = CreateObject("WScript.Shell")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapter Where Name = 'имя вашего беспроводного адаптера'")

For Each objItem in colItems
if objItem.NetConnectionStatus<>2 then
objShell.Run "netsh wlan connect name=JoikuSpot_XXXXXXXXXXXX"
end if
Next
Wscript.Quit

Данный скрипт возвращает коллекцию сетевых адаптеров, соответствующих названию вашего беспроводного адаптера.

Обычно такой адаптер один.

Затем мы проверяем состояние соединения, 2 означает, что соединение присутствует.
В случае, если это не 2, мы запускаем команду netsh wlan connect name=JoikuSpot_XXXXXXXXXXXX и подключение создается.

Теперь достаточно поместить этот VBScript в "Панель управления"->"Администрирование"->"Планировщик заданий" и установить через "Создать задачу" в пункте Триггеры "Повторять каждую" "1 мин.". В пункте "Действия" указать "запуск программы" Wscript.exe с "добавить аргументы" путь к скрипту, который нужно сохранить с расширением .vbs. Например, adhoc.vbs.

Теперь Windows запускает этот скрипт каждую минуту и в случае, если соединения нет, скрипт подключает Joiku. :-)

На быстродействии это никак не сказывается, так как, по сути, это просто один простой запрос в минуту к wmi.

P.S.
Чтобы посмотреть все ваши сетевые адаптеры и корректно записать имя вашего беспроводного адаптера, необходимо модифицировать программу следующим образом и сохранить ее в файл show.vbs, а затем запустить wscript show.vbs

Dim objShell
Set objShell = CreateObject("WScript.Shell")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapter ")

For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Next
Wscript.Quit

Остается только записать имя беспроводного адаптера из всплывающих окошек.

Да, все должно работать.

Kernel обычный или power? Если power, то нужно подменять Joikuspot_Bouncer