-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathNetview树形控件用法.au3
138 lines (125 loc) · 5.21 KB
/
Netview树形控件用法.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F2}", "Togglepause")
$i = 0
Do
ShellExecute("Lorex Client 10.exe","","C:\Program Files\Lorex Client 10")
WinWait("Lorex Client 10","Login","Button10")
ControlClick("Lorex Client 10","","Edit1")
Send("172.18.6.14")
ControlClick("Lorex Client 10","","Edit2")
Send("2050")
ControlClick("Lorex Client 10","","Edit3")
Send("admin")
ControlClick("Lorex Client 10","","Edit4")
Send("519070")
ControlClick("Lorex Client 10","StartPreview","Button9")
ControlClick("Lorex Client 10","Login","Button10")
WinWait("Lorex Client 10","Remote Setting")
ControlClick("Lorex Client 10","Remote Setting","Button3")
ControlTreeView ("Lorex Client 10", "", "SysTreeView321", "Expand", "System|User")
ControlTreeView ("Lorex Client 10", "", "SysTreeView321", "Select", "System|User")
$msg = MsgBoxDJS(0 + 48 + 4, '界面是否全部出现', '界面全部实现请点击确定，' & @CRLF & '是否继续？', 5, 2)
ProcessClose ( "Lorex Client 10.exe")
Sleep(1000)
$i = $i + 1
Until $i = 100000000000000000000000000000000000000
Func Terminate()
Exit 0
EndFunc
Func Togglepause()
$Paused = NOT $Paused
While $Paused
tooltip("暂停一会",0,0)
sleep(100)
tooltip("")
WEnd
EndFunc
;==========================================================================================
; 说明: 修改MsgBox窗口样式，动态显示倒计时。
; 语法: MsgBoxDJS(msgbox样式标志, '标题', '提示文本'[, 倒计时长(秒)[, 动态控件的标志[, 句柄]]])
; 参数: msgbox样式标志、'标题'、'提示文本'、句柄 均同MsgBox函数，详情请参阅MsgBox()函数说明。
; 倒计时时长(秒) - [可选]单位为秒，默认为10。
; 动态控件的标志 - [可选] 0 = 动态"标题", 1 = 动态"提示文本"(默认), 2 = 动态"按钮"。
; 注意: 在标题或消息框动态显示的时间默认显示在字符串前面，如需调整可在需要的位置标记 %s 。
; (如需显示“%s”字符串本身请使用“%\s”)
; 返回值:返回按下按钮的ID(同MsgBox函数)。
; 作者: Afan -- http://www.autoit.net.cn （本udf借用了 guland 的思路，THX ~）
;=====================================================================================start
Func MsgBoxDJS($flag, $title, $text, $timeout = 10, $Cflag = 1, $hwnd = '')
Global $Timer = DllCallbackRegister('Timer', 'int', 'hwnd;uint;uint;dword')
If $timeout = '' Or $timeout = -1 Then $timeout = 10
Global $_title = $title, $_text = $text, $_Cflag = $Cflag, $_ibj = 1, $_ttc = $timeout, $bttxtbj = 0
Global $TimerDLL = DllCall('user32.dll', 'uint', 'SetTimer', 'hwnd', 0, 'uint', 0, 'int', 100, 'ptr', DllCallbackGetPtr($Timer))
Local $Mkmsg
If $Cflag = 0 Then
If StringRegExp($title, '%s') = 0 Then
$title = '%s' & $title
$_title = $title
EndIf
$title = StringRegExpReplace($title, '%s', StringFormat('%03s', $_ttc))
$title = StringRegExpReplace($title, '%\\s', '%s')
EndIf
If $Cflag = 1 Then
If StringRegExp($text, '%s') = 0 Then
$text = '%s' & $text
$_text = $text
EndIf
$text = StringRegExpReplace($text, '%s', StringFormat('%03s', $_ttc))
$text = StringRegExpReplace($text, '%\\s', '%s')
EndIf
$Mkmsg = MsgBox($flag, $title, $text, 0, $hwnd)
DllClose($TimerDLL)
DllCallbackFree($Timer)
Return $Mkmsg
EndFunc ;==>MsgBoxDJS
Func Timer($hwnd, $uiMsg, $idEvent, $dwTime)
Global $TimerDLL, $bttxtbj, $_Cflag, $_title, $_ttc, $_text, $_ibj, $Timer, $_titleF, $TimerJS
If $idEvent = $TimerDLL[0] Then
Global $bttxt, $CtrlF, $Static
If $bttxtbj = 0 Then
WinActivate($_title)
If $_Cflag = 0 Then
$_titleF = StringRegExpReplace($_title, '%s', StringFormat('%03s', $_ttc))
$_titleF = StringRegExpReplace($_titleF, '%\\s', '%s')
$CtrlF = ControlGetFocus($_titleF)
EndIf
If $_Cflag = 1 Or $_Cflag = 2 Then $CtrlF = ControlGetFocus($_title)
$bttxt = ControlGetText($_title, $_text, $CtrlF)
If $_Cflag = 1 Then
$Static = 'Static1'
ControlGetText($_title, StringRegExpReplace($_text, '%s', StringFormat('%03s', $_ttc)), 'Static1')
If @error Then $Static = 'Static2'
EndIf
$bttxtbj = 1
EndIf
If $TimerJS = 9 Then
If $_Cflag = 0 Then
$_title1 = StringRegExpReplace($_title, '%s', StringFormat('%03s', $_ttc - $_ibj + 1))
$_title1 = StringRegExpReplace($_title1, '%\\s', '%s')
$_title2 = StringRegExpReplace($_title, '%s', StringFormat('%03s', $_ttc - $_ibj))
$_title2 = StringRegExpReplace($_title2, '%\\s', '%s')
WinSetTitle($_title1, $_text, $_title2)
ElseIf $_Cflag = 1 Then
$_text1 = StringRegExpReplace($_text, '%s', StringFormat('%03s', $_ttc - $_ibj + 1))
$_text1 = StringRegExpReplace($_text1, '%\\s', '%s')
$_text2 = StringRegExpReplace($_text, '%s', StringFormat('%03s', $_ttc - $_ibj))
$_text2 = StringRegExpReplace($_text2, '%\\s', '%s')
ControlSetText($_title, $_text1, $Static, $_text2)
ElseIf $_Cflag = 2 Then
ControlSetText($_title, $_text, $CtrlF, $bttxt & StringFormat(' %03s', $_ttc - $_ibj))
EndIf
If $_ibj = $_ttc Then
If $_Cflag = 0 Then $_title = $_title2
If $_Cflag = 1 Then $_text = $_text2
DllClose($TimerDLL)
DllCallbackFree($Timer)
ControlClick($_title, $_text, $CtrlF, '', 2)
EndIf
$_ibj += 1
$TimerJS = 0
Else
$TimerJS += 1
EndIf
EndIf
EndFunc ;==>Timer
;=========================================================================================end