写了个CMCC无线网络自动登录的程序

有了这东东，以后就不用老是打开CMCC的登录页面，然后输入长长的账号来登录了！只需要随机启动，在图标右键选中Login即可，而且还有辅助计时功能。因为我用的是20元包月200小时，用超了就不好了~

哈哈~ 方便多了~~

在广州大学城使用CMCC无线网络的同学可以下载来玩玩：

下面说说工作原理：

要登录的话，可真不容易，我一开始也没有想到会绕这么多弯子。

首先，随便打开一个网页，例如www.google.com.tw，然后会被自动重定向到CMCC的登录页面，重定向的URL信息包含了一些参数，具体作用不清楚，但是都要使用到，所以要保存下来。

HTTP/1.1 302 Moved Temporarily
Server: Http Redirect Server/1.0
Author: [email protected]
Location:http://221.179.9.18:8080/bpss/login.jsp?wlanacname=2104.0020.200.00&wlanuserip=172.19.175.10&wlanacip=211.136.218.154
Content-Type: text/html

然后把这些参数信息，提交到/bpss/index.jsp这个页面去。随后才返回一个可用的登录页面！直接把账号写到POST的数据里，提交到/bpss/jsp/do_login.jsp去，如果返回一个重定向到index.jsp的html就表示登录成功了，否则就失败。

注销也比较麻烦，注销的时候直接访问/bpss/jsp/do_logout.jsp是不行的，需要一堆特殊的参数。这些参数在登录成功的页面里提供，所以我是直接在登陆成功后返回的数据中提取了这些参数数据了。

/bpss/jsp/do_logout.jsp?logouttype=url&LOGINIP=172.19.175.10&LOGINNAME=1581331****&DEVICEID=2104.0020.200.00&

WLANDIG=vIBqd30trA3TkBrWJB35kA==&WLANSID=EC6E926ECD8CFBC357C08115C882144C

贴一下关键代码：

Private Sub mnuLogin_Click()
    If tmrLogin.Enabled Then
        MsgBox "你已经登录过了吧 -_-!", vbExclamation
        Exit Sub
    End If
    If chkRemember.Value = Checked Then
        SaveAccount Me.txtAccount.Text, Me.txtPassword.Text
    Else
        SaveAccount "", ""
    End If
    LoginProcess = 0
    Inet1.Execute "http://www.baidu.com", "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim url As String, data As String
    If State = 12 Then
        Dim s As String
        s = Inet1.GetChunk(1024 * 16)
        Select Case LoginProcess
        Case 0:
            Dim wlanuserip As String, wlanacname As String, wlanacip As String
            wlanuserip = GetValue(s, "wlanuserip" & Chr(34) & " value=" & Chr(34), Chr(34))
            wlanacname = GetValue(s, "wlanacname" & Chr(34) & " value=" & Chr(34), Chr(34))
            wlanacip = GetValue(s, "wlanacip" & Chr(34) & " value=" & Chr(34), Chr(34))
            If wlanuserip = "" Or wlanacname = "" Or wlanacip = "" Then
                MsgBox "你已经可以使用网络了，无须登录CMCC -_-! ", vbExclamation
                Exit Sub
            End If
            LoginProcess = 1
            url = "http://221.179.9.18:8080/bpss/index.jsp"
            data = "wlanuserip=" & wlanuserip & "&wlanacname=" & wlanacname & "&wlanacip=" & wlanacip
            Me.Inet1.Execute url, "POST", data, "Content-Type: application/x-www-form-urlencoded"
        Case 1:
            url = "http://221.179.9.18:8080/bpss/jsp/do_login.jsp"
            data = "bpssUSERNAME=" & Me.txtAccount & "&bpssLoginType=1&bpssBUSPWD=" & Me.txtPassword & "&bpssSMSRND=" & Me.txtPassword & "&x=40&y=11"
            Me.Inet1.Execute url, "POST", data, "Content-Type: application/x-www-form-urlencoded"
            LoginProcess = 2
        Case 2:
            url = GetValue(s, "('/bpss/jsp/do_logout.jsp", "'")
            If url = "" Then
                MsgBox "登录失败 -_-! ", vbCritical
                Exit Sub
            End If
            LogoutUrl = url
            startTime = Now
            Me.Hide
            Beep
            Me.tmrLogin.Enabled = True
        End Select
    End If
