易语言调用墨迹天气实现自动定位获取天气情况的代码
常量数据表
.版本 2 .常量 实况头, "<文本长度: 9>" .常量 实况尾, "<文本长度: 2>" .常量 更新时间头, "<文本长度: 28>" .常量 更新时间尾, "<文本长度: 9>" .常量 温度头, "<文本长度: 28>" .常量 温度尾, "<文本长度: 5>" .常量 空气质量头, "<文本长度: 43>" .常量 空气质量尾, "<文本长度: 2>" .常量 湿度头, "<文本长度: 10>" .常量 湿度尾, "<文本长度: 7>" .常量 今日提示头, "<文本长度: 43>" .常量 今日提示尾, "<文本长度: 23>" .常量 风向头, "<文本长度: 26>" .常量 风向尾, "<文本长度: 7>" .常量 天气头, "<文本长度: 26>" .常量 卖帮提醒头, "<文本长度: 34>" .常量 卖帮提醒尾, "<文本长度: 4>" .常量 卖帮提醒头1, "<文本长度: 8>" .常量 卖帮提醒尾1, "<文本长度: 33>" .常量 天气尾, "<文本长度: 4>"
实时天气自动定位源码
此功能需要加载精易模块5.6
.版本 2
.支持库 iconv
.支持库 internet
.支持库 iext
.程序集 窗口程序集1
.程序集变量 天气, 文本型
.程序集变量 城市实况, 文本型
.程序集变量 更新时间, 文本型
.程序集变量 温度, 文本型
.程序集变量 空气质量, 文本型
.程序集变量 湿度, 文本型
.程序集变量 今日提示, 文本型
.程序集变量 风向, 文本型
.程序集变量 卖帮提醒, 文本型
.程序集变量 卖帮提醒1, 文本型
.程序集变量 今日天气, 文本型
.子程序 取文本_中间文本, 文本型, 公开
.参数 参_被寻找文本, 文本型
.参数 参_左边文本, 文本型
.参数 参_右边文本, 文本型
.局部变量 起点, 整数型
.局部变量 终点, 整数型
.局部变量 文本, 文本型
起点 ＝ 寻找文本 (参_被寻找文本, 参_左边文本, , 假)
.判断开始 (起点 ＝ -1)
返回 (“”)
.默认
起点 ＝ 起点 ＋ 取文本长度 (参_左边文本)
.判断结束
终点 ＝ 寻找文本 (参_被寻找文本, 参_右边文本, 起点, 假)
.判断开始 (终点 ＝ -1)
返回 (“”)
.默认
文本 ＝ 取文本中间 (参_被寻找文本, 起点, 终点 － 起点)
返回 (文本)
.判断结束
.子程序 URL编码, 文本型
.参数 URL, 文本型
.局部变量 Len, 整数型
.局部变量 循环容器, 整数型
.局部变量 Asc, 整数型
.局部变量 目标, 文本型
.局部变量 临时, 文本型
Len ＝ 取文本长度 (URL)
.变量循环首 (1, Len, 1, 循环容器)
Asc ＝ 取代码 (URL, 循环容器)
Asc ＝ 选择 (Asc ＜ 0, 256 ＋ Asc, Asc)
.如果 (Asc ＜ 42 或 Asc ＝ 43 或 Asc ＞ 57 且 Asc ＜ 64 或 Asc ＞ 90 且 Asc ＜ 95 或 Asc ＝ 96 或 Asc ＞ 122)
临时 ＝ 取十六进制文本 (Asc)
目标 ＝ 目标 ＋ 选择 (取文本长度 (临时) ＜ 2, “%0” ＋ 临时, “%” ＋ 临时)
.否则
目标 ＝ 目标 ＋ 字符 (Asc)
.如果结束
.变量循环尾 ()
返回 (目标)
.子程序 _天气时钟_周期事件
天气 ＝ 到文本 (编码转换 (HTTP读文件 (“http://tianqi.moji.com/”), #编码_UTF_8, #编码_GB18030, ))
城市实况 ＝ 取文本_中间文本 (天气, #实况头, #实况尾)
透明标签1_城市.标题 ＝ “城市:” ＋ 城市实况
更新时间 ＝ 取文本_中间文本 (天气, #更新时间头, #更新时间尾)
透明标签1_更新时间.标题 ＝ “更新时间:” ＋ 更新时间
温度 ＝ 取文本_中间文本 (天气, #温度头, #温度尾)
透明标签1_温度.标题 ＝ “温度:” ＋ 温度 ＋ “℃”
空气质量 ＝ 取文本_中间文本 (天气, #空气质量头, #空气质量尾)
透明标签1_空气质量.标题 ＝ “空气质量:” ＋ 空气质量
湿度 ＝ 取文本_中间文本 (天气, #湿度头, #湿度尾)
透明标签1_湿度.标题 ＝ “湿度:” ＋ 湿度
今日提示 ＝ 取文本_中间文本 (天气, #今日提示头, #今日提示尾)
透明标签1_今日提示.标题 ＝ “今日提示:” ＋ 今日提示
风向 ＝ 取文本_中间文本 (天气, #风向头, #风向尾)
透明标签1_风向.标题 ＝ “风向:” ＋ 风向 ＋ “级”
今日天气 ＝ 取文本_中间文本 (天气, #天气头, #天气尾)
透明标签1_今日天气.标题 ＝ “今日天气:” ＋ 今日天气
卖帮提醒 ＝ 取文本_中间文本 (天气, #卖帮提醒头, #卖帮提醒尾)
卖帮提醒1 ＝ 取文本_中间文本 (天气, #卖帮提醒头1, #卖帮提醒尾1)
透明标签1_提醒.标题 ＝ 卖帮提醒 ＋ “卖帮小助手” ＋ 卖帮提醒1
_启动窗口.标题 ＝ 城市实况
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接
相关推荐
-
易语言多线程多任务下载器的代码
多线程多任务下载模块源码 1.DLL命令表 .版本 2 .DLL命令 InternetGetConnectedStateHTTP, , "Wininet.dll", "InternetGetConnectedState", 公开 .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenAHTTP, 整数型, "Wininet.dll", "InternetOpenA&q
-
易语言枚举进程所有句柄信息的代码
DLL命令表 .版本 2 .DLL命令 GetCurrentProcessId, 整数型, "kernel32.dll", "GetCurrentProcessId" .DLL命令 GetCurrentProcess, 整数型, "kernel32.dll", "GetCurrentProcess" .DLL命令 RtlMoveMemory_SYSTEM_HANDLE_INFORMATION, , "kernel32
-
易语言调用微信PrScrn.dll文件进行截图的代码
DLL命令表 .版本 2 .DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress", , 返回函数地址 .参数 hModule, 整数型 .参数 lpProcName, 文本型 .DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄 如执行成功成功,则返回模块句柄
-
易语言实现YY批量自动加好友的代码
在做yy爬虫的时候,发现yy这个地方没有使用webkit,还在使用ie内核,这样的话我们就可以对它内嵌的浏览器做些什么了. 信息挺好爬的,顺便分析了一下点加好友,加群和关注这几个按钮,发现到最后都是直接与客户端的setCommand方法通信的,我没有办法直接调用它客户端的函数. 使用jquery触发click是一个比较另类的方法,以前觉得别人搞得还挺神奇的,就是没往这方面想. 哦对了,它底层调用的是window.external.setCommand('addFriend',uid)方法,有兴趣
-
易语言源码被腾讯TP破坏后修复的代码
DLL命令表 .版本 2 .DLL命令 CopyTo_系统信息段, , , "RtlMoveMemory" .参数 Dest, 系统信息段 .参数 Src, 字节集 .参数 Length .DLL命令 CopyTo_SectionInfo, , , "RtlMoveMemory" .参数 Dest, _SectionInfo .参数 Src, 字节集 .参数 Length .DLL命令 CopyFrom_SectionInfo, , , "RtlMoveM
-
易语言检测程序是不是在虚拟机中运行的代码
汇编检测虚拟机的代码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕, , , .子程序 检测虚拟机, 逻辑型 .局部变量 a, 整数型 .如果 (try_ ()) a ＝ VMWare检测 () try_out () .否则 .如果结束 .如果真 (a ≠ 0) 返回 (真) .如果真结束 .如果 (try_ ()) a ＝ VPC检测 () try_out () .否则 .如果结束 返回 (a ≠ 0) .子程序 VMWare检测, 整数型, , 此函数不能独立在实体机
-
易语言枚举电脑驱动判断是否存在指定驱动的代码
DLL命令代码 .版本 2 .DLL命令 NtQuerySystemInformation, 整数型, "NTDLL.DLL", "NtQuerySystemInformation" .参数 SystemInformationClass, 整数型 .参数 pSystemInformation, 整数型 .参数 SystemInformationLength, 整数型 .参数 ReturnLength, 整数型, 传址 .DLL命令 CopyMemory, , &qu
-
易语言调用api枚举网卡名称并且获取信息的代码
DLL命令表 .版本 2 .DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress", , 返回函数地址 .参数 hModule, 整数型 .参数 lpProcName, 文本型 .DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄 如执行成功成功,则返回模块句柄
-
易语言用夜神模拟器实现抖音自动点赞和评论的代码
用夜神模拟器实现抖音自动点赞和评论的代码 实现此功能需要加载精易模块5.6和大漠中文类模块 分辨率设置800x600,窗口大小设置固定. .版本 2 .支持库 iext .支持库 iext2 .程序集 窗口程序集_启动窗口 .程序集变量 集_大漠, 大漠中文类 .程序集变量 集_句柄, 整数型 .程序集变量 集_评论内容, 文本型 .程序集变量 集_分割文本, 文本型, , "0" .子程序 __启动窗口_创建完毕 集_大漠.初始_创建_破解 () 置随机数种子 () .子程序 功能_
-
易语言无需模块设置自动关闭信息框的代码
DLL命令表 .版本 2 .DLL命令 MessageBoxTimeout, 整数型, "user32.dll", "MessageBoxTimeoutA" .参数 hwnd, 整数型 .参数 lpText, 文本型 .参数 lpCaption, 文本型 .参数 uType, 整数型 .参数 wlange, 整数型 .参数 dwTimeout, 整数型 自动关闭信息框的代码 .版本 2 .程序集 窗口程序集1 .子程序 _弹出信息框按钮_被单击 MessageBox
-
易语言通过百度错误页面获取北京时间的代码
利用百度取北京时间源码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 XML对象, 对象 .局部变量 时间文本, 文本型 .局部变量 网络时间, 日期时间型 .如果真 (XML对象.创建 ("WinHttp.WinHttpRequest.5.1", )) XML对象.方法 ("SetTimeouts", 5000, 5000, 10000, 5000) XML对象.写属性 ("Option", 6, 0) XM
-
易语言防止助手探测窗口的代码
DLL命令代码 .版本 2 .DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA", , 限制窗口大小 .参数 前一窗口函数地址, 子程序指针 .参数 窗口句柄, 整数型 .参数 消息值, 整数型 .参数 附加参数1, 整数型 .参数 附加参数2, 整数型 .DLL命令 SetWindowLongA, 子程序指针, "user32", "SetWindowLongA&qu
-
易语言通过时钟和计次循环来实现定时任务的代码
创建定时任务源码 .版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .计次循环首 (61, i) .如果真 (i < 25) 时组合框.加入项目 (到文本 (i - 1), ) .如果真结束 分组合框.加入项目 (到文本 (i - 1), ) 秒组合框.加入项目 (到文本 (i - 1), ) .计次循环尾 () 时组合框.现行选中项 ＝ 0 分组合框.现行选中项 ＝ 0 秒组合框.现行选中项 ＝ 0
-
易语言仿按键精灵录制键盘鼠标操作的代码
DLL命令表 .版本 2 .DLL命令 取按键状态, 短整数型, "user32.dll", "GetAsyncKeyState" .参数 鼠标键, 整数型 .DLL命令 取鼠标位置, 整数型, "user32.dll", "GetCursorPos" .参数 当前鼠标位置, 鼠标位置, 传址 .DLL命令 模拟鼠标按键, , , "mouse_event" .参数 鼠标动作, 整数型 .参数 水平位置,
-
易语言通过句柄名来关闭互斥体实现游戏多开的代码
DLL命令代码 .版本 2 .DLL命令 GetProcessHandleCount, 逻辑型 .参数 hProcess, 整数型 .参数 pdwHandleCount, 整数型, 传址 .DLL命令 DuplicateHandle, 逻辑型 .参数 hSourceProcessHandle, 整数型 .参数 hSourceHandle, 整数型 .参数 hTargetProcessHandle, 整数型 .参数 lpTargetHandle, 整数型, 传址 .参数 dwDesiredAcce