帐号密码输入助手

作者:枕善居主 / 查看次数: 10626 / 评论: 10

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/

因为本人有许多的帐号和密码，有时候时间一长就忘记了，并且用的时候输入又很麻烦。所以一直想做这么一个东西，既可以管理这些帐号和密码，用的时候又不用动手输入。现在终于做出来了。很感谢枕善居让我学了不少东西，现在把代码贴出来，希望能对大家有帮助。

使用方法：
在列表中双击要输入的内容，然后在要输入的位置双击鼠标等5秒（这个时间可以在程序中自己设置）就可以。注意：在等待输入的时候必须使要输入内容的位置获得焦点。

举例说一下：
比如要输入QQ帐号，打开QQ登录窗口，然后双击本程序列表中你的QQ帐号，然后在QQ登陆窗口的帐号输入框双击鼠标然后等5秒就可以输入了。

注意：在等待输入的过程中QQ登陆窗口帐号输入位置必须获得焦点，也就是光标必须在那个帐号输入框里闪。

因为本人的语言表达能力实在不怎么样，所以有说不明白的地方请见谅！

另外该程序存在一些问题：
1、是不能及时判断在其他程序中鼠标的动作，所以有时候在输入位置需要多击几次鼠标才行。而有时候没有双击鼠标他就开始记时了。这个问题一直没有好的解决办法。

2、是数据库的自动编号问题，我用的access数据库，即使删除掉记录，自动编号还是会一直增大，不知道怎么解决。

程序原理其实就是模拟键盘操作。

以上问题如果有高手能够解决请帮忙改进一下。
方便的话把解决方法发给我。万分感谢！
mumu5602@163.com licheng5602@sina.com QQ:32372301

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/

【VB和.NET专业源码+解决方案+数据字典DVD(全国包快递)】代码清单购买后可以享受认证VIP会员及免费获取破解控件补丁

相关日志:

时钟报时和滑块触控音量[10155]

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: 助手透明窗体

评论: 10 | 引用: 0 | 查看次数: 10626

coolzjj [2011-02-26 09:32:52 |

]

mRS.Open sqlstr, cnMain, 1, 3

If mRS.RecordCount > 0 Then

   mRS.MoveFirst

   Do While mRS.EOF = False

        skey = Val(Trim(mRS.Fields("key")) + 1)      '取出一条加 1
        mRS.MoveNext                                '取出下一条对比看同不同
    If mRS.EOF = False Then
             skey2 = Val(Trim(mRS.Fields("key")))
    Else
            mRS.MoveLast
            skey = Val(Trim(mRS.Fields("key")) + 1)
            Exit Do
    End If

            If skey <> skey2 Then
            Exit Do
            End If

            If mRS.EOF = True Then
            mRS.MoveLast
            skey = Val(Trim(mRS.Fields("key")) + 1)
            End If

Loop

        mRS.AddNew

        mRS("key") = skey

        mRS.Update


数据表中key 为自动编号的  删除掉记录后，自动编号会一直增大，这是我用的解决方法给需要的人吧。

新天下 [2009-12-24 21:01:51 |