主题：使用电话号码

参考代码

    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
            .body.AddRow("技术部","张三","36","1008611","中国北京") '数据
            .body.AddRow("技术部","李四","38","10086","中国上海")
        End With
        With wb.AddButtonGroup("","btg",True)
            .Add("btn1","单击显示上拉菜单").Attribute = "onclick=""show('s1')"""
        End With
        With wb.AddActionSheet("","s1")
            .Add("menu3", "菜单项目3").Attribute = "onclick=""location='tel:' + table1.rows[table1.rowSel].cells[3].innerHTML"""
            .Add("menu4","取消","",True)
        End With
        e.WriteString(wb.Build)

不理解你的意思。用httpclient实现打电话是不可能的，涉及到音频的实时传输而且不能中断的。

用电脑打电话，你的电脑必须接入硬件设备，才行的。

你去询问对应的设备厂商，看有没有适合你需求的那种设备吧。