找回密码
 加入
搜索
查看: 33272|回复: 57

[原创] U盘信息 获取器 V1.02 源码共享

 火... [复制链接]
发表于 2011-7-3 17:27:56 | 显示全部楼层 |阅读模式
本帖最后由 linguanshou 于 2011-7-3 17:29 编辑

U盘信息 获取器 V1.02.au3

#cs ____________________________________
脚本名称:U盘信息 获取器 V1.02
脚本版本:V0.2
脚本功能:
脚本作者:小飞侠
Au3 版本:
Email:linguanshou@163.com
QQ/TM:57899737
#ce _______________脚本开始_________________
;-----------------------------------------------------------------------
; -- 预编译参数
#Region ; -- 预编译参数(常用参数)
; -- 图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_Icon=ico.ico
; -- 输出文件名 resource
;#AutoIt3Wrapper_OutFile=  
; -- 文件类型
;#AutoIt3Wrapper_OutFile_Type=exe
; -- 压缩等级
;#AutoIt3Wrapper_Compression=4      
; -- 使用压缩
;#AutoIt3Wrapper_UseUpx=y   
; -- 注释
;#AutoIt3Wrapper_Res_Comment=                 
; -- 详细信息
;#AutoIt3Wrapper_Res_Description=              
; -- 文件版本
;#AutoIt3Wrapper_Res_Fileversion=wps au3 beta v1.0            
; -- 自动更新版本  
;#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p                     
; -- 版权
;#AutoIt3Wrapper_Res_LegalCopyright=                       
; -- 修改输出的程序为CUI(控制台程序)
;#AutoIt3Wrapper_Change2CUI=N                                               
; -- 自定义资源段
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%              
; -- 脚本整理
;#AutoIt3Wrapper_Run_Tidy=                                       
; -- 代码迷惑
;#AutoIt3Wrapper_Run_Obfuscator=        
; -- 语法检查
;#AutoIt3Wrapper_Run_AU3Check=               
; -- 运行前
;#AutoIt3Wrapper_Run_Before=        
; -- 运行后
;#AutoIt3Wrapper_Run_After=         
#EndRegion ; -- 预编译参数设置完成
;-----------------------------------------------------------------------
; -- 脚本开始执行时不显示托盘的图标.
#NoTrayIcon
;-----------------------------------------------------------------------
#include <GUIConstants.au3>
#include <ListviewConstants.au3>
#include <GuiListView.au3>
;-----------------------------------------------------------------------
; -- ↑↑↑↑↑↑↑↑↑ 载入库
; -- 装入指定文件
FileInstall("Ico.ico", @TempDir & "\Ico.ico", 1)
FileInstall("top.jpg", @TempDir & "\top.jpg", 1)
;-----------------------------------------------------------------------
; -- 设置退出热键
HotKeySet("{Esc}", "P_Quit")
HotKeySet("{F10}", "P_F10")
; -- 不显示 托盘 默认菜单项
Opt("TrayMenuMode",1+2)
;-----------------------------------------------------------------------
; -- 创建窗口
$P_Win = GUICreate("U盘信息 获取器 V1.02", 500, 280)
; -- 设置图标
GuiSetIcon( "ico.ico" , 0 )
; -- 设置顶层图片
GUICtrlCreatePic(@TempDir & "\top.jpg", 0, 0, 500, 90)
; -- 创建列表单控件
$Usb_Disk = GUICtrlCreateListView("名称|VID-PID|序列号", 10, 100, 480, 150);,$LVS_SORTDESCENDING)
GUICtrlSendMsg(-1, 0x101E, 0, 200)
GUICtrlSendMsg(-1, 0x101E, 1, 80)
GUICtrlSendMsg(-1, 0x101E, 2, 190)
GUICtrlCreateGroup("", -5, 255, 510, 70)
GUICtrlCreateLabel("欢迎使用--由小飞侠制作的",20,265,150,17)
GUICtrlCreateLabel("U盘信息 获取器 V1.02",180,265,300,17)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("│",330,265,20,17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("by 小飞侠  QQ:57899737",350,265,150,17)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2011-7-3 22:04:28 | 显示全部楼层
麻烦来张图先!
发表于 2011-7-4 15:40:10 | 显示全部楼层
花一个金币啊。。。。不过值得。。。谢谢楼主分享
发表于 2011-7-11 22:56:37 | 显示全部楼层
顶顶顶顶顶顶顶顶顶顶
发表于 2011-7-27 10:27:31 | 显示全部楼层
谢谢分享~~~~~~~~~~~
发表于 2011-7-31 01:03:28 | 显示全部楼层
先多谢了,用用看
发表于 2011-8-10 09:09:31 | 显示全部楼层
编译完了就是获取不到U盘的信息。。。
发表于 2011-8-25 23:50:05 | 显示全部楼层
金币不够了 咋办呢
发表于 2011-8-26 23:29:42 | 显示全部楼层
看起来很强大
发表于 2011-9-13 23:35:50 | 显示全部楼层
谢谢分享~~~~~~~~~~~
发表于 2011-10-22 17:11:51 | 显示全部楼层
怎么下不了呢?????
发表于 2011-10-26 00:30:36 | 显示全部楼层
钱不够,筹钱中……
发表于 2011-11-1 07:08:36 | 显示全部楼层
看起来很强大
发表于 2011-11-8 11:45:04 | 显示全部楼层
钱不够啊!!!!
发表于 2011-11-8 12:02:29 | 显示全部楼层
非常感谢楼主。还给源码做了注释。让我们新手能读懂。。老鸟的模范啊
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-22 22:13 , Processed in 0.141892 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表