End Sub

Private Sub mnuLogout_Click()
    If LogoutUrl <> "" Then
        'LoginProcess = 3
        Inet1.OpenURL "http://221.179.9.18:8080/bpss/jsp/do_logout.jsp" & LogoutUrl
        Beep
    Else
        MsgBox "你还没有登录吧 -_-!", vbExclamation
    End If
    tmrLogin.Enabled = False
    LogoutUrl = ""
End Sub

《写了个CMCC无线网络自动登录的程序》有56个想法

AL 2010 年 04 月 28 日 00:32

令我很有投身于网络编程大军滴冲动……

回复 ↓
扑愣 2010 年 04 月 28 日 17:55

你毕业没有啊，在哪读的大学啊。希望不是在国内

回复 ↓
Xiaoxia 2010 年 04 月 28 日 19:07

国内挺太平的！楼上在国外？

回复 ↓
Kiming 2010 年 04 月 28 日 19:36

你还会VB啊偶也会
你会的还真多啊
Linux下也有个和VB差不多但不是免费的有一定时间

回复 ↓
Xiaoxia 2010 年 04 月 29 日 19:32

上初中之前就开始玩VB5 ~~ 不过真的很菜

回复 ↓
Kiming 2010 年 04 月 30 日 12:13

我最开始就玩VB 现在在玩C 觉得C还是比较普遍的什么平台上都有C

回复 ↓
Xiaoxia 2010 年 04 月 30 日 20:01

嗯。最近打算写个小游戏。

回复 ↓
Kiming 2010 年 05 月 01 日 08:08

写什么小游戏用VB写吗？

回复 ↓
Xiaoxia 2010 年 05 月 01 日 11:31

不是。。。。用C++

回复 ↓
Kiming 2010 年 05 月 01 日 13:34

C++也会啊简单的东西还是VB好
把你会的都报上来 -_-!

回复 ↓
Xiaoxia 2010 年 05 月 01 日 22:41

很多都略懂而已。。。真的要报吗？

回复 ↓
Kiming 2010 年 05 月 01 日 22:44

是的！
你说略懂不经让我想起了越光宝盒的诸葛亮什么都是略懂略懂

C还是特别懂吧！！

回复 ↓
shindow 2010 年 05 月 03 日 16:50

你这个东西是运行在linux上的？

回复 ↓
~ 2010 年 05 月 10 日 14:31

写个c++的吧

回复 ↓
~ 2010 年 05 月 10 日 14:31

写个ｃ＋＋版本的吧

回复 ↓
Xiaoxia 2010 年 05 月 10 日 15:49

嗯，有需要的时候就会写的！

回复 ↓
小强 2011 年 02 月 22 日 21:55

我喜欢这软件！！！能加我qq吗？？？qq8481767！！！能把图标换一下吗？？？？文字能换中文的不？？？电信和联通的能连接不？？？？固定宽带能连接不？？？你这是安装包吗？？？

回复 ↓
1. Xiaoxia 文章作者2011 年 02 月 24 日 13:57
  
  这个软件是针对性的，针对使用广东移动无线网络的朋友。
  
  回复 ↓
键348454823 2011 年 04 月 04 日 01:42

