AU3
源代码如下:#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#include <Array.au3>
#include <StaticConstants.au3>
Opt("GUIOnEventMode", 1);OnEvent模式
$title = "游戏目录搜索"
Global $Button,$i,$i2,$keys
Local $Total = IniReadSection("config.ini", "测试")
If WinExists($title) Then Exit
AutoItWinSetTitle($title)
_IEErrorHandlerRegister()
$oIE = ObjCreate("Shell.Explorer.2")
$Form1 = GUICreate($title, 900, 525)
GUISetOnEvent($GUI_EVENT_CLOSE, "set")
$Keys_Input = GUICtrlCreateInput("搜索内容", 625, 90, 89, 21)
GUICtrlSetColor(-1, 0x0A7604)
GUICtrlSetOnEvent($Keys_Input, "set")
GUICtrlSetTip(-1, "请输入搜索内容")
$search = GUICtrlCreateButton("开始搜索", 733, 90, 56, 22, 0)
GUICtrlSetOnEvent($search, "set")
$Group1 = GUICtrlCreateGroup("★游戏目录", 8, 112, 81, 385)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$s = 104
$s2 = 0
Dim $but, $job4, $link
For $I = 1 To $Total
$s2 = $s + 40
$s = $s2
$Button[$I] = GUICtrlCreateButton($Total[$I], 16, $s2, 64, 25, 0)
;~ 按钮文字为INI等号左边的值，$Button[$I]为按钮控件ID
$Button[$I] = $Total[$I];
;~ $Button[$I] 为INI等号右边的值，即要运行的程序。
GUICtrlSetOnEvent($Button[$I], "B_Msg")
GUICtrlSetTip($Button[$I], "点击观看→" & $Total[$I])
;~ 将按钮点击注册到函数 B_Msg()
Next
$oIE.navigate("c:\")
ControlListView($title, "", "SysListView321", "ViewChange", "smallicons")
$GUIActiveX = GUICtrlCreateObj($oIE, 90, 117, 786, 380)
GUISetState()
While 1
Sleep(100)
WEnd
Func set()
Select
Case @GUI_CtrlId = $search
$keys = GUICtrlRead($Keys_Input)
If $keys <> "" And $keys <> "搜索内容" Then
gosearch()
Else
MsgBox(64, "提示:", "请输入目录名称")
EndIf
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc ;==>set
Func gosearch() ;查找目录 ==============搜索目录段就这里搞不定了。。。
$keys2 = "\"&$keys&"*"
;$keys&"*"
For $I = 1 To $Total
$FileList = _FileListToArray($Total, $keys2, 2)
MsgBox(64,"PATH",$Total[$i]&$keys2)
If @error = 1 Then
MsgBox(0, "", "No Files\Folders Found.")
ElseIf @error = 4 Then
MsgBox(0, "非常抱歉:", "没找到该影片,请于管理员联系!")
Else
msgbox(64,"box",$FileList)
EndIf
;MsgBox(0, "", $FileList)
Next
EndFunc ;==>gosearch
Func B_Msg()
;MsgBox(64,"asdf","TEST")
dim $s3
For $I2 = 1 To UBound($Button, 1) - 1
If @GUI_CtrlId = $Button[$I2] Then$oIE.navigate($Button[$I2])
Next
;MsgBox(64,"asdf",$s3)
EndFunc ;==>B_Msg 问题不说出来请大家去猜?
页:
[1]