本帖最后由 261869247 于 2010-9-5 20:47 编辑 #include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf
$Form1_1 = GUICreate("测试", 366, 139, 353, 312)
$Button1 = GUICtrlCreateButton("你的用户名", 16, 24, 81, 25)
$Button2 = GUICtrlCreateButton("你的密码", 16, 64, 81, 25)
$1 = GUICtrlCreateInput("", 112, 24, 209, 21)
$2 = GUICtrlCreateInput("", 112, 64, 209, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$Button3 = GUICtrlCreateButton("确定输入", 112, 104, 75, 25)
$Button4 = GUICtrlCreateButton("重新输入", 240, 104, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $sData = InetRead("http://121.8.187.110:8080/dlqhttp/test.txt")
Local $player = BinaryToString($sData)
$serverfile = FileOpen("temp.ini", 10)
FileWrite($serverfile, $player)
FileClose($serverfile)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
$myname = GUICtrlRead($1)
$mypass = GUICtrlRead($2)
$d = FileRead("temp.ini")
If StringInStr($d, $myname) >= 1 Then
If StringInStr($d, $mypass) >= 1 Then
MsgBox(0, "", "输入都正确")
Else
MsgBox(0, "", "账号密码错")
EndIf
Else
MsgBox(0, "", "账号密码错")
EndIf
EndSwitch
WEnd
不会MYSQL 读取 只有想到这个笨方法
论坛里谁比较熟悉MYSQL 的帮帮忙
或者 改进这个代码 直接读取网页上的某段
而不是像我现在的代码这样 把网页的数据全部下载下来 然后再搜索判断的 |