版本 2
.支持库 internet验证信息 = 到文本 (HTTP读文件 (“http://127.0.0.1/check.asp?f_user=” + _启动窗口.编辑框1.内容 + “&f_code=” + _启动窗口.编辑框3.内容))
验证网络 = 到文本 (HTTP读文件 (“http://127.0.0.1/internet.asp”))
.如果 (寻找文本 (验证网络, “网络连接失败”, , 假) ≠ -1)
    .判断开始 (验证信息 = “未授权用户”)
        信息框 (“未授权用户,请与客户服务中心联系!”, #信息图标, )
        挂断拨号 ()
        运行 (“rasphone -r ” + “VPN”, 假, #隐藏窗口)        结束 ()
    .默认

解决方案 »

  1.   

    lz先用VB写网络拨号程序,抓耳挠腮半天,不会。于是在网上找啊找,找到一个易语言的程序。这程序够容易,但是会被山寨杀毒软件被当作病毒。于是再找人修改成VB。说实话,这么简单的程序用VB做何须你这些易语言的代码?lz太累了,其实除了粘贴别的都不会的人应该花钱买个程序来。免费找苦力就不厚道了。