IMfO.ru

All God’s chillun got shoes

WSH: Thunderbird, dialing, get mail, disconnect

Disclaimer: то, что получится в итоге, — написано под один тип ОС, определённые настройки модемного соединения и, уверен, не без косяков (as usual).

Есть: Thunderbird и dial-up.

Хочется при запуске TB: автоматического соединения, забора почты и разрыва созданного соединения.

Изначально думал написать расширение, но, поковырявшись в коде, решил пойти более простым для себя путём: WSH. Итак, начнём писать наш autoDialUp.wsf…

Шаги:

1. запустить TB;
2. посмотреть, есть ли активные на данный момент модемные соединения и, если таковых нет, то соединиться;
3. инициировать забор почты;
4. дождаться окончания загрузки почты и, если модемное соединение было создано, то разорвать его.

Шаг 1.

Для запуска TB нам нужно знать где этот самый TB находится, для этого поработаем с веткой реестра HKCU\Software\Mozilla\Mozilla Thunderbird. Взяв из неё значение CurrentVersion и подставив его в {версия}\Main\PathToExe, получим путь к thunderbird.exe, который и запустим:

var WshShell = WScript.CreateObject("WScript.Shell");

try {
  var appPath = WshShell.RegRead("HKCU\\Software\\Mozilla\\Mozilla Thunderbird\\CurrentVersion");
} catch (e) {
  quit("can't find Mozilla Thunderbird application.");
} finally {
  try {
    appPath = WshShell.RegRead("HKCU\\Software\\Mozilla\\Mozilla Thunderbird\\" +
                               appPath + "\\Main\\PathToExe");
  } catch (e) {
    quit("can't find Mozilla Thunderbird application.");
  } finally {
    WshShell.Run(appPath, 7, false); //~ minimized window
  }
}

Шаг 2.

При помощи rasdial получаем сведения о наличии активного модемного соединения. Если в консоли англоязычной винды выполнить команду rasdial, то при отсутствии подключения к сети получим на выходе

C:\rasdial
No connections
Command completed successfully.

Делаем пайп на find:

var rv = WshShell.Run("rasdial | find \"No connections\" > NUL", 0, true);

Если активных соединений нет (rv == 0), то ищем в реестре имя соединения по-умолчанию и, если оно найдено, запускаем процесс дозвонки:

if (!rv) {
  try {
    var connection = WshShell.RegRead("HKCU\\Software\\Microsoft\\RAS AutoDial\\Default\\DefaultInternet");
  } catch(e) {
    quit("can't find active or default Internet connection.");
  } finally {
    rv = WshShell.Run("rasphone -d " + connection, 0, true);
    if (rv)
      connection = false;
  }
}

Теперь можно рассказать и о функции quit():

function quit(msg, inf) {
  if (connection) WshShell.Run("rasphone -h " + connection, 0, false);
  WshShell.Popup("ThunderbirdAutoMail: "+msg,0,inf?"Info":"Error",inf?64:16);
  WScript.Quit();
}

Шаг 3.

Для получения почты со всех ящиков достаточно нажать Ctrl+Shift+T… Нет-нет, руками мы этого делать не будем.

Посредством WshShell.SendKeys() можно послать любую клавишу или их комбинацию в активное окно. Активизировать окно, зная его заголовок, можно через WshShell.AppActivate(), но так как заголовок TB не обязательно будет «Mail & Newsgroups», да и при тестировании этого способа почему-то фокус передавался у меня не всегда, то просто ещё раз запустим TB:

WshShell.Run(appPath, 5, false);
//~ 5 - activates the window and displays it in its current size and position.
WScript.Sleep(100);
WshShell.SendKeys("^+t");

Шаг 4.

Зная process ID (PID) приложения и пройдясь регулярным выражением по выводу команды netstat с ключами -n -o -p tcp, можно получить информацию о сетевой активности приложения (соединения и их состояние).

Ищем PID громоптицы:

var appPID, e = new Enumerator(GetObject("winmgmts:").InstancesOf("Win32_process"));
for (; !e.atEnd() && !appPID; e.moveNext())
  if (/thunderbird\.exe/.test(e.item().Name))
    appPID = e.item().Handle;

if (!appPID)
  quit("can't find Mozilla Thunderbird process.");

Можно было бы пройтись по выводу netstat командой findstr, но интереснее подать его на вход нашему же скрипту:

do {
  WScript.Sleep(10000);
  rv = WshShell.Run("netstat -n -o -p tcp | cscript " +
                    WScript.ScriptName + " \"" + appPID +
	                "\" //Job:RegTester", 0, true);
} while (!rv); //~ 1=2 in Job:RegTester

quit("work done.", true);

<job id="RegTester">
  <script language="JScript">
  var appPID = WScript.Arguments.Item(0), netStatOut = WScript.StdIn.ReadAll();
  if (new RegExp("\\:(110|25|80|143)\\s*([A-Z_12]*)\\s*" + appPID + "\\n").test(netStat))
    WScript.Quit(); //~ pop3, smtp, http, imap connections with TB PID
  1 = 2;
  </script>
</job>

autoDilaUp.wsf (3 kb).

В каких условиях это работало: W2k3 (англицкий); TB 1.0.6 (en); одно модемное соединение, выставленное по-умолчанию и не запрашивающее логинов/паролей.

Ещё один дисклаймер: мне малоинтересна полезность этого скрипта и, как уже говорилось в самом начале, его безбажность. Просто хотелось посмотреть некоторые возможности манипулирования приложениями при помощи WSH.

Пара слов о создании расширения на эту тему: можно написать компоненту и из неё создавать/разрывать соединение посредством того же rasphone. Там (в компоненте) и с виндовым реестром можно работать (nsIWindowsRegKey), и приложения запускать (nsIProcess), но… Как-то не хочется с этим возиться.

Categories: PHP | comments: (9)

Комментарии

Комментарии временно отключены.