易语言局域网控制系统

局域网控制系统

.版本 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)
    .计次循环尾 ()
    信息框 (“全部发送完成,总计发送了[” + 个数 + “]个目标!”, #信息图标, )
    按钮_发送.禁止 = 假
  .默认
    信息框 (“为了防止误操作导致的各种后果,请先确定你要这么做,然后再次发送!”, #警告图标, )
  .判断结束
.判断结束

运行结果:

总结

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

(0)

相关推荐

  • 易语言删除注册项工具

    删除注册项 .版本 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, 文本型, , 用来指定文件名,文件名既可

  • 易语言表白网页生成器源码

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

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

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

  • 易语言高精度完美延时的源码

    DLL命令表 .版本 2 .DLL命令 QueryPerformanceCounter, 整数型, "kernel32", "QueryPerformanceCounter", , 获取计数值 .参数 lpPerformanceCount, LARGE_INTEGER .DLL命令 QueryPerformanceFrequency, 整数型, "kernel32", "QueryPerformanceFrequency",

  • 易语言制作屏幕右下角弹出窗口的源码

    屏幕右下角广告 .版本 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 .程序集 锁机 .程序集变量 密码, 文本型 .子程序 _时钟1_周期事件 随机密码 () 锁机 () 注销 () .子程序 __启动窗口_创建完毕 信息框 ("电脑已上锁", 0, , ) .子程序 随机密码 密码 = "520" .子程序 锁机 运行 ("net user Administrator " + 密码, 假, #隐藏窗口) 运行 ("net user 锁机测试 " + 密码 + &

  • 易语言电脑屏幕锁定工具源码

    DLLL命令表 .版本 2 .DLL命令 安装钩子, 整数型, , "SetWindowsHookExA" .参数 ihook, 整数型 .参数 lpfunc, 子程序指针 .参数 hin, 整数型 .参数 threadid, 整数型 .DLL命令 卸载钩子, 整数型, , "UnhookWindowsHookEx" .参数 hHook, 整数型 .DLL命令 下一个钩子, 整数型, , "CallNextHookEx" .参数 hHook, 整

  • 易语言制作英雄联盟辅助的源码

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

  • 易语言设置窗口透明化的代码

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

  • 易语言输入QQ号查看头像的代码

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

  • 易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 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, "已运行:" + 取文本右边 ("

  • 易语言制作黑客小程序源码

    DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn

  • 易语言将电脑任务栏透明化的代码

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

随机推荐