注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Dynamic --刘文彬

One For All All For One

 
 
 

日志

 
 

vb实现免费的短信发送——借用网页版的飞信平台  

2014-04-05 14:11:22|  分类: vb与数据库 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
                            不怕不会做,不怕它多难,就怕你不敢想!
        对于自己想要做的这个软件,其实总的说来是挺简单的!主题是时间管理,说白就一日历嘛!想法也是从谷歌日历的使用体验得来的。免费贴心的定时短信提醒、让你再也不用烦恼自己偶尔的没记性!人性化的倒计时闹钟提醒功能!督促你对自己的工作和学习有条不紊的进行着。。。。还有。。。。(更多精彩。。。咱们作品展览和评选再见吧!呵呵)
听起来是挺简单,但是,这个实现过程真的很不容易啊!共享一些经验和成果吧!
原理简介:利用抓包工具通过抓取网页版飞信的登录数据包,进行分析,得出通讯的数据包的格式。然后,利用vb写成代码与网页版的飞信服务器进行通信,实现vb版网页飞信的登录!
名词解释:
Data:与服务器进行通信的格式。通过抓包工具分析后获得。
Url:需要登录的目标地址
GetCheckCode:获取登录验证码图片

Private Sub Loging_Click() 
Dim Url As String 
  Dim Data As String 
  Dim Str As String 
  Dim ACC As Byte 
 Url = "https://webim.feixin.10086.cn/WebIM/Login.aspx" 

 Data = "AccountType=" & ACC & "&OnlineStatus=" & IIf(UserHide.Value = 1, 0, 400) & "&Pwd=" & TextPass & "&UserName=" & TextUser 
 
If InpVcode Then Data = Data & "&Ccp=" & TextVcode Str = PostData(Url, Data, responseText)
Debug.Print 
Str Select Case Val(Mid(Str, 7)) 
Case 200 
 MsgBox "成功连接至飞信服务器!", 64, "提示" 
 
Dim nLen As Long 
 Dim sBuff As String * 4096 nLen = 1024 
 '=============获取cookies=========
         On Error Resume Next
 InternetGetCookie "https://webim.feixin.10086.cn/WebIM/", vbNullString, sBuff, nLen SSID = Mid(sBuff, InStr(sBuff, "webim_sessionid") + 16) SSID = Left(SSID, InStr(SSID, ";") - 1) USERID = Mid(sBuff, InStr(sBuff, "_wallid") + 8) USERID = Left(USERID, InStr(USERID, Chr(0)) - 1) USERID = Left(USERID, InStr(USERID, ";") - 1) 
  Me.Hide 
  MSGForm2.Show 
  Unload Me 
Case 312 TextUser.Enabled = False TextPass.Enabled = False TextVcode.Enabled = True 
  TextVcode.Text = ""
 InpVcode = True
 GetCheckCode "https://webim.feixin.10086.cn/WebIM/GetPicCode.aspx?Type=ccpsession&" & GetRnd(17), App.Path & "\Vcode.bmp", Picture1 

Case 999 
 MsgBox "本次登陆需要输入验证码!", 64, "提示" 
 TextUser.Enabled = False 
 TextPass.Enabled = False 
 TextVcode.Enabled = True 
 TextVcode.Text = "" 
 TextVcode.SetFocus
 InpVcode = True 
 GetCheckCode "https://webim.feixin.10086.cn/WebIM/GetPicCode.aspx?Type=ccpsession&" & GetRnd(17), App.Path & "\Vcode.bmp", Picture1 

Case Else 
  MsgBox "登陆失败,未知原因!", 16, "提示" 
End Select

到此,这就是整个程序最核心的代码之一了——登录服务器的过程。

  评论这张
 
阅读(134)| 评论(65)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017