易语言获取计算机硬盘信息的代码

常量数据表

.版本 2
.常量 GetDiskList, "<文本长度: 613>"

取磁盘信息代码

.版本 2
.程序集 窗口程序集1
.子程序 _取硬盘信息按钮_被单击
硬盘信息编辑框.内容 = 取硬盘列表 ()
.子程序 取硬盘列表, 文本型, 公开
.局部变量 Script, 对象
.局部变量 ret, 文本型
Script.创建 (“MSScriptControl.ScriptControl”, )
Script.写属性 (“Language”, “VBScript”)
Script.数值方法 (“AddCode”, #GetDiskList)
ret = Script.通用方法 (“Eval”, “GetDiskList()”).取文本 ()
返回 (ret)

运行结果:

总结

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

(0)

相关推荐

  • 易语言制作推箱子小游戏的代码

    DLL命令表 .版本 2 .DLL命令 写配置文件, 整数型, , "WritePrivateProfileStringA", , 如果配置文件不存在则将被创建 .参数 小节名, 文本型, , 就是用中括号括起来的内容 .参数 项目名, 文本型, , 就是等号前边的内容 .参数 项目值, 文本型, , 就是等号后面的内容 .参数 文件名, 文本型, , 就是你要写入的那个文件 .DLL命令 读配置整数, 整数型, , "GetPrivateProfileIntA"

  • 易语言实现反OD调试反复附加的代码

    DLL命令表 .版本 2 .DLL命令 ZwQueryInformationProcess, 整数型, "NTDLL.DLL" .参数 ProcessHandle, 整数型 .参数 ProcessInformationClass, 整数型 .参数 ProcessInformation, PROCESS_BASIC_INFORMATION .参数 ProcessInformationLength, 整数型 .参数 ReturnLength, 整数型, 传址 .DLL命令 OpenProc

  • 易语言修改快捷方式进行微信多开的代码

    此功能配合精易模块使用,需要加载超级模块. 常量数据表 .版本 2 .常量 头, "<文本长度: 11>" .常量 尾, "<文本长度: 4>" .常量 头1, "<文本长度: 8>" .常量 尾1, "<文本长度: 12>" 微信多开的代码 .版本 2 .支持库 shell .支持库 eAPI .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _路径按钮_被单击 通

  • 易语言通过解析免费下载QQ付费音乐的代码

    常量数据表 .版本 2 .常量 链接1, "<文本长度: 9>" .常量 链接2, "<文本长度: 2>" QQ付费音乐下载器 此功能配合精易模块5.6使用,需要加载模块. .版本 2 .支持库 downlib .支持库 iext .支持库 spec .支持库 shell .程序集 窗口程序集_启动窗口 .程序集变量 任务, 任务参数 .程序集变量 下载限速, 整数型 .程序集变量 下载对象, 下载对象 .子程序 _按钮1_被单击 .如果 (

  • 易语言验证十八位身份证号码是否正确的代码

    常量数据表 .版本 2 .常量 行政划位码2, "<文本长度: 20409>", , 各区身份证前六位 .常量 行政划位码1, "<文本长度: 29990>", , 各区身份证前六位 验证十八位身份证号的代码 .版本 2 .程序集 程序集1 .子程序 验证身份证号, 逻辑型 .参数 十八位身份证号, 文本型 .局部变量 系数, 整数型, , "0" .局部变量 余数表, 整数型, , "0" .局部变量

  • 易语言免费免登陆不限次数下载千图网图片的代码

     免费免登陆下载千图网贴图,不限下载次数. 此功能配合精易模块5.6使用,需要加载模块. .版本 2 .支持库 internet .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 文件序号, 文本型 .局部变量 网页源码, 文本型 .局部变量 图片地址, 文本型 .局部变量 网址中间, 文本型 .局部变量 图片数据, 字节集 .局部变量 格式, 文本型 网页源码 = 网页_访问S (编辑框1.内容) 网址中间 = 取中间文本 (网页源码, "src=" + #引号

  • 易语言监控smtp和反编译获取程序内邮件密码发送信息达到反钓鱼的目的

    监控smtp和反编译获取程序内邮件密码.发送信息达到反钓鱼的目的 反邮箱钓鱼程序源码 .版本 2 .支持库 EThread .支持库 eAPI .支持库 xplib .支持库 edroptarget .支持库 pop3 .支持库 iext .程序集 窗口程序集1 .程序集变量 服务器, 文本型 .程序集变量 帐号, 文本型 .程序集变量 密码, 文本型 .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 钓鱼软件, 字节集 .局部变量 邮箱位置, 整数型 .局部变量

  • 易语言抽取幸运号控制子程序暂停与继续运行的代码

    控制子程序暂停与继续运行的代码 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 是否暂停, 逻辑型 .子程序 _开始按钮_被单击 .局部变量 i, 整数型 开始按钮.禁止 = 真 处理事件 () .判断循环首 (i < 100000) .如果真 (是否暂停 = 假) i = i + 1 随机数标签.标题 = 到文本 (i) .如果真结束 处理事件 () .判断循环尾 () 开始按钮.禁止 = 假 .子程序 _暂停按钮_被单击 是否暂停 = 真 .子程序 _继续按钮_被单击 是否暂停 =

  • 易语言调用百度图片识别实现的图片转表格的代码

    截图模块代码 .版本 2 .子程序 开始截图, 逻辑型, 公开, 截图成功返回真,图片被自动保存到剪贴板.失败或放弃截图则返回假. .参数 是否截取鼠标, 逻辑型, 可空 .参数 调节框颜色, 整数型, 可空, 默认:Red=10,Green=100,Blue=130 .参数 矩形信息框颜色, 整数型, 可空, 默认黑色 .参数 矩形信息字体颜色, 整数型, 可空, 默认黑色 .子程序 取剪贴板位图, 字节集, 公开 表格图片转表格源码 此功能需要加载精易模块5.6 .版本 2 .支持库 edr

  • 易语言通过时钟和计次循环来实现定时任务的代码

    创建定时任务源码 .版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .计次循环首 (61, i) .如果真 (i < 25) 时组合框.加入项目 (到文本 (i - 1), ) .如果真结束 分组合框.加入项目 (到文本 (i - 1), ) 秒组合框.加入项目 (到文本 (i - 1), ) .计次循环尾 () 时组合框.现行选中项 = 0 分组合框.现行选中项 = 0 秒组合框.现行选中项 = 0

  • 易语言通过枚举密码进行破解rar压缩包文件的代码

    rar密码破解源码 此功能需要加载精易模块5.6 .版本 2 .支持库 xplib .程序集 窗口程序集_启动窗口 .程序集变量 程序集_数组1, 文本型, , "0" .程序集变量 程序集_数组2, 文本型, , "0" .程序集变量 程序集_数组3, 文本型, , "0" .程序集变量 程序集_数组4, 文本型, , "0" .程序集变量 程序集_数组5, 文本型, , "0" .程序集变量 程序集_数

  • 易语言随机生成MAC地址的代码

    实现思路 相信大家都了解mac地址的重要性,每块网卡被生产出来后,都会有一个全球唯一的编号来标识自己,不会重复,这个编号就是MAC地址,也就是网卡的物理地址. 查阅了一些资料,16进制中第一组第二个数字一定是个偶数(十进制概念,不知道恰不恰当).也就是说第二个数字一定是0.2.4.6.8.A.C.E其中的一个. 源码原理,取随机数字16-255,判断是否为偶数不是就+1,这样第一组就出来了,然后我们用取十六进制文本将10进制转换成16进制,再循环随机5组就实现了我们的取随机MAC地址. 随机生成

  • 易语言调用墨迹天气实现自动定位获取天气情况的代码

    常量数据表 .版本 2 .常量 实况头, "<文本长度: 9>" .常量 实况尾, "<文本长度: 2>" .常量 更新时间头, "<文本长度: 28>" .常量 更新时间尾, "<文本长度: 9>" .常量 温度头, "<文本长度: 28>" .常量 温度尾, "<文本长度: 5>" .常量 空气质量头, &quo

  • 易语言多线程多任务下载器的代码

    多线程多任务下载模块源码 1.DLL命令表 .版本 2 .DLL命令 InternetGetConnectedStateHTTP, , "Wininet.dll", "InternetGetConnectedState", 公开 .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenAHTTP, 整数型, "Wininet.dll", "InternetOpenA&q

  • 易语言超级列表框点击表头进行排序的代码

    超级列表框排序模块源码 .版本 2 .支持库 iext .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中. 注意不要修改本子程序的名称.参数及返回值类型. .子程序 超级列表框排序, 整数型

随机推荐