AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
CRM
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 26.12.2013, 13:11   #11  
virhundo is offline
virhundo
Участник
 
33 / 16 (1) ++
Регистрация: 29.03.2007
не надо никакого вывода в файл
X++:
     COM         wsh;
     str           _cmdStr;
     str         fullCommand, clearBuffCmd;
    DLL         winApiDLL              = new DLL('user32');
    DLLFunction openClipboard          = new DLLFunction(winApiDLL, 'OpenClipboard');
    DLLFunction getClipboardData       = new DLLFunction(winApiDLL, 'GetClipboardData');
    DLLFunction enumClipboardFormats   = new DLLFunction(winApiDLL, 'EnumClipboardFormats');
    DLLFunction closeClipboard         = new DLLFunction(winApiDLL, 'CloseClipboard');
    int         format;
    str         resultStr;
    ;
     openClipboard.returns(ExtTypes::DWord);
     openClipboard.arg(ExtTypes::DWord);
     enumClipboardFormats.arg(ExtTypes::DWord);
     enumClipboardFormats.returns(ExtTypes::DWord);
     getClipboardData.arg(ExtTypes::DWord);
     getClipboardData.returns(ExtTypes::String);
     closeClipboard.returns(ExtTypes::DWord);
     closeClipboard.arg();
 
      clearBuffCmd   =  'cmd /c echo off | clip';
      _cmdStr =  "tracert 192.168.59.186";
      fullCommand = 'cmd /c ' +'chcp 437 && '+ _cmdStr + ' | clip' ; 
     
  wsh             = new COM('WScript.Shell');
 
     wsh.Run(clearBuffCmd, 1, true);
     wsh.Run(fullCommand, 1, true);
     
     sleep(100);
     wsh.finalize();
     if(openClipboard.call(0))
     {
        format = enumClipboardFormats.call(0);
        while(format)
        {
            switch(format)
            {
                case 1: //CF_TEXT
                case 7: //CF_OEMTEXT
                case 13: //CF_OEMTEXT CF_UNICODETEXT
                     resultStr = getClipboardData.call(format); // результат tracert или ping
                     break;
                default:
                    break;
            }
          format = enumClipboardFormats.call(format);
        }
         closeClipboard.call();
     }
За это сообщение автора поблагодарили: BokarevSS (1).
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
ping и стабильность системы Wamr DAX: Администрирование 3 26.11.2011 16:44
daxis: Troubleshooting orphaned sessions and SPIDS in Dynamics Ax Blog bot DAX Blogs 0 01.04.2009 18:05
Проблемы с работой Axapta Nevskij DAX: Администрирование 7 01.12.2003 14:21

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 03:07.