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

kingxushao

.版本 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

kingxushao

wyd168

全部解决了吗，是怎么解决的啊