开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

精易论坛»论坛 › 技术专区 › 问答求助 › 『VIP求助专区』 › 我要怎么用易语言连接哪几个函数对接上这个PHP机器人 ...
返回列表 发新帖
查看: 826|回复: 2
收起左侧

[已解决] 我要怎么用易语言连接哪几个函数对接上这个PHP机器人

 关闭 [复制链接]
ainiyugg
结帖率：50% (1/2)
发表于 2020-3-13 15:33:03 | 显示全部楼层 |阅读模式   广东省广州市
楼主结帖率: 50%  (1/2)
5精币
这个是php源码只“&str”这个对接不知道还要用那个函数与这个源码对接
<?php
global $_W, $_GPC;
         $cfg = $this->module['config'];
         include IA_ROOT . "/addons/tiger_newhu/inc/sdk/tbk/tb.php";
         $str=urldecode($_GPC['str']);
         $pid=$_GPC['pid'];
         
         if(!empty($pid)){
           $pidSplit=explode('_',$pid);
           $cfg['siteid']=$pidSplit[2];
           $cfg['adzoneid']=$pidSplit[3];
           $cfg['ptpid']=$pid;
           $cfg['qqpid']=$pid;
         }
         function fun2($str,$z){
            if (preg_match('/^'.$z.'(\S+)/sim', trim($str), $regs)) {
                $result = $regs[1];
            }
            return $result;
         }

         $ftype=$_GPC['type'];//  1 群   2个人机器人
         $str=str_replace("[emoji=EFBFA5]", "￥", $str);
         //$url="二维码网址";
        // $arr=strstr($str,"找");
         $arr=fun2($str,'找');
          //if($arr!==false){
            if(!empty($arr)){
                //$str=str_replace("找","",$str);
                $str=fun2($str,'找');
                $str=trim($str);
                //关键词查询
                 $tturl=$_W['siteroot'].str_replace('./','app/',$this->createMobileurl('cqlist',array('key'=>$str,'lm'=>1,'pid'=>$pid,'pic_url'=>'')));
                 $ddwz=$this->dwzw($tturl);
                 $newmsg=str_replace('#昵称#',$fans['nickname'], $cfg['newflmsgjqr']);
                 $newmsg=str_replace('#名称#',$str, $newmsg);
                 $newmsg=str_replace('#短网址#',$ddwz, $newmsg);
                 //$newmsg=str_replace('#二维码图片#',$url, $newmsg);
                 exit($newmsg);
                 //关键词查询结束
          }
   
          $arr=fun2($str,'搜索');
           if(!empty($arr)){
                $str=fun2($str,'搜索');
                $str=trim($str);
                //关键词查询
                 $tturl=$_W['siteroot'].str_replace('./','app/',$this->createMobileurl('cqlist',array('key'=>$str,'lm'=>1,'pid'=>$pid,'pic_url'=>'')));
                 $ddwz=$this->dwzw($tturl);
                 $newmsg=str_replace('#昵称#',$fans['nickname'], $cfg['newflmsgjqr']);
                 $newmsg=str_replace('#名称#',$str, $newmsg);
                 $newmsg=str_replace('#短网址#',$ddwz, $newmsg);
                 exit($newmsg);
                 //关键词查询结束
          }


         //处理信息
         $ck = pdo_fetch("SELECT * FROM ".tablename('tiger_newhu_ck')." WHERE weid = :weid", array(':weid' => $_W['uniacid']));
         $myck=$ck['data'];
         $tksign = pdo_fetch("SELECT * FROM " . tablename("tiger_newhu_tksign") . " WHERE  tbuid='{$cfg['tbuid']}'");
         
         
         $geturl=$this->geturl($str);
         //file_put_contents(IA_ROOT."/addons/tiger_newhu/log.txt","\n old:".$geturl,FILE_APPEND);         
         if(!empty($geturl)){
             $istao=$this->myisexists($geturl);
             if($istao==1){
                $goodid=$this->hqgoodsid($geturl);
                $turl="https://item.taobao.com/item.htm?id=".$goodid;
             }elseif($istao==2){
               $goodid=$this->mygetID($geturl);
               $turl="https://item.taobao.com/item.htm?id=".$goodid;
             }
            
            
             //file_put_contents(IA_ROOT."/addons/tiger_newhu/log.txt","\n old:".$turl,FILE_APPEND);
             //file_put_contents(IA_ROOT."/addons/tiger_newhu/log.txt","\n old:".$goodid,FILE_APPEND);
             if(!empty($goodid)){
               //$res=hqyongjin($turl,$myck,$cfg,$this->modulename);//链接  
               $res=hqyongjin($turl,$ck,$cfg,'tiger_newhu','','',$tksign['sign'],$tksign['tbuid'],$_W,2);  
             }   
         }
         function getyouhui2($str){
            preg_match_all('|(￥[^￥]+￥)|ism', $str, $matches);
            return $matches[1][0];
         }
         file_put_contents(IA_ROOT."/addons/tiger_newhu/log.txt","\n old:".$str,FILE_APPEND);      
         if(empty($goodid)){//淘口令
           $tkl=getyouhui2($str);
           file_put_contents(IA_ROOT."/addons/tiger_newhu/log.txt","\n old:".$tkl,FILE_APPEND);
           if(!empty($tkl)){
             //$res=hqyongjin($turl,$myck,$cfg,$this->modulename,$tkl,1); //淘口令
              $res=hqyongjin($turl,$ck,$cfg,'tiger_newhu',$tkl,1,$tksign['sign'],$tksign['tbuid'],$_W,2);
           }
         }
         //处理信息结束

       if(!empty($res['title'])){
        $str=trim($res['title']);
        //关键标题词查询
         $tturl=$_W['siteroot'].str_replace('./','app/',$this->createMobileurl('cqlist',array('key'=>$str,'lm'=>1,'pid'=>$pid,'pic_url'=>'')));
         $ddwz=$this->dwzw($tturl);
         $newmsg=str_replace('#昵称#',$fans['nickname'], $cfg['newflmsgjqr']);
         $newmsg=str_replace('#名称#',$str, $newmsg);
         $newmsg=str_replace('#短网址#',$ddwz, $newmsg);
         exit($newmsg);
         //关键词查询结束
       }
        //入库
             if(!empty($res['couponid'])){
                 $data=array(
                         'weid' => $_W['uniacid'],
                         'itemid'=>$res['num_iid'],//商品ID
                         'itemtitle'=>$res['title'],//商品名称
                         'itempic'=>$res['pictUrl'],//主图地址
                         'itemprice'=>$res['price'],//'商品原价',
                         'itemendprice'=>$res['qhjpric'],//商品价格,券后价
                         'tkrates'=>$res['commissionRate'],//通用佣金
                         'quan_id'=>$res['couponid'],//'优惠券ID',  
                         'couponmoney'=>$res['couponAmount'],//优惠券面额
                         'itemsale'=>$res['biz30day'],//月销售
                         //'taokouling'=>$res['taokouling'],//淘口令
                         //'lxtype'=>$res['qq'],
                         'couponendtime'=>strtotime($res['couponendtime']),//优惠券结束
                         'createtime'=>TIMESTAMP,
                     );
                 //file_put_contents(IA_ROOT."/addons/tiger_newhu/log.txt","\n123".json_encode($data),FILE_APPEND);
                $this->addtbgoods($data);
             }                     
             //入库结束
         



         
         
         if($cfg['yktype']==1){
                $rhyurl=$res['dcouponLink'];
                if(empty($rhyurl)){
                   if($res['qq']==1){
                       $rhyurl=$this->rhy($res['couponid'],$res['numid'],$cfg['qqpid']);
                     }else{
                       $rhyurl=$this->rhydx($res['couponid'],$res['numid'],$cfg['ptpid']);
                     }
                }
             }else{
                   if($res['qq']==1){
                       $rhyurl=$this->rhy($res['couponid'],$res['numid'],$cfg['qqpid']);
                     }else{
                       $rhyurl=$this->rhydx($res['couponid'],$res['numid'],$cfg['ptpid']);
                     }
             }
         
          $rhyurl=str_replace("http:","https:",$rhyurl);
          $taokouling=$this->tkl($rhyurl,$res['pictUrl'],$res['title']);
         
          //$taokou=$taokouling->model;
          //settype($taokou, 'string');
          //$taokouling=$taokou;   
           if(!empty($res['dtkl'])){
              if(empty($res['couponAmount'])){
                $erylj=$res['dshortLinkUrl'];
                $res['taokouling']=$res['dtkl'];
              }
            }
            $durl=$this->dwz($rhyurl);//短网址
         
         
         
             $content=array(
                'title'=>$res['title'],//名称
                'price'=>$res['price'],//商品折扣价格
                'zyhhprice'=>$res['zyhhprice'],//优惠后价格
                'zyh'=>$res['zyh'],//优惠金额
                'ehyurl'=>$rhyurl,//二合一链接
                'couponAmount'=>$res['couponAmount'],//优惠券金额
                'flyj'=>number_format($res['flyj'],2),//自购佣金
                'taokouling'=>$taokouling,//淘口令
                'couponid'=>$res['couponid'],//优惠券ID
                'couponendtime'=>$res['couponendtime'],//优惠券到期时间
                'numid'=>$res['numid'],//商品ID
                'pictUrl'=>$res['pictUrl'],
                'qq'=>$res['qq'], //1鹊桥 0定向普通
            );
            if($cfg['fxtype']==1){
              $fxje=round($content['flyj']);
            }else{
              $fxje=$content['flyj'];
            }
            $picurl="http:".$res['pictUrl'];
            $msg=str_replace('#名称#',$content['title'],  $cfg['jqrflmsg']);
            $msg=str_replace('#原价#',$content['price'], $msg);
            $msg=str_replace('#图片#',$picurl, $msg);
            $msg=str_replace('#惠后价#',$content['zyhhprice'], $msg);
            $msg=str_replace('#券后价#',$res['qhjpric'], $msg);
            $msg=str_replace('#总优惠#',$content['zyh'], $msg);
            if(empty($content['couponAmount'])){
              $content['couponAmount']='该商品暂无优惠券';
            }
            $msg=str_replace('#优惠券#',$content['couponAmount'], $msg);
            $msg=str_replace('#返现金额#',$fxje, $msg);
            if($ftype==1){
              $msg.="[lj1]".$rhyurl."[lj2]";
              $msg.="[bt1]".$content['title']."[bt2]";
            }else{
               $msg=str_replace('#淘口令#',$content['taokouling'], $msg);//这里放到软件上面执行
               $msg=str_replace('#短网址#',$durl, $msg);
            }
            
            
            //exit('aaa');
            if(empty($taokouling)){
               //exit(urldecode(json_encode(array('error' =>1, 'content' =>urlencode($res['error'])))));
               exit($res['error']);
            }else{
            //上报日志
            $arr=array(
               'pid'=>$cfg['ptpid'],
               'account'=>"无",
               'mediumType'=>"微信群",
               'mediumName'=>"老虎内部券".rand(10,100),
               'itemId'=>$res['numid'],
               'originUrl'=>"https://item.taobao.com/item.htm?id=".$res['numid'],
               'tbkUrl'=>$rhyurl,
               'itemTitle'=>$content['title'],
               'itemDescription'=>$content['title'],
               'tbCommand'=>$content['taokouling'],
               'extraInfo'=>"无",
            );
            include IA_ROOT . "/addons/tiger_newhu/inc/sdk/taoapi.php";
            $resp=getapi($arr);
            //日志结束
               //exit(urldecode(json_encode(array('error' =>0, 'content' => urlencode($msg)))));
               exit($msg);
            }
