📄 14394.html
字号:
<html>
<head>
<title>请教cww或其他高手一个程式问题!</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>请教cww或其他高手一个程式问题!</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:kuotsani@tpts4.seed.net.tw">Mouse</a> on June 18, 1999 at 12:15:22:<p>
我想做一个像SnadBoy's Revelation的软体<br>他的作用是可以显示密码输入框的密码(将*的内容显示出来)<br>Ex.拨号网路的密码输入<br>我利用GetCursorPos()取得滑鼠的位置<br>再用WindowFromPoint()取得滑鼠所在文字输入框的hWnd<br>我本来的想法是利用SendMessage()<br>送讯息给滑鼠位置所在的文字方框取的里面的内容<br>但是在执行的同一个视窗可以取得密码框的内容<br>但是在别的视窗上(拨号网路密码输入框,或其他视窗的文字输入框)<br>却会程式错误然后结束(游标移到输入框上立刻发生 user32发生错误)<br>不知有没有什么比较好的方法可以做到我想要的功能<p>程式:<br>Dim hCursorWnd As Long, point As POINTAPI<br>Static hw As Long<br>Dim st As String<br>hw = 0<br>GetCursorPos point<br>hCursorWnd = WindowFromPoint(point.X, point.Y)<br>If hw <> hCursorWnd Then<br> st = String(255, 0)<br> RtlMoveMemory ByVal st, 255, 2<br> GetClassName hCursorWnd, st, 80<br> st = Left(st, InStr(st, Chr(0)) - 1)<br> Select Case UCase(st)<br> Case "EDIT", "THUNDERTEXTBOX", "THUNDERRT5TEXTBOX"<br> st = String(80, Chr(0))<br> RtlMoveMemory ByVal 80, &H50, 2<br> SendMessage hCursorWnd, EM_GETLINE, 0, ByVal st<br> End Select<br> st = Left(st, InStr(st, Chr(0)) - 1)<br> lbl.Caption = st<br> hw = hCursorWnd<br>End If<p>不知道程式应该改成怎样才能达成我要的功能?<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14394-->
</ul><!--end: 14394-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -