AU3-网吧U盘程序
此工具必须U盘目录是完全共享#include <GUIConstants.au3>
#include <Login.au3>
; 大小 本地路径 服务器路径 系统版本 用户名 密码
Dim $size , $path , $serverpath , $SysVersion , $username , $userpwd
;设置系统气球显示
Func SetToolTip()
If @OSVersion = "WIN_2003" Then
$regvalue = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","ShowInfoTip")
If $regvalue=0 Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","ShowInfoTip","REG_DWORD",1)
Run("gpupdate /force",@SystemDir,@SW_HIDE) ;通知系统注册表已改变
EndIf
Else
$regvalue = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","EnableBalloonTips")
If $regvalue=0 Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","EnableBalloonTips","REG_DWORD",1)
Run("gpupdate /force",@SystemDir,@SW_HIDE) ;通知系统注册表已改变
EndIf
EndIf
EndFunc
;读取配置文件
Func ReadIni()
$file = FileExists("config.ini")
if $file = 0 Then
MsgBox(48,"错误","配置文件损坏或不存在,按确定重新生成")
CreateConfig()
Exit
EndIf
;设置配置信息
$size=IniRead("config.ini","config","容量大小","50")
$path=IniRead("config.ini","config","本地路径","C:")
$Serverpath=IniRead("config.ini","config","服务器路径","\\ajian")
if Not FileExists($Serverpath) Then
MsgBox(0,"错误","服务器路径不存在,请联系管理员")
Exit
EndIf
;检测用户文件是否存在
$file = FileExists($Serverpath & "\user.ini")
if $file = 0 Then
Createuser()
EndIf
EndFunc
;重新生成配置文件
Func CreateConfig()
$file = FileOpen("config.ini",2)
FileWriteLine($file,"[config]")
FileWriteLine($file,"容量大小=50")
FileWriteLine($file,"本地路径=C:")
FileWriteLine($file,"服务器路径=\\共享服务器名,必须完全共享")
FileClose($file)
EndFunc
;生成用户文件
Func Createuser()
$file = FileOpen($Serverpath & "\user.ini",2)
FileWriteLine($file,"[user]")
FileClose($file)
$file = FileExists($Serverpath & "\user.ini")
if $file = 0 Then
MsgBox(0,"提示","请检查共享目录是否有读写权限")
Exit
EndIf
EndFunc
;托盘信息显示
Func TrayInfo($title,$concent,$type,$time)
TrayTip($title,$concent,5,$type)
Sleep($time * 1000)
TrayTip("","",0)
EndFunc
;检测程序是否在运行
Func ProExists()
$my_Version = "Au3Udisk1.0"
If WinExists($my_Version ) Then Exit
AutoItWinSetTitle($my_Version)
EndFunc
ProExists()
SetToolTip()
ReadIni()
#include <gui.au3>
页:
[1]