易语言鱼刺线程池拨号模板

2024-09-27 20:13:31

鱼刺线程池拨号模板

此功能需要加载精易模块5.6和鱼刺类_多线程应用模块

.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 thread, 鱼刺类_线程池
.程序集变量 ADSL, ADSL拨号类
.程序集变量 Adslname, 文本型, , , 宽带连接名称
.程序集变量 Adsluser, 文本型, , , 宽带账号
.程序集变量 Adslpwd, 文本型, , , 宽带密码
.程序集变量 许可
.程序集变量 拨号频率
.程序集变量 线程次数, 整数型
.程序集变量 失败重登, 逻辑型
.程序集变量 失败重登次数
.子程序 _创建线程池按钮_被单击
thread.创建 (到整数 (线程数编辑框.内容))
许可 ＝ _创建进入许可证 ()
.子程序 _生成账号密码按钮_被单击
.局部变量 X
.局部变量 I
超级列表框.全部删除 ()
.计次循环首 (20, X)
  超级列表框.插入表项 (, 到文本 (X), , , , )
  超级列表框.置标题 (X － 1, 1, 文本_取随机字母 (8))
  超级列表框.置标题 (X － 1, 2, 文本_取随机数字 (6))
.计次循环尾 ()
.子程序 线程池控制
.局部变量 账号数
.局部变量 callAdsl
.局部变量 I
账号数 ＝ 超级列表框.取表项数 ()
.计次循环首 (账号数, I) ' 循环整个列表
  .如果真 (callAdsl ＝ 拨号频率) ' 当投递出去的线程等于设置好的 拨号频率时，等待执行完成
    .判断循环首 (线程次数 ＞ 0)
      程序_延时 (300)
      调试输出 (“等待线程执行完成..”)
    .判断循环尾 ()
    调试输出 (“开始拨号..”)
    ADSL.重拨_cmd (Adslname, Adsluser, Adslpwd)
    程序_延时 (1000)
    callAdsl ＝ 0
    调试输出 (“拨号完成,继续任务...”)
  .如果真结束
  callAdsl ＝ callAdsl ＋ 1
  _进入许可区 (许可)
  线程次数 ＝ 线程次数 ＋ 1
  _退出许可区 (许可)
  调试输出 (I － 1)
  thread.投递任务 (&登录线程, I － 1)
.计次循环尾 ()
.子程序 登录线程
.参数 列表索引
.局部变量 user账号, 文本型
.局部变量 pwd密码, 文本型
.局部变量 登录结果, 文本型
.局部变量 I
_进入许可区 (许可)
超级列表框.置标题 (列表索引, 3, “登录中..”) ' 直接显示状态
user账号 ＝ 超级列表框.取标题 (列表索引, 1)
pwd密码 ＝ 超级列表框.取标题 (列表索引, 2)
_退出许可区 (许可)
.如果真 (登录 (user账号, pwd密码, 登录结果) ＝ 假)
  .如果真 (失败重登) ' 如果选中失败重登
    .计次循环首 (失败重登次数, I) ' 循环重登次数
      _进入许可区 (许可)
      超级列表框.置标题 (列表索引, 3, “重登 ” ＋ 到文本 (I)) ' 重登...
      _退出许可区 (许可)
      .如果真 (登录 (user账号, pwd密码, 登录结果)) ' 如果登录成功
        _进入许可区 (许可)
        超级列表框.置标题 (列表索引, 3, 登录结果)
        线程次数 ＝ 线程次数 － 1
        _退出许可区 (许可)
        返回 ()
      .如果真结束
      程序_延时 (到整数 (文本_取随机范围数字 (1000, 3000)))
    .计次循环尾 ()
  .如果真结束
.如果真结束
_进入许可区 (许可)
超级列表框.置标题 (列表索引, 3, 登录结果) ' 直接显示状态
线程次数 ＝ 线程次数 － 1
_退出许可区 (许可)
.子程序 登录, 逻辑型
.参数 账号, 文本型
.参数 密码, 文本型
.参数 返回登录结果, 文本型, 参考 可空
.局部变量 I
I ＝ 到整数 (文本_取随机范围数字 (1, 9))
' ///// 这里我写成随机的
.如果真 (I ＝ 1) ' 随机生成1-10之间的数，如果是 1 则返回验证码错误
  返回登录结果 ＝ “验证码错误”
  返回 (假)
.如果真结束
.如果真 (I ＝ 2) ' 随机生成1-10之间的数....
  返回登录结果 ＝ “密码错误”
  返回 (假)
.如果真结束
.如果真 (I ＝ 3) ' 随机生成1-10之间的数....
  返回登录结果 ＝ “IP被限制”
  返回 (假)
.如果真结束
' 其他的随机数均为成功
返回登录结果 ＝ “登录成功”
返回 (真)
.子程序 _开始按钮_被单击
失败重登 ＝ 失败重登选择框.选中
失败重登次数 ＝ 到整数 (重登次数编辑框.内容)
拨号频率 ＝ 到整数 (频率编辑框.内容)
线程_创建 (&线程池控制)
.子程序 __启动窗口_创建完毕
ADSL.取宽带用户名密码 (Adslname, Adsluser, Adslpwd)

