标题:四川网通LAN用户免费拨号上网
只看楼主
myspider
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-9-29
 问题点数:0 回复次数:1 
四川网通LAN用户免费拨号上网
  小弟所在的地区,网通用户是通过一个服务器来验证拨号的用户名和密码的,小弟从网上扫了一些网通帐号。帐号虽多,但是不是每一个都能拨得上号,因为只要别人先拨号,就会提示691错误。如果一个号一个号试非常不方便,想写一个程序来实现。
帐号的格试:用户名----密码
ADSL200985177@sccnc----211024
ADSL1181715458----300534
ADSL1106224725----800240
pg3390851----3390851
ADSL174022023----022023
ADSL18369555----833933
ADSL3010231666----231666
ADSL811826307----992753
ADSL3207311189----203053
ADSL1361719612----000000
ADSL146315857@sccnc----057718
pg3392522----3392522
程序的代码:
using System;
using System.Collections.Generic;
using
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using
using
using System.Text.RegularExpressions;
using System.Diagnostics;

namespace 拨号
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void 退出ToolStripMenuItem_Click(object sender, EventArgs e)
        {   
            if (MessageBox.Show("你真的要退出吗?","提示信息",MessageBoxButtons.OKCancel)==DialogResult.OK)
            {
            Application.Exit();

            }
        }

        private bool IsNetWork()//判断是否联网,小弟有一个内网的IP地址,如果拨上号就会有两个IP地址,一个是内网的,一个是外网的。
        {
            //bool iscon;
            IPAddress[] addreslist = Dns.GetHostEntry(Dns.GetHostName()).AddressList;
            if (addreslist.Length < 2)
            {
                return false;
            }
            else
            {
                return true;
            }
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            string strTemp = "";
            StreamReader ReaderTxt = new StreamReader("ADSL.TXT",Encoding.Default);
            strTemp = ReaderTxt.ReadLine();
            while (strTemp != null)
            {
                if (IsNetWork())
                {
                    MessageBox.Show("联起网了");
                    break;
                }
                else
                {
                    string[] StrTep = Regex.Split(strTemp,"----");
                    Process p = new Process();
                    p.StartInfo.UseShellExecute = false;
                    p.StartInfo.CreateNoWindow = true;
                    p.StartInfo.FileName = "rasdial.exe adsl" + StrTep[0] + StrTep[1];
                    p.Start();
                    p.WaitForExit();
                    
                    
                }
                strTemp = ReaderTxt.ReadLine();
            }
        }
        
        


    }
}

小弟学艺不精,总是报错,希望哪位大哥给点帮助。

[[it] 本帖最后由 myspider 于 2008-6-20 14:34 编辑 [/it]]

拨号.rar (54.71 KB)
搜索更多相关主题的帖子: 四川 网通 LAN 拨号 用户 
2008-06-20 14:30
myspider
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-9-29
得分:0 
怎么没有高手分析一下,哪里错了。
我原以为是文件路径没有写绝对路径错了,但是用绝对路径还不行。
2008-06-20 17:13



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-220211-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.618502 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved