Qokelate 发表于 2012-4-4 01:06:05

无聊写个会骗人的输入框，或许可以用来做密码输入框，呵呵

本帖最后由 Qokelate 于 2012-4-4 01:13 编辑


#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

PwdBox()
MsgBox(0, '你实际输入的是', $UserInput)
Exit

Func PwdBox()
Global $UserInput, $InputLen
GUICreate("Form1", 194, 111, 192, 114)
Global $CtrlID = GUICtrlCreateEdit('', 32, 40, 131, 20)
Global $hControl = GUICtrlGetHandle($CtrlID)
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
GUISetState(@SW_SHOW)

Local $nMsg
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
   Case $GUI_EVENT_CLOSE
    ExitLoop
EndSwitch
WEnd
EndFunc   ;==>PwdBox

Func WM_COMMAND($hWnd, $msg, $wParam, $lParam)
Local $iCode = BitShift($wParam, 16)
Local $ShowStr, $BoxString, $BoxStrLen
Switch $lParam
Case $hControl
   Switch $iCode
    Case $EN_CHANGE
   $BoxString = GUICtrlRead($CtrlID)
   $BoxStrLen = StringLen($BoxString)
   If $BoxStrLen < $InputLen Then
      $InputLen -= 1
      $UserInput = StringTrimRight($UserInput, 1)
   Else
      $UserInput &= StringRight($BoxString, 1)
      $InputLen += 1
   EndIf
   For $a = 1 To $InputLen
      $ShowStr &= ChrW(Random(1,65535,1))
   Next
   GUICtrlSetData($CtrlID, $ShowStr)
   EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Qokelate 发表于 2012-4-4 01:16:24

测试了下回车=@LF

haijie1223 发表于 2012-4-4 08:00:40

第10行global在func内

alice607 发表于 2012-4-4 21:06:17

{:face (270):}学习

aassddffgg961 发表于 2012-4-21 11:53:32

{:face (361):}有空玩玩。

lzy9903 发表于 2012-4-25 16:55:37

看不懂，但是还是学习一下
页: [1]
查看完整版本: 无聊写个会骗人的输入框，或许可以用来做密码输入框，呵呵