perl weixin webwxsync

来源：互联网发布：网络摄像头控制器编辑：程序博客网时间：2024/04/30 08:34
$d->{SyncKey}获取SyncKey:"SyncKey": {"Count": 4,"List": [{"Key": 1,"Val": 646983053},{"Key": 2,"Val": 646983346},{"Key": 3,"Val": 646983193},{"Key": 1000,"Val": 1453944525}]}$m is HASH(0x2ecab28)$VAR1 = {          'List' => [                      {                        'Val' => 646985714,                        'Key' => 1                      },                      {                        'Val' => 646985724,                        'Key' => 2                      },                      {                        'Val' => 646985723,                        'Key' => 3                      },                      {                        'Val' => 1454124263,                        'Key' => 1000                      }                    ],          'Count' => 4        };@xa is ARRAY(0x2ecaed0)$VAR1 = [          {            'Val' => 646985714,            'Key' => 1          },          {            'Val' => 646985724,            'Key' => 2          },          {            'Val' => 646985723,            'Key' => 3          },          {            'Val' => 1454124263,            'Key' => 1000          }        ];$d->{SyncKey}->{List}https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsync?sid=7g5I6aWSk3JmBuAP&skey=@crypt_597aeefd_0fa59284843b8203b2ae09d7b69c3d76&lang=zh_CN&pass_ticket=WSDTQWyUgQ0OsYtaitxnGCkwGcPC4M%252BF7gAiuoLz186hRkbfwSKFQQ61Bx4lx7R0JSONBaseRequest   Object { Uin=1284510822,  Sid="7g5I6aWSk3JmBuAP",  Skey="@crypt_597aeefd_0fa59284843b8203b2ae09d7b69c3d76",  更多...}DeviceID     "e161070198639509"Sid         "7g5I6aWSk3JmBuAP"Skey        "@crypt_597aeefd_0fa59284843b8203b2ae09d7b69c3d76"Uin         1284510822SyncKey     Object { Count=4,  List=[4]}Count       4List       [Object { Key=1,  Val=646985714}, Object { Key=2,  Val=646985715}, Object { Key=3,  Val=646985696}, Object { Key=1000,  Val=1454124263}]0          Object { Key=1,  Val=646985714}Key        1Val       6469857141          Object { Key=2,  Val=646985715}Key         2Val     6469857152          Object { Key=3,  Val=646985696}Key         3Val         6469856963           Object { Key=1000,  Val=1454124263}Key         1000Val        1454124263rr         1867569674perl:$sync_url="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsync?sid=$wxsid&skey=$Skey&lang=zh_CN&pass_ticket=$pass_ticket";  my @query_string = (        sid     => $wxsid,        skey    => $Skey,        r       => $now,        pass_ticket =>$pass_ticket    );    my $post = {        BaseRequest =>  {Uin => $wxuin,Sid=>$wxsid},        SyncKey     =>  $m->{List},        rr          =>  $now    };use JSON qw(encode_json);$json_string = encode_json($post);my $req = HTTP::Request->new('POST' => $sync_url,[  'lang'=>'zh_CN', 'pass_ticket'=>"$pass_ticket",'sid'=>$wxsid,'skey'=>$Skey]);
0 0