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, спасибо! все заработало!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@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 ?

Решение