UC知道VB编程高手来下
来源：百度知道 编辑：UC知道 时间：2024/06/05 15:18:09
用ping百度的方式,如果ping通则显示连接成功,如果ping不通则显示连接失败,完整的代码是怎样的，麻烦哪个大哥给我写下
还有想问下,怎么在工程1上添加一个ping百度,比如ping百度是连通的,则显示绿色和已连接服务器的字样,没ping成功,则是红色和显示未能连接服务器的字样呢?
都是求完整的代码,谢谢,才学,复杂了看不懂,谢谢!
大哥们,我需要完整的,你们的回答我看得云里雾里的,糊涂了!
直接调用cmd
shell
或
最近在学校的机房上机时，被老师设了限制，每次机子重启后都要到他那里要他帮忙解锁，很麻烦，于是就编了个解锁的程序，但是我担心别人在上网的时候（机房在周末对外开放上网，要收钱的）用于非法用途，就加了个限制（机子联网，则程序不可用）！所以找到了一段代码，用后很不错，只要把IP设置的稳定一点就OK了，我设置的是百度的，相信很稳定，呵呵，和大家分享一下！希望对学VB的朋友有所帮助！！！
首先添加一模块，代码如下
Option Explicit
Private Const IP_SUCCESS As Long = 0
Private Const IP_STATUS_BASE As Long = 11000
Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)
Private Const IP_DEST_NET_UNREACHABLE As Long = (11000 + 2)
Private Const IP_DEST_HOST_UNREACHABLE As Long = (11000 + 3)
Private Const IP_DEST_PROT_UNREACHABLE As Long = (11000 + 4)
Private Const IP_DEST_PORT_UNREACHABLE As Long = (11000 + 5)
Private Const IP_NO_RESOURCES As Long = (11000 + 6)
Private Const IP_BAD_OPTION As Long = (11000 + 7)
Private Const IP_HW_ERROR As Long = (11000 + 8)
Private Const IP_PACKET_TOO_BIG As Long = (11000 + 9)
Private Const IP_REQ_TIMED_OUT As Long = (11000 + 10)
Private C