Запуск dataport

[Grizzly]

Сохранить в файле с расширением js.

PHP код:

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

// Запустить attain
WshShell.Run("fin.exe",5);
WScript.Sleep(5000);
WshShell.SendKeys("{ENTER}");
WScript.Sleep(300);

// Открыть object-дизайнер
WshShell.SendKeys("+{F12}");
WScript.Sleep(300);

// Найти форму 1
WshShell.SendKeys("%m");
WScript.Sleep(300);
WshShell.SendKeys("^F");
WScript.Sleep(300);
WshShell.SendKeys("1");
WScript.Sleep(300);
WshShell.SendKeys("{ENTER}");
WScript.Sleep(300);

// Запустить форму
WshShell.SendKeys("%R");
WScript.Sleep(300);

// Перемещаться по полям
WshShell.SendKeys("{TAB}");
WScript.Sleep(300);
WshShell.SendKeys("{TAB}");
WScript.Sleep(300);
WshShell.SendKeys("{TAB}");
WScript.Sleep(300);
WshShell.SendKeys("{TAB}");
WScript.Sleep(300);
WshShell.SendKeys("{TAB}");
WScript.Sleep(3000);

// Выйти из Attain
WshShell.SendKeys("%{F4}");
WScript.Sleep(300);