最新版无验码的如何自动发飞信？

lqh123108

    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "https://webim.feixin.10086.cn/login.aspx"
        Do Until .ReadyState = 4
            DoEvents
        Loop

    End With
能够登录进去。。

但里面的联系人等无法自动录入。。请

kangatang

自动发飞信，用来做什么呢？我已经开始动手分析了，为此而注册了一个账号，以前重来不用飞信。

kangatang

哈哈，初步搞定。转码部分还没做。

kangatang

谁有飞信账号，测试一下，现在发给自己没问题了。VBS版，excel班都做了，登录有时候要输入验证码，不过是人工识别。

kangatang

想想还是传上来吧。也没什么技术含量。相对来说说简单的有点意外。
先传个VBS版的，源码全公开。
http://club.excelhome.net/thread-994782-1-1.html
feixin-kangatang.zip (921 Bytes, 下载次数: 73)

2013-3-21 00:43 上传

点击文件名下载附件

msg = InputBox("输入发送内容","输入" , "", 10000, 8500)
If msg = "" then wscript.quit
inputtext = InputBox("用户名和密码以" & Chr(34) & "/" & Chr(34) & "分开" & Chr(10) & "举例：用户名/密码", "请输入用户名和密码", "13588888888/123456", 10000, 8500)
If inputtext = "" Then wscript.quit
UName = Trim(Split(inputtext, "/")(0))
psw = Trim(Split(inputtext, "/")(1))
Set XML = CreateObject("Msxml2.XMLHTTP.5.0") ' ("WinHttp.WinHttpRequest.5.1") '
With XML
     .Open "POST", "https://webim.feixin.10086.cn/WebIM/Login.aspx", False
     .setRequestHeader "Referer", "https://webim.feixin.10086.cn/login.aspx"
     .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
     .Send "UserName=" & UName & "&Pwd=" & psw & "&OnlineStatus=400&AccountType=1"
      ckvalue = Split(Split(.getallResponseHeaders(), "webim_sessionid=")(1), ";")(0)
      myself = left(ckvalue, 10)
      receiver = myself
End With

With XML
     .Open "POST", "https://webim.feixin.10086.cn/content/WebIM/SendSMS.aspx?Version=18", False
     .setRequestHeader "Referer", "https://webim.feixin.10086.cn/content/freeSms.htm?tabIndex=0"
     .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
     .Send "UserName=" & myself & "&Message=" & encodeURI(msg) & "&Receivers=" & receiver & "&ssid=" & ckvalue
End With
Set XML= Nothing

Private Function encodeURI(becoded)
    Set JS = CreateObject("msscriptcontrol.scriptcontrol")
    JS.Language = "JavaScript"
    encodeURI = JS.Eval("encodeURIComponent('" & becoded & "');")
End Function

lqh123108

kangatang 发表于 2013-3-21 00:44
想想还是传上来吧。也没什么技术含量。相对来说说简单的有点意外。
先传个VBS版的，源码全公开。
http:// ...

呵呵,非常感谢!只是实在不知道你是怎么做的,我在HTML找了半天,都不知道怎么操作..

kangatang

lqh123108 发表于 2013-3-21 12:04
测试了,没有收到飞信呀?不知道为什么..

在登陆时如果服务器认为你的账号存在风险，它会叫你输验证码。我在EXCEL版本中已经添加这个验证码手工输入的功能，但VBS简版里面没有。

lqh123108

kangatang 发表于 2013-3-21 12:08
在登陆时如果服务器认为你的账号存在风险，它会叫你输验证码。我在EXCEL版本中已经添加这个验证码手工输入 ...

EXCEL版本,在哪呀,?另外..
发其它人怎么改..?

再次感谢

kangatang

lqh123108 发表于 2013-3-21 12:12
EXCEL版本,在哪呀,?另外..
发其它人怎么改..?

自己看吧。receiver = ...

sunsoncheng

还是请楼主发个E版吧?

一些引用的文件也一并发来最好,可能版本会使人做不了

现在还有真有点急用呢!