AU3-网吧私人保险柜v3.0（配置器）
#include <GUIConstants.au3>#include <string.au3>
#Include <process.au3>
#include <file.au3>
#Include <GuiList.au3>
#include <Array.au3>
#include <GuiCombo.au3>
Opt( "RunErrorsFatal", 0 ) ;防止执行程序出错被冲止
Opt("TrayIconHide",1) ;隐藏
If Not FileExists(@ScriptDir&"\"&"xiaoqin.ini") Then
$baoti='默认密码：qin147'
Else
$luxs=StringSplit(qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','存储路径','')), "=")
$uiy=qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','空间大小',''))
$cong=StringSplit($uiy, "|")
$sazl=StringSplit(qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','存档数量','')), "=")
If $luxs[0]<>2 Or $cong[0]<2 Or $sazl[0]<>2 Then
$baoti="登录"
$qmm=''
Else
$tlpass=StringSplit($cong[$cong[0]], "=")
If $tlpass[0]<>3 Then
$baoti="登录"
$qmm=''
ElseIf $luxs[2]<> $sazl[2] Or $luxs[2]<>$tlpass[3] Or $sazl[2]<>$tlpass[3] Then
$baoti="登录"
$qmm=''
ElseIf $luxs[2]='qin147' Then
$baoti='默认密码：qin147'
$qmm='qin147'
$a1=$luxs[1]
$a2=StringTrimRight ($uiy, StringLen ($cong[$cong[0]])+1)
Else
$baoti="登录"
$qmm=$luxs[2]
$a1=$luxs[1]
$a2=StringTrimRight ($uiy, StringLen ($cong[$cong[0]])+1)
EndIf
EndIf
EndIf
$gyu=GUICreate($baoti,225,93,-1,-1,$WS_SYSMENU) ; 创建一个居中显示的窗口
GUICtrlCreateLabel("登录密码:", 7, 25, 54, 25)
$tlmm = GUICtrlCreateInput("", 60, 20, 100, 21,$ES_PASSWORD);用户名输入框
GUICtrlSetFont (-1,11)
$tl=GUICtrlCreateButton("登录", 165, 18, 50,25)
GUISetState (@SW_SHOW) ; 空的窗口
GUICtrlSetState ($tl, $GUI_DEFBUTTON)
; 运行脚本直到窗口被关闭
While 1
$msg = GUIGetMsg()
$rlmm=GUICtrlRead($tlmm)
If $msg =$tl Then
If $rlmm='' Then
MsgBox(48,'提示','密码不能为空')
Else
If Not FileExists(@ScriptDir&"\"&"xiaoqin.ini") Then
If $rlmm='qin147' Then
GUIDelete ($gyu)
beishi('','',$rlmm)
Else
MsgBox(48,'提示','登录密码不正确')
GUICtrlSetData ($tlmm, '')
EndIf
Else
If $qmm=$rlmm Then
GUIDelete ($gyu)
beishi($a1,$a2,$rlmm)
Else
MsgBox(48,'提示','登录密码不正确')
GUICtrlSetData ($tlmm, '')
EndIf
EndIf
EndIf
EndIf
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
Func beishi($b1,$b2,$b3) ;配置文件
$gu0=GUICreate("网吧私人保险柜配置器 v3.0 ",525,600,-1,-1,$WS_SYSMENU+$WS_MINIMIZEBOX)
GUICtrlCreateGroup("基本参数设置", 240, 10, 270, 275)
GUICtrlCreateLabel("存储路径:", 255, 35, 54, 25)
$serverlq = GUICtrlCreateInput($b1, 315, 30, 180, 21);用户名输入框
GUICtrlSetFont (-1,11)
GUICtrlSetTip (-1, '用于存储客户资料 如：\\server\save')
$dylx=qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','调用路径',''))
GUICtrlCreateLabel("调用路径:", 255, 60, 54, 25)
$kxlq = GUICtrlCreateInput($dylx, 315, 55, 180, 21);用户名输入框
GUICtrlSetFont (-1,11)
GUICtrlSetTip (-1, '配置文件的调用路径 如：\\server\bak'&@CRLF _
&'把配置好的“game.db”和“xiaoqin.ini”'&@CRLF _
&'拷贝到该目录下')
GUICtrlCreateLabel("登录密码:",255, 85, 54, 25)
$baohu = GUICtrlCreateInput($b3, 315,80,180, 21,$ES_PASSWORD);用户名输入框
GUICtrlSetFont (-1,11)
GUICtrlSetTip (-1, '可防止其他人修改自己配置ini文件')
$shumu=StringSplit(qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','存档数量','')), "=")
If $shumu[0]=2 Then
$redsl=$shumu[1]
Else
$redsl=''
EndIf
GUICtrlCreateLabel("存档数量:",255, 110, 54, 25)
$shulang = GUICtrlCreateInput($redsl, 315,105,50, 21);用户名输入框
GUICtrlSetFont (-1,11)
GUICtrlSetTip (-1, '每个游戏的存档数量')
$stopyh = GUICtrlCreateCheckbox ("禁止注册新用户",395,107, 100, 15)
GUICtrlCreateLabel("等级设置:",255, 135, 54, 15)
$minseng = GUICtrlCreateInput('', 315, 133, 55, 17);用户名输入框
GUICtrlSetTip ($minseng, '级别名称，如：普通用户或超级用户')
GUICtrlCreateLabel("=",375, 135, 10, 15)
$daxiao = GUICtrlCreateInput('', 385, 133, 55, 17);用户名输入框
GUICtrlSetTip ($daxiao, '该级别的空间大小，默认单位（MB）')
$shuzhe=GUICtrlCreateButton("添 加", 445,132, 50,20)
GUICtrlSetTip ($shuzhe, '添加用户级别')
$list2 = GUICtrlCreateList('', 315, 152, 180, 55)
GUICtrlSetData($list2, $b2)
GUICtrlCreateLabel("默认级别:",255, 213, 54, 15)
$Combo = GuiCtrlCreateCombo("", 315, 210, 180, 100,$CBS_DROPDOWNLIST)
GUICtrlSetTip ($Combo, '注册用户时默认等级')
GUICtrlSetData($Combo, $b2)
$butts = GUICtrlCreateContextMenu($list2)
$butt = GUICtrlCreateMenuitem("删除",$butts)
$redy=qieMM(IniRead(@ScriptDir&"\"&"xiaoqin.ini",'参数','注册用户',''))
If $redy='禁止注册' Then GUICtrlSetState ($stopyh, $GUI_CHECKED)
$OK=GUICtrlCreateButton("应 用", 310, 250, 50,25)
$esc=GUICtrlCreateButton("退 出", 410, 250, 50,25)
GUICtrlCreateLabel ("游戏列表名称：",10,10,100,15)
$uy=GUICtrlCreateList ("", 5,25,205, 514)
$ybutt = GUICtrlCreateContextMenu($uy)
$adduy = GUICtrlCreateMenuitem("添加",$ybutt)
$deluy = GUICtrlCreateMenuitem("删除",$ybutt)
GUICtrlCreateLabel("关键词：", 5, 546,50,15)
$input = GUICtrlCreateInput("", 50, 541, 80, 20)
GUICtrlSetTip (-1, '游戏查找，输入关键词回车既可')
$button = GUICtrlCreateButton("搜索", 130, 541, 40, 20)
$button1 = GUICtrlCreateButton("下一个", 170, 541, 40, 20)
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($uy,StringTrimLeft($ay[1], 1))
EndIf
EndIf
Next
EndIf
$bu1=GUICtrlCreateLabel ("",240,295,200,15)
$uy1=GUICtrlCreateList ("",240,310,270, 120)
$ybutt1 = GUICtrlCreateContextMenu($uy1)
$adduy1 = GUICtrlCreateMenuitem("添加",$ybutt1)
$deluy1 = GUICtrlCreateMenuitem("删除",$ybutt1)
$reduy1 = GUICtrlCreateMenuitem("修改",$ybutt1)
$frer=-1
$bu2=GUICtrlCreateLabel ("",240,432,200,15)
$uy2=GUICtrlCreateList ("", 240,447,270, 120)
$ybutt2 = GUICtrlCreateContextMenu($uy2)
$adduy2 = GUICtrlCreateMenuitem("添加",$ybutt2)
$deluy2 = GUICtrlCreateMenuitem("删除",$ybutt2)
$reduy2 = GUICtrlCreateMenuitem("修改",$ybutt2)
GUISetState (@SW_SHOW)
GUICtrlSetState ($button, $GUI_DEFBUTTON)
$y=-1
While 1
$msg = GUIGetMsg()
$savelq=GUICtrlRead($serverlq)
$redshulang=GUICtrlRead($shulang)
$inikx=GUICtrlRead($kxlq)
$shushe=GUICtrlRead($stopyh)
$inibaohu=GUICtrlRead($baohu)
$Conbe=GUICtrlRead($Combo)
Select
Case $msg =$shuzhe
$minse=GUICtrlRead($minseng)
$taxiao=GUICtrlRead($daxiao)
If $minse='' Or $taxiao='' Then
MsgBox(48,'提示','级别名称或空间大小不能为空')
ElseIf StringLen ($minse)>8 Or StringIsDigit ($taxiao)=0 Then
MsgBox(48,'提示','级别名称不能大于4个字或8个字符，空间大小只能为0~9的数字,如:普通用户=500')
ElseIf nfile($minse,$list2)=1 Then
MsgBox(48,'提示','级别名称不能重复')
Else
GUICtrlSetData($list2,$minse&'='&$taxiao)
_GUICtrlComboAddString($Combo,$minse&'='&$taxiao)
EndIf
Case $msg = $butt
$ho=_GUICtrlListGetText ($list2, _GUICtrlListSelectedIndex ($list2))
_GUICtrlListDeleteItem ($list2, _GUICtrlListSelectedIndex ($list2))
For $fg=0 to _GUICtrlComboGetCount($Combo)
Local $s_text
Local $i_count = _GUICtrlComboGetLBText ($Combo, $fg, $s_text)
If ($i_count == $CB_ERR) Then
Else
If $s_text=$ho Then
_GUICtrlComboDeleteString($Combo,$fg)
EndIf
EndIf
Next
Case $msg = $OK
If $savelq='' Then
MsgBox(48,'提示','存储路径不能为空')
ElseIf StringLen ($redshulang)>3 Or StringIsDigit ($redshulang)=0 Then
MsgBox(48,'提示','存档数量只能为0~9之间的数字'&@CRLF _
&' 并且不能超过999个存档数量')
ElseIf $Conbe='' Then
MsgBox(48,'提示','请选择默认级别，该级别为新用户注册时的级别')
Else
$iotemp=_TempFile()
For $io=0 To _GUICtrlListGetInfo ($list2)
If _GUICtrlListGetText($list2, $io)<>-1 Then
FileWrite ($iotemp,_GUICtrlListGetText($list2, $io)&'|')
EndIf
Next
$rte=FileReadLine ($iotemp, 1)
If $rte='' Then
MsgBox(48,'提示','请设置空间大小')
Else
IniWrite(@ScriptDir&"\"&"xiaoqin.ini", "参数", "存储路径",xiaMM(formatPath($savelq)&'='&$inibaohu))
IniWrite(@ScriptDir&"\"&"xiaoqin.ini", "参数", "存档数量",xiaMM($redshulang&'='&$inibaohu))
IniWrite(@ScriptDir&"\"&"xiaoqin.ini", "参数", "空间大小",xiaMM($rte&$Conbe&'='&$inibaohu))
If $inikx<>'' Then IniWrite(@ScriptDir&"\"&"xiaoqin.ini", "参数", "调用路径",xiaMM($inikx))
If $shushe=1 Then
IniWrite(@ScriptDir&"\"&"xiaoqin.ini", "参数", "注册用户", xiaMM('禁止注册'))
Else
IniWrite(@ScriptDir&"\"&"xiaoqin.ini", "参数", "注册用户", xiaMM('开放注册'))
EndIf
FileDelete($iotemp)
MsgBox(64,'提示','设置完成')
EndIf
EndIf
Case $msg = $button
$rf=GUICtrlRead($input)
If $rf='' Then
MsgBox(48, "提示", '请输入关键词')
Else
If namefile($rf,$uy,0)<>-1 Then
_GUICtrlListSelectIndex ($uy, namefile($rf,$uy,0))
Dim $y=namefile($rf,$uy,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,$uy,$y)<>-1 Then
_GUICtrlListSelectIndex ($uy, namefile($rf,$uy,$y))
EndIf
EndIf
EndIf
case $msg = $adduy;添加存档游戏
$gu1=GUICreate( "添加存档游戏",305,150,-1,-1,$WS_SYSMENU,$WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("游戏名称:", 10, 15, 54, 20)
$gname = GUICtrlCreateInput ("", 65, 13,225, 20)
GUICtrlSetTip (-1, '要存档的游戏名称')
GUICtrlCreateLabel("存档路径:", 10, 40, 54, 20)
$run = GUICtrlCreateInput ("", 65 ,37,225, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
GUICtrlSetTip (-1, '存档文件路径，支持 *.* 格式 如：'&@CRLF _
&'F:\单机游戏\black\*.sf'&@CRLF _
&'或 F:\单机游戏\black 等等')
GUICtrlCreateLabel("排除路径:", 10, 63, 54, 20)
$lylq = GUICtrlCreateInput ("", 65, 61,225, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
GUICtrlSetTip (-1, '存档文件路径中不需要上传的文件或目录，支持 *.* 格式 如：'&@CRLF _
&'F:\单机游戏\black\90sr 或 F:\单机游戏\black\*.exe 等等')
$addyx= GUICtrlCreateButton("添 加", 80, 90, 55, 20)
$esc= GUICtrlCreateButton("退 出", 180, 90, 55, 20)
GUICtrlSetState ($addyx, $GUI_DEFBUTTON)
GUISetState ()
While 1
$msg1 = GUIGetMsg()
$me=GUICtrlRead($gname)
$firu=GUICtrlRead($run)
$lylx=GUICtrlRead($lylq)
Select
Case $msg1 = $addyx
If $me='' Then
MsgBox(48,'错误','名称不能留空位',0)
ElseIf filemane($me)=1 Then
MsgBox(48,'错误','该名称已存在',0)
Else
$firu=formatPath2($firu)
$lylx=formatPath2($lylx)
FileWriteLine(@ScriptDir&'\game.db',"["&$me&"]")
IniWrite(@ScriptDir&'\game.db',$me,'存档路径',$firu)
IniWrite(@ScriptDir&'\game.db',$me,'排除路径',$lylx)
GUICtrlSetData($uy,$me)
GUIDelete ($gu1)
ExitLoop
EndIf
Case $msg1 = $GUI_EVENT_CLOSE Or $msg1 = $esc
GUIDelete ($gu1)
ExitLoop
EndSelect
Wend
case $msg = $deluy ;删除存档游戏,名称
$det =_GUICtrlListSelectedIndex ($uy)
$sdet=_GUICtrlListGetText ($uy, $det)
If $det<>-1 Then
$yeng=MsgBox(0+4,'提示','确认删除 '&$sdet)
If $yeng=6 Then
_GUICtrlListDeleteItem ($uy, $det)
IniDelete(@ScriptDir&'\game.db', $sdet)
EndIf
EndIf
case $msg = $adduy1;添加存档路径
If $frer=-1 Then
MsgBox(48,'提示','请先选择游戏')
Else
$gu2=GUICreate( "添加路径",315,80,-1,-1,$WS_SYSMENU,$WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("存档路径:", 10, 15, 54, 20)
$addlq = GUICtrlCreateInput ("", 65, 13,180, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
GUICtrlSetTip (-1, '存档文件路径，支持 *.* 格式 如：'&@CRLF _
&'F:\单机游戏\black\*.sf'&@CRLF _
&'或 F:\单机游戏\black 等等')
$addyx= GUICtrlCreateButton("添 加", 250, 12, 55, 20)
GUICtrlSetState ($addyx, $GUI_DEFBUTTON)
GUISetState ()
While 1
$msg2 = GUIGetMsg()
$adds=GUICtrlRead($addlq)
Select
Case $msg2 = $addyx
If $adds='' Then
MsgBox(48,'错误','路径不能留空',0)
Else
If filelq($frer,$adds,'存档路径')=1 Then
MsgBox(48,'提示','该路径已存在',0)
Else
$qh=IniRead(@ScriptDir&'\game.db',$frer,'存档路径','')
IniWrite(@ScriptDir&'\game.db',$frer,'存档路径',$qh&'|'&formatPath2($adds))
GUICtrlSetData($uy1,formatPath2($adds))
GUIDelete ($gu2)
ExitLoop
EndIf
EndIf
Case $msg2 = $GUI_EVENT_CLOSE
GUIDelete ($gu2)
ExitLoop
EndSelect
Wend
EndIf
case $msg = $deluy1 ;删除存档路径
$det =_GUICtrlListSelectedIndex ($uy1)
$sdet=_GUICtrlListGetText ($uy1, $det)
$ssh=IniRead(@ScriptDir&'\game.db',$frer,'存档路径','')
$hs=StringSplit($ssh, '|')
$tpmesa=_TempFile()
For $g=1 To $hs[0]
If $sdet=$hs[$g] Then
Else
FileWrite ($tpmesa, $hs[$g]&'|')
EndIf
Next
_GUICtrlListDeleteItem ($uy1, $det)
$yyw=StringTrimRight( FileReadLine ($tpmesa, 1),1)
IniWrite(@ScriptDir&'\game.db',$frer,'存档路径',$yyw)
FileDelete ($tpmesa)
case $msg = $reduy1 ;修改存档路径
If $frer=-1 Then
MsgBox(48,'提示','请先选择游戏')
Else
$ret =_GUICtrlListSelectedIndex ($uy1)
If $ret <> -1 Then
$sret=_GUICtrlListGetText ($uy1, $ret)
$gu5=GUICreate( "修改路径",315,80,-1,-1,$WS_SYSMENU,$WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("存档路径:", 10, 15, 54, 20)
$addlq = GUICtrlCreateInput ($sret, 65, 13,180, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
$addyx= GUICtrlCreateButton("修 改", 250, 12, 55, 20)
GUICtrlSetState ($addyx, $GUI_DEFBUTTON)
GUISetState ()
While 1
$mse = GUIGetMsg()
$adds=GUICtrlRead($addlq)
Select
Case $mse = $addyx
If $adds='' Then
MsgBox(48,'错误','路径不能留空',0)
Else
$ssh=IniRead(@ScriptDir&'\game.db',$frer,'存档路径','')
$hs=StringSplit($ssh, '|')
$tpmesa=_TempFile()
For $g=1 To $hs[0]
If $sret=$hs[$g] Then
FileWrite ($tpmesa, $adds&'|')
_GUICtrlListReplaceString ($uy1, $ret, $adds)
Else
FileWrite ($tpmesa, $hs[$g]&'|')
EndIf
Next
$yyw=StringTrimRight( FileReadLine ($tpmesa, 1),1)
IniWrite(@ScriptDir&'\game.db',$frer,'存档路径',$yyw)
FileDelete ($tpmesa)
GUIDelete ($gu5)
ExitLoop
EndIf
Case $mse = $GUI_EVENT_CLOSE
GUIDelete ($gu5)
ExitLoop
EndSelect
Wend
EndIf
EndIf
case $msg = $adduy2 ;添加排除路径
If $frer=-1 Then
MsgBox(48,'提示','请先选择游戏')
Else
$gu3=GUICreate( "添加路径",315,80,-1,-1,$WS_SYSMENU,$WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("排除路径:", 10, 15, 54, 20)
$addlq = GUICtrlCreateInput ("", 65, 13,180, 20)
GUICtrlSetTip (-1, '存档文件路径中不需要上传的文件或目录，支持 *.* 格式 如：'&@CRLF _
&'F:\单机游戏\black\90sr 或 F:\单机游戏\black\*.exe 等等')
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
$addyx= GUICtrlCreateButton("添 加", 250, 12, 55, 20)
GUICtrlSetState ($addyx, $GUI_DEFBUTTON)
GUISetState ()
While 1
$msg3 = GUIGetMsg()
$adds=GUICtrlRead($addlq)
Select
Case $msg3 = $addyx
If $adds='' Then
MsgBox(48,'错误','路径不能留空',0)
Else
If filelq($frer,$adds,'排除路径')=1 Then
MsgBox(48,'提示','该路径已存在',0)
Else
$qh=IniRead(@ScriptDir&'\game.db',$frer,'排除路径','')
IniWrite(@ScriptDir&'\game.db',$frer,'排除路径',$qh&'|'&formatPath2($adds))
GUICtrlSetData($uy2,formatPath2($adds))
GUIDelete ($gu3)
ExitLoop
EndIf
EndIf
Case $msg3 = $GUI_EVENT_CLOSE
GUIDelete ($gu3)
ExitLoop
EndSelect
Wend
EndIf
case $msg = $deluy2 ;删除排除路径
$det =_GUICtrlListSelectedIndex ($uy2)
$sdet=_GUICtrlListGetText ($uy2, $det)
$ssh=IniRead(@ScriptDir&'\game.db',$frer,'排除路径','')
$hs=StringSplit($ssh, '|')
$tpmesa=_TempFile()
For $g=1 To $hs[0]
If $sdet=$hs[$g] Then
Else
FileWrite ($tpmesa, $hs[$g]&'|')
EndIf
Next
_GUICtrlListDeleteItem ($uy2, $det)
$yyw=StringTrimRight( FileReadLine ($tpmesa, 1),1)
IniWrite(@ScriptDir&'\game.db',$frer,'排除路径',$yyw)
FileDelete ($tpmesa)
case $msg = $reduy2 ;修改存档路径
If $frer=-1 Then
MsgBox(48,'提示','请先选择游戏')
Else
$ret =_GUICtrlListSelectedIndex ($uy2)
If $ret <> -1 Then
$sret=_GUICtrlListGetText ($uy2, $ret)
$gu6=GUICreate( "修改路径",315,80,-1,-1,$WS_SYSMENU,$WS_EX_ACCEPTFILES)
GUICtrlCreateLabel("排除路径:", 10, 15, 54, 20)
$addlq = GUICtrlCreateInput ($sret, 65, 13,180, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
$addyx= GUICtrlCreateButton("修 改", 250, 12, 55, 20)
GUICtrlSetState ($addyx, $GUI_DEFBUTTON)
GUISetState ()
While 1
$mse = GUIGetMsg()
$adds=GUICtrlRead($addlq)
Select
Case $mse = $addyx
If $adds='' Then
MsgBox(48,'错误','路径不能留空',0)
Else
$ssh=IniRead(@ScriptDir&'\game.db',$frer,'排除路径','')
$hs=StringSplit($ssh, '|')
$tpmesa=_TempFile()
For $g=1 To $hs[0]
If $sret=$hs[$g] Then
FileWrite ($tpmesa, $adds&'|')
_GUICtrlListReplaceString ($uy2, $ret, $adds)
Else
FileWrite ($tpmesa, $hs[$g]&'|')
EndIf
Next
$yyw=StringTrimRight( FileReadLine ($tpmesa, 1),1)
IniWrite(@ScriptDir&'\game.db',$frer,'排除路径',$yyw)
FileDelete ($tpmesa)
GUIDelete ($gu6)
ExitLoop
EndIf
Case $mse = $GUI_EVENT_CLOSE
GUIDelete ($gu6)
ExitLoop
EndSelect
Wend
EndIf
EndIf
case $msg = $uy
_GUICtrlListClear ($uy1)
_GUICtrlListClear ($uy2)
$rert = _GUICtrlListGetText ($uy, _GUICtrlListSelectedIndex ($uy))
If ($rert == $LB_ERR) Then
Else
GUICtrlSetData($bu1, $rert&'的存档路径：')
$goa=IniRead (@ScriptDir&'\game.db', $rert, "存档路径", "" )
$xsa=StringSplit($goa, '|')
For $y= 1 To $xsa[0]
GUICtrlSetData($uy1,$xsa[$y])
Next
GUICtrlSetData($bu2, $rert&'的排除路径：')
$bia=IniRead (@ScriptDir&'\game.db', $rert, "排除路径", "" )
$bsa=StringSplit($bia, '|')
For $t= 1 To $bsa[0]
GUICtrlSetData($uy2,$bsa[$t])
Next
EndIf
Dim $frer=$rert
Case $msg = $uy1
$pos = GUIGetCursorInfo()
If IsArray($pos) Then
If ($pos[4] == $uy1) Then
GUICtrlSetTip($uy1,_GUICtrlListGetText ($uy1, _GUICtrlListSelectedIndex ($uy1)))
EndIf
EndIf
case $msg = $uy2
$pos = GUIGetCursorInfo()
If IsArray($pos) Then
If ($pos[4] == $uy2) Then
GUICtrlSetTip($uy2,_GUICtrlListGetText ($uy2, _GUICtrlListSelectedIndex ($uy2)))
EndIf
EndIf
case $msg = $GUI_EVENT_CLOSE or $msg = $esc
Exit
EndSelect
Wend
EndFunc
Func xiaMM($xmm);加密
Return _StringEncrypt(1,$xmm,"qingui2007tysvbaofeng2","2")
EndFunc
Func qieMM($qmm);解密
Return _StringEncrypt(0,$qmm,"qingui2007tysvbaofeng2","2")
EndFunc
Func formatPath($m_path) ;加\
Dim $m_p=$m_path
While 1
If StringRight($m_p, 1)="\" Or StringRight($m_p, 1)="/" Then
$m_p=StringTrimRight($m_p, 1)
Else
ExitLoop
EndIf
WEnd
Return $m_p&'\'
EndFunc
Func formatPath2($m_path) ;不加\
Dim $m_p=$m_path
While 1
If StringRight($m_p, 1)="\" Or StringRight($m_p, 1)="/" Then
$m_p=StringTrimRight($m_p, 1)
Else
ExitLoop
EndIf
WEnd
Return $m_p
EndFunc
Func filemane($mame) ;查找名称
Dim $bf
If _FileReadToArray(@ScriptDir&'\game.db',$bf) Then
For $f = 1 to $bf[0]
$af=StringSplit($bf[$f], "]")
If $af[0]<>0 Then
If StringLeft($af[1], 1)='[' Then
If StringTrimLeft($af[1], 1)=$mame Then
Return 1
EndIf
EndIf
EndIf
Next
Return 0
EndIf
EndFunc
Func filelq($mshan,$newadd,$mz) ;查找路径
$er=IniRead(@ScriptDir&'\game.db',$mshan,$mz,'')
$hs=StringSplit($er, '|')
For $e=1 To $hs[0]
If $hs[$e]=$newadd Then
Return 1
EndIf
Next
Return 0
EndFunc
Func namefile($sep,$listbex,$of);搜索关键词
For $s=$of To _GUICtrlListGetInfo ($listbex)
If StringInStr (_GUICtrlListGetText($listbex, $s),$sep)<>0 Then
Return $s
EndIf
Next
Return -1
EndFunc
Func nfile($sep,$lis);搜索关键词
For $s=0 To _GUICtrlListGetInfo($lis)
$re=StringSplit(_GUICtrlListGetText ($lis,$s),'=')
If $re[1]=$sep Then
Return 1
EndIf
Next
Return 0
EndFunc
页:
[1]