#NoTrayIcon
#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#AccAu3Wrapper_OutFile=Console.exe
#AccAu3Wrapper_UseUpx=Y
#AccAu3Wrapper_UseX64=n
#AccAu3Wrapper_Res_Comment=Traveler.
#AccAu3Wrapper_Res_Description=远程集中管理
#AccAu3Wrapper_Res_Fileversion=1.0
#AccAu3Wrapper_Res_LegalCopyright=Traveler.
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=None
#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <GuiTreeView.au3>
#include <TreeViewConstants.au3>
#include <GuiImageList.au3>
#include <GuiButton.au3>
#include <String.au3>
#include <WinAPI.au3>
;~ #include <Array.au3>
#include <Constants.au3> ; 托盘事件$TRAY_EVENT_PRIMARYDOUBLE
Opt("GUICloseOnESC",0) ;禁用 Esc 键退出程序
Opt("TrayMenuMode", 3) ;不显示默认托盘菜单项“脚本暂停/退出”
Opt("TrayOnEventMode", 1) ;响应托盘事件
Opt("TrayIconHide",1) ;隐藏脚本自身托盘图标
Opt("WinDetectHiddenText",1) ;检测隐藏窗口的文本或窗口的隐藏文本
Opt("WinTitleMatchMode",4) ;窗口的匹配模式
; 定义变量
Global $DbPath, $DbPass, $TableGroup, $TableServer, $TableUsers, $Conn
Global $GroupItem[1], $iS = 0
Global $TreeContext, $TreeEdit, $TreeDelete, $SelectedItemIndex
Local $Title = "远程集中管理 (控制台) " ,$OemInfo
$OemInfo = ""
; 设置主程序窗口标题
If $OemInfo <> "" Then $Title &= " -- " & $OemInfo
;======================== ;;; 开始：创建程序主窗口 ;;; ========================
$Form1 = GUICreate($Title, 960, 615)
; 创建 工具栏
$MenuItem1 = GUICtrlCreateMenu("参数设置")
$MenuItem101 = GUICtrlCreateMenuItem("Mstsc 默认选项", $MenuItem1)
$MenuItem102 = GUICtrlCreateMenuItem("功能02", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("管理功能")
$MenuItem103 = GUICtrlCreateMenuItem("用户管理", $MenuItem2)
$MenuItem104 = GUICtrlCreateMenuItem("OEM信息", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenu("关于程序")
; 创建 组框："搜索"
$SearchGroup = GUICtrlCreateGroup("", 10, 2, 235, 44)
$SearchText = GUICtrlCreateInput("", 21, 14, 130, 25) ;创建搜索文本框
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
$SearchBtn = GUICtrlCreateButton("查找", 155, 13, 80, 27) ;创建查找按钮
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
; 创建 组框："连接按钮"
$BtnGroup = GUICtrlCreateGroup("", 250, 2, 700, 44)
$AddHostBtn = GUICtrlCreateButton("添加主机", 260, 13, 100, 27) ;"添加主机"按钮
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
$AddGroupBtn = GUICtrlCreateButton("添加分组", 370, 13, 100, 27) ;"添加分组"按钮
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
$EditHostBtn = GUICtrlCreateButton("修改主机", 480, 13, 100, 27) ;"修改主机"按钮
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
$DelHostBtn = GUICtrlCreateButton("删除主机", 590, 13, 100, 27) ;"删除主机"按钮
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
; 创建 TreeView
$TreeView = GUICtrlCreateTreeView(10, 50, 235, 508, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
$Group = GUICtrlCreateTreeViewItem("已分组服务器列表", $TreeView) ;创建TreeView项目
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetState(-1, BitOR($GUI_EXPAND, $GUI_DEFBUTTON)) ;设置TreeView样式
;~ _GUICtrlTreeView_SetLineColor($TreeView, 0xff0000)
; 创建 ListView
$ListView = GUICtrlCreateListView("", 250, 50, 700, 310)
_GUICtrlListView_AddColumn($ListView, "名称", 140) ;创建列
_GUICtrlListView_AddColumn($ListView, "隶属分组", 120) ;创建列
_GUICtrlListView_AddColumn($ListView, "IP", 110) ;创建列
_GUICtrlListView_AddColumn($ListView, "端口", 60) ;创建列
_GUICtrlListView_AddColumn($ListView, "备注", 240) ;创建列
_GUICtrlListView_SetExtendedListViewStyle($ListView, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES)) ;设置ListView样式
;~ GUICtrlSetColor($ListView , 0xff7f24)
; 创建 组框："手动运行"
$SoftGroup = GUICtrlCreateGroup(" 手动运行 ", 250, 365, 345, 194)
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
; 创建 组框："Mstsc 选项"
$MstscGroup = GUICtrlCreateGroup(" Mstsc 选项 ", 600, 365, 350, 97)
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
; 创建 组框："Radmin 中转"
$RadminGroup = GUICtrlCreateGroup(" Radmin 中转 ", 600, 462, 350, 97)
GUICtrlSetFont(-1, 10, 400, 0, "微软雅黑")
; 创建 状态栏
$StatusBar = _GUICtrlStatusBar_Create($Form1)
Dim $StatusBar_PartsWidth[5] = [140, 280, 480, 750 - 1]
_GUICtrlStatusBar_SetParts($StatusBar, $StatusBar_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar, " 总计分组: 组", 0)
$GroupCountLabel = GUICtrlCreateLabel("8888", 70, 574, 28, 16, $SS_RIGHT)
GUICtrlSetFont(-1, 9, 400, 0, "微软雅黑")
GUICtrlSetColor(-1, 0x1c86ee)
_GUICtrlStatusBar_SetText($StatusBar, " 主机数量: 台", 1)
$HostCountLabel = GUICtrlCreateLabel("8888", 210, 574, 28, 16, $SS_RIGHT)
GUICtrlSetFont(-1, 9, 400, 0, "微软雅黑")
GUICtrlSetColor(-1, 0x1c86ee)
_GUICtrlStatusBar_SetText($StatusBar, " 当前用户:", 2)
$CurrentUserLabel = GUICtrlCreateLabel("wangzhongheng123", 350, 574, 120, 16)
GUICtrlSetFont(-1, 9, 400, 0, "微软雅黑")
GUICtrlSetColor(-1, 0x1c86ee)
_GUICtrlStatusBar_SetText($StatusBar, " "& $OemInfo, 3)
_GUICtrlStatusBar_SetText($StatusBar, " By XXX. 版本：V1.0", 4)
_GUICtrlStatusBar_SetMinHeight($StatusBar, 25)
GUISetState(@SW_SHOW)
;======================== ;;; 结束：创建程序主窗口 ;;; ========================
;======================== ;;; 开始：创建托盘菜单、注册托盘事件 ;;; ========================
; 创建 托盘菜单
$TrayAbout = TrayCreateItem("关于程序")
TrayCreateItem("") ;菜单分隔条
$TrayView = TrayCreateItem("显示主窗口")
TrayCreateItem("") ;菜单分隔条
$TrayExit = TrayCreateItem("退出")
; 注册 托盘菜单事件
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "TrayEvent") ; 注册托盘图标双击事件
TrayItemSetOnEvent($TrayAbout, "TrayEvent") ; 注册托盘菜单"关于程序"事件
TrayItemSetOnEvent($TrayView, "TrayEvent") ; 注册托盘菜单"显示界面"事件
TrayItemSetOnEvent($TrayExit, "TrayEvent") ; 注册托盘菜单"退出"事件
TraySetState(1) ; 显示托盘图标
TraySetClick(16) ; 释放鼠标右键(显示托盘菜单)
TraySetToolTip("远程集中管理") ; 设置托盘图标的提示文本
;======================== ;;; 结束：创建托盘菜单、注册托盘事件 ;;; ========================
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") ;注册鼠标事件
Call(ConnectDB)
; 读取 分组列表
$RS = ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $Conn
$RS.Open("Select * From " & $TableGroup & " Order By GroupName")
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
ReDim $GroupItem[$iS + 1] ;数组大小 +1
$GroupItem[$iS] = GUICtrlCreateTreeViewItem($RS.Fields(1).value, $Group)
;~ GUICtrlSetColor(-1 , 0x006400)
$iS += 1
$RS.movenext
WEnd
GUICtrlSetData($GroupCountLabel, UBound($GroupItem)) ;设置总计分组label
_GUICtrlTreeView_Expand($TreeView, $Group)
_GUICtrlTreeView_SelectItemByIndex($TreeView, $Group, 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$RS.close
$Conn.Close
Exit
;~ Case $GroupItem[0] To $GroupItem[UBound($GroupItem)-1] ;TreeView列表点击事件
Case $TreeEdit
If $TreeEdit <> 0 Then
MsgBox(0, "", "点击了<编辑分组>按钮")
Else
MsgBox(0, "", $nMsg)
EndIf
Case $TreeDelete
MsgBox(0, "", "点击了<删除分组>按钮")
EndSwitch
WEnd
;=============== 函数 - 定义 ===============
Func ConnectDB() ;连接数据库
$DbPath = @ScriptDir & "" & "Data.mdb"
;~ $mdbpass = "traveler@)!^"
$DbPass = "123"
$TableGroup = "TB_Group"
$TableServer = "TB_Server"
$TableUsers = "TB_Users"
$Conn = ObjCreate("ADODB.Connection")
$Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $DbPath & "; Jet OLEDB:Database Password=" & $DbPass)
EndFunc ;==>ConnectDB
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
$hWndListView = $ListView
$hWndTreeView = $TreeView
If Not IsHWnd($ListView) Then $hWndListView = GUICtrlGetHandle($ListView)
If Not IsHWnd($TreeView) Then $hWndTreeView = GUICtrlGetHandle($TreeView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndTreeView
Switch $iCode
Case $NM_CLICK ; 鼠标左键单击项目时由控件发送
$rPos = _WinAPI_GetMousePos(True, $hWndTreeView)
$rSel = _GUICtrlTreeView_HitTestItem($hWndTreeview, DllStructGetData($rPos, "X"), DllStructGetData($rPos, "Y"))
If $rSel = 0 Then
Return $GUI_RUNDEFMSG
Else
_GUICtrlListView_DeleteAllItems($ListView)
EndIf
_GUICtrlTreeView_SelectItem($hWndTreeview, $rSel)
$SelectedItemIndex = _GUICtrlTreeView_Index($hWndTreeview, $rSel)
$RS = ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $Conn
$RS.Open("Select * From " & $TableServer & " Where Groups='" & _GUICtrlTreeView_GetText($TreeView, $GroupItem[$SelectedItemIndex]) & "'")
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
GUICtrlCreateListViewItem($RS.Fields(1).value & "|" & $RS.Fields(7).value & "|" & $RS.Fields(2).value & "|" & $RS.Fields(3).value & "|" & $RS.Fields(9).value, $ListView )
$RS.movenext
WEnd
GUICtrlSetData($HostCountLabel, _GUICtrlListView_GetItemCount($ListView)) ;设置总计主机label
Case $NM_DBLCLK ; 鼠标左键双击项目时由控件发送
MsgBox(0, "", "双击了<左键>")
Case $NM_RCLICK ; 鼠标右键单击项目时由控件发送
$rPos = _WinAPI_GetMousePos(True, $hWndTreeView)
$rSel = _GUICtrlTreeView_HitTestItem($hWndTreeview, DllStructGetData($rPos, "X"), DllStructGetData($rPos, "Y"))
If $rSel = 0 Then Return $GUI_RUNDEFMSG
_GUICtrlTreeView_SelectItem($hWndTreeview, $rSel)
$SelectedItemIndex = _GUICtrlTreeView_Index($hWndTreeview, $rSel)
$TreeContext = GUICtrlCreateContextMenu($GroupItem[$SelectedItemIndex])
$TreeEdit = GUICtrlCreateMenuItem("编辑分组", $TreeContext)
GUICtrlCreateMenuItem("", $TreeContext) ; 分割线
$TreeDelete = GUICtrlCreateMenuItem("删除分组", $TreeContext)
$a = $TreeEdit
EndSwitch
Case $hWndListView
Switch $iCode
Case $NM_CLICK ; 鼠标左键单击项目时由控件发送
$index = _GUICtrlListView_GetSelectedIndices($ListView)
If $index <> "" Then
;~ MsgBox(0, "", "单击了<左键>")
GUICtrlSetState($EditHostBtn, $GUI_ENABLE)
GUICtrlSetState($DelHostBtn, $GUI_ENABLE)
Else
GUICtrlSetState($EditHostBtn, $GUI_DISABLE)
GUICtrlSetState($DelHostBtn, $GUI_DISABLE)
EndIf
Case $NM_DBLCLK ; 鼠标左键双击项目时由控件发送
MsgBox(0, "", "双击了<左键>")
Case $NM_RCLICK ; 鼠标右键单击项目时由控件发送
MsgBox(0, "", _GUICtrlListView_GetSelectedIndices($ListView))
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc;==>WM_NOTIFY
Func TrayEvent() ;托盘事件
Switch @TRAY_ID
Case $TrayAbout
Call("About")
Case $TrayView, $TRAY_EVENT_PRIMARYDOUBLE
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_RESTORE, $Form1)
Case $TrayExit
Exit
EndSwitch
EndFunc
Func About()
GUISetState(@SW_RESTORE, $Form1)
GUISetState(@SW_DISABLE ,$Form1)
Msgbox(64, "关于程序"," 远程集中管理(控制台) V1.0 ", 0)
GUISetState(@SW_ENABLE ,$Form1)
GUISetState(@SW_RESTORE, $Form1)
EndFunc
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2016-8-29 19:33:21