大帝,我总算找到你了,我女友在佛山,她用的就是cmcc,但是,请看：（这是我在百度知道的提问）
机子是z460 网卡是althos的无线网络是中移动的cmcc
全宿舍都能用cmcc畅顺上网，就我的不太行！
症状：无线网络那里已经连接上cmcc，信号非常好，但在浏览器进入登陆页面时，每次起码刷新20次才能进入那个输入手机号码和密码的登陆页面（有时是页面出来了，可是不能输入，就是按那个输入的框框没反应，打不了字上去）。终于登录后，总是掉线，上个qq，一小时至少掉线5次！但其他人没事啊！
我已经采取的措施：更新无线网卡及网卡驱动。无线网卡属性～常规～TCP协议属性已经选择自动获得ip。尝试连接由无线路由器发射出的无线网络（宽带adsl）～是ok的。
但都解决不了cmcc上网的问题啊！

回复 ↓
1. Xiaoxia 文章作者2011 年 04 月 04 日 01:54
  
  你提到的问题很诡异，但是我可能帮不上忙。CMCC采用的是网页认证，你可以先连接上，然后试试ping一下这个IP地址221.179.9.18。你可以把结果贴上来，如果延时很小，无丢包，则说明不是硬件问题，有可能是操作系统配置有问题，否则就是硬件或者硬件驱动不兼容。
  仅供参考！
  
  回复 ↓
键348454823 2011 年 04 月 04 日 01:45

如果你知道解决方法，请联系我吧，万分感谢啊！！我也20，广警的。如果你不知道，可不可以帮我问问啊？谢谢了~~~！
Q：3484548**
email：jian3484548**@163.com

回复 ↓
1. Xiaoxia 文章作者2011 年 04 月 04 日 02:00
  
  已经查收你的评论，注意保管你的个人信息。
  
  回复 ↓
lianyu 2011 年 04 月 05 日 15:38

哈哈，虾哥，这个CMCC的是有客户端下载的，不用在网页上登录，我学校的CMCC还是免费的，到时收费合理的话我也开个套餐

回复 ↓
1. Xiaoxia 文章作者2011 年 04 月 05 日 17:03
  
  没广告的客户端？ Linux版本有没有？
  我准备停掉我的CMCC套餐。
  
  回复 ↓
  1. lianyu 2011 年 04 月 05 日 17:17
    
    8知道，反正我不用，我的都自动登录的，
    
    回复 ↓
野兔 2011 年 04 月 05 日 16:36

小虾，你好！
我一名中专学生，对游戏编程比较感兴趣
但一直不知从何下手。
看到你写的游戏后感觉你狠厉害
所以来问下你对初学者有什么建议吗？
谢谢

回复 ↓
1. Xiaoxia 文章作者2011 年 04 月 05 日 17:04
  
  你留言的地方搞错了？？？你是说哪个游戏？？？什么类型的游戏？？？
  你学游戏编程的？？？
  
  回复 ↓
  1. 野兔 2011 年 04 月 07 日 13:26
    
    不好意思，我不知道在哪留言。就是那个集钻石游戏。我下了你的源代码，在c free下编译，不过提示说缺少 allegro.h 我查了下，不过关于allegro的信息蛮少的。可以告诉怎么使用那个库吗？谢谢
    
    回复 ↓
    1. Xiaoxia 2011 年 04 月 07 日 15:35
      
      你用google搜索allegro library就可以找到官网了:)
      
      回复 ↓
海子 2011 年 06 月 21 日 22:00

如今的CMCC有验证码了……求C#开发一新的程序

回复 ↓
1. Xiaoxia 文章作者2011 年 06 月 21 日 22:55
  
  哪个省的
  
  回复 ↓
  1. 海子 2011 年 06 月 22 日 02:44
    
    SICHUAN
    
    回复 ↓
darren 2011 年 09 月 26 日 09:18

求源码。。。发我邮箱[email protected]

