• perl weixin 发消息接口 webwxsendmsg


    https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsendmsg?
    pass_ticket=LgzXT2VkpsFT%252FpgOQoJUZ%252FcBrY%252F1RO8zvbXib05ziwNgFttMTFR5G7%252BWj%252BlcvCjm
    
     参数:
     pass_ticket	
    LgzXT2VkpsFT%2FpgOQoJUZ%2FcBrY%2F1RO8zvbXib05ziwNgFttMTFR5G7%2BWj%2BlcvCjm
    
    JSON
    		
    BaseRequest 	Object { Uin=1284510822,  Sid="IvODOegBxPbn5DK0",  Skey="@crypt_597aeefd_c01758824aecf562fa503f0193661936",  更多...}
    	
    DeviceID        "e757855267974791"
    	
    Sid             "IvODOegBxPbn5DK0"
    	
    Skey          "@crypt_597aeefd_c01758824aecf562fa503f0193661936"
    	
    Uin            1284510822
    	
    Msg           Object { Type=1,  Content="123321
    ",  FromUserName="@ac70997927658eaa24f3097...772f1ba589c4f4c86c2295e",  更多...}
    	
    ClientMsgId   "14543293473520801"
    	
    Content         "123321
    "
    	
    FromUserName   "@ac70997927658eaa24f3097cb790706ad02856922772f1ba589c4f4c86c2295e"
    	
    LocalID        "14543293473520801"
    	
    ToUserName       "@@07034869d887c29328b15e4c936c2f3aacb31913aa4459299039e511917e5f9c"
    	
    Type                1
    
    响应:
    
    {
    "BaseResponse": {
    "Ret": 0,
    "ErrMsg": ""
    }
    ,
    "MsgID": "3548092251443470603",
    "LocalID": "14543293473520801"
    }
    
    自己的id:
    $name is 赵杨健
    @d8a5071860979ab100e485a6365994032039be042bca5572deceebb62ebb0023
    
    
    "MsgId": "5302444547250060967",
    "FromUserName": "@d8a5071860979ab100e485a6365994032039be042bca5572deceebb62ebb0023",
    "ToUserName": "@@42ee01046cf26491aaac90044ce750781101426ab36e87dba68438603630db40",
    
    
    @52f7a87a830bc2f3df8ea90e920dc2e0:<br/>换不换
    $synckey  is 1_647230079%7C2_647230581%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454332053%7C1000_1454326875 
    {
    "BaseResponse": {
    "Ret": 1,
    "ErrMsg": ""
    }
    ,
    "MsgID": "",
    "LocalID": ""
    }
    
    $FromUserName=$d->{AddMsgList}->[0]->{FromUserName};
    $ToUserName=$d->{AddMsgList}->[0]->{ToUserName};
    print "1--------$FromUserName is $FromUserName
    ";
    print "2--------$ToUserName is $ToUserName
    ";
    if ($FromUserName eq $UserName){print "you is you";}
    else 
    {&send_sms('test-jj',$ToUserName,$UserName)}
    
    sub send_sms {
    ($msg,$ToUserName,$FromUserName)=@_;
    
    
    
    
    
    $synckey  is 1_647230079%7C2_647230728%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454335033%7C1000_1454326875 
    1--------$FromUserName is @8634eb9267bf2e198c3f0b844dfbd3da730c0e64fa7aa64fa06a883bb2868b6f
    2--------$ToUserName is @@57269149f6282bb4baa706820b069b82a91b97b3114677d99aa6ac37c128dc2b
    
    
    
    
    
    
    
    
    
    自己说话:
    
    我的人生
    $synckey  is 1_647230079%7C2_647230677%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454333953%7C1000_1454326875 
    1--------$FromUserName is @@75d0bdd1622a44912ac3050a1b16c6bf67af7c17b0bf8eaa27d200cf09afa21b
    2--------$ToUserName is @fb4e5ff4794d061cce9bbb99bbcf8c396e5493cf265cb8e0824003dcbf9f3a18
    $msg is test-jj
    $FromUserName is @fb4e5ff4794d061cce9bbb99bbcf8c396e5493cf265cb8e0824003dcbf9f3a18
    $ToUserName is @@75d0bdd1622a44912ac3050a1b16c6bf67af7c17b0bf8eaa27d200cf09afa21b
    
    
    
    自己说话;
    $name is 赵杨健
    @a708c1978e2d2fc584a637480b509d68486845309d37f9c8e282d0feef060291
    
    test
    $synckey  is 1_647230079%7C2_647230681%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454334112%7C1000_1454326875 
    1--------$FromUserName is @@57759ba559ee6ab6ccdfac0d917500c372a06a8ce6094234e60e0dea3d979e3a
    2--------$ToUserName is @a708c1978e2d2fc584a637480b509d68486845309d37f9c8e282d0feef060291
    you is you$url is https://webpush.weixin.qq.com/cgi-bin/mmwebwx-bin/synccheck?r=1454334112&skey=%40crypt_597aeefd_17c21e34a2ff10bc14cd12c901f347f1&sid=eN2J89u/EwtyjQav&uin=1284510822&deviceid=e879548824239511&synckey=1_647230079%7C2_647230681%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454334112%7C1000_1454326875&_=1454334112
    
    从群给我发信息:
    
    
    
    
    
    在重写微信
    $synckey  is 1_647230079%7C2_647230705%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454334401%7C1000_1454326875 
    1--------$FromUserName is @@9c5b5666aa80d6d94392654a69469e59a3c9bb4c33e92dd23b7ac024b1d9b5d5
    2--------$ToUserName is @ca62d03dde20dcd58d8b314ed761b82ee30142978f57f551f68f894b7d79ba00
    you is you$url is https://webpush.weixin.qq.com/cgi-bin/mmwebwx-bin/synccheck?r=1454334402&skey=%40crypt_597aeefd_87176a264dcafa8e4af3dec0b2b8e995&sid=ftP4g3pKJq1h7IN9&uin=1284510822&deviceid=e049751066989796&synckey=1_647230079%7C2_647230705%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454334401%7C1000_1454326875&_=1454334402
    
    
    
    $FromUserName=$d->{AddMsgList}->[0]->{ToUserName};
    $ToUserName=$d->{AddMsgList}->[0]->{FromUserName};
    
    
    sub send_sms {
    ($msg,$ToUserName,$FromUserName)=@_;
    
    
    
    
    
    
    
    
    
    
    
    $name is 赵杨健
    @5871b11edd3c1a0a5d9357633b70ef7a51805a5c8e7ff7552101348dc1f4f318
    
    你们都是perl群的?
    $synckey  is 1_647230079%7C2_647230744%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454335509%7C1000_1454326875 
    1--------$FromUserName is @5871b11edd3c1a0a5d9357633b70ef7a51805a5c8e7ff7552101348dc1f4f318
    2--------$ToUserName is @@3c7bd76b3801dc2e78833c6e0325ab9eae4e934467e3cca2383f8971419bb73a
    
    
    
    @95fd470b4828b30a532807afe90d35d8:<br/>哦哦
    $synckey  is 1_647230079%7C2_647230753%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454335716%7C1000_1454326875 
    1--------$FromUserName is @@3c7bd76b3801dc2e78833c6e0325ab9eae4e934467e3cca2383f8971419bb73a
    2--------$ToUserName is @5871b11edd3c1a0a5d9357633b70ef7a51805a5c8e7ff7552101348dc1f4f318
    $msg is test-jj
    $FromUserName is @5871b11edd3c1a0a5d9357633b70ef7a51805a5c8e7ff7552101348dc1f4f318
    $ToUserName is 
    
    
    $FromUserName=$d->{AddMsgList}->[0]->{FromUserName};
    $ToUserName=$d->{AddMsgList}->[0]->{ToUserName};
    print "1--------$FromUserName is $FromUserName
    ";
    print "2--------$ToUserName is $ToUserName
    ";
    if ($FromUserName eq $UserName){print "you is you";}
    else 
    {&send_sms('test-jj',$ToUserName,$UserName)}
    
    
    sub send_sms {
    ($msg,$ToUserName,$FromUserName)=@_;
    print "$msg is $msg
    ";
    print "$FromUserName is $FromUserName
    ";
    print "$ToUserName is $ToUserName
    ";
    
    
    
    }
    还在调试
    $synckey  is 1_647230763%7C2_647230776%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454336324%7C1000_1454326875 
    1--------$FromUserName is @844eb186256b70ca02d0f8b52bf1f8fe82695014e0df813de9f0d3a5ce180b57
    2--------$ToUserName is @@b14c4806cdbdb3adbf9145010744f12c52005942299a19d216fc75e778db85d3
    
    你随便说句试试呢
    $synckey  is 1_647230763%7C2_647230779%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454336386%7C1000_1454326875 
    1--------$FromUserName is @844eb186256b70ca02d0f8b52bf1f8fe82695014e0df813de9f0d3a5ce180b57
    2--------$ToUserName is @@b14c4806cdbdb3adbf9145010744f12c52005942299a19d216fc75e778db85d3
    
    
    @d43e5e31b2e641057f5b0a7f891dab57:<br/>不能自动么
    $synckey  is 1_647230763%7C2_647230793%7C3_647230485%7C11_647230264%7C13_647230079%7C201_1454336480%7C1000_1454326875 
    1--------$FromUserName is @@b14c4806cdbdb3adbf9145010744f12c52005942299a19d216fc75e778db85d3
    2--------$ToUserName is @844eb186256b70ca02d0f8b52bf1f8fe82695014e0df813de9f0d3a5ce180b57
    $msg is test-jj
    $FromUserName is @844eb186256b70ca02d0f8b52bf1f8fe82695014e0df813de9f0d3a5ce180b57
    $ToUserName is @@b14c4806cdbdb3adbf9145010744f12c52005942299a19d216fc75e778db85d3
    

  • 相关阅读:
    Java的Set集合中的retainAll()方法
    蒲丰投针问题
    根据贝叶斯公式求解三门问题
    概率论公式(续)
    数字(number)
    寻找最美的你(select)
    木棍
    lowbit
    搜索题
    day7
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351038.html
Copyright © 2020-2023  润新知