如何查看IE中的星号密码？

添加一个form1，一个command1，代码如下：
Private Sub Command1_Click()
Tmp = 0
For i = 1 To 30000
    If IsWindow(i) Then
        Tmp = Tmp + 1
        SendMessage i, EM_SETPASSWORDCHAR, 0&, ByVal 0&
        UpdateWindow i
    End If
    DoEvents
Next i
MsgBox "Done, PWChars on " + Format(Tmp) + " windows reset."
End Sub
添加一模块，模块代码如下：
Public Declare Function UpdateWindow Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function IsWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Public Const EM_SETPASSWORDCHAR = &HCC
Public Const EM_GETPASSWORDCHAR = &HD2然后自己运行看效果吧。