admin.au3

宽带管理系统源码

EndFunc


Func _bak();数据库窗口备份窗口
	$Bak_gui = GUICreate("数据库备份", 525, 118)
    $Progress1 = GUICtrlCreateProgress(24, 80, 385, 15)
    $BAK_Button1 = GUICtrlCreateButton("开始备份", 424, 75, 89, 25)
	GUICtrlSetBkColor(-1, 0xCAE1FF)
    GUICtrlCreateLabel("目标数据库地址：", 24, 16, 100, 17)
	GUICtrlCreateLabel("备份数据库地址：", 24, 45, 100, 17)
	if IniRead("config.ini","数据备份路径配置","数据库路径","") <> ""then 
	   $Ini_datadir = IniRead("config.ini","数据备份路径配置","数据库路径","")
	   $Ini_bak_datadir = IniRead("config.ini","数据备份路径配置","备份库路径","")
	   Else
	   $Ini_datadir = @ScriptDir&"\"&$datadir
	   $Ini_bak_datadir = @ScriptDir&"\data_bak\"
	EndIf   
    $Y_Input = GUICtrlCreateInput($Ini_datadir, 128, 12, 153, 21)
    $B_Input = GUICtrlCreateInput($Ini_bak_datadir, 128, 42, 153, 21)
    $Y_Button = GUICtrlCreateButton("浏览", 288, 13, 41, 20)
	GUICtrlSetBkColor(-1, 0xCAE1FF)
    $B_Button = GUICtrlCreateButton("浏览", 288, 43, 41, 20)
	GUICtrlSetBkColor(-1, 0xCAE1FF)
    GUICtrlCreateGroup("", 360, 3, 153, 60)
    $Checkbox1 = GUICtrlCreateCheckbox("按时间命名(推荐)", 376, 16, 121, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("删除3个月前的数据", 376, 39, 121, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
	GUISetBkColor (0xCAE1FF)
    While 1
        $B_msg = GUIGetMsg()
        Select
		Case $B_msg = $GUI_EVENT_CLOSE
				GUIDelete($Bak_gui)
				WinActivate("数据库备份")
				GUISetState(@SW_ENABLE, $Form1_1)
				ExitLoop
		Case $B_msg = $Y_Button
;~ 				MsgBox(0,"提示:","目标数据库路径为系统默认,不建议修改!")
				$TPath1 = FileOpenDialog("请选择要备份目标数据库:", @ScriptDir& "\","(*.mdb)",1+4)
				GUICtrlSetData($Y_Input,$TPath1)
		Case $B_msg = $B_Button
				If FileExists (@ScriptDir&"\data_bak\") = 0 Then DirCreate (@ScriptDir&"\data_bak\")
				$TPath2 = FileSelectFolder("请选择备份数据库路径:", @ScriptDir&"\",1+4)&"\"
				GUICtrlSetData($B_Input,$TPath2)
		Case $B_msg = $BAK_Button1	
	            if GUICtrlRead ($Y_Input) = "" or GUICtrlRead ($B_Input) = "" THEN 
				    MsgBox(0,"错误:","目标路径或者备份路径不能为空!")
					Else
			        if FileCopy(GUICtrlRead ($Y_Input), GUICtrlRead ($B_Input),9) then 
					   For $i = 0 To 100 
					   GUICtrlSetData($Progress1, $i)
					   Sleep(15)
					   if $i =100 then ExitLoop
				       Next
				       IniWrite ("config.ini","数据备份路径配置","数据库路径",GUICtrlRead ($Y_Input))
					   IniWrite ("config.ini","数据备份路径配置","备份库路径",GUICtrlRead ($B_Input))
					   MsgBox (0,"提示:","备份数据成功!")
				       Else
					   MsgBox (0,"错误:","备份数据失败,请重新操作")
					EndIf
				EndIf
		EndSelect
        WEnd			
EndFunc

Func _Date_z($date_data,$var)
        Local $Date[1],$Date[2],$Date[3]
        $date_data =StringStripWS($date_data,8);删除所有空白字符
        $date_data=StringReplace($date_data,"年","|")
        $date_data=StringReplace($date_data,"月","|")  
        $date_data=StringReplace($date_data,"日","")
        $Date = StringSplit($date_data,"|")
        If StringLen($Date[2])=1 then $Date[2]= "0"&$Date[2]
        If StringLen($Date[3])=1 then $Date[3]= "0"&$Date[3]
		If $var= 0 Then Return $Date[1]&$Date[2]&$Date[3];格式化日期输出为“20080101”
	    If $var= 1 Then Return $Date[1]&"/"&$Date[2]&"/"&$Date[3];格式化日期输出为“2008/01/01”
EndFunc
	
Func _ping($var);检测主机是否在线函数
         if ping ($var,800) >0 then 
		 Return 0
	     Else
		 Return 1
		 EndIf
EndFunc
     
Func _login() ;管理登陆窗口
	
	     $login_gui = GUICreate("管理登陆", 329, 154)
         GUICtrlCreateLabel("用户名：", 136, 32, 52, 17)
         GUICtrlCreateLabel("密  码：", 136, 65, 52, 17)
         $login_Checkbox = GUICtrlCreateCheckbox("记住密码", 136, 104, 73, 17)
		 $User_Input = GUICtrlCreateInput("", 192, 30, 105, 21)
         $Pass_Input = GUICtrlCreateInput("", 192, 60, 105, 21,$ES_PASSWORD)
         $Login_Button = GUICtrlCreateButton("登陆", 240, 103, 57, 21)
		 GUICtrlSetBkColor(-1, 0xCAE1FF)
		 GUICtrlSetState(-1,$GUI_DEFBUTTON)
         GUICtrlCreateGroup("", 8, 8, 313, 137)
         $Pic1 = GUICtrlCreatePic("login.jpg", 18, 30, 95, 95)
         GUICtrlCreateGroup("", -99, -99, 1, 1)
         GUISetState(@SW_SHOW)
		 GUISetBkColor (0xCAE1FF)
		 $login_User_ini = IniRead ( "config.ini", "登陆配置", "用户名", "")
		 GUICtrlSetData($User_Input,$login_User_ini)
		 if  IniRead ( "config.ini", "登陆配置", "记住密码", "") = "是" then  GUICtrlSetState($login_Checkbox,$GUI_CHECKED)
            IF GUICtrlRead ($login_Checkbox) = 1 then 
			     $login_Pass_ini = _pass_mm(IniRead ( "config.ini", "登陆配置", "密码", ""),1)
                 GUICtrlSetData($Pass_Input,$login_Pass_ini)
            EndIf
         While 1
             $msg_login = GUIGetMsg()
			Select
				Case $msg_login = $GUI_EVENT_CLOSE
					  Return 1
                      ExitLoop
				  Case $msg_login = $Login_Button
					  $login_User = GUICtrlRead($User_Input)
					  $login_Pass = GUICtrlRead($Pass_Input)
					  if $login_Pass = "" or $login_User = "" Then
;~ 						  MsgBox(64,"提示:","登陆名或密码不能为空!")
					  Else
						 IF  _Sql_login($login_User,$login_Pass) = 0 Then;如果登陆密码正确，记录密码到INI，
							     IniWrite ( "config.ini", "登陆配置", "用户名",$login_User )
							 if GUICtrlRead ($login_Checkbox) = 1 then 
							     IniWrite ( "config.ini", "登陆配置", "记住密码", "是" )
								 IniWrite ( "config.ini", "登陆配置", "密码", _pass_mm($login_Pass,0) )
							 Else
								 IniWrite ( "config.ini", "登陆配置", "记住密码", "否" )
							     IniWrite ( "config.ini", "登陆配置", "密码", "" )
						EndIf
							GUIDelete($login_gui)
				            WinActivate("管理登陆")
							GUISetState(@SW_ENABLE, $Form1_1)
							Return $login_user 
							ExitLoop
						 Else
							 MsgBox(64,"提示:","用户名不存在或密码错误,请重新输入!")
                         EndIf
						 
					 EndIf
	    	EndSelect
         WEnd
EndFunc

Func _Sql_login($login_User,$login_Pass);判读登陆的用户名密码是否正确，正确输出0，否则输出1
	Local $login_Pass_data = ""
	$conn = ObjCreate("ADODB.Connection")
	$RS = ObjCreate("ADODB.Recordset")
	$conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
	$RS.ActiveConnection = $conn
	$RS.Open ('Select * From S_user where ' & "user_name" & ' = '& '"' & $login_User & '"')
	While (Not $RS.eof And Not $RS.bof)
		$login_Pass_data = $RS.Fields (2).value 
	$RS.movenext
	WEnd
	$RS.close
	$conn.close	
	if $login_Pass = $login_Pass_data then 
		Return 0
	Else
		Return 1
	EndIf
EndFunc

Func _no();什么都不干
EndFunc


Func _login_xr();登陆路由器
	if StringStripWS($User_Authority,8)= "管理员" then
	  $xr_dir = IniRead ( "config.ini", "路由器登陆配置", "登陆地址", "")
	  $xr_user_name = IniRead ( "config.ini", "路由器登陆配置", "用户名", "")
	  $xr_user_pass = _pass_mm(IniRead ( "config.ini", "路由器登陆配置", "密码", ""),1)
	 run("C:\Program Files\Internet Explorer\IEXPLORE.EXE "&$xr_dir)
     AutoItSetOption("WinTitleMatchMode", 4)
     WinWaitActive("classname=#32770")
     ControlSetText("连接到 192.168.0.1","","Edit2",$xr_user_name)
     Sleep (250)
     ControlFocus("连接到 192.168.0.1","","Edit3")
     send($xr_user_pass)
     Sleep (250)
     ControlClick("连接到 192.168.0.1","确定","Button2")
 Else
     MsgBox(16,"错误","对不起,您不是管理员,无权操作！")
    EndIf	 
EndFunc


Func _pass_mm($pass,$var);简单密码加密处理
	if $var = 0 then 
		Return StringToBinary($pass);加密
	Else
		Return BinaryToString($pass);解密
	EndIf
EndFunc

Func _zhuangtai($var);状态栏信息
	if $var = 0 then ;按钮可用
		GUICtrlSetState ($Mac_jiance_Button,$GUI_ENABLE)
		GUICtrlSetState ($del,$GUI_ENABLE)
		GUICtrlSetState ($Xufei_Button,$GUI_ENABLE)
		GUICtrlSetState ($Kongzhi_Button,$GUI_ENABLE)
		GUICtrlSetState ($Xiugai_Button,$GUI_ENABLE)
		GUICtrlSetState ($Shanchu_Button,$GUI_ENABLE)
		GUICtrlSetState ( $Chaxun_Button,$GUI_ENABLE)
	EndIf
	if $var = 1 then  ;按钮不可用
		GUICtrlSetState ($Mac_jiance_Button,$GUI_DISABLE)
		GUICtrlSetState ($del,$GUI_DISABLE)
		GUICtrlSetState ($Chaxun_Button,$GUI_DISABLE)
		GUICtrlSetState ($Xufei_Button,$GUI_DISABLE)
		GUICtrlSetState ($Kongzhi_Button,$GUI_DISABLE)
		GUICtrlSetState ($Xiugai_Button,$GUI_DISABLE)
		GUICtrlSetState ($Shanchu_Button,$GUI_DISABLE)
	EndIf
EndFunc

Func _GetMAC($sIP);获取MAC 地址函数
Local $MAC,$MACSize
Local $i,$s,$r,$iIP
$MAC = DllStructCreate("byte[6]")
$MACSize = DllStructCreate("int")
DllStructSetData($MACSize,1,6)
$r = DllCall ("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
$iIP = $r[0]
$r = DllCall ("iphlpapi.dll", "int", "SendARP","int", $iIP,"int", 0,"ptr", DllStructGetPtr($MAC),"ptr", DllStructGetPtr($MACSize))
$s    = ""
For $i = 0 To 5
     If $i Then $s = $s & "-"
     $s = $s & Hex(DllStructGetData($MAC,1,$i+1),2)
Next
Return $s
EndFunc

Func _login_Authority($var);根据用户名判断用户权限
        Local $Authority_data = ""
	    $conn = ObjCreate("ADODB.Connection")
	    $RS = ObjCreate("ADODB.Recordset")
	    $conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir& ";Jet Oledb:Database Password="&$acc_pwd)
	    $RS.ActiveConnection = $conn
        $RS.Open ('Select * From S_user where '  & "user_name" &  '=' & '"' & $var & '"')
		While (Not $RS.eof And Not $RS.bof)
			$Authority_data = $RS.Fields (0).value 
		$RS.movenext
	    WEnd
	    $RS.close
		$conn.close
	if $Authority_data <> "" then 
		Return $Authority_data
		Else
		Return 0
	EndIf
EndFunc

Func _Sezhi_gui($var);系统设置窗口
$Sezhi_gui = GUICreate("系统设置", 543, 364)
GUICtrlCreateGroup("", 8, 4, 526, 350)
GUICtrlCreateLabel("数据库路径：", 24, 24, 76, 17)
$Ini_datadir = IniRead("config.ini","数据备份路径配置","数据库路径","")
$Ini_bak_datadir = IniRead("config.ini","数据备份路径配置","备份库路径","")
$Input1 = GUICtrlCreateInput($Ini_datadir, 104, 21, 137, 20)
GUICtrlCreateLabel("备份库路径：", 23, 53, 76, 17)
$Input2 = GUICtrlCreateInput($Ini_bak_datadir, 104, 49, 137, 20)
$Button1_2 = GUICtrlCreateButton("浏览", 258, 24, 49, 17)
GUICtrlSetBkColor(-1, 0xCAE1FF)
$Button2_2 = GUICtrlCreateButton("浏览", 258, 52, 49, 17)
GUICtrlSetBkColor(-1, 0xCAE1FF)
$Checkbox1 = GUICtrlCreateCheckbox("备份库名称按时间命名(推荐)", 348, 46, 180, 25)
$Checkbox2 = GUICtrlCreateCheckbox("启动软件自动备份(不推荐)", 348, 76, 180, 17)
$Checkbox3 = GUICtrlCreateCheckbox("自动删除过期备份（3个月）", 348, 20, 180, 25)
$Checkbox4 = GUICtrlCreateCheckbox("开机自动启动", 348, 188, 180, 17)
$Checkbox5 = GUICtrlCreateCheckbox("关闭窗口自动到托盘", 348, 104, 180, 17)
$Checkbox6 = GUICtrlCreateCheckbox("自动检测机器在线状况", 348, 160, 180, 17)
$Checkbox7 = GUICtrlCreateCheckbox("自动检测机器MAC地址", 348, 132, 180, 17)
$Save_Button = GUICtrlCreateButton("保存设置", 440, 312, 81, 25)