Ping как скрыть окно cmd ?

@lifeforce · Регистрация: 27.09.2010

Привет всем.
Возможно ли скрыть появление черного окна ?

C++
1
system ("ping 216.58.206.174 -n 2 > test.txt");

@lifeforce · 08.01.2018, 01:17 **[ТС]**

завтра попробую прогу от Avazart запустить на компе с админ. уверен что пройдет.

@Dinkin · 08.01.2018, 01:39

Хех,у меня ошибок, нет...видимо дело в среде.
Я только что еще один вариант проверил, все работает...будет Вам как третий на пробу.

Его суть, он пингует через WMI запрос ...его плюс, что он дает в ответ больше вводной информации. (функцию WMI тырнул у volvo).

На форму кидаем TMemo кнопку

C++
1
2
#include  <comdef.h>
#include  <wbemidl.h>

Сам "драйвер" для WMI запроса

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
//---------------------------------------------------------------------------
void GetWmiInfo(TStrings *L, wchar_t* wsQuery)
{
    HRESULT hres;
    hres = CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT,
        RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL);
 
    IWbemLocator *pWbemLocator = NULL; // провайдер
    if (CoCreateInstance(CLSID_WbemAdministrativeLocator, NULL, CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER,
        IID_IUnknown, (void**)&pWbemLocator) == S_OK)
    {
        IWbemServices *pWbemServices = NULL;
        wchar_t* wsNamespace = (L"ROOT\\CIMV2");
        if (pWbemLocator->ConnectServer(wsNamespace, NULL, NULL, NULL, 0, NULL, NULL, &pWbemServices) == S_OK)
        {
            IEnumWbemClassObject *pEnumClassObject = NULL;
            wchar_t* wsWQL = L"WQL";
            if (pWbemServices->ExecQuery(wsWQL, wsQuery, WBEM_FLAG_RETURN_IMMEDIATELY, NULL, &pEnumClassObject) == S_OK)
            {
                IWbemClassObject *pClassObject = NULL;
                ULONG uCount = 1, uReturned = 0;
                if (pEnumClassObject->Reset() == S_OK)
                {
                    int iEnumIdx = 0;
                    hres = pEnumClassObject->Next(WBEM_INFINITE, uCount, &pClassObject, &uReturned);
                    while (hres == S_OK)
                    {
                        L->Add("[" + IntToStr(iEnumIdx) + "]");
                        SAFEARRAY *pvNames = NULL;
                        if (pClassObject->GetNames(NULL, WBEM_FLAG_ALWAYS | WBEM_MASK_CONDITION_ORIGIN,
                            NULL, &pvNames) == S_OK)
                        {
                            long vbl, vbu;
                            SafeArrayGetLBound(pvNames, 1, &vbl);
                            SafeArrayGetUBound(pvNames, 1, &vbu);
                            for (long idx = vbl; idx <= vbu; idx++)
                            {
                                long aidx = idx;
                                wchar_t *wsName = 0;
                                VARIANT vValue;
                                VariantInit(&vValue);
                                SafeArrayGetElement(pvNames, &aidx, &wsName);
                                BSTR bs = SysAllocString(wsName);
                                HRESULT hRes = pClassObject->Get(bs, 0, &vValue, NULL, 0);
                                SysFreeString(bs);
                                if (hRes == S_OK)
                                {
                                    AnsiString s;
                                    Variant v = *(Variant*)&vValue;
                                    if (v.IsArray())
                                    {
                                        for (int i = v.ArrayLowBound(); i <= v.ArrayHighBound(); i++)
                                        {
                                            Variant a = v.GetElement(i);
                                            if (!s.IsEmpty()) s += ", ";
                                            s += VarToStr(a);
                                        }
                                    }
                                    else
                                    {
                                        s = VarToStr(v);
                                    }
                                    L->Add(AnsiString(wsName) + "=" + s);
                                }
                                VariantClear(&vValue);
                                SysFreeString(wsName);
                            }
                        }
                        if (pvNames)
                            SafeArrayDestroy(pvNames);
                        iEnumIdx++;
                        hres = pEnumClassObject->Next(WBEM_INFINITE, uCount,
                            &pClassObject, &uReturned);
                    } // WHILE
                    if (hres != S_OK)
                        L->Add((hres & 0xFFFF));
                } // pEnumClassObject->Reset()
                if (pClassObject)
                    pClassObject->Release();
            }
            if (pEnumClassObject)
                pEnumClassObject->Release();
        }
        if (pWbemServices)
            pWbemServices->Release();
    }
    if (pWbemLocator)
        pWbemLocator->Release();
}
//---------------------------------------------------------------------------

Ну и собственно по клику кнопки пингуем

C++
1
2
3
4
5
6
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    wchar_t* ss = L"SELECT * FROM Win32_PingStatus WHERE Address='192.168.1.221'";
    GetWmiInfo(Memo1->Lines, ss);
}
//---------------------------------------------------------------------------

@lifeforce · 08.01.2018, 01:50 **[ТС]**

Dinkin,
заработало и с компонентом IdHTTP1.

завтра тоже попробую на админе.

volvo
Avazart
Dinkin
спасибо парни за внимание и помощь!

@Avazart · 08.01.2018, 15:18

Не по теме:

заработало и с компонентом IdHTTP1.

Это как это вы им пинг делаете?

Добавлено через 21 минуту
lifeforce, Посмотрите консольный пример с моим классом Process
тут https://www.cyberforum.ru/blog... g4416.html

@lifeforce · 09.01.2018, 00:34 **[ТС]**

Сообщение от Avazart

lifeforce, Посмотрите консольный пример с моим классом Process

