易语言调用whois实现域名批量查询与注册的代码

2024-12-05 04:08:45

域名批量查询注册与whois查询的代码

此功能需要加载精易模块5.6

.版本 2
.支持库 EThread
.程序集 窗口程序集_启动窗口
.子程序 _批量查询_被单击
启动线程 (&查询是否可以注册, , )
.子程序 查询是否可以注册
.局部变量 xml, 文本型
.局部变量 域名数组, 文本型, , "0"
.局部变量 计次, 整数型
批量查询.禁止 ＝ 真
批量查询.标题 ＝ “正在查询...”
域名数组 ＝ 分割文本 (删首尾空 (批量域名.内容), #换行符, )
结果.内容 ＝ “”
可以注册.内容 ＝ “”
.计次循环首 (取数组成员数 (域名数组), 计次)
  xml ＝ 到文本 (网页_访问 (“http://panda.www.net.cn/cgi-bin/check.cgi?area_domain=” ＋ 域名数组 [计次], , , , , , , , , ))
  .如果 (文本_取出中间文本 (xml, “<returncode>”, “<”, , ) ≠ “200”)
    结果.加入文本 (域名数组 [计次] ＋ “ ---查询失败” ＋ #换行符)
  .否则
    .如果真 (文本_取出中间文本 (xml, “<original>”, “ :”, , ) ＝ “210”)
      结果.加入文本 (域名数组 [计次] ＋ “ ---可以注册” ＋ #换行符)
      可以注册.加入文本 (域名数组 [计次] ＋ #换行符)
    .如果真结束
    .如果真 (文本_取出中间文本 (xml, “<original>”, “ :”, , ) ＝ “211”)
      结果.加入文本 (域名数组 [计次] ＋ “ ---已经注册” ＋ #换行符)
    .如果真结束
    .如果真 (文本_取出中间文本 (xml, “<original>”, “ :”, , ) ＝ “212”)
      结果.加入文本 (域名数组 [计次] ＋ “ ---域名格式错误” ＋ #换行符)
    .如果真结束
    .如果真 (文本_取出中间文本 (xml, “<original>”, “ :”, , ) ＝ “213 ”)
      结果.加入文本 (域名数组 [计次] ＋ “ ---查询超时” ＋ #换行符)
    .如果真结束
  .如果结束
  处理事件 ()
.计次循环尾 ()
批量查询.禁止 ＝ 假
批量查询.标题 ＝ “批量查询 域名是否可以注册”
.子程序 _whois查询_被单击
启动线程 (&查询whois, , )
.子程序 查询whois
.局部变量 html, 文本型
.局部变量 正则, 正则表达式类
.局部变量 计次, 整数型
.局部变量 text, 文本型
.局部变量 源码, 文本型
源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“https://whois.22.cn/” ＋ 域名.内容, , , , , , , , , )))
html ＝ 文本_取出中间文本 (源码, “</em></li>”, “</ul>”, , )
whois结果.内容 ＝ “”
正则.创建 (“<span>(.*?)</span>(.*?)<”, html, , , , )
.计次循环首 (正则.取匹配数量 (), 计次)
  text ＝ text ＋ 正则.取子匹配文本 (计次, 1, ) ＋ “：” ＋ 正则.取子匹配文本 (计次, 2, ) ＋ #换行符
  处理事件 ()
.计次循环尾 ()
whois结果.内容 ＝ text
查询原始whois (源码)
.子程序 查询原始whois
.参数 源码, 文本型
.局部变量 正则, 正则表达式类
.局部变量 计次, 整数型
.局部变量 text, 文本型
.局部变量 html, 文本型
html ＝ 文本_取出中间文本 (源码, “whoisInfo” ＋ #引号 ＋ “>”, “</div>”, , )
正则.创建 (“(.*?)<br />”, 子文本替换 (html, “            ”, “”, , , 真), , , , )
.计次循环首 (正则.取匹配数量 (), 计次)
  text ＝ text ＋ 正则.取子匹配文本 (计次, 1, ) ＋ #换行符
  处理事件 ()
.计次循环尾 ()
whois原始内容.内容 ＝ text

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

易语言制作文件夹压缩备份工具的代码

文件夹压缩备份工具此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 iext .支持库 eCompress .程序集窗口程序集1 .程序集变量时间戳, 文本型 .程序集变量过滤文本, 文本型, , "0" .子程序 _文件路径按钮_被单击 .局部变量路径, 文本型路径＝浏览文件夹 ("选择一个文件夹备份", 假) .判断开始 (路径＝ "") 提示框 ("请选择文件夹备份!") .默认
易语言利用HOOK注入获取内容的代码

DLL命令表 .版本 2 .DLL命令 RtlMoveMemory, 整数型, "kernel32.dll", "RtlMoveMemory" .参数 Destination, 整数型 .参数 Source, 整数型 .参数 Length, 整数型 .DLL命令 CreateWindowExA, 整数型 .参数 dwExStyle, 整数型 .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .参数 dwStyle, 整数型 .参数
易语言实现文件夹加密的代码

加密锁上文件夹此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集窗口程序集1 .程序集变量密码, 文本型 .子程序 _按钮_浏览文件_被单击编辑框_路径.内容＝浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"
易语言通过监控图标实现QQ消息监控的代码

DLL命令表 .版本 2 .DLL命令 GetWindowThreadProcessId___, 整数型, "user32.dll", "GetWindowThreadProcessId" .参数 hwnd, 整数型 .参数 lpdwProcessId, 整数型, 传址 .DLL命令 OpenProcess___, 整数型, "kernel32.dll", "OpenProcess" .参数 dwDesiredAccess,
易语言制作QQ聊天添加自定义小尾巴工具

DLL命令表 .版本 2 .DLL命令 SetWindowsHookEx, 整数型, , "SetWindowsHookExA", , 建立钩子 .参数 idHook, 整数型 .参数 lpfn, 子程序指针 .参数 hmod, 整数型 .参数 dwThreadId, 整数型 .DLL命令 CopyMemory, , , "RtlMoveMemory" .参数 Destination, 按键信息, 传址 .参数 Source, 整数型 .参数 Length, 整数型
易语言调用API函数监视目录与文件的代码

DLL命令表 .版本 2 .DLL命令 GetPrivateProfileInt, 整数型, , "GetPrivateProfileIntA" .参数 lpAppName, 文本型 .参数 lpKeyName, 文本型 .参数 nDefault, 整数型 .参数 lpFileName, 文本型 .DLL命令 GetPrivateProfileString, 整数型, , "GetPrivateProfileStringA" .参数 lpAppName, 文本型 .
易语言获取已登录的QQ号码以及名称的方法

取登陆QQ号以及名称的代码此功能需要加载精易模块5.6 .版本 2 .程序集窗口程序集_启动窗口 .程序集变量网页填表, 普通填表 .子程序 _读取按钮_被单击 .局部变量数量, 文本型 .局部变量 i, 整数型 .局部变量 QQ, 文本型 .局部变量名称, 文本型显示选择列表框.清空 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 数量＝到文本 (网页填表.ULLI_取数量 ()) .计次循环首 (到整数 (数量), i) QQ ＝到文本 (文本_取出中间文本
易语言实现多线程计算的代码

多线程计算此功能需要加载精易模块5.6 .版本 2 .支持库 iext .程序集窗口程序集1 .程序集变量总线程id, 整数型 .程序集变量线程判断数量, 整数型 .程序集变量线程总数, 整数型 .程序集变量线程id, 整数型 .程序集变量当前表项, 整数型 .程序集变量许可证, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 i1, 整数型 .计次循环首 (10000, i1) 置随机数种子 () 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (
易语言解析B站直播间的地址获得弹幕内容的代码

常量数据表 .版本 2 .常量常量1, "<文本长度: 31>", , <span class="info-text" title=" .常量常量2, "<文本长度: 2>", , "> .常量常量3, "<文本长度: 19>", , http://i0.hdslb.com.常量常量4, "<文本长度: 4>", , .
易语言EXUI支持库制作红色简约网络验证UI界面的代码

红色简约网络验证UI界面 .版本 2 .支持库 exui .支持库 spec .程序集窗口程序集_启动窗口 .程序集变量用户名, 文本型 .程序集变量状态码, 文本型 .子程序 _头像_框架_鼠标左键按下 .参数 xy坐标, 整数型 .参数 wp, 整数型 _启动窗口.发送信息 (161, 2, 0) .子程序 _选择夹EX1_鼠标左键按下 .参数 xy坐标, 整数型 .参数 wp, 整数型 _启动窗口.发送信息 (161, 2, 0) .子程序 _登录_输入账号_鼠标左键按下 .参数 x
易语言检测端口是否被占用的代码

检测端口是否被占用的代码 .版本 2 .程序集窗口程序集_启动窗口 .子程序检测端口, 整数型, , 如果被占用返回进程PID .参数端口, 整数型, 可空 .参数信息, 文本型, 参考可空 .局部变量 I, 整数型 .局部变量 PID, 整数型写到文件 ("Get.bat", 到字节集 ("netstat -aon|findstr " + #引号 + 到文本 (端口) + #引号 + " >>Bin")) .如果真 (运
易语言利用鼠标模拟点击的方式实现自动画图的代码

DLL命令表 .版本 2 .DLL命令 PostMessageA, 整数型, "user32.dll", "PostMessageA", , 如果函数调用成功,返回非零值:如果函数调用失败,返回值是零 .参数 hWnd, 整数型, , 其窗口程序接收消息的窗口的句柄 .参数 Msg, 整数型, , 指定被寄送的消息 .参数 wParam, 整数型, , 指定附加的消息特定的信息 .参数 IParam, 整数型, , 指定附加的消息特定的信息自动绘画的代码此功能需
易语言调用GetUserPassWord.dll获取系统开机密码

DLL命令表 .版本 2 .DLL命令取开机密码, 文本型, "GetUserPassWord.dll", "GetUserPassWord", 公开获取系统登录密码的代码 .版本 2 .程序集窗口程序集1 .子程序获取开机, 文本型 .局部变量密码, 文本型 .局部变量帐号, 文本型 .局部变量最终文本, 文本型帐号＝读环境变量 ("USERNAME") 密码＝取电脑开机密码 () 最终文本＝ "密码类型:开
易语言解析淘宝客短链接转换成商品真实链接的代码

淘宝客短链接转换成商品地址的代码此功能需要加载精易模块5.6 .版本 2 .支持库 EThread .程序集窗口程序集_启动窗口 .子程序 test 商品地址编辑框.内容＝ GetRealUrl (短链接编辑框.内容) .子程序 GetRealUrl, 文本型 .参数 shortUrl, 文本型 .局部变量 rurl, 文本型 .局部变量 referer, 文本型 .局部变量 laststr, 文本型 httpGet (shortUrl, , rurl) httpGet (rurl, ,
易语言CNA算法实现快速加密解密文件的代码

CNA文件加解密数据算法 .版本 2 .支持库 spec .支持库 iext .程序集窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 code, 字节集, , , 加密密码 .局部变量 test, 字节集, , , 要加密码的数据字节集 .局部变量 i, 整数型, , , 查看反馈信息 ' 简单例子 test ＝到字节集 ("aaaaaaa aaa.*#(中.329}@#￥") code ＝到字节集 ("中.有 3a#") CNA数据 (t

易语言调用whois实现域名批量查询与注册的代码

相关推荐

随机推荐