求网页版微信收发文件 源码

Lucase

最好是这种，感谢帮助。

Lucase

红圈内是自己输入的，原先的源码只能发送文字信息，现在需要改成能够发指定的文件。

2317909768

请移步到此处：http://bbs.125.la/forum.php?mod= ... rray&sortid=214

Lucase

2317909768 发表于 2016-6-25 16:32
请移步到此处：http://bbs.125.la/forum.php?mod=post&action=newthread&fid=169&extra=Array&sortid=214

其他功能都可以了，只是发送文件的功能没实现。没必要去定制区吧？？？？

Lucase

.版本 2
.支持库 json

.子程序 SendMsg, 逻辑型, 公开, 发送消息
.参数 Msg, 文本型
.参数 tousername, 文本型
.局部变量 https, WinHttp
.局部变量 Content, 文本型
.局部变量 time, 文本型
.局部变量 Str, 文本型
.局部变量 json, JSON
.局部变量 json1, JSON

deviceid ＝ “e” ＋ Strin.RandomInt (15)
time ＝ Strin.TimeStamp () ＋ Strin.RandomInt (4)
json.解析 (“”)
json1.解析 (“”)
json1.置属性 (“Uin”, 到长整数 (wxuin))
json1.置属性 (“Sid”, wxsid)
json1.置属性 (“Skey”, Skey)
json1.置属性 (“DeviceID”, deviceid)
json.置属性 (“BaseRequest”, json1)
json1.解析 (“”)
json1.置属性 (“Type”, 1)
json1.置属性 (“Content”, Msg)
json1.置属性 (“FromUserName”, UserName)
json1.置属性 (“ToUserName”, tousername)
json1.置属性 (“LocalID”, time)
json1.置属性 (“ClientMsgId”, time)
json.置属性 (“Msg”, json1)
Content ＝ json.到文本 ()
https.FillHeader (假)
https.Open (“POST”, “https://” ＋ DomainName ＋ “/cgi-bin/mmwebwx-bin/webwxsendmsg?lang=zh_CN&pass_ticket=” ＋ pass_ticket)
https.SetRequestHeader (“Content-Type”, “application/json; charset=utf-8”)
https.SetRequestHeader (“Accept”, “application/json, text/plain, */*”)
https.SetRequestHeader (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64; rv:40.0) Gecko/20100101 Firefox/40.0”)
https.SetRequestHeader (“Referer”, “https://” ＋ DomainName ＋ “/cgi-bin/mmwebwx-bin/webwxindex?t=v2”)
https.SetRequestHeader (“Cookie”, Cookie)
https.Send (Ecode.GB2312ToUtf8 (Content))
Coke.Merge (Cookie, https.GetResponseCookie ())
Str ＝ https.GetResponseText ()
json.解析 (Str)
.如果真 (到整数 (json.取属性 (“BaseRequest”).取通用属性 (“Ret”)) ＝ 0)
    返回 (真)
.如果真结束
返回 (假)

Lucase

18763680303 发表于 2016-6-25 16:52
.版本 2
.支持库 json

以上为代码部分，只能发送文字，不能发送文件。ps：代码不是本人写的

sdd113

楼主能分享下发送信息的源码？？提交信息中的{"BaseRequest":{"Uin":2788176035,"Sid":"hKxHKSWM/sqOHJ7S","Skey":"@crypt_83f43eee_e1c13860bad5631369f4e03724f4190a","DeviceID":"e045952059762838"},"Msg":{"Type":1,"Content":"鐖变笂","FromUserName":"@4468c9230ed20fbe5e1254e392646bf2ded6fbe348d2448b03e0fda550e453bb","ToUserName":"@a4db99600f863697783bdc034a459f6156a78d4156110298566c824c1b11863a","LocalID":"14668439847934382","ClientMsgId":"14668439847934382"},"Scene":0}

补充内容 (2016-6-25 17:08):
提交信息中的localid和clientmsgid不知怎么来的

补充内容 (2016-6-25 17:09):
如果可以的话，希望各位分享下，我邮箱 1131604906@qq.com

wud888

学习学习！

Lucase

sdd113 发表于 2016-6-25 17:08
楼主能分享下发送信息的源码？？提交信息中的{"BaseRequest":{"Uin":2788176035,"Sid":"hKxHKSWM/sqOHJ7S", ...

可以论坛搜索微信，需要我发的话的周一，

sdd113

18763680303 发表于 2016-6-25 20:42
可以论坛搜索微信，需要我发的话的周一，

我找到了一个，和你上面发的那个代码一样，但是他的回复好像是失效了