运行结果：

总结

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

易语言提取ICO图标支持多种图像格式转换的代码

DLL命令表 .版本 2 .DLL命令拷贝内存_BITMAPINFOHEADER, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory .参数目标数据地址, 字节集, 传址, lpvDest .参数源数据, BITMAPINFOHEADER, 传址, lpvSource .参数尺寸, 整数型, , 40cbCopy .DLL命令拷贝内存_ICONFILEHEADER, 整数型, "kernel32&
易语言制作文件夹压缩备份工具的代码

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

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

DLL命令表 .版本 2 .DLL命令 GetWindowThreadProcessId___, 整数型, "user32.dll", "GetWindowThreadProcessId" .参数 hwnd, 整数型 .参数 lpdwProcessId, 整数型, 传址 .DLL命令 OpenProcess___, 整数型, "kernel32.dll", "OpenProcess" .参数 dwDesiredAccess,
易语言调用whois实现域名批量查询与注册的代码

域名批量查询注册与whois查询的代码此功能需要加载精易模块5.6 .版本 2 .支持库 EThread .程序集窗口程序集_启动窗口 .子程序 _批量查询_被单击启动线程 (&查询是否可以注册, , ) .子程序查询是否可以注册 .局部变量 xml, 文本型 .局部变量域名数组, 文本型, , "0" .局部变量计次, 整数型批量查询.禁止＝真批量查询.标题＝ "正在查询..." 域名数组＝分割文本 (删首尾空 (批量域名.内容)
易语言实现多线程计算的代码

多线程计算此功能需要加载精易模块5.6 .版本 2 .支持库 iext .程序集窗口程序集1 .程序集变量总线程id, 整数型 .程序集变量线程判断数量, 整数型 .程序集变量线程总数, 整数型 .程序集变量线程id, 整数型 .程序集变量当前表项, 整数型 .程序集变量许可证, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 i1, 整数型 .计次循环首 (10000, i1) 置随机数种子 () 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (
易语言实现多线程验证代理是否有效的代码

载入程序 .版本 2 .程序集启动 .子程序 _启动子程序, 整数型载入 (_主窗口, , 假) 返回 (0) 多线程的方式验证ip的代码此功能需要加载鱼刺类_线程操作模块和鱼刺类_HTTP模块 .版本 2 .支持库 iext .程序集主窗口程序集 .程序集变量线程池, 鱼刺类_线程池Ex, , , 框架 .程序集变量临界, 鱼刺类_临界许可 .程序集变量线程, 鱼刺类_线程操作 .程序集变量验证网址, 文本型, , , 配置 .程序集变量验证字符串, 文本型 .程序集变量是
易语言制作永恒之蓝局域网扫描器的代码

DLL命令表 .版本 2 .DLL命令 Sleep, , "kernel32.dll", "Sleep", 公开 .参数 dwMilliseconds, 整数型接口程序集 .版本 2 .程序集接口程序集 .子程序取网段, 文本型 .参数 IP地址, 文本型返回 (取文本左边 (IP地址, 倒找文本 (IP地址, ".", , 假))) .子程序格式化尾数, 文本型 .参数文本, 文本型返回 (文本替换 ("000"
易语言CNA算法实现快速加密解密文件的代码

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

常量数据表 .版本 2 .常量常量1, "<文本长度: 31>", , <span class="info-text" title=" .常量常量2, "<文本长度: 2>", , "> .常量常量3, "<文本长度: 19>", , http://i0.hdslb.com.常量常量4, "<文本长度: 4>", , .
易语言利用HOOK注入获取内容的代码

DLL命令表 .版本 2 .DLL命令 RtlMoveMemory, 整数型, "kernel32.dll", "RtlMoveMemory" .参数 Destination, 整数型 .参数 Source, 整数型 .参数 Length, 整数型 .DLL命令 CreateWindowExA, 整数型 .参数 dwExStyle, 整数型 .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .参数 dwStyle, 整数型 .参数
易语言调用SetClipboardViewer的api实现剪贴版的内容监控

DLL命令表 .版本 2 .DLL命令加入剪贴板监视链_d, 整数型, "user32.dll", "SetClipboardViewer", 公开, 成功,返回值将标识剪贴板查看器链中的下一个窗口.如果出现错误或剪贴板查看器链中没有其他窗口,则返回值为空.( hwndNextViewer 将为 NULL.) .参数窗口句柄, 整数型, , hwnd 加入剪切板监视链中窗口句柄 .DLL命令设置窗口信息_d, 整数型, "user32",
易语言枚举进程通过窗口句柄获取已经登录的QQ号码

DLL命令表 .版本 2 .DLL命令 GetDesktopWindow, 整数型, "user32.dll", "GetDesktopWindow" .DLL命令 CreateToolhelp32Snapshot, 整数型, "kernel32", "CreateToolhelp32Snapshot" .参数 dwFlags, 整数型, , 0 .参数 th32ProcessIE, 整数型, , 0 .DLL命令 Proce
易语言EXUI支持库制作红色简约网络验证UI界面的代码

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

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

易语言鱼刺线程池拨号模板

相关推荐

随机推荐