AU3-网吧私人保险柜（客户端） 客户端, 网吧, 私人

似水年华

#include <GUIConstants.au3>
#include <GuiListView.au3>
#Include <GuiStatusBar.au3>
#include <Constants.au3>
#include <GuiList.au3>
#include <file.au3>
#Include <process.au3>
#include <string.au3>
#Include <date.au3>

Opt( "RunErrorsFatal", 0 ) ;防止执行程序出错被冲止
Opt("TrayIconHide",1)   ;隐藏

Dim $all,$listview,$nesfi=@SystemDir,$wiyh,$wipas,$shulang

$tenor = ProcessList(@ScriptName)
If $tenor[0][0] > 1 Then
msgbox(0,"提示","已经有一个程序在运行",10)
Exit
EndIf
if @OSTYPE <> "WIN32_NT" then
MsgBox(0,"提示","本程序只支持NT/2000/XP/2003系统")
exit
EndIf
If Not FileExists(@ScriptDir&"\"&"xiaoqin.ini") Then
MsgBox(48,'提示','没有找到配置文件')
Exit
EndIf

$lq=qieMM( IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','调用路径','') )
If FileExists($lq) Then
FileCopy($lq&'\xiaoqin.ini',@ScriptDir&"\xiaoqin.ini",1)
FileCopy($lq&'\game.db',@ScriptDir&"\game.db",1)
EndIf

$luxs=StringSplit(qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','存储路径','')), "=")
$yydaxi=qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','空间大小',''))
$cong=StringSplit($yydaxi, "|")
$sazl=StringSplit(qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','存档数量','')), "=")
If $luxs[0]<>2 Or $cong[0]<2   Or $sazl[0]<>2 Then
MsgBox(16,'警告','xiaoqin.ini配置文件被非法修改')
Exit
Else
$tlpass=StringSplit($cong[$cong[0]], "=")
If $tlpass[0]<>3 Then
   MsgBox(16,'警告','xiaoqin.ini配置文件被非法修改')
   Exit
ElseIf $luxs[2]<> $sazl[2] Or $luxs[2]<>$tlpass[3] Or $sazl[2]<>$tlpass[3] Then
   MsgBox(16,'警告','xiaoqin.ini配置文件被非法修改')
   Exit
Else
   $luxing=$luxs[1]
   $shulang=$sazl[1]
   $zong=$tlpass[2]
   $jibe=$tlpass[1]
EndIf
EndIf

;;;;;;;;;;;;;;;;;;;;;;登录界面
Local $a_PartsRightEdge[2] = [230, -1]
Local $a_PartsText[2] = ["总容量："&$zong&" MB", "制作：小覃"]
win()
Func win()
$gui1=GUICreate ( "网吧私人保险柜 v3.0" ,300,178)
GUICtrlCreateGroup("", 5, 48, 290, 80);=大框

GUICtrlCreateLabel("用户名称:", 18, 70, 54, 25)
$name = GUICtrlCreateInput("", 72, 65, 150, 21);用户名输入框
GUICtrlSetFont (-1, 11)
GUICtrlCreateLabel("用户密码:", 18, 100, 54, 25)
$pass= GUICtrlCreateInput("", 72, 95, 150, 21,$ES_PASSWORD);用户密码输入框
GUICtrlSetFont (-1, 11)

$shuzhe=GUICtrlCreateLabel("注册帐号",   235, 65, 50,17,$SS_NOTIFY)
GUICtrlSetCursor(-1, 0);忘记密码的设置参数
GUICtrlSetColor(-1,0x0000FF);忘记密码的设置参数
GUICtrlSetTip ( -1, '注册新用户，空间大小是为'&$zong&'M' )
$wangqi=GUICtrlCreateLabel("忘记密码",   235, 85, 50,17,$SS_NOTIFY)
GUICtrlSetCursor(-1, 0);忘记密码的设置参数
GUICtrlSetColor(-1,0x0000FF);忘记密码的设置参数
GUICtrlSetTip ( -1, '忘记密码' )
$jiukai=GUICtrlCreateLabel("修改密码", 235, 105, 50,17,$SS_NOTIFY)
GUICtrlSetCursor(-1, 0);修改密码的设置参数
GUICtrlSetColor(-1,0x30000FF);修改密码的设置参数
GUICtrlSetTip ( -1, '修改密码' )

$OK=GUICtrlCreateButton("确   定",   80, 130, 50,25);按钮
$ESC=GUICtrlCreateButton( "取   消",   170, 130, 50,25);按钮

GUICtrlCreatePic(@ScriptDir&"\logo.jpg",1,1, 298,48 );=图片
_GUICtrlStatusBarCreate ($gui1, $a_PartsRightEdge, $a_PartsText)
GUICtrlSetColor(-1,0xE0FFFF)
GUICtrlSetState ($OK, $GUI_DEFBUTTON)
GUISetState ()

While 1
$msg = GUIGetMsg()
$mane=GUICtrlRead($name)
$bass=GUICtrlRead($pass)
Select

Case $msg = $OK ;用户登录
   If $mane='' Or $bass='' Then
    MsgBox(48,'提示','用户名或用户密码不能为空',0)
   ElseIf FileExists($luxing&$mane)=0 Then
    MsgBox(48,'提示','该用户未注册',0)
    GUICtrlSetData ($name,"")
    GUICtrlSetData ($pass,"")
   ElseIf $bass<>qieMM(IniRead($luxing&$mane&"\users.dat","参数","用户密码","")) Then
    MsgBox(48,'提示','用户名或用户密码不正确',0)
    GUICtrlSetData ($pass,"")
   Else
    $redtj=qieMM(IniRead($luxing&$mane&"\users.dat","参数","用户等级",""))
    $sesq=IniRead($luxing&$mane&"\users.dat","参数","注册时间","")
    $relq=StringSplit($redtj, "=")
    If $relq[0]=3 Then
     If $relq[1]<>$mane Or $relq[3]<>$sesq Then
      $tenxi='未知的等级'
     Else
      $tenxi=$relq[2]
     EndIf
    Else
     $tenxi='未知的等级'
    EndIf
     FileInstall('D:\qin\ys.exe', $nesfi&'\ys.exe',1)
     GUIDelete ($gui1)
     yonghu($mane,jbfile($tenxi,$yydaxi),$luxing,$tenxi)
   EndIf
Case $msg = $shuzhe;注册帐号
    $reduser=qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','注册用户',''))
    If $reduser='开放注册' Then
     GUIDelete ($gui1)
     logser($luxing,$jibe)
    Else
     MsgBox(48,'提示','目前停止注册',0)
    EndIf
Case $msg = $wangqi ;忘记密码
     GUIDelete ($gui1)
     wangqimm1($luxing)
Case $msg = $jiukai ;修改密码
     GUIDelete ($gui1)
     xiukaimm($luxing)
Case $msg = $GUI_EVENT_CLOSE or $msg=$ESC
     Exit
EndSelect
Wend
EndFunc

Func yonghu($yhm,$dx,$luqin,$jibie) ;上传下载准备操作
$gui2=GUICreate("“"&$yhm&"”的私人空间",425,397,-1,-1)
$Status = GUICtrlCreateLabel("", 0, 382, 425, 15,BitOR($SS_SUNKEN, $SS_CENTER))
$tab=GUICtrlCreateTab (-3,-2, 430,385,$TCS_FLATBUTTONS)
$tab0=GUICtrlCreateTabitem ("    私 人 存 储    ")
$listview = GUICtrlCreateListView("文件名称               |大小|上传时间        ", 6, 25, 413, 349)
GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
$search = FileFindFirstFile($luqin&$yhm&'\用户存储\*.rar')  
If $search <> -1 Then
While 1
   $file = FileFindNextFile($search)
   If @error Then ExitLoop
   $sname=StringTrimRight ($file, 4)
   $emb=Round(FileGetSize($luqin&$yhm&'\用户存储\'&$file)/1048576,2)
   $hs =   FileGetTime($luqin&$yhm&'\用户存储\'&$file, 1)
   $shutime=$hs[0]&'-'&$hs[1]&'-'&$hs[2]&' '&$hs[3]&':'&$hs[4]&':'&$hs[5]
   GUICtrlCreateListViewItem($sname&'|'&$emb&'MB|'&$shutime, $listview)
WEnd
EndIf
FileClose($search)

$buttoncontext = GUICtrlCreateContextMenu($listview)
$up = GUICtrlCreateMenu("上   传",$buttoncontext)
$uppapers = GUICtrlCreateMenuitem("文   件",$up)
$upfolder = GUICtrlCreateMenuitem("文件夹",$up)

$down = GUICtrlCreateMenuitem("下   载",$buttoncontext)
$reanaw = GUICtrlCreateMenuitem("刷   新",$buttoncontext)
$del = GUICtrlCreateMenuitem("删   除",$buttoncontext)
$rea = GUICtrlCreateMenuitem("重命名",$buttoncontext)


$tab1=GUICtrlCreateTabitem ("    游 戏 存 档    ")
GUICtrlCreateLabel ("游戏列表名称：",10,30,100,15)
$rtys=GUICtrlCreateLabel ("",215,30,180,15)
$stsl=GUICtrlCreateLabel ("可存"&$shulang&'个档',350,30,100,15)

$uy1=GUICtrlCreateList ("", 5,45,205, 315)
$uy2=GUICtrlCreateList ("", 215,45,205, 330)

$uptouy1 = GUICtrlCreateContextMenu($uy1)
$upgame = GUICtrlCreateMenuitem("上传",$uptouy1)
GUICtrlCreateLabel("关键词：", 5, 360,50,15)
$input = GUICtrlCreateInput("", 50, 355, 80, 20)
GUICtrlSetTip (-1, '游戏查找，输入关键词回车既可')
$button = GUICtrlCreateButton("搜索", 130, 355, 40, 20)
$button1 = GUICtrlCreateButton("下一个", 170, 355, 40, 20)

$uptouy2 = GUICtrlCreateContextMenu($uy2)
$downgame = GUICtrlCreateMenuitem("下载",$uptouy2)
$delgame = GUICtrlCreateMenuitem("删除",$uptouy2)
$reagame = GUICtrlCreateMenuitem("改名",$uptouy2)


Dim $bs
If _FileReadToArray(@ScriptDir&'\game.db',$bs) Then
For $a = 1 to $bs[0]
   $ay=StringSplit($bs[$a], "]")
   If $ay[0]<>0 Then
    If StringLeft($ay[1], 1)='[' Then
     GUICtrlSetData($uy1,StringTrimLeft($ay[1], 1))
    EndIf
   EndIf
Next
EndIf


GUISetState (@SW_SHOW)
$hy=Round(DirGetSize($luqin&$yhm&'\用户存储\')/1048576,2)
GUICtrlSetData($Status, "用户等级："&$jibie&"    空间大小："&$dx&"M    已用大小："&$hy&"M")
IniWrite ($luqin&$yhm&"\users.dat","参数", "最后登录", _NowDate())
GUICtrlSetState ($button, $GUI_DEFBUTTON)
$y=-1
While 1
$msg = GUIGetMsg()
Select
   Case $msg = $uppapers
             $Fileup = FileOpenDialog("请选择文件",'', "All(*.*)",1)
    If $Fileup<>"" Then
     $wxm=StringSplit(formatPath2($Fileup), "\")
     GUIDelete ($gui2)
     up($luqin&$yhm , formatPath2($Fileup) , $wxm[$wxm[0]] , $dx ,$yhm,$dx,$luqin,$jibie)
    EndIf  
   Case $msg = $upfolder
             $xianup = FileSelectFolder("请选择文件夹", "",0,'')
    If $xianup<>"" Then
     $xiam=StringSplit(formatPath2($xianup), "\")
     GUIDelete ($gui2)
     up($luqin&$yhm , formatPath2($xianup) , $xiam[$xiam[0]] , $dx ,$yhm,$dx,$luqin,$jibie)
    EndIf
   Case $msg = $down
    $downm=_GUICtrlListViewGetItemText($listview, _GUICtrlListViewGetSelectedIndices($listview), 0)
    If $downm<>'' Then
     $regd=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer","Download Directory")
     $Filedown = FileSelectFolder("下载文件", "",7,$regd)
     If $Filedown<>"" Then
      RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer","Download Directory", "REG_SZ", $Filedown)
      GUIDelete ($gui2)
      down($luqin&$yhm , $downm , formatPath2($Filedown) ,$yhm,$dx,$luqin,$jibie)
     EndIf
    EndIf
   Case $msg = $reanaw
      $hy1=Round(DirGetSize($luqin&$yhm&'\用户存储\')/1048576,2)
      GUICtrlSetData($Status, "“"&$yhm&"”的私人空间（已使用"&$hy1&"M   总容量"&$dx&"M）")
      _GUICtrlListViewDeleteAllItems ($listview)
     $search = FileFindFirstFile($luqin&$yhm&'\用户存储\*.rar')  
     If $search <> -1 Then
      While 1
       $file = FileFindNextFile($search)
       If @error Then ExitLoop
       $sname=StringTrimRight ($file, 4)
       $emb=Round(FileGetSize($luqin&$yhm&'\用户存储\'&$file)/1048576,2)
       $hs =   FileGetTime($luqin&$yhm&'\用户存储\'&$file, 1)
       $shutime=$hs[0]&'-'&$hs[1]&'-'&$hs[2]&' '&$hs[3]&':'&$hs[4]&':'&$hs[5]
       GUICtrlCreateListViewItem($sname&'|'&$emb&'MB|'&$shutime, $listview)
      WEnd
     EndIf
     FileClose($search)
   Case $msg = $del
     $st=_GUICtrlListViewGetItemText($listview, _GUICtrlListViewGetSelectedIndices($listview), 0)
     If $st<>'' Then
      $yeng=MsgBox(0+4,'提示','确认删除 '&$st,0)
      If $yeng=6 Then
       FileDelete($luqin&$yhm&'\用户存储\'&$st&'.rar')
       Sleep(500)
       If FileExists($luqin&$yhm&'\用户存储\'&$st&'.rar') Then
        MsgBox(16,'警告','删除无效，文件正在被另一个人或程序使用')
       Else
        _GUICtrlListViewDeleteItemsSelected ($listview)
        $hy2=Round(DirGetSize($luqin&$yhm&'\用户存储\')/1048576,2)
        GUICtrlSetData($Status, "“"&$yhm&"”的私人空间（已使用"&$hy2&"M   总容量"&$dx&"M）")      
       EndIf
      EndIf
     EndIf
   Case $msg = $rea
     $st=_GUICtrlListViewGetItemText($listview, _GUICtrlListViewGetSelectedIndices($listview), 0)
     If $st<>'' Then
       $gui10=GUICreate("文件重命名",210,62,-1,-1,$WS_SYSMENU)
      GUICtrlCreateLabel("名称:",5, 8, 40, 15)
      $in=GUICtrlCreateInput ( $st,40, 5, 118, 20)
      $readname = GUICtrlCreateButton("确定", 160, 5, 40, 20)
      GUICtrlSetState ($readname, $GUI_DEFBUTTON)
      GUISetState (@SW_SHOW)
      While 1
       $ms = GUIGetMsg()
       $ipn=GUICtrlRead($in)
       If $ms= $GUI_EVENT_CLOSE Then
        GUIDelete ($gui10)
        ExitLoop
       EndIf
       If $ms= $readname Then
        If $ipn='' Then
         MsgBox(0,'错误','文件名不能为空',0)
        Else
         If FileExists($luqin&$yhm&'\用户存储\'&$ipn&'.rar') Then
          MsgBox(48,'提示','该名称已存在',0)
         Else
          FileMove($luqin&$yhm&'\用户存储\'&$st&'.rar', $luqin&$yhm&'\用户存储\'&$ipn&'.rar',0)
          Sleep(500)
          If FileExists($luqin&$yhm&'\用户存储\'&$ipn&'.rar')=0 And FileExists($luqin&$yhm&'\用户存储\'&$st&'.rar') Then
           MsgBox(16,'警告','重命名无效，文件正在被另一个人（程序）使用或文件名包含非法字符',0)
          Else
           $id=_GUICtrlListViewGetSelectedIndices($listview)
           _GUICtrlListViewSetItemText ($listview, $id, 0, $ipn)
           GUIDelete ($gui10)
           ExitLoop
          EndIf
         EndIf
        EndIf
       EndIf
      
      Wend
     EndIf
   Case $msg = $upgame;上传游戏存档
    $ret = _GUICtrlListGetText ($uy1, _GUICtrlListSelectedIndex ($uy1))
    If $ret<>-1 Then
     If $shulang-_GUICtrlListGetInfo ($uy2) <=   0 Then
      MsgBox(48,'提示','每个游戏存档数量不能超过'&$shulang&'个',0)
     Else
      DirCreate ($luqin&$yhm&'\游戏存档\'&$ret)
     $wj=@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC
      $wd=IniReadSection(@ScriptDir&'\game.db',$ret)
      $gsa= IniRead (@ScriptDir&'\game.db', $ret, "存档路径", "" )
      $bsa=IniRead (@ScriptDir&'\game.db', $ret, "排除路径", "" )
      $tpmesa=_TempFile()
      $tpmeba=_TempFile()
      If $gsa<>'' Then
       $sa=StringSplit($gsa, '|')
       For $w = 1 To $sa[0]
        FileWrite ($tpmesa, '"'&formatPath2($sa[$w])&'" ')
       Next
       $yyw=FileReadLine ($tpmesa, 1)
      Else
       ExitLoop
      EndIf
      If $bsa<>'' Then
       $ba=StringSplit($bsa, '|')
       For $u = 1 To $ba[0]
        FileWrite ($tpmeba, '-x"'&formatPath2($ba[$u])&'" ')
       Next
       $yyb=FileReadLine($tpmeba, 1)
      Else
       $yyb='-x '
      EndIf
      FileDelete ($tpmesa)
      FileDelete ($tpmeba)
      If $yyw<>'' Then
        $gui8=GUICreate("上传存档",355,110,-1,-1,$WS_SYSMENU)
        $jindutao = GUICtrlCreateProgress (10,50,293,20)
        GUICtrlCreateLabel("正在上传游戏存档，请稍候……", 10, 20, 230, 20)
        GUICtrlSetFont (-1,12)
        $Statustao = GUICtrlCreateLabel("   0％", 308, 51, 100, 20)
        GUICtrlSetFont ($Statustao,11)
        GUISetState ()     
        $redcmd = Run(@ComSpec & ' /c '&$nesfi&'\ys a "'&$luqin&$yhm&'\游戏存档\'&$ret&'\'&$wj&'.rar" -y '&$yyb&$yyw, @SystemDir, @SW_HIDE, $STDOUT_CHILD) ;压缩
        ProcessWait ('ys.exe',60)
        $xk=0

Do
          $msg = GUIGetMsg()
          $PID=ProcessExists("ys.exe")
          If $PID=0 Then
           If FileExists($luqin&$yhm&'\游戏存档\'&$ret&'\'&$wj&'.rar')=0 Then
            MsgBox(48,'错误','无法上传该文件',0)
            GUIDelete ($gui8)
            ExitLoop
           Else
             $xk=100
             GUICtrlSetData ($jindutao,$xk)
             GUICtrlSetData($Statustao,$xk&'％')
             GUICtrlSetData($uy2,$wj&'.rar')
             GUICtrlSetData($stsl,'可存'&$shulang-_GUICtrlListGetInfo ($uy2)&'个档')
             GUIDelete ($gui8)
             ExitLoop
           EndIf
          EndIf
          $bshi=StringSplit(StdoutRead($redcmd), "%")
          If $bshi[0]=2 Then
           $xk=StringRight ($bshi[1], 3)
           If $xk = 100 Then
             GUICtrlSetData ($jindutao,$xk)
             GUICtrlSetData($Statustao,$xk&'％')
             GUICtrlSetData($uy2,$wj&'.rar')
             GUICtrlSetData($stsl,'可存'&$shulang-_GUICtrlListGetInfo ($uy2)&'个档')
             ProcessClose('ys.exe')
             GUIDelete ($gui8)
             ExitLoop   
           Else
             GUICtrlSetData ($jindutao,$xk)
             GUICtrlSetData($Statustao,$xk&'％')
           EndIf
          EndIf
        
          If $msg = $GUI_EVENT_CLOSE Then
           $dlj=MsgBox(0+4,'提示','正在上传游戏存档，确定退出？',0)
           If $dlj=6 Then
            ProcessClose('ys.exe')
            ProcessWaitClose ('ys.exe', 60)  
            Sleep(200)
            FileDelete ($luqin&$yhm&'\游戏存档\'&$ret&'\'&$wj&'.rar')
            GUIDelete ($gui8)
            ExitLoop   
           EndIf
          EndIf
         Until $xk=100
       EndIf
      EndIf  

     EndIf
    Case $msg = $downgame;下载游戏存档
     $rot = _GUICtrlListGetText ($uy2, _GUICtrlListSelectedIndex ($uy2))
     If $rot<>-1 Then
       $goa=IniRead (@ScriptDir&'\game.db', $frer, "存档路径", "" )
       If $goa<>'' Then
        $gui11=GUICreate("下载存档",355,160,-1,-1,$WS_SYSMENU)
        $jindutao2 = GUICtrlCreateProgress (10,50,293,20)
        $jindutao = GUICtrlCreateProgress (10,90,293,20,$PBS_SMOOTH)
        GUICtrlSetColor(-1, 32250)
        GUICtrlCreateLabel("正在下载游戏存档，请稍候……", 10, 20, 230, 20)
        GUICtrlSetFont (-1,12)
        $Statustao2 = GUICtrlCreateLabel("0％", 308, 51, 100, 20)
        $Statustao = GUICtrlCreateLabel("0％", 308, 91, 100, 20)
        GUICtrlSetFont ($Statustao,11)
        GUISetState ()
        $xsa=StringSplit($goa, '|')
        $tempba=_TempFile()
        $d=0
        For $y= 1 To $xsa[0]
         $banfu=StringLeft ($xsa[$y], 1 )
         If StringInStr (FileReadLine ($tempba, 1), $banfu)=0 Then
          FileWrite ($tempba, $banfu)
          $redcmd = Run(@ComSpec & ' /c '&$nesfi&'\ys x "'&$luqin&$yhm&'\游戏存档\'&$frer&'\'&$rot&'" -y -o+ '&$banfu&':\', @SystemDir, @SW_HIDE, $STDOUT_CHILD)
          ProcessWait ('ys.exe',60)
          $xj=0
          Do
           $msg = GUIGetMsg()
           $PID=ProcessExists("ys.exe")
           If $PID=0 Then
            $xj=100
            GUICtrlSetData ($jindutao,$xj)
            GUICtrlSetData($Statustao,$xj&'％')
            ExitLoop
           EndIf
           $bshi=StringSplit(StdoutRead($redcmd), "%")
           If $bshi[0]=2 Then
            $xj=StringRight ($bshi[1], 2)
            If $xj < 0 Or $xj > 100 Then
              GUICtrlSetData ($jindutao,$xj)
              GUICtrlSetData($Statustao,$xj&'％')  
            Else
              GUICtrlSetData ($jindutao,$xj)
              GUICtrlSetData($Statustao,$xj&'％')
            EndIf
           EndIf
         
           If $msg = $GUI_EVENT_CLOSE Then
            $dlj=MsgBox(0+4,'提示','正在下载游戏存档，确定退出？',0)
            If $dlj=6 Then
             ProcessClose('ys.exe')
             ExitLoop   
            EndIf
           EndIf
          Until $xj=100
         EndIf
         $d=$d+1
         $s=Round( $d/$xsa[0]*100, 0)
         GUICtrlSetData ($jindutao2,$s)
         GUICtrlSetData($Statustao2,$s&'％')      
        Next
        FileDelete ($tempba)
        GUIDelete ($gui11)
       EndIf
     EndIf   
    Case $msg = $delgame;删除游戏存档
     $det =_GUICtrlListSelectedIndex ($uy2)
     $sdet=_GUICtrlListGetText ($uy2, $det)
     If $det<>-1 Then
      $yeng=MsgBox(0+4,'提示','确认删除 '&$sdet)
      If $yeng=6 Then
       FileDelete($luqin&$yhm&'\游戏存档\'&$frer&'\'&$sdet)
       Sleep(500)
       If FileExists($luqin&$yhm&'\游戏存档\'&$frer&'\'&$sdet) Then
        MsgBox(16,'警告','删除无效，文件正在被另一个人或程序使用')
       Else
        _GUICtrlListDeleteItem ($uy2, $det)
        GUICtrlSetData($stsl,'可存'&$shulang-_GUICtrlListGetInfo ($uy2)&'个档')
       EndIf
      EndIf
     EndIf
    Case $msg = $reagame;攸改游戏存档名称
     $ren =_GUICtrlListSelectedIndex ($uy2)
     $sren=_GUICtrlListGetText ($uy2, $ren)
      If $ren<>-1 Then
        $gui9=GUICreate("改名",210,62,-1,-1,$WS_SYSMENU)
       GUICtrlCreateLabel("名称:",5, 8, 40, 15)
       $int=GUICtrlCreateInput ( StringTrimRight ($sren,4),40, 5, 118, 20)
       $ko = GUICtrlCreateButton("确定", 160, 5, 40, 20)
       GUICtrlSetState ($ko, $GUI_DEFBUTTON)
       GUISetState (@SW_SHOW)
       While 1
        $ms = GUIGetMsg()
        $ibn=GUICtrlRead($int)
        If $ms= $GUI_EVENT_CLOSE Then
         GUIDelete ($gui9)
         ExitLoop
        EndIf
        If $ms= $ko Then
         If $ibn='' Then
          MsgBox(0,'错误','名称不能为空',0)
         Else
          If FileExists($luqin&$yhm&'\游戏存档\'&$frer&'\'&$ibn&'.rar') Then
           MsgBox(48,'提示','该名称已存在',0)
          Else
           FileMove($luqin&$yhm&'\游戏存档\'&$frer&'\'&$sren, $luqin&$yhm&'\游戏存档\'&$frer&'\'&$ibn&'.rar',0)
           Sleep(500)
           If FileExists($luqin&$yhm&'\游戏存档\'&$frer&'\'&$ibn&'.rar')=0 And FileExists($luqin&$yhm&'\游戏存档\'&$frer&'\'&$sren) Then
            MsgBox(16,'警告','重命名无效，文件正在被另一个人（程序）使用或文件名包含非法字符',0)
           Else
             _GUICtrlListReplaceString ($uy2 , $ren ,    $ibn&'.rar')
            GUIDelete ($gui9)
            ExitLoop
           EndIf
          EndIf
         EndIf
        EndIf
       Wend
      EndIf   
    Case $msg = $button ;搜索游戏
      $rf=GUICtrlRead($input)
      If $rf='' Then
       MsgBox(48, "提示", '请输入关键词')
      Else
       If namefile($rf,$uy1,0)<>-1 Then
        _GUICtrlListSelectIndex ($uy1, namefile($rf,$uy1,0))
       Dim $y=namefile($rf,$uy1,0)
       Else
        MsgBox(48, "提示", '对不起！找不到“'&$rf&'”')
       EndIf
      EndIf

    Case $msg = $button1 ;搜索下一个游戏
      If $y=-1 Then
       MsgBox(48, "提示", "请先搜索")
      Else
       If GUICtrlRead($input)='' Or GUICtrlRead($input)<>$rf Then
        MsgBox(48, "提示", "请先搜索")
        $y=-1
       Else
        $y=$y+1
        If namefile($rf,$uy1,$y)<>-1 Then
         _GUICtrlListSelectIndex ($uy1, namefile($rf,$uy1,$y))
        EndIf
       EndIf
      EndIf
  
    Case $msg = $GUI_EVENT_CLOSE      
FileDelete ($nesfi&'\ys.exe')     
Exit   
Case $msg = $GUI_EVENT_PRIMARYDOWN   
$pos = GUIGetCursorInfo()     
If IsArray($pos) Then      
If ($pos[4] == $listview) Then      
GUICtrlSetTip($listview,_GUICtrlListViewGetItemText($listview, _GUICtrlListViewGetSelectedIndices($listview), 0))     
EndIf     
EndIf      

Case $msg = $uy1   
_GUICtrlListClear ($uy2)     $rert = _GUICtrlListGetText ($uy1, _GUICtrlListSelectedIndex ($uy1))   
If ($rert == $LB_ERR) Then     
Else      
GUICtrlSetData($rtys, $rert&'列表：')      
$sear = FileFindFirstFile($luqin&$yhm&'\游戏存档\'&$rert&'\*.rar')        
If $sear <> -1 Then      
While 1        
$filk = FileFindNextFile($sear)        
If @error Then ExitLoop      
GUICtrlSetData($uy2,$filk)      
WEnd      
EndIf      

FileClose($sear)   
EndIf     

GUICtrlSetData($stsl,'可存'&$shulang-_GUICtrlListGetInfo ($uy2)&'个档')      
Dim $frer=$rert EndSelect WendEndFunc

;         用户路径    原文件    目标文件     总大小       返回原值

Func up($yonglq , $yanwx , $mubaowx , $zmb    ,$yhm6,$dx6,$luqin6,$jibie6)
$gui6=GUICreate("上传文件",355,110,-1,-1,$WS_SYSMENU)
$jindu = GUICtrlCreateProgress (10,50,293,20) GUICtrlCreateLabel("正在上传文件，请稍候……", 10, 20, 200, 20)
GUICtrlSetFont (-1,12)
$Status = GUICtrlCreateLabel("    0％", 308, 51, 100, 20)
GUICtrlSetFont ($Status,11) GUISetState ()     
$ymb=Round(DirGetSize($yonglq&'\用户存储')/1048576,2)   
$qsdx=FileGetSize($yanwx)/1048576   
If $qsdx=0 Then $qsdx=DirGetSize($yanwx)/1048576     
$ydx=Round($qsdx,2)     
If $ymb > $zmb Or $ymb = $zmb Then      
MsgBox(48,'提示','用户空间已满,请删除一些文件再上传')     
GUIDelete ($gui6)     
yonghu($yhm6,$dx6,$luqin6,$jibie6)   
ElseIf $ymb+$ydx > $zmb Then      
MsgBox(48,'提示','你的空间已经容不下该文件,请删除一些文件再上传')   
GUIDelete ($gui6)     
yonghu($yhm6,$dx6,$luqin6,$jibie6)   
ElseIf FileExists($yonglq&'\用户存储\'&$mubaowx&'.rar') Then      
$rs=MsgBox(48+4,'提示','你的空间已存在该文件,是否替换?')     
If $rs=6 Then      FileDelete ($yonglq&'\用户存储\'&$mubaowx&'.rar')     
IniDelete ($yonglq&'\data.db', "私人存档",$mubaowx)     
Else      
GUIDelete ($gui6)      
yonghu($yhm6,$dx6,$luqin6,$jibie6)     
EndIf        
EndIf   

$redcmd = Run(@ComSpec & ' /c '&$nesfi&'\ys a "'&$yonglq&'\用户存储\'&$mubaowx&'.rar"'&' -ep1 -m0 -hpQ147241793 -y "'&$yanwx&'"', @SystemDir, @SW_HIDE, $STDOUT_CHILD) ;压缩
ProcessWait ('ys.exe',60) $xh=0   
Do     $msg = GUIGetMsg()    $PID=ProcessExists("ys.exe")   
If $PID=0 Then     
If FileExists($yonglq&'\用户存储\'&$mubaowx&'.rar')=0 Then      
MsgBox(48,'错误','无法上传该文件',0)     
GUIDelete ($gui6)      yonghu($yhm6,$dx6,$luqin6,$jibie6)     Else      
$xh=100      
GUICtrlSetData ($jindu,$xh)      
GUICtrlSetData($Status,$xh&'％')      
MsgBox(0,'提示','上传已经完成',0)      
GUIDelete ($gui6)       yonghu($yhm6,$dx6,$luqin6,$jibie6)      
EndIf   
EndIf     
$bshi=StringSplit(StdoutRead($redcmd), "%")   
If $bshi[0]=2 Then     
$xh=StringRight ($bshi[1], 3)     
If $xh = 100 Then      GUICtrlSetData ($jindu,$xh)      GUICtrlSetData($Status,$xh&'％')      
MsgBox(0,'提示','上传已经完成',0)      
ProcessClose('ys.exe')      
GUIDelete ($gui6)     
yonghu($yhm6,$dx6,$luqin6,$jibie6)         
Else     
GUICtrlSetData ($jindu,$xh)      GUICtrlSetData($Status,$xh&'％')     
EndIf    EndIf      
If $msg = $GUI_EVENT_CLOSE Then      
$dlj=MsgBox(0+4,'提示','正在下载中，确定退出？',0)   
If $dlj=6 Then      
ProcessClose('ys.exe')      ProcessWaitClose ('ys.exe', 60)        
Sleep(200)      FileDelete ($yonglq&'\用户存储\'&$mubaowx&'.rar')            
GUIDelete ($gui6)      yonghu($yhm6,$dx6,$luqin6,$jibie6)         
EndIf   
EndIf   
Until $xh=100    EndFunc