回复 ↓
1. Xiaoxia 文章作者2011 年 09 月 26 日 11:05
  
  现在cmcc的系统更新了，应该不能使用了吧？因为这个软件我也很久没有更新了。
  
  回复 ↓
  1. darren 2011 年 09 月 26 日 15:06
    
    麻烦您源码发给我哈。。。。
    我想参考下，虽然我不懂VB。。。
    有时间用C++给写个么！
    
    谢谢啦！
    
    回复 ↓
    1. Xiaoxia 文章作者2011 年 09 月 26 日 17:14
      
      这篇文章有下载链接呀，里面有源代码的，是vb写的。
      如果你了解了http协议，你也可以写一个的。
      用python写应该蛮简单的～～～
      
      回复 ↓
      1. darren 2011 年 09 月 27 日 09:52
        
        谢谢
        
        回复 ↓
darren 2011 年 09 月 26 日 09:25

好牛，有时间写个C++的版本么!

回复 ↓
Qzi 2011 年 10 月 05 日 12:59

好牛，佩服你，现在不是需要验证码了吗？

回复 ↓
1. Xiaoxia 文章作者2011 年 10 月 06 日 00:58
  
  地区的吧。广东的没有，网页自带自动登录。
  
  回复 ↓
yu 2011 年 10 月 11 日 11:06

请教一下，网络协议从哪里入手学习比较好？

回复 ↓
黄枫叶 2011 年 11 月 14 日 19:06

我用的是CMCC-edu的，不知道怎么改

回复 ↓
1. Xiaoxia 文章作者2011 年 11 月 14 日 22:27
  
  看省份的，你是哪个省的？
  
  回复 ↓
  1. 黄枫叶 2011 年 11 月 15 日 14:39
    
    广西桂林
    
    回复 ↓
2. kuzy 2012 年 07 月 29 日 14:13
  
  你好,可以将你的E语言源码公开下吗?VB不怎么看的懂…谢谢了.
  QQ:492859466
  
  回复 ↓
泡泡 2011 年 12 月 15 日 00:16

CMCC-edu成功找到验证码地址···99%正确识别

回复 ↓
paopao~ 2011 年 12 月 15 日 01:54

面对地址加密怎么办？

回复 ↓
山巅浪人 2012 年 02 月 25 日 21:48

wlanacip是DNS，wlanuserip获取的IP,但是wlanacname 这个参数是什么，如何获得这个参数？不会VB，没看明白你的代码

回复 ↓
1. Xiaoxia 文章作者2012 年 02 月 26 日 02:04
  
  我当时没有研究过这些参数的含义。只是根据正常的登录流程发送http请求。
  Sorry for my VB代码。
  
  现在很少用Win7，所以现在如果我有需要的话，可能会用python写一个。另外可能用java写一个给手机用，哈哈！
  
  回复 ↓
ya shion 2012 年 05 月 12 日 22:02

太谢谢你了，我用易语言实现了，感谢你公开你的源码

回复 ↓
1. 泡泡 2012 年 07 月 28 日 15:36
  
  您好！你怎么样使用易语言实现的也是POST方式？请看到后直接回复本楼
  
  回复 ↓
2. kuzy 2012 年 07 月 29 日 14:15
  
  你好,可以将你E语言的源码发我一下么,谢谢了~虾哥的VB不怎么看的懂…谢谢了~
  QQ:492859466
  
  回复 ↓
kuzy 2012 年 07 月 29 日 14:15

你好,可以将你E语言的源码发我一下么,谢谢了~虾哥的VB不怎么看的懂…谢谢了~
QQ:492859466

回复 ↓
xc 2012 年 11 月 10 日 17:29

我是来挖坟的~~哈哈看你以前的文章，真是大牛啊！

以前写了个江苏CMCC-EDU的登录程序，不过是易语言。。。

等闲下来了想学python了~~

回复 ↓
1. Xiaoxia 文章作者2012 年 11 月 16 日 12:12
  
  python是个好东西！
  
  回复 ↓
高茶 2017 年 10 月 18 日 22:48

我觉得我需要你

回复 ↓