я этот пример смотрел еще раньше создания этой темы. реализация не получилась к сожалению.

Сообщение от Avazart

IdHTTP Это как это вы им пинг делаете?

нет. хотя в начале думал и использовать как пинг, но занимает все порты.
IdHTTP использую в программе для пост запроса из сервера по номеру контракта получаю уровень сигнала кабельного модема, и его IP, MAC, и теперь чтоб не нагружать запросами сервер мне нужно просто делать пинг к уже имеющееся IP , можно выбрать интервал (я выбрал 10 сек) и проверяю его активность.
и теперь на карте района стоят выбранные адреса и показывают состояния кабельных модемов в реальном времени.
визуально наглядно, и в момент работы на трассе с усилителями сигнала можно сразу видеть как меняется сигнал и качество.
сегодня проверил вашу программу в офисе с админ, запустилась , нажав кнопку пинг ничего не происходит.

Добавлено через 8 минут
Dinkin,

Сообщение от Dinkin

(функцию WMI тырнул у volvo).

работает без проблем.
но пробовал поменять IP взятым от Едита ничего не получилось.
как мне вставить текст из едита в wchar_t* ss?

C++
1
 wchar_t* ss = L"SELECT * FROM Win32_PingStatus WHERE Address='192.168.1.221'";

@D1973 · 09.01.2018, 06:37

Сообщение от lifeforce

как мне вставить текст из едита в wchar_t* ss?

Вот так можно...

C++
1
2
String s = String().sprintf(L"SELECT * FROM Win32_PingStatus WHERE Address='%s'", Edit1->Text);
  GetWmiInfo(Memo1->Lines, s.c_str());

@lifeforce · 09.01.2018, 08:49 **[ТС]**

D1973, не срабатывает эта конструкция.
здесь ждет wchar_t*

C++
1
2
3
void GetWmiInfo(TStrings *L, wchar_t* wsQuery)
{
.......

@Dinkin · 09.01.2018, 08:58

Там ряд возможных преобразований, одно из них:

C++
1
2
    UnicodeString ss = "SELECT * FROM Win32_PingStatus WHERE Address='"+Edit1->Text+"'";
    GetWmiInfo(Memo1->Lines, ss.w_str());

@D1973 · 09.01.2018, 09:35

Сообщение от lifeforce

не срабатывает эта конструкция

срабатывает, если _TCHAR maps to выставлен как wchar_t

@lifeforce · 09.01.2018, 19:10 **[ТС]**

Dinkin,
D1973,
Я на RAD STUDIO 2007.

не проходят эти номера и нет такого в меню.

@Avazart · 09.01.2018, 19:58

Сообщение от lifeforce

я этот пример смотрел еще раньше создания этой темы. реализация не получилась к сожалению.

Ну уж извините если за столько времени не научились как правильно скопировать код...

@Dinkin · 09.01.2018, 22:29

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
    AnsiString  str("SELECT * FROM Win32_PingStatus WHERE Address='"+sEdit1->Text+"'");
    WideString wtr(str);
    wchar_t*  txt=wtr.c_bstr();  // wchar_t* и BSTR по сути одно и тоже
    GetWmiInfo(sMemo1->Lines, txt);
}
//---------------------------------------------------------------------------

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

PS...я думаю с 10-ок еще спобов преобразования можно придумать, и столько же пингов

@lifeforce · 09.01.2018, 22:45 **[ТС]**

Dinkin, спасибо! все заработало!

Новые блоги и статьи Все статьи Все блоги /
23. что сделано за последнее время. anaschu 17.06.2026 • Эталон: Клиника НИИ питания РАМН, Москва — централизованный пищеблок, 225 коек, 180 пациентов • Git: репозиторий med2, ветка абсентеизм. Рабочий файл: СРесурсами1_v4. alp • Смежный проект:. . .	22. Подключение слоя системной динамики (потоковые диффуры): экономические метрики модели anaschu 17.06.2026 Апдейт модели: финансовый контур, разделение затрат Продолжаю развивать модель рабочего коллектива на AnyLogic. В этот раз работа шла над агентом Экономика — финансовым SD-слоем модели. Задача:. . .	[golang] Insert Delete GetRandom O(1) (Leetcode: 380) alhaos 16.06.2026 Insert Delete GetRandom O(1) Сложность: Medium Источник: LeetCode 380 Задача Реализовать структуру данных RandomizedSet, которая поддерживает следующие операции за O(1) в среднем:	Свет в конце тоннеля kumehtar 16.06.2026 Поймал себя на одной мысли. Раньше мне всегда казалось неправильным жить без чёткого понимания, куда всё идёт. Будто я иду по дороге судьбы, но не знаю, куда она ведёт. А раз не знаю — значит,. . .
[golang] Реализация стека с поддержкой получения минимального элемента за O(1) alhaos 16.06.2026 Min Stack Сложность: Medium Источник: LeetCode 155 Задача: Реализовать стек который поддерживает push, pop, top и получение минимального элемента за O(1). Методы:	[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	08.01.2018, 01:17 [ТС]
	завтра попробую прогу от Avazart запустить на компе с админ. уверен что пройдет. 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	08.01.2018, 01:50 [ТС]
	Dinkin, заработало и с компонентом IdHTTP1. завтра тоже попробую на админе. volvo Avazart Dinkin спасибо парни за внимание и помощь! 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	09.01.2018, 19:10 [ТС]
	Dinkin, D1973, Я на RAD STUDIO 2007. не проходят эти номера и нет такого в меню. 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	09.01.2018, 22:45 [ТС]
	Dinkin, спасибо! все заработало! 0

Ping как скрыть окно cmd ?

Решение