BC++调用API显示内部局域网内的主机

博客展示了一段几年前编写的程序,为实现C#相同功能而贴出。程序通过调用相关Windows API,利用WNetOpenEnum和WNetEnumResource等函数,实现了网络资源的枚举和显示,在TreeView组件中展示网络资源信息。

//本段程序是几年前写,现在由于为写C#相同的功能,所以特别贴出来
//相同的C#程序,http://blog.youkuaiyun.com/zerodj/services/trackbacks/475349.aspx

#include <winsock2.h>
#include <winnetwk.h>

TTreeNode *Node1;
TTreeNode *Node2;
TTreeNode *Node3;
TTreeNode *gNode=NULL;
//---------------------------------------------------------------------------
void Tfrm_pc::getNetHood(char* domainname,char* msdomain){

 NETRESOURCE parent;
 LPNETRESOURCE pnr;
 HANDLE hEnum;
 DWORD BufSize;
 DWORD ResNum;

 ZeroMemory(&parent, sizeof(parent));
 pnr = (LPNETRESOURCE)GlobalAlloc(GMEM_FIXED, 1000);

 parent.dwScope = RESOURCE_GLOBALNET;
 parent.dwType = RESOURCETYPE_ANY;
 parent.dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN;
 parent.dwUsage = RESOURCEUSAGE_CONTAINER;

    if(AnsiString(domainname)=="");
    else parent.lpRemoteName = domainname;
    if(AnsiString(msdomain)=="");
    else parent.lpProvider = msdomain;

 WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, &parent, &hEnum);

 while(BufSize = 1000, ResNum = 1, WNetEnumResource(hEnum, &ResNum, pnr, &BufSize) == NO_ERROR) {

        Application->ProcessMessages();

        AnsiString pcname=AnsiString(pnr->lpRemoteName);
        if(pcname.Trim().SubString(0,2)=="////"){
            pcname=pcname.SubString(3,pcname.Length());
            tv->Items->AddChild(Node2,pcname);
            Node3=tv->Items->Item[tv->Items->Count-1];

            Node3->ImageIndex=2;
            Node3->SelectedIndex=2;

        }
        else if(pcname.LowerCase().Trim().Pos("microsoft windows ")>0){
            tv->Items->Add(NULL,pcname);
            Node1 = tv->Items->Item[tv->Items->Count-1];
            Node1->ImageIndex=0;
            Node1->SelectedIndex=0;
            getNetHood(NULL,pcname.c_str());
        }
        else{
            tv->Items->AddChild(Node1,pcname);
            Node2 = tv->Items->Item[tv->Items->Count-1];
            Node2->ImageIndex=1;
            Node2->SelectedIndex=1;
            getNetHood(pcname.c_str(),NULL);
        }

 }

 WNetCloseEnum(hEnum);

 GlobalFree(pnr);

}

//---------------------------------------------------------------------------
void __fastcall Tfrm_pc::FormCreate(TObject *Sender)
{

    TCursor oldcur=Screen->Cursor;
    Screen->Cursor = crHourGlass;

    tv->Items->Clear();  //TreeView的VCL组件
    getNetHood(NULL,NULL); //显示网络资源
    tv->FullExpand();

    Screen->Cursor=oldcur;

}
//---------------------------------------------------------------------------

我的主页:itbaby.jss.cn

### 小程序系统错误 `errcode -1` 的可能原因及解决方案 在处理小程序开发过程中遇到的系统级错误 `{ "errcode": -1, "errmsg": "system error hint: [...] }` 时,通常需要从以下几个方面入手分析: #### 1. 请求格式不正确 如果请求参数未按照官方文档的要求传递,则可能导致服务器端解析失败而返回 `-1` 错误。例如,在调用 **获取小程序模板库标题列表** 接口时,需确保提交的数据格式为 JSON 并满足 API 要求[^1]。 - 验证请求头是否设置为 `Content-Type: application/json`。 - 确认 POST 数据结构完全匹配官方定义的标准字段名及其类型。 ```json { "access_token": "your_access_token", "offset": 0, "count": 3 } ``` #### 2. 认证令牌失效或缺失 访问某些受保护的小程序接口(如模板消息管理),往往依赖有效的 OAuth 凭据——即 access token。一旦此凭证过期或者非法传入,均会触发类似的异常响应。 建议重新生成最新版 Access Token 后再次尝试操作,并妥善保存以便后续重复利用直到其生命周期结束前。 #### 3. 网络层问题引发超时/断连现象 当客户端设备处于较差信号覆盖区域或是防火墙策略阻止外部通信链路建立的情况下,也可能观察到此类状况发生。特别是针对 HTTPS 协议下证书验证环节出现问题时尤为常见[^2]。 对于上述提到有关 SSL/TLS 握手阶段产生的认证失败情形(`ERR_CERT_AUTHORITY_INVALID`) ,可以考虑通过更新 CA Root Certificates 或者调整应用内部关于忽略特定主机地址的安全警告逻辑来规避风险;不过需要注意的是这样做可能会降低整体安全性水平因此务必谨慎行事! 另外值得注意的一点在于部分情况下即使是在局域网环境下运行良好却依旧无法正常工作很可能是因为目标服务提供商设置了严格的源IP白名单机制从而拒绝来自未知位置的一切连接请求–此时则需要联系对应的技术支持团队申请加入允许范围之内才行。 #### 4. 云端执行环境配置不当 假如涉及到调用腾讯云所提供的 Serverless 架构下的自定义业务逻辑(比如本案例里提及到了Cloud Function),那么还需要额外留意是否存在因代码编写失误而导致的功能崩溃情况存在。比如说下面这个例子就很好地说明了一个由于声明顺序颠倒所引起的问题场景描述[^3]: > 当我们在构建一个简单的查询数据库记录数目的时候如果不小心把初始化SDK实例这一步骤放置于创建DB引用之后的话就很有可能会出现类似于我们现在看到这样的报错信息了。 正确的做法应该是先完成必要的准备工作然后再继续往下走其他流程步骤: ```javascript // 正确示范版本 const cloud = require('wx-server-sdk'); // 引入 SDK cloud.init(); // 初始化 SDK 实例 const db = cloud.database(); // 创建 DB 对象 exports.main = async (event, context) => { try { let res = await db.collection('testCollection').count(); return { count: res.total }; } catch(e){ console.error(e); throw e; } }; ``` 综上所述,面对这种模糊不清且难以定位具体成因类型的全局性错误事件时我们应该采取分步排查法逐步缩小怀疑区间直至最终找到确切答案为止。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值