VBA判断是否连接公司内网/是否联网(Excel)

Function 测网(url) On Error Resume Next cmdping = "ping " & url & " -n 1" Set oExec = CreateObject("Wscript.shell").exec(cmdping) Do Until oExec.stdout.AtEndOfStream strline = strline & oExec.stdout.readline() & Chr(13) Loop 测网 = 0 If InStr(strline, "回复") Then 测网 = 1 Set oExec = Nothing End Function

Function 联网提示(url) If 测网(url) = 0 Then tip = Time & " 请确认是否连接上公司内网。" Debug.Print tip MsgBox tip End End If End Function

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏刘笑江的专栏

iOS 私有 API 调用检测机制探讨

最近发现部分 App 以字符串拼接的方法调用私有 API,在提交 AppStore 审核后被发现打回修改的案例。

3824
来自专栏令仔很忙

新手学JAVA(八)----走进JDBC

JDBC(Java Data Base Connectivity, Java 数据库连接)是一种用于执行SQL语句的JavaAPI,可以为多种关系数据库提供统一...

921
来自专栏IT可乐

mybatis 详解(一)------JDBC

1、什么是MyBatis?   MyBatis 本是apache的一个开源项目iBatis, 2010年这个项目由apache software foundat...

2206
来自专栏游戏开发那些事

【游戏开发】Excel表格批量转换成lua的转表工具

  在上篇博客《【游戏开发】Excel表格批量转换成CSV的小工具》 中,我们介绍了如何将策划提供的Excel表格转换为轻便的CSV文件供开发人员使用。实际在U...

1823
来自专栏swag code

JDBC一般流程

1)注册驱动,在static代码块中注册,这里用Class.forName方法来检查驱动类的方式:

1466
来自专栏数据库新发现

Use bonnie++ to Test system IO speed[修正稿]

http://www.eygle.com/unix/Use.Bonnie++.To.Test.IO.speed.htm

932
来自专栏木宛城主

迁移TFS,批量将文档导入SharePoint 2013 文档库

一、需求分析 公司需要将存在于旧系统(TFS)所有的文档迁移至新系统(SharePoint 2013)。现已经将50G以上的文档拷贝到SharePoint ...

20610
来自专栏landv

办公用品管理系统VB——模块

1594
来自专栏java学习

原生的JDBC教程详解

JDBC 1.1 JDBC概述 JDBC(Java Data Base Connectivity,java数据库连接)是一种用于执行SQL语句的Jav...

6845
来自专栏深度学习之tensorflow实战篇

dataframe插入数据报错SettingWithCopyWarning: A value is trying to be set on a copy of a slice from a

SettingWithCopyWarning 解决方案 场景 问题场景:我在读取csv文件之后,因为要新增一个特征列并根据已有特征修改新增列的值,结果在修改的时...

3498

扫码关注云+社区