精华内容
下载资源
问答
  • VB.Net程序设计:密码查看器

    千次阅读 2009-01-16 15:13:00
    网上许多密码查看器,但要注册。要钱。自己要用到。所以自己用VB.Net写了一个。很简单的几十行代码。在win2000+vs2005测试通过。可以看密码框里*号下是什么内容。对于简单的密码框有效。软件界面如下: 代码:[code...

    网上许多密码查看器,但要注册。要钱。自己要用到。所以自己用VB.Net写了一个。很简单的几十行代码。
    在win2000+vs2005测试通过。可以看密码框里*号下是什么内容。对于简单的密码框有效。

    软件界面如下:

    密码查看器

     

    代码:

    [code=vb.net]

     Imports System.Text

    Public Class MainFrmClass MainFrm

        Declare Function RegisterHotKey()Function RegisterHotKey Lib "user32.dll" Alias _
            "RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean
        Declare Function UnRegisterHotKey()Function UnRegisterHotKey Lib "user32.dll" Alias _
            "UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean
        Declare Function WindowFromPoint()Function WindowFromPoint Lib "user32" Alias _
            "WindowFromPoint" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
        Declare Function SendMessageA()Function SendMessageA Lib "user32" Alias _
            "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As StringBuilder) As Integer

        Const WM_HOTKEY = &H312
        Const Key_ALT = &H1
        Const Key_CONTROL = &H2
        Const Key_SHIFT = &H4
        Const GWL_WNDPROC = (-4)
        Const WM_GETTEXT = &HD
        Const WM_GETTEXTLENGTH = &HE
        Dim lngPosX, lngPosY As Integer
        Dim intHwnd As Integer
        Const intLengthA = 1500
        Dim Str As New StringBuilder(intLengthA)

        Private Sub TimerGetTxt_Tick()Sub TimerGetTxt_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerGetTxt.Tick
            lngPosX = Windows.Forms.Cursor.Position.X
            lngPosY = Windows.Forms.Cursor.Position.Y
            LBMousXY.Text = lngPosX & "," & lngPosY
            intHwnd = WindowFromPoint(lngPosX, lngPosY)
            SendMessageA(intHwnd, WM_GETTEXT, intLengthA, Str)
            Me.TxtBoxStr.Text = Str.ToString.Trim
        End Sub

        Private Sub BtExit_Click()Sub BtExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtExit.Click
            UnRegisterHotKey(Handle, 0)
            Application.Exit()
        End Sub

        Private Sub MainFrm_FormClosed()Sub MainFrm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
            UnRegisterHotKey(Handle, 0)
            Application.Exit()
        End Sub

        Private Sub MainFrm_Load()Sub MainFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '注册Ctrl+T的组合键
            RegisterHotKey(Handle, 0, Key_CONTROL, Asc("T"))
        End Sub

        Protected Overrides Sub WndProc()Sub WndProc(ByRef m As Message)
            If m.Msg = WM_HOTKEY Then
                Me.TimerGetTxt.Enabled = Not Me.TimerGetTxt.Enabled
                If Me.TimerGetTxt.Enabled Then
                    Me.LBColorShow.BackColor = Color.Lime
                Else
                    Me.LBColorShow.BackColor = Color.Tomato
                End If
            End If
            MyBase.WndProc(m)
        End Sub
    End Class
    [/code]

    展开全文
  • Dim myuser(1 To 100, 1 To 2) As StringDim knum As IntegerPrivate Sub Check1_Click() 注册Command3.Enabled = Check1.ValueCommand4.Enabled = Check1.ValueEnd SubPrivate Sub Command1_Click() 登陆If knu

     Dim myuser(1 To 100, 1 To 2) As String
    Dim knum As Integer
    Private Sub Check1_Click()    '注册
    Command3.Enabled = Check1.Value
    Command4.Enabled = Check1.Value
    End Sub

    Private Sub Command1_Click() '登陆
    If knum > 0 Then
     For i = 1 To knum
       If Text1.Text = myuser(i, 1) And Text2.Text = myuser(i, 2) Then
       Form2.Show
       Exit Sub
      End If
     Next
     MsgBox "非法用户"
     Else
     MsgBox "请注册用户"
    End If

     

     

    End Sub

    Private Sub Command1_KeyPress(KeyAscii As Integer)
    If KeyCode = 13 Then
    Command1.Value = True
    End Sub

    Private Sub Command2_Click() '重置
    Text1.Text = ""
    Text2.Text = ""
    End Sub

    Private Sub Command3_Click() '注册用户
    myuser(knum + 1, 1) = Text1.Text
    myuser(knum + 1, 2) = Text2.Text
    knum = knum + 1
    Text1.Text = ""
    Text2.Text = ""
    End Sub

    Private Sub Command4_Click() '删除用户
    For i = 1 To knum

    If Text1.Text = myuser(i, 1) And Text2.Text = myuser(i, 2) Then
     myuser(i, 1) = ""
     myuser(i, 2) = ""
    End If
    Next
    End Sub

    Private Sub Form_Load()
    knum = 0
    End Sub

    Private Sub Text1_Change()

    Command1.Enabled = Text1.Text <> "" And Text2.Text <> ""
    Command2.Enabled = Text1.Text <> "" Or Text2.Text <> ""

    End Sub

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim a As String
    a = KeyAscii
    If Not (a >= 65 And a < 91 Or a >= 97 And a <= 123) Then
    KeyAscii = 0
    End If


    End Sub

    Private Sub Text2_Change()


    Command1.Enabled = Text1.Text <> "" And Text2.Text <> ""
    Command2.Enabled = Text1.Text <> "" Or Text2.Text <> ""
    End Sub


    Private Sub Text2_KeyPress(KeyAscii As Integer)
    Dim a As String
    a = Chr(KeyAscii)
    If IsNumeric(a) = flase Then
    keyacsii = 0
    End If

    End Sub

    展开全文
  • vb+access 课程设计

    2012-01-14 10:39:54
    课程设计 程序说明书 用户登陆 用户注册
  • 照其他资料写了分别为:”获取计算机某码“、”利用计算机某码生成注册码“、”利用注册码登录主程序“这三个程序,那么,下面怎么做?如何写一个主机端,主机端可以为注册码:“设置时间限制”、“给注册码加时间”...
  • 前些天在网上看到有人需要邮箱自动注册程序,于是...VB的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计,我找到了一种比较简单的办法,要求对HTML标记语言有所了解即可,现在把自己的...

    前些天在网上看到有人需要邮箱自动注册的程序,于是自己也写了一个,在查资料的过程中我看到一些网友写的类似文章,有一些是基于网络协议,需要了解session,cookie这些东西,对于一个新手来说很繁琐,等到把这些东西搞懂,热情也消耗殆尽。VB的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计,我找到了一种比较简单的办法,要求对HTML标记语言有所了解即可,现在把自己的经验写出来于各位网友共享,该方法也许不值一提,也许对您有所帮助。

    我的办法就是利用控件WebBrowser,我想很多人对它都很熟悉,在新建一个工程之后您要做的是添加两个控件,一个是WebBrowser,另一个是Scriptlet,这两个控件配合使用,就可以完成这个任务了,Scriptlet中的IHTMLDocument2对象可以用来获得WebBrowser控件中的HTML文档。这两个控件的名字在组件对话框里分别叫Microsoft HTML Object Library和Microsoft Internet Controls。

    这两个控件添加完成之后,你还需要知道WebBrowser的一个事件DocumentComplete,这个事件在整个网页下载完成之后触发,也就是说在页面完成之后这个事件即被执行,有了这些就可以顺利的实现注册了。

    下面以eyou网站的免费邮箱注册为例来实现我的程序设计,新建标准工程后向Form中添加一个WebBrowser控件。所有代码如下:

    Dim ii As Integer

     

    Private Sub Form_Load()

       WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"

    End Sub

     

    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

      Dim doc As IHTMLDocument2

      Set doc = WebBrowser1.Document

      Dim tmp As String

     

      If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then

        tmp = "sdfsdf23" + Trim(Str$(ii))

        doc.All.Item("uid").focus

        SendKeys tmp

        SendKeys "{enter}"

      End If

     

      If InStr(doc.body.innerText, "输入您的个人资料") > 0 Then

       

        doc.All.Item("Password").Value = "123456"

        doc.All.Item("Confirm").Value = "123456"

        doc.All.Item("FirstName").Value = "tomcant"

        doc.All.Item("question").Value = "what is your name"

        doc.All.Item("answer").Value = "my name is ddd"

        doc.All.Item("year").Value = "80"

        doc.All.Item("month").Value = "3"

        doc.All.Item("day").Value = "18"

        doc.All.Item("day").focus

        SendKeys "{enter}"

     End If

     

     

     If InStr(doc.body.innerText, "申请邮箱成功") > 0 Then

        ii = ii + 1

        WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"

     End If

     

    End Sub

    Eyou的免费邮箱注册入口地址为http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on,所以要在Form_load事件中使用WebBrowser控件的Navigate方法。

    在eyou的注册入口页面完成之后WebBrowser1_DocumentComplete即被执行,在这个函数中主要有三个条件语句,在三个条件语句之前有如下三句:

    Dim doc As IHTMLDocument2

    Set doc = WebBrowser1.Document

    Dim tmp As String

    doc定义为IHTMLDocument2对象用以取得WebBrowser1的文档,tmp字符串是循环注册中的用户名,在程序刚开始定义了ii这个integer变量,在每次注册完成之后ii加1附于tmp之后用以改变用户名。

    第一个条件语句如下:

    If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then

        tmp = "sdfsdf23" + Trim(Str$(ii))

        doc.All.Item("uid").focus

        SendKeys tmp

        SendKeys "{enter}"

      End If

    首先判断是否是注册入口页面,通过InStr(doc.body.innerText, "寻找一个新的用户名") > 0语句实现,doc.body.innerText即取得了该页面中的所有文字。如果是则构造一个用户名。doc.All.Item("uid").focus使用户名文本框取得焦点,其中uid是该文本框的ID,这个ID的取得是通过查看HTML源代码得到的,所以要求对HTML标记语言有所了解。使用户名文本框取得焦点之后通过SendKeys函数模拟键盘向文本框发送tmp字符串,这样用户名即填写完成,之后发送回车键提交表单。关于SendKeys函数的使用大家可查阅MSDN帮助。

    第二个条件语句首先判断改页面是否是个人资料填写页面,然后填写个人资料,其方法同填写用户名一致,取得个文本框的ID后填写其值,最后提交表单。

    最后一个条件语句判断邮箱注册成功后将ii加一,然后将页面重新定位到注册入口页面,至此一个循环完成。

    以上代码即实现了自动注册提交。

    转载于:https://www.cnblogs.com/luyichuan/archive/2012/02/21/2361692.html

    展开全文
  • 一、 XP SP2 , 的系统,VB 开发的程序运行时提示”象 错误对象 424 ,需要对象”。。下载个 mscomm32.ocx,复制到 C:\windows\system32 下,并在开始菜单的“运行”中注册下,注册方法:Regsvr32 mscomm32.ocx。二...

    一、 XP SP2 , 的系统,VB 开发的程序运行时提示”象 错误对象 424 ,需要对象”。

    下载个 mscomm32.ocx,复制到 C:\windows\system32 下,并在开始菜单的“运行”中注册下,注册方法:Regsvr32 mscomm32.ocx。

    二、 commondialog 部件的许可信息没找到, 在设计环境中, 没有合适的许可证使用该功能 。

    vb 精简版中,为什么 commondialog 控件不可用。

    vb6.0 控件许可证错误补丁下载页面:http://download.pchome.net/development/vb/603.html 下载下来的文件名:vb6cli.zip;首先选择一个文件夹解压该文件,解压出来 5 个小文件。

    运行其中的 VBC.EXE。然后重新打开 vb 工程,重新加载该控件即可。

    (已经下载并安装,文件保存在上同级文件夹 vb6cli 中;若工具栏中没有该控件,可在 ctrl+T 中找)

    展开全文
  • FlexCell控件的一个使用实例,产生几乎和微软OFFICE Excel表格软件一样的效果及功能。对FlexCell控件使用不熟悉的朋友可以参考一下作者是怎么使用它的,还包括许多辅助的设计...编译程序前请先注册控件,否则程序报错。
  • 第1章 Web程序设计的基础知识 第2章 WEB程序设计的基础 第3章 VB.NET快速参考 第4章 服务器控件 第5章 用户注册处理 第6章 ASP.NET常用组件 第7章 数据的显示与处理 第8章 文件处理
  • vb添加GIF动态图片

    万次阅读 热门讨论 2012-04-28 16:52:18
    众说周知,GIF格式动画文件具有小巧、制作方便等特点,因此在网上得到广泛应用,在vb的picturebox和image控件添加图片后变成静止的了,这给我们设计VB应用程序带来了不便。原来以为实现起来特别的麻烦,又要注册控件...
  • 软件介绍: 燃气水力计算工具使用说明:居民水力计算功能及特点本表流量计算采用同时工作系数法,适合枝状独立小区的水力计算。 计算速度快。... 本程序VB6编写,VB6_runtime已经集成进安装程序
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    VB设计聚焦框程序 73 , 73.txt 用WinSock设计Chat程序 74 , 74.txt 用两分法搜索列表框或组合框中的数据 75 , 75.txt 运用MSChart,生成统计图形 76 , 76.txt 在vb的文本框等等控件的系统右键菜单里追加自己定义的...
  • vb锁定鼠标活动范围反调试源码参考,里面有画出来的自定义按钮,每过100微秒锁定一次,防止鼠标脱离。... 设计思路是程序一起动就自动锁定鼠标不离开程序范围,除非结束掉程序,或者完成注册为止。
  • Skinpp_VB_Demo

    2011-07-19 11:25:05
    3.正式版中提供强大的皮肤设计工具: Skin++ Builder 4.Skin++ For VB6 使用帮助:SkinPlusPlus_chs.chm 5.本版本支持在VB6环境中直接调试运行 6.本版本提升了皮肤加载速度,和程序运行时效率 7.支持VB6上所有...
  • packetvb vb网络抓包

    2013-05-10 23:22:49
    目前的vbpcap只能做到捕获数据包,没有对捕获到的数据包进行协议分析,协议分析的工作可以由程序设计者来完成。另外,由于vbpcap是封装的WinPcap的API函数,因此和WinPcap一样,只能捕获数据包,并不能阻止数据包在...
  • 移动业务管理系统(VB)

    2008-01-29 20:32:31
    VB设计的一款仿移动业务管理系统,功能比较简单,但基本功能都有,采取的Access数据库,数据库未经优化(使用前请先注册控件) 本程序仅供参考 三断笛保持所有权利
  • 13、vb6根据MDPlay设计进度框.txt 14、vb6后台发送邮件.txt 15、vb6获取鼠标当前位置.txt 16、vb6检测程序是否运行.txt 17、vb6检测键盘的输入.txt 18、vb6检测文件是否存在.txt 19、vb6进度条的使用A.txt 20、vb6...
  • SkinSharp可以在不修改客户程序的基础上,对在Windows上运行的任何程序进行随意换肤,完全实现了将程序界面与业务逻辑彻底分离,从而可以让您轻松地完成程序界面的完美升级。 SkinSharp优势 SkinSharp与同类...
  • asp.net 新闻发布系统 VB access,计算机系课程设计程序,完整的新闻发布系统,评论,搜索,发布,注册,修改密码,管理员管理新闻,都可以实现!动态的添加到access数据库!
  • VB6.0动态加载ActiveX控件漫谈 深圳 罗汉军 罗德昌 熟悉VB的朋友对使用ActiveX控件一定不会陌生,众多控件极大地方便了编程, 但唯一的缺陷是不能动态加载控件,必须在设计时通过引用,将控件放置在窗体上。 VB6.0...
  • VB开发经验技巧宝典

    2012-01-29 14:26:04
    1.3 控件注册和对象引用 0014 如何添加 ActiveX控件 0015 如何引用对象 0016 如何添加第三方控件 0017 如何加载和使用API浏览器 0018 定制我的模板库 1.4 其他方面的技巧 0019 如何规范代码缩进格式 ...
  • VB注释程序代码的符号是“注释:”,只要在某行程序前面加上“注释:”,就可以注释该行程序。但如果程序代码很长的时候,一行一行地注释令人觉得难以忍受。VB本身提供了这个功能,在主菜单“视图”选项的“工具栏”...
  • VB+SQL宿舍管理系统

    热门讨论 2008-12-22 08:47:46
    通用学校管理软件(职中版) 7.0是四川省仁寿新科学校计算机中心开发部耗时二年,经过大量的走访、调查,专门针对目前...注册后可以获得本套软件未编译的全部源程序(包括报表控件)。 默认登录用户名:demo 密码:demo
  •  此测试版源码不提供安全保密方面设计,在以后开发的新版本中将提供产品注册、数据库加密等相关保密措施。  系统支持两种用户,即管理员和普通用户。  管理员:可以添加新用户(可为管理员或普通用户);可删除...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    12.3 注册程序集 366 12.3.1 Gacutil实用程序 366 12.3.2 程序集在Reference对话框中不可见的原因 366 12.4 设计类库 368 12.5 使用第三方的类库 369 12.6 用对象浏览器查看类 370 12.7 小结 371 12.8 练习 371 第13...
  • 资料打印精灵VB源码

    2006-09-02 17:48:42
    类库内嵌的报表模板设计器,可以方便快速的设计出各种类型报表的模板,设计过程采用先进的所见即所得的方式,让您使用起来更加得心应手。 资料打印精灵软件是应用VbPrint库的一个极好二次开发范例,它主要是针对...
  • 里面有用 vb 处理俄罗斯方块的核心内容及简单注释(8KB) 584,g014.zip breakthrough游戏(保持小球在屏幕上跳动)源程序(50KB) 585,g013.zip 3维迷宫游戏的源程序(40KB) 586,g012.zip 射击(导弹)游戏...
  • 里面有用 vb 处理俄罗斯方块的核心内容及简单注释(8KB) 584,g014.zip breakthrough游戏(保持小球在屏幕上跳动)源程序(50KB) 585,g013.zip 3维迷宫游戏的源程序(40KB) 586,g012.zip 射击(导弹)游戏...

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 175
精华内容 70
关键字:

vb设计注册程序