开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

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

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


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

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

精易论坛»论坛 › 技术专区 › 源码区 › 美团那哥们提供的代码，我重新这样发一遍比较清晰 ...
123下一页
返回列表 发新帖
查看: 8583|回复: 23
收起左侧

[易语言纯源码] 美团那哥们提供的代码，我重新这样发一遍比较清晰

[复制链接]
努力赚钱的猪
结帖率：97% (32/33)
发表于 2019-7-5 00:09:22 | 显示全部楼层 |阅读模式   山西省运城市
分享源码
界面截图: -
是否带模块: -
备注说明: -
唯一不足的是 美团防爬虫了

  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
经度文本型  
纬度文本型  
dxc多线程  
页文本型  

子程序名返回值类型公开备 注
_按钮1_被单击  
启动线程 (&定位, , )
子程序名返回值类型公开备 注
定位  
变量名类 型静态数组备 注
i文本型 
i1文本型 
i2文本型 
json类_json 
i3整数型 
name文本型 
address文本型 
lat文本型 
lon文本型 
i4整数型 
i1 ＝ 编码_URL编码EX (编辑框1.内容)
i2 ＝ 编码_URL编码EX (编辑框2.内容)
i ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://wx.waimai.meituan.com/weapp/v1/user/address/search?ui=838577573®ion_id=1000310100®ion_version=1561980060721”, 1, “wm_dtype=iPhone%20XS%20Max%20China-exclusive%3CiPhone11%2C6%3E&wm_dversion=7.0.4&wm_dplatform=ios&wm_uuid=1035048859442851925&wm_longitude=121247505&wm_latitude=31113026&wm_visitid=ae029663-91a7-4964-90b2-1be7b3fda100&wm_appversion=4.1.2&wm_logintoken=FTaLQL9q6kK-GV7DBcpnuc0g000AAAAAqAgAAMY1Ijrxaoo3ah2iI2KDAyaVsmSuv3XwDNwFb_2jA-Ggt6VUZg6NuWRlkkbxT8BgVw&userToken=FTaLQL9q6kK-GV7DBcpnuc0g000AAAAAqAgAAMY1Ijrxaoo3ah2iI2KDAyaVsmSuv3XwDNwFb_2jA-Ggt6VUZg6NuWRlkkbxT8BgVw&req_time=” ＋ 时间_取现行时间戳 () ＋ “&waimai_sign=%2F&wm_actual_longitude=121247505&wm_actual_latitude=31113026&userid=838577573&user_id=838577573&lch=1001&optimusCode=20&riskLevel=71&partner=4&platform=13&uuid=1035048859442851925&open_id=oOpUI0bgbra24Gn3e--vhr-HTK2o&cityname=” ＋ i1 ＋ “&keyword=” ＋ i2 ＋ “&rank_list_id=13415eef40e3184148e5a58594428519&ref_list_id=13415eef86129fe148be174885944285&wm_ctype=wxapp”))
json.解析 (i)
计次循环首 (json.成员数 (“data.mapPoiVo”), i3)
处理事件 ()
name ＝ json.取通用属性 (“data.mapPoiVo[” ＋ 到文本 (i3 － 1) ＋ “].name”)
address ＝ json.取通用属性 (“data.mapPoiVo[” ＋ 到文本 (i3 － 1) ＋ “].address”)
lat ＝ json.取属性 (“data.mapPoiVo[” ＋ 到文本 (i3 － 1) ＋ “]['wm_latitude']”).取数据文本 ()
lon ＝ json.取属性 (“data.mapPoiVo[” ＋ 到文本 (i3 － 1) ＋ “]['wm_longitude']”).取数据文本 ()
i4 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i4, 0, name)
超级列表框1.置标题 (i4, 1, address)
超级列表框1.置标题 (i4, 2, lat)
超级列表框1.置标题 (i4, 3, lon)
超级列表框1.保证显示 (i4)
计次循环尾 ()
_启动窗口.标题 ＝ “定位获取完毕，双击选择某一地点再进行采集”
子程序名返回值类型公开备 注
美团采集  
变量名类 型静态数组备 注
i文本型 
json类_json 
i1整数型 
店铺ID文本型 
店铺名文本型 
商家评分文本型 
月销文本型 
起送文本型 
配送费文本型 
店铺类别文本型 
人均消费文本型 
送餐时间文本型 
商家活动文本型 
i2整数型 
商家LOGO文本型 
地区排名文本型 
距离文本型 
i3整数型 
i4整数型 
协议头类_POST数据类 
提交文本型 
协议头.添加 (“Content-Type”, “ application/x-www-form-urlencoded”, )
协议头.添加 (“Host”, “ wx.waimai.meituan.com”, )
协议头.添加 (“Connection”, “ keep-alive”, )
协议头.添加 (“Referer”, “ https://servicewechat.com/wx2c348cf579062e56/188/page-frame.html”, )
协议头.添加 (“uuid”, “ 1035048859442851925”, )
协议头.添加 (“User-Agent”, “ Mozilla/5.0 (iPhone; CPU iPhone OS 12_2 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) Mobile/15E148 MicroMessenger/7.0.4(0x17000428) NetType/WIFI Language/zh_CN”, )
提交 ＝ 协议头.获取协议头数据 ()
计次循环首 (到整数 (编辑框3.内容), i4)
处理事件 ()
_启动窗口.标题 ＝ “正在采集第” ＋ 到文本 (i4) ＋ “页”
i ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://wx.waimai.meituan.com/weapp/v2/poi/channelpage”, 1, “wm_dtype=iPhone%20XS%20Max%20China-exclusive%3CiPhone11%2C6%3E&wm_dversion=7.0.4&wm_dplatform=ios&wm_uuid=1035048859442851925&wm_longitude=” ＋ 经度 ＋ “&wm_latitude=” ＋ 纬度 ＋ “&wm_visitid=6af77133-e57c-4a73-975c-6a11c96d7b29&wm_appversion=4.2.0&req_time=” ＋ 时间_取现行时间戳 () ＋ “&waimai_sign=%2F&wm_actual_longitude=” ＋ 经度 ＋ “&wm_actual_latitude=” ＋ 纬度 ＋ “&lch=1001&optimusCode=20&riskLevel=71&partner=4&platform=13&uuid=1035048859442851925&navigate_type=910&category_type=910&sort_type=0&trace_tag=%7B%22req_time%22%3A” ＋ 时间_取现行时间戳 () ＋ “%2C%22visitid%22%3A%226af77133-e57c-4a73-975c-6a11c96d7b29%22%2C%22src_page%22%3A%22p_homepage%22%2C%22src_block%22%3A%22b_category%22%2C%22src_item_index%22%3A0%2C%22src_item_id%22%3A910%2C%22tgt_page%22%3A%22p_category%22%2C%22action%22%3A%22click%22%2C%22wm_actual_longitude%22%3A121247398%2C%22wm_actual_latitude%22%3A31112820%2C%22longitude%22%3A121499763%2C%22latitude%22%3A31239580%2C%22ctype%22%3A%22wxapp%22%2C%22uuid%22%3A%221035048859442851925%22%2C%22customerid%22%3A0%2C%22appversion%22%3A%224.2.0%22%2C%22appname%22%3A%22wxapp%22%2C%22dversion%22%3A%227.0.4%22%2C%22dtype%22%3A%22iPhone%20XS%20Max%20China-exclusive%3CiPhone11%2C6%3E%22%2C%22request_id%22%3A%220.21274588114146287%22%2C%22tgt_block%22%3A%22b_poilist%22%7D&load_type=1&page_size=20&page_index=” ＋ 页 ＋ “&_token=eJxVkF2vokgQhv8Lt7Khu6EbPMlcCKgoiIh8OpkLEBAEREEQ2Ox%2FX8yec2Yn6XTVU%2FW%2Bnar%2Bm6o3EfUBAQCQ0NSzmXJMEMQCDxEBiKbOv2vzuYAI5mkqrB2Z%2BvjJQY7mEfn1LpgT%2F4SIQzSCvPCL%2Fn%2BOuOm8VZtJRN2DS9ww5zS43eLirzf9ART9qchuUdz%2Fd1OTubQm8xTzzxi8I4UBjRCguyx%2BTUaIWBoigf1mQN7MfzHhaMiy6Asx%2FqMLp4cg%2FCJ%2B0kJCvpAlkCa%2FEc%2Fp%2BXeLpyH%2BnoEV6PcYn4QmAlj4bnL0nHwapx2en7s02eVGfVDxdtBtYdWy0sJmtq4j42FwOUMs1RrkZVM78aMQQeO%2BzkfNTzuP06H%2BYDC%2FiJowxHd1b23G6xh1SmYe97rrC2ExjJyRyWpwKezzHvRHCVYpSTOl6u2c9boq23GGxbpWZwWAOzbLy7rw7l3he106NExtv6pZ5wzy0nfbZTxGaV9uViYTjIKY4DbP9M1aeh6sdOE%2FPZZUOXlg8yAFwGd1MIhrzgOs7ckJTrZu8SoVyKjSkW2H9pjXXkDm%2BXDCe9W072kRA7di17rYjOhq7vG4CFZ5bINkKTWWh0zFPXhG4z6q6%2BNkCaySKkV1vQ0atlUkevbt6ciRwafeXTbTZqa%2BBJw%2BWN4Tx%2Bwk7suRG5qnm%2BaHxPBirz%2BGphMw93VLyj0Y1M1uB%2F1z0BzC1MmXy61d6fLgmLC87k%2BnlxY9Cnl1FDV7t7fPBuYaP23TtLz7F%2F%2F0MFfieeWb2fWSS%2BujaG0G65FAMy0485TEjnr1zokosuYG96VSmUlEXiF08pdBDooh6K7G3HzQRfV8pvG8mhF%2BRoy2d3B0kp%2BnxFGTUxpKLdOPtWEYfqG5jt%2FV871sVfeLLfoHn0tfjr6rJa32Q8Xv26fnFMIlXmZJHgJOHcGWPTA5YI1EWDAVimthLet9qNSo1XjZvirdbusuh6RHstSE%2FGy1ho0oaQx%2FNbMhqvLpHw%2FXKMK8qZzL%2B5gcNzKjANPTnNmum0X81hNEAxW3%2FvDjB%2FXPv4cWVgI%3D&rank_list_id=13415ef44d24896143661c4885944285&ref_list_id=13415ef30e72b7f14356801035048859&wm_ctype=wxapp”, , , 提交))
json.解析 (i)
置剪辑板文本 (i)
页 ＝ 到文本 (到数值 (页) ＋ 1)
计次循环首 (json.成员数 (“data.poilist”), i1)
处理事件 ()
店铺ID ＝ json.取属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “].id”).取数据文本 ()
店铺名 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “].name”)
商家评分 ＝ json.取属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['wm_poi_score']”).取数据文本 ()
月销 ＝ 文本_取右边 (json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['month_sales_tip']”), “月售”)
起送 ＝ 文本_取右边 (json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['min_price_tip']”), “起送”)
配送费 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['shipping_fee_tip']”)
店铺类别 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['third_category']”)
人均消费 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['average_price_tip']”)
送餐时间 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['delivery_time_tip']”)
商家LOGO ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['pic_url']”)
地区排名 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['recommend_level_list'][0]['recommend_reason']”)
距离 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “].distance”)
计次循环首 (json.成员数 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “].discounts2”), i2)
处理事件 ()
活动_编辑框.加入文本 (json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “].discounts2[” ＋ 到文本 (i2 － 1) ＋ “].info”) ＋ “，”)
计次循环尾 ()
商家活动 ＝ 活动_编辑框.内容
如果真 (配送费 ＝ “”)
配送费 ＝ json.取通用属性 (“data.poilist[” ＋ 到文本 (i1 － 1) ＋ “]['origin_shipping_fee_tip']”)
活动_编辑框.内容 ＝ “”
i3 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (i3, 0, 到文本 (i3 ＋ 1))
超级列表框2.置标题 (i3, 1, 店铺名)
超级列表框2.置标题 (i3, 2, 店铺ID)
超级列表框2.置标题 (i3, 3, 商家评分)
超级列表框2.置标题 (i3, 4, 月销)
超级列表框2.置标题 (i3, 5, 起送)
超级列表框2.置标题 (i3, 6, 配送费)
超级列表框2.置标题 (i3, 7, 送餐时间)
超级列表框2.置标题 (i3, 8, 店铺类别)
超级列表框2.置标题 (i3, 9, 地区排名)
超级列表框2.置标题 (i3, 10, 人均消费)
超级列表框2.置标题 (i3, 11, 商家活动)
超级列表框2.置标题 (i3, 12, 商家LOGO)
超级列表框2.置标题 (i3, 13, 距离)
计次循环尾 ()
计次循环尾 ()
_启动窗口.标题 ＝ “采集完毕”
' dxc.启动 (&商家电话, 超级列表框2.取表项数 (), 到整数 (编辑框4.内容))
按钮2.禁止 ＝ 假
子程序名返回值类型公开备 注
代理文本型 
变量名类 型静态数组备 注
i文本型 
json类_json 
随机数整数型 
IP文本型 
' 置随机数种子 ()
 ' i ＝ 编码_Utf8到Ansi (网页_访问_对象 (“”))
 ' json.解析 (i)
 ' 随机数 ＝ 取随机数 (0, 4)
 ' IP ＝ json.取通用属性 (“proxies[” ＋ 到文本 (随机数) ＋ “]”)
 ' 返回 (IP)
