火山视窗怎么控制PowerShell 运行命令

老鼠哥

火山视窗怎么控制PowerShell 运行命令 查看本机ip

aeszyl

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 包 火山.程序
   
4. 
   
5. 类 启动类 <公开 基础类 = 程序类>
   
6. {
   
7.     方法 启动方法 <公开 类型 = 整数>
   
8.     {
   
9.         变量 网址 <类型 = 文本型>
   
10.         运行 ("powershell -Command $ip = (Test-Connection -ComputerName (hostname) -Count 1).IPv4Address.IPAddressToString; $ip | Clip", , 程序窗口显示方式.隐藏窗口)
    
11.         网址 = 取剪辑板文本 ()
    
12.         @ MessageBox(NULL, @<网址>, L"信息：", MB_OK | MB_ICONINFORMATION); return 0;
    
13.         返回 (1)
    
14.     }
    
15. }
    

复制代码

aeszyl

aeszyl 发表于 2024-12-27 15:17

查看IP地址返回信息，置于剪辑板中了。

aeszyl

用代码嵌入版本

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 包 火山.程序 <
   
4.         @视窗.外部头文件 = "<winsock2.h>\r\n<ws2tcpip.h>\r\n<iphlpapi.h>\r\n<iostream>\r\n<string>\r\n<windows.h>\r\n<cstdlib>\r\n<locale>\r\n<codecvt>"
   
5.         @视窗.外部库 = "Ws2_32.lib\r\nIphlpapi.lib" @视窗.附加编译参数 = "cpp: /std:c++17">
   
6. 
   
7. 类 嵌入文本 <公开 @强制输出 = 真>
   
8. {
   
9. 
   
10.     # @begin
    
11.     # std::string getLocalIPAddress() {
    
12.     #     WSADATA wsaData;
    
13.     #     if (WSAStartup(MAKEWORD(2, 2), &wsaData) != 0) {
    
14.     #         throw std::runtime_error("WSAStartup failed");
    
15.     #     }
    
16.     #     ULONG flags = GAA_FLAG_INCLUDE_PREFIX;
    
17.     #     ULONG outBufLen = 0;
    
18.     #     PIP_ADAPTER_ADDRESSES pAdapterAddrs = nullptr;
    
19.     #     ULONG retval = GetAdaptersAddresses(AF_UNSPEC, flags, nullptr, pAdapterAddrs, &outBufLen);
    
20.     #     if (retval == ERROR_BUFFER_OVERFLOW) {
    
21.     #         pAdapterAddrs = (PIP_ADAPTER_ADDRESSES)malloc(outBufLen);
    
22.     #         if (pAdapterAddrs == nullptr) {
    
23.     #             WSACleanup();
    
24.     #             throw std::bad_alloc();
    
25.     #         }
    
26.     #         retval = GetAdaptersAddresses(AF_UNSPEC, flags, nullptr, pAdapterAddrs, &outBufLen);
    
27.     #     }
    
28.     #     if (retval != NO_ERROR) {
    
29.     #         if (pAdapterAddrs != nullptr) {
    
30.     #             free(pAdapterAddrs);
    
31.     #         }
    
32.     #         WSACleanup();
    
33.     #         throw std::runtime_error("GetAdaptersAddresses failed");
    
34.     #     }
    
35.     #     std::wstring ipAddressW;
    
36.     #     for (PIP_ADAPTER_ADDRESSES pAdapterAddr = pAdapterAddrs; pAdapterAddr != nullptr; pAdapterAddr = pAdapterAddr->Next) {
    
37.     #         for (PIP_ADAPTER_UNICAST_ADDRESS pUnicastAddr = pAdapterAddr->FirstUnicastAddress; pUnicastAddr != nullptr; pUnicastAddr = pUnicastAddr->Next) {
    
38.     #             sockaddr_in* pSockaddrIn = reinterpret_cast<sockaddr_in*>(pUnicastAddr->Address.lpSockaddr);
    
39.     #             if (pSockaddrIn->sin_family == AF_INET) {
    
40.     #                 wchar_t ac[INET_ADDRSTRLEN];
    
41.     #                 DWORD dwAddressLength = sizeof(ac) / sizeof(wchar_t);
    
42.     #                 if (WSAAddressToString(reinterpret_cast<LPSOCKADDR>(pSockaddrIn), sizeof(sockaddr_in), nullptr, ac, &dwAddressLength) == 0) {
    
43.     #                     ipAddressW = ac;
    
44.     #                     break;
    
45.     #                 }
    
46.     #             }
    
47.     #         }
    
48.     #         if (!ipAddressW.empty()) {
    
49.     #             break;
    
50.     #         }
    
51.     #     }
    
52.     #     if (pAdapterAddrs != nullptr) {
    
53.     #         free(pAdapterAddrs);
    
54.     #     }
    
55.     #     WSACleanup();
    
56.     #     std::wstring_convert<std::codecvt_utf8<wchar_t>, wchar_t> converter;
    
57.     #     std::string ipAddress = converter.to_bytes(ipAddressW);
    
58.     #     return ipAddress;}
    
59.     # @end
    
60. }
    
61. 
    
62. 类 启动类 <公开 基础类 = 程序类>
    
63. {
    
64.     方法 启动方法 <公开 类型 = 整数 @禁止流程检查 = 真>
    
65.     {
    
66.         @ MessageBox(nullptr, reinterpret_cast<LPCWSTR>(std::wstring_convert<std::codecvt_utf8_utf16<wchar_t>>().from_bytes(getLocalIPAddress()).c_str()), L"本机IP地址:", MB_OK | MB_ICONINFORMATION);return 0;
    
67.         返回 (1)
    
68.     }
    
69. }
    

复制代码

aeszyl

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 包 火山.程序
   
4. 
   
5. 类 启动类 <公开 基础类 = 程序类>
   
6. {
   
7.     方法 启动方法 <公开 类型 = 整数>
   
8.     {
   
9.         变量 网址 <类型 = 文本型>
   
10.         运行 ("powershell -Command $ip = (Test-Connection -ComputerName (hostname) -Count 1).IPv4Address.IPAddressToString; $ip | Clip", , 程序窗口显示方式.隐藏窗口)
    
11.         网址 = 取剪辑板文本 ()
    
12.         @ MessageBox(NULL, @<网址>, L"信息：", MB_OK | MB_ICONINFORMATION); return 0;
    
13.         返回 (1)
    
14.     }
    
15. }
    

复制代码

kingsoft

楼上代码可用，但是直接复制运行的那个引号会出问题，用下面这个替换即可！

运行 ("powershell -Command $ip = (Test-Connection -ComputerName (hostname) -Count 1).IPv4Address.IPAddressToString; $ip | Clip", , 程序窗口显示方式.隐藏窗口)