易语言局域网控制系统

2024-11-27 06:49:12

局域网控制系统

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮_单发送_被单击
.判断开始 (单选框2.选中 ＝ 真)
  .判断开始 (运行 (“shutdown -s -m \\” ＋ 编辑框_目标IP.内容 ＋ “ -t ” ＋ 编辑框_倒数秒.内容, 假, 1) ＝ 真)
    信息框 (“发送成功”, #信息图标, )
  .默认
    信息框 (“发送失败”, #警告图标, )
  .判断结束
.默认
.判断结束
.子程序 _按钮_发送_被单击
.局部变量 个数, 文本型
.局部变量 r, 文本型, , "4"
.局部变量 t, 文本型, , "4"
.局部变量 s, 整数型
r ＝ 分割文本 (编辑框_起始IP.内容, “.”, )
t ＝ 分割文本 (编辑框_结束IP.内容, “.”, )
个数 ＝ 到文本 (到整数 (t [4]) － 到整数 (r [4]))
.判断开始 (r [1] ≠ t [1] 且 r [2] ≠ t [2] 且 r [3] ≠ t [3])
  信息框 (“IP范围设置有误”, #警告图标, )
.默认
  .判断开始 (选择框_确认.选中 ＝ 真)
    按钮_发送.禁止 ＝ 真
    s ＝ 到整数 (r [4])
    .计次循环首 (到整数 (个数), s)
      运行 (“shutdown -s -m \\” ＋ r [1] ＋ “.” ＋ r [2] ＋ “.” ＋ r [3] ＋ “.” ＋ 到文本 (s) ＋ “ -t ” ＋ 编辑框_秒数.内容, 假, 1)
    .计次循环尾 ()
    信息框 (“全部发送完成，总计发送了[” ＋ 个数 ＋ “]个目标！”, #信息图标, )
    按钮_发送.禁止 ＝ 假
  .默认
    信息框 (“为了防止误操作导致的各种后果，请先确定你要这么做，然后再次发送！”, #警告图标, )
  .判断结束
.判断结束

运行结果：

总结

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

易语言设置窗口慢慢出现的代码

窗口慢慢出现 .版本 2 .支持库 eAPI .程序集窗口程序集1 .程序集变量透明度 .子程序 __启动窗口_创建完毕设置窗口透明度 (_启动窗口.取窗口句柄 (), 透明度) .子程序 _时钟1_周期事件透明度＝透明度 + 1 设置窗口透明度 (_启动窗口.取窗口句柄 (), 透明度) .如果真 (透明度＝ 250) 时钟1.时钟周期＝ 0 .如果真结束运行结果: 总结以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的
易语言制作黑客小程序源码

DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn
易语言电脑屏幕锁定工具源码

DLLL命令表 .版本 2 .DLL命令安装钩子, 整数型, , "SetWindowsHookExA" .参数 ihook, 整数型 .参数 lpfunc, 子程序指针 .参数 hin, 整数型 .参数 threadid, 整数型 .DLL命令卸载钩子, 整数型, , "UnhookWindowsHookEx" .参数 hHook, 整数型 .DLL命令下一个钩子, 整数型, , "CallNextHookEx" .参数 hHook, 整
易语言将电脑任务栏透明化的代码

DLL命令表 .版本 2 .DLL命令寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口(在vb里使用:FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄:该类是所有运行中vb执行程序的一部分.获得句柄后,可用api函数GetWindowText取得这个窗口的名称:该名也是应用程序的标题) 找到窗口的句柄.如未找到相符窗口,则返回零.会设置GetLastEr
易语言制作屏幕右下角弹出窗口的源码

屏幕右下角广告 .版本 2 .程序集窗口程序集1 .程序集变量伸缩判断, 逻辑型 .子程序 __启动窗口_创建完毕 .子程序 _时钟1_周期事件 .如果 (伸缩判断＝真) .如果真 (窗口1.顶边 > 取屏幕高度 () - 窗口1.高度 - 30) 窗口1.移动 (, 窗口1.顶边 - 1, , ) .如果真结束 .否则 .如果真 (窗口1.顶边 < 取屏幕宽度 ()) 窗口1.移动 (, 窗口1.顶边 + 1, , ) .如果真结束 .如果结束 .子程序 _按钮_关闭_被单击伸缩判
易语言送你999朵玫瑰花源码

送你999朵玫瑰花 .版本 2 .程序集窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量屏幕快照, 字节集屏幕快照＝快照 (, , ) _启动窗口.可视＝真 _启动窗口.位置＝ 3 画板1.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ()) 画板1.底图＝屏幕快照置随机数种子 () 播放音乐 (#声音1, 真) 等待 (500) 献花 () .子程序献花 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 c, 整数型 .局部变量 d, 整数
易语言设置窗口透明化的代码

窗口透明源码运行结果: 总结以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接
易语言获取程序已运行时间的代码

获取程序已运行时间 .版本 2 .支持库 iext .程序集窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec ＝ sec + 1 .如果真 (sec ＝ 60) sec ＝ 0 min ＝ min + 1 .如果真结束 .如果真 (min ＝ 60) min ＝ 0 hr ＝ hr + 1 .如果真结束状态条1.置文本 (0, "已运行:" + 取文本右边 ("
易语言高精度完美延时的源码

DLL命令表 .版本 2 .DLL命令 QueryPerformanceCounter, 整数型, "kernel32", "QueryPerformanceCounter", , 获取计数值 .参数 lpPerformanceCount, LARGE_INTEGER .DLL命令 QueryPerformanceFrequency, 整数型, "kernel32", "QueryPerformanceFrequency",
易语言快速更改电脑密码的代码

快速更改电脑密码 .版本 2 .程序集锁机 .程序集变量密码, 文本型 .子程序 _时钟1_周期事件随机密码 () 锁机 () 注销 () .子程序 __启动窗口_创建完毕信息框 ("电脑已上锁", 0, , ) .子程序随机密码密码＝ "520" .子程序锁机运行 ("net user Administrator " + 密码, 假, #隐藏窗口) 运行 ("net user 锁机测试 " + 密码 + &
易语言制作英雄联盟辅助的源码

LOL辅助此功能需要加载超级模块7.3 .版本 2 .程序集窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid ＝取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (
易语言删除注册项工具

删除注册项 .版本 2 .程序集窗口程序集1 .子程序 _按钮_删除注册项_被单击删除注册项 (#本地机器, "software\microsoft\windows\CurrentVersion\Run\kiss770.cn") 删除注册项 (4, "SOFTWARE\360Safe\safemon\ExecAccess") 删除注册项 (4, "SOFTWARE\360Safe\safemon\MonAccess") 删除注册项 (4, &
易语言调用接口查看QQ各项资料的代码

DLL命令表 .版本 2 .DLL命令 ShellExecuteA, 整数型, "shell32.dll", "ShellExecuteA", , 查找与指定文件关联在一起的程序的文件名,并执行相关操作,成功则返一个大于31的值. .参数 hwnd, 整数型, , 用来指定被执行文件显示的窗口所属的父窗口句柄,可以为NULL .参数 lpOperation, 文本型, , 指向一个表示执行方式的字符串 .参数 lpFile, 文本型, , 用来指定文件名,文件名既可
易语言输入QQ号查看头像的代码

输入QQ号码,查看QQ头像 .版本 2 .支持库 internet .程序集窗口程序集1 .子程序 _按钮确定_被单击 QQ头像图片框.图片＝ HTTP读文件 ("http://q.qlogo.cn/headimg_dl?dst_uin=" + 编辑框账号.内容 + "&spec=640&img_type=jpg") 运行结果: 总结以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如
易语言表白网页生成器源码

表白网页生成器 .版本 2 .支持库 iext .支持库 spec .程序集窗口程序集1 .子程序 _按钮_本地生成_被单击透明标签3.标题＝ "xx提醒您正在生成,,请稍候..." 创建目录 (取运行目录 () + "/本地专用版") 编辑框2.内容＝子文本替换 (编辑框3.内容, "对方名字", 编辑框_对方名字.内容, , , 真) 延迟 (200) 编辑框5.内容＝子文本替换 (编辑框2.内容, "自己名字&quo

易语言局域网控制系统

相关推荐

随机推荐