?>


补充内容 (2020-3-13 17:32):
$msg=str_replace('#淘口令#',$content['taokouling'], $msg);//这里放到软件上面执行
这个在易语言上面怎么执行呀

最佳答案

Su·

查看完整内容

&str=&pid=&type= type// 1 群 2个人机器人

求助知识：请将问题描述清楚，最好把你有问题的源码打包上传上来，这样更方便大家帮助你。
友情提醒：本版被采纳的主题可在 申请荣誉值 帖子申请荣誉值，获得 3点 荣誉值，荣誉值可兑换荣誉会员、终身vip用户组。
回复

使用道具 举报

Su·

结帖率：100% (2/2)

签到天数: 19 天
发表于 2020-3-13 15:33:04 | 显示全部楼层   湖南省长沙市
&str=&pid=&type=
type//  1 群   2个人机器人

评分

参与人数 1荣誉 +3 收起 理由
笨潴 + 3 热心帮助他人，荣誉+3，希望继续努力(*^__^*) 嘻嘻!

查看全部评分

回复

使用道具 举报

影知

结帖率：99% (71/72)
发表于 2020-3-13 16:11:15 | 显示全部楼层   广东省深圳市
如：地址:端口?&ftype=1
回复

使用道具 举报

返回列表 发新帖
  高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的，严禁用于非法目的，否则造成一切后果自负！如帖子内容侵害到你的权益，请联系我们！
防范网络诈骗，远离网络犯罪 违法和不良信息举报电话0663-3422125，QQ： 793400750，邮箱：wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125　增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表