linguanshou 发表于 2011-7-3 17:27:56

U盘信息 获取器 V1.02 源码共享

本帖最后由 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

麻烦来张图先！{:face (197):}

devilma 发表于 2011-7-4 15:40:10

花一个金币啊。。。。不过值得。。。谢谢楼主分享

huohukiss 发表于 2011-7-11 22:56:37

顶顶顶顶顶顶顶顶顶顶{:face (114):}

w1314ich 发表于 2011-7-27 10:27:31

谢谢分享~~~~~~~~~~~

yenveo 发表于 2011-7-31 01:03:28

先多谢了，用用看

xydpc02 发表于 2011-8-10 09:09:31

编译完了就是获取不到U盘的信息。。。

hearton 发表于 2011-8-25 23:50:05

金币不够了 咋办呢

fqvip1 发表于 2011-8-26 23:29:42

看起来很强大

fhsoft 发表于 2011-9-13 23:35:50

谢谢分享~~~~~~~~~~~

汲水先生 发表于 2011-10-22 17:11:51

怎么下不了呢？？？？？

yangysky 发表于 2011-10-26 00:30:36

钱不够，筹钱中……

mlrw923 发表于 2011-11-1 07:08:36

看起来很强大

zhangzexue 发表于 2011-11-8 11:45:04

钱不够啊！！！！

微笑炸弹 发表于 2011-11-8 12:02:29

非常感谢楼主。还给源码做了注释。让我们新手能读懂。。老鸟的模范啊
页: [1] 2 3 4
查看完整版本: U盘信息 获取器 V1.02 源码共享