本帖最后由 水木子 于 2011-11-16 15:10 编辑
Opt("GUIOnEventMode", 1)
Global $sConfigPath = 'Config.ini'
GUICreate('', 300, 100)
GUISetOnEvent(-3, '_GuiEvents')
$Input1 = GUICtrlCreateInput('', 40, 40, 150, 21)
$Button1 = GUICtrlCreateButton("读取", 190, 38, 80, 25)
GUICtrlSetOnEvent(-1, '_GuiEvents')
GUISetState()
While 1
Sleep(250)
WEnd
Func _GuiEvents()
Switch @GUI_CtrlId
Case -3
Exit
Case $Button1
$sName = GUICtrlRead($Input1)
If $sName Then
MsgBox(0, '', IniRead($sConfigPath, 'Config', $sName, '没有这个用户名!'))
Else
MsgBox(0, '', '请输入用户名!')
EndIf
EndSwitch
EndFunc ;==>_GuiEvents
配置文件 Config.ini 内容如下!
[Config]
李强=123
张强=456
王强=789 |