转到Form1_Load事件中

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 



'注册Ctrl+A的组合键 



RegisterHotKey(Handle, 0, Key_CONTROL, Asc("A")) 



End Sub 







声明Protected Overrides Sub WndProc(ByRef m As Message)事件 




Protected Overrides Sub WndProc(ByRef m As Message) 



If m.Msg = WM_HOTKEY Then 



Me.Timer1.Enabled = Not Me.Timer1.Enabled 



If Me.Timer1.Enabled Then 



Me.ColorShow.BackColor = Color.Lime 



Else 



Me.ColorShow.BackColor = Color.Tomato 



End If 



End If 



MyBase.WndProc(m) 



End Sub 

  好了代码输入完毕，最终界面效果图3


                   图三

  我们现在来运行一下吧，当然有很多网友可能也知道网络上有很多带星号的密码查看的工具，其实它的制作原理也很简单。为了验证密码查看器程序的有效性，笔者打开了一个已经加密的Word文档，将鼠标移动到已经加密并且带星号的文本框，如图4

                            图四

  是不是发现很神奇呢？马上我们可以看到这些星号在密码查看程序的文本框中给显示出来了图5。

  
                              图 5 

  好了，程序测试运行成功，也完成了我们查看密码文本框的目的，当然这只是一个简单的演示程序，大家还可以去修改一下，添加更多的查看密码文本的功能，使其功能增强。