精易论坛

标题: 求网页版微信收发文件源码 [打印本页]

作者: Lucase 时间: 2016-6-25 15:16
标题: 求网页版微信收发文件源码
最好是这种，感谢帮助。

QQ图片20160625151516.png (10.75 KB, 下载次数: 11)

作者: Lucase 时间: 2016-6-25 15:20
红圈内是自己输入的，原先的源码只能发送文字信息，现在需要改成能够发指定的文件。

作者: 2317909768 时间: 2016-6-25 16:32
请移步到此处：http://125.confly.eu.org/forum.php?mod= ... rray&sortid=214

作者: Lucase 时间: 2016-6-25 16:38

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

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

作者: Lucase 时间: 2016-6-25 16:52
.版本 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 时间: 2016-6-25 16:54

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

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

作者: sdd113 时间: 2016-6-25 17:08
楼主能分享下发送信息的源码？？提交信息中的{"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):
如果可以的话，希望各位分享下，我邮箱 [email protected]

作者: wud888 时间: 2016-6-25 17:19

学习学习！

作者: Lucase 时间: 2016-6-25 20:42

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

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

作者: sdd113 时间: 2016-6-25 22:10

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

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

作者: Lucase 时间: 2016-6-25 23:20
用精易模块，另外一个json的文件复制的对应e安装目录下。亲测可用

作者: wan942182718 时间: 2016-6-26 00:02

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

{"BaseRequest":{"Uin":[Uin],"Sid":"[Sid]","Skey":"[Skey]","DeviceID":"e990796762207973"},"Msg":{"Type":1,"Content":"[msg]","FromUserName":"[from]","ToUserName":"[to]","LocalID":"[MsgId]","ClientMsgId":"[MsgId]"},"Scene":0}

《LocalID js里》(utilFactory.now() + Math.random().toFixed(3)).replace(".", "")

作者: 相遇在转角 时间: 2016-6-26 00:11
学习学习！好强大

作者: Lucase 时间: 2016-6-27 08:43

相遇在转角发表于 2016-6-26 00:11
学习学习！好强大

谢谢顶贴谢谢顶贴~

作者: Lucase 时间: 2016-6-27 14:32
坐等7天撤销了

作者: Lucase 时间: 2016-6-28 16:11
能够发送文字信息的已经可以了，发送图片的还有问题。第一个解决的另发50元红包。

微信.zip

1.34 MB, 下载次数: 43, 下载积分: 精币 -2 枚

作者: Lucase 时间: 2016-6-29 10:49
自己顶贴啊啊啊

作者: lcz10121012 时间: 2017-2-5 13:11

收下了。。。

作者: sq8422779 时间: 2017-3-26 20:40
楼主解决了吗???

作者: 匿名 时间: 2017-12-27 16:26
"LocalID":"14668439847934382","ClientMsgId":"14668439847934382"

.版本 2

Text ＝到文本 (时间_转换Unix时间 ())
返回 (Text ＋ GetIntText (4))

.版本 2
.支持库 spec

.子程序 GetIntText, 文本型
.参数长度, 整数型, 可空
.局部变量 x, 整数型
.局部变量 B, 文本型

.如果真 (长度＝ 0)
长度＝ 16
.如果真结束
置随机数种子 ()
.计次循环首 (长度, )
x ＝取随机数 (0, 9)
B ＝取文本 (“%s%s”, B, x)
.计次循环尾 ()
返回 (B)

作者: kingxushao 时间: 2017-12-27 16:27
.版本 2
.支持库 spec

.子程序 _To_Message_
.参数 Type, 整数型
.参数 Content, 文本型
.参数 UserName, 文本型
.局部变量 Time, 文本型
.局部变量 Text, 文本型

Time ＝ Time_Add ()
Dev_ ＝ “e” ＋ GetIntText (15)
Text ＝ PostHttp (取文本 (“https://%scgi-bin/mmwebwx-bin/webwxsendmsg?lang=zh_CN&pass_ticket=%s”, Url_, Ket_), 取文本 (“{`BaseRequest`:{`Uin`:%s,`Sid`:`%s`,`Skey`:`%s`,`DeviceID`:`%s`},`Msg`:{`Type`:%s,`Content`:`%s`,`FromUserName`:`%s`,`ToUserName`:`%s`,`LocalID`:`%s`,`ClientMsgId`:`%s`},`Scene`:0}”, Uid_, Sid_, Key_, Dev_, Type, Content, UserNameKey_, UserName, Time, Time))

.版本 2

.子程序 Time_Add, 文本型
.局部变量 Text, 文本型

Text ＝到文本 (时间_转换Unix时间 ())
返回 (Text ＋ GetIntText (4))

.版本 2
.支持库 spec

.子程序 GetIntText, 文本型
.参数长度, 整数型, 可空
.局部变量 x, 整数型
.局部变量 B, 文本型

.如果真 (长度＝ 0)
长度＝ 16
.如果真结束
置随机数种子 ()
.计次循环首 (长度, )
x ＝取随机数 (0, 9)
B ＝取文本 (“%s%s”, B, x)
.计次循环尾 ()
返回 (B)

作者: kingxushao 时间: 2017-12-27 16:35

作者: kingxushao 时间: 2017-12-28 22:07

作者: wyd168 时间: 2024-7-2 14:15
全部解决了吗，是怎么解决的啊

欢迎光临精易论坛 (https://125.confly.eu.org/)