子程序名返回值类型公开备 注
商家电话  
参数名类 型参考可空数组备 注
z整数型
变量名类 型静态数组备 注
i文本型 
s整数型 
json类_json 
电话文本型 
地址文本型 
lon文本型 
lat文本型 
配送方式文本型 
营业时间文本型 
s ＝ z － 1
i ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://wx.waimai.meituan.com/weapp/v1/poi/info?ui=838577573®ion_id=1000310100®ion_version=1561980060721”, 1, “wm_dtype=iPhone%20XS%20Max%20China-exclusive%3CiPhone11%2C6%3E&wm_dversion=7.0.4&wm_dplatform=ios&wm_uuid=1035048859442851925&wm_longitude=” ＋ 经度 ＋ “&wm_latitude=” ＋ 纬度 ＋ “&wm_visitid=48fbfb7d-a605-4d03-983f-d7eb380879a5&wm_appversion=4.1.2&wm_logintoken=FTaLQL9q6kK-GV7DBcpnuc0g000AAAAAqAgAAMY1Ijrxaoo3ah2iI2KDAyaVsmSuv3XwDNwFb_2jA-Ggt6VUZg6NuWRlkkbxT8BgVw&userToken=FTaLQL9q6kK-GV7DBcpnuc0g000AAAAAqAgAAMY1Ijrxaoo3ah2iI2KDAyaVsmSuv3XwDNwFb_2jA-Ggt6VUZg6NuWRlkkbxT8BgVw&req_time=” ＋ 时间_取现行时间戳 () ＋ “&waimai_sign=%2F&wm_actual_longitude=” ＋ 经度 ＋ “&wm_actual_latitude=” ＋ 纬度 ＋ “&userid=838577573&user_id=838577573&lch=1001&optimusCode=20&riskLevel=71&partner=4&platform=13&uuid=1035048859442851925&open_id=oOpUI0bgbra24Gn3e--vhr-HTK2o&wmpoiid=” ＋ 超级列表框2.取标题 (s, 2) ＋ “&_token=eJxNUNmOqzgU%2FBdeg4RtMEtL80CAECAOW4B0ru4Deycsk7DTo%2Fn3oTV9Z65kuarOqTo69l9UZ2TUGwQAQJ6mhn7jmIeSCAAPWA7RVPp%2FDbIcL4qQppIuVKm3HxzkaAHxP78K3qZ%2FQLQlEBTEn%2FTvHHHb%2BXIZm4l6xmXeM13eD%2FHYxe3wG6Xo7%2B69zfLl35vags1lC25YfWP8hRRiEQ0RpKd7Pm9JjGkI8H%2BSRzT%2BxRGEW0%2F4JSHH0xh%2BO7dxw%2FfY%2Fl621BuVm6tUpcOIPmXXuzKHVbO6dYySw16OAv2knfO1SnKLiy%2BpYmba%2Bs41gXS97KanpegjuiPWYKV5wbeVn8TRLQ1XdVM%2BQlXQ1Dto7DqgpMstVG56s0gTOwZOUwxoqj5eiX7QocRDY9CKvRVewijEJneL%2BXiKe0tJDlc%2BJGDQK9N6t%2FelWc6lW9wgyc9C6452cYmjOksyyYvYhg3x0Df26fhANTPubKOxIpSU8ixrhtAe9NtH7ohqV%2FNdzxr2ayarJXj5hy69wiVzkves2PWhWizZkVevoIatmvUiQ5jELVqGPMSCm%2FYBi2K%2BUEkB9%2Fs4SMVueTrzMGjElONYVjRNdZ9KSTQ14HHwrI36VcEWg3w8%2BUp4fjHmn%2BhcAcErDwp4yMRBF%2Fs2Su5cPudgmcmgr8LRC3WU1k1KsN5FVe6PUCCiqosTqLZNJd8j7HGWbGtoT2D3mbNRzno8CRNuZ7J10gBcTJAYjrB3AL4WZjvb%2BOls3%2F9OjMA17loNmuR4ZphVXwvfVw3LSPeYWMUsMP7pddFRLHv28mDS5cKyB9kJTaWTC%2BX0yW6PepwMtSy9TvBR3gyz%2F1AOKvGJjNUX3slBs4iP4A%2Fq738Akf8LpA%3D%3D&rank_list_id=13415ed9ae4df28125d1275944285192&ref_list_id=13415edae656729125cbba8859442851&wm_ctype=wxapp”, , , “User-Agent: Mozilla/5.0 (iPhone; CPU iPhone OS 12_2 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) Mobile/15E148 MicroMessenger/7.0.4(0x17000428) NetType/WIFI Language/zh_CN”))
json.解析 (i)
电话 ＝ json.取通用属性 (“data['call_center']”)
地址 ＝ json.取通用属性 (“data.address


i支持库列表   支持库注释   
EThread多线程支持库
iext扩展界面支持库一
internet互联网支持库

评分

参与人数 2好评 +2 精币 +2 收起 理由
1092092604 + 1 新技能已get√
汉族 + 1 + 2 新技能已get√

查看全部评分


本帖被以下淘专辑推荐:

回复

使用道具 举报

aayangpu
结帖率：92% (23/25)
发表于 2024-5-1 23:24:48 | 显示全部楼层   四川省成都市
论坛帖子内容仅用于技术交流学习和研究的目
回复 支持 反对

使用道具 举报

成神之日

签到天数: 2 天
发表于 2021-4-26 03:05:10 | 显示全部楼层   浙江省绍兴市
路过围观一下，顺便帮顶
回复 支持 0 反对 1

使用道具 举报

java22
发表于 2021-4-25 21:22:19 | 显示全部楼层   辽宁省大连市
不用客气，大家互相帮助…… ╮（╯◇╰）╭
回复 支持 反对

使用道具 举报

179816129

签到天数: 1 天
发表于 2020-3-15 21:20:30 | 显示全部楼层   福建省龙岩市
防爬虫了就是没有了么
回复 支持 反对

使用道具 举报

songkemeng
发表于 2020-3-6 03:18:17 | 显示全部楼层   河北省邢台市
不知道是不是回复才能用
回复 支持 反对

使用道具 举报

ekawang
头像被屏蔽
结帖率：80% (24/30)
发表于 2019-12-18 14:34:10 | 显示全部楼层   河南省商丘市
失效了。。。。
回复 支持 反对

使用道具 举报

a阿牛888
结帖率：71% (5/7)
发表于 2019-12-5 16:05:03 | 显示全部楼层   福建省福州市
6666666666
回复 支持 反对

使用道具 举报

国宝学习易语言
结帖率：76% (16/21)
发表于 2019-9-17 16:01:41 | 显示全部楼层   重庆市重庆市
不知道是不是回复了才能用
回复 支持 反对

使用道具 举报

醉米奇
结帖率：0% (0/1)
发表于 2019-7-19 11:03:26 | 显示全部楼层   河北省保定市
6666666666666666666
回复 支持 反对

使用道具 举报

菜鸟求学
发表于 2019-7-18 14:32:04 | 显示全部楼层   广东省肇庆市
看看，能用不
回复 支持 反对

使用道具 举报

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

本版积分规则 致发广告者

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

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

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