精华内容
下载资源
问答
  • 调用dll实现为自己软件加注册码 grant.dll的官网为编译环境VS2017 支持vbvb.net
  • VB窗体控件设计登录注册页面

    千次阅读 2020-08-16 13:36:41
    VB窗体控件设计登录注册页面 界面如下 代码如下 Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button3_Click(sender As Object, e As ...

    VB窗体控件设计登录注册页面

    界面如下
    在这里插入图片描述

    代码如下

    Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
    End Sub
    
    
    '登录
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
        Dim myconnect As New SqlClient.SqlConnection
        Dim mycommand As New SqlClient.SqlCommand
        Dim myread As SqlClient.SqlDataReader = Nothing
        Dim mytable As New DataTable()
        myconnect.ConnectionString = "server=127.0.0.1;database=master;integrated security=true;uid=chk;pwd=chk123456"
        myconnect.Open()        '打开数据库
        '设置命令属性
        mycommand.Connection = myconnect
        mycommand.CommandType = CommandType.Text
    
        Dim name As String
        Dim password As String
        name = Me.TextBox1.Text
        password = Me.TextBox2.Text
    
        mycommand.CommandText = "select * from test w
    展开全文
  • 我自己制作的一个注册软件,希望能给大家带来帮助 Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetVolumeInformation Lib ...
    我自己制作的一个注册软件,希望能给大家带来帮助
    
    Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
    Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
    ''此模块的作用是检测用程序所在机器C盘序列号并存入一个加密后的文本文件yibao.ini中,
    ''在每次运行时检测C盘序列号并与加密文本文件中的相应值进行比较如果不符提示用户进行注册

    Public Reg_C As String
    Public Reg_Key As Long
    Public Jia_Mi_File As String
    Public Jia_Mi_Char As String
    Public Fso As New FileSystemObject
    Public Ctf As TextStream



    Public Function Jia_Mi_Txt()
    Reg_C = Abs(GetSerialNumber("c:\"))
    If Dir(App.Path & "\yibao.ini") = "" Then
    ''建立一个文本文件
    Open App.Path & "\yibao.ini" For Output As #1
    Print #1, "00000000"
    Close #1
    End If

    Jia_Mi_File = App.Path & "\yibao.ini"
    Set Fso = CreateObject("Scripting.FileSystemObject")

    Set Ctf = Fso.OpenTextFile(Jia_Mi_File, 1) ''建立 TextStream 对象 CTF

    Jia_Mi_Char = ""
    Do While Ctf.AtEndOfStream <> True

    Jia_Mi_Char = Jia_Mi_Char & Chr(58 Xor Asc(Ctf.Read(1)))
    Loop

    Ctf.Close
    Set Ctf = Nothing

    If Jia_Mi_Char <> Int(Reg_C * 18 / 22 * 16 / 19) Then
    ''显示注册对话框
    Dialog.Show 1
    End If

    End Function


    ''Text2.Text = Len(Reg_C)


    Function GetSerialNumber(sroot As String) As Long
    Dim lserialnum As Long
    Dim r As Long
    Dim strlabel As String, strtype As String
    strlabel = String$(255, Chr$(0))
    strtype = String$(255, Chr$(0))
    r = GetVolumeInformation(sroot, strlabel, Len(strlabel), lserialnum, 0, 0, strtype, Len(strtype))
    GetSerialNumber = lserialnum
    ''在 strLabel 中为磁盘卷标
    ''在 strType 中为文件系统类型
    End Function

    ''此部分为程序加密处理模块,负责将C盘的卷标读并转换成数字
    ''对这串数字与58进行异或处理,得到一个加密的字符串写入yibao.ini中
    ''在每次运行时与文档中的加密后字符串进行反解密比较,不成功提示用户进行注册
    展开全文
  • 商标徽标设计程序(VB6源码).zip
  • VB中用户名注册,登录

    千次阅读 2019-02-15 09:23:30
  • 上一篇博客已经介绍了WebService的简单实例,现在讲述如何利用WebService实现简单的注册登录 首先在数据库中创建一个Users表,我设置为主键自增: 其实注册登录就只是对表进行增加查找,于是在此过程中肯定要...

        上一篇博客已经介绍了WebService的简单实例,现在讲述如何利用WebService实现简单的注册登录

        首先在数据库中创建一个Users表,我设置为主键自增:

        其实注册登录就只是对表进行增加查找,于是在此过程中肯定要连接数据库,在WebService中添加如下代码:

     '连接数据库
        Public conn As New SqlConnection("server=CNALCLUOD001242\SQLSERVER;database=RegisterAndLogin;user ID=sa;password=5201314.qaz")
    
        <WebMethod(Description:="用户注册方法")> _
        Public Function UserAdd(ByVal userName As String, ByVal password As String) As Integer
            Dim a As Integer = 0
            Try
                conn.Open()  '打开数据库连接
                Dim sql As String = "insert into Users(userName,password) values(@userName,@password)"
                Dim cmd As New SqlCommand(sql, conn)  'SqlCommand方法是构造函数,参数为一个执行的SQL语句,一个为连接对象
                cmd.CommandText = sql  '获取要执行的T-sql语句
                cmd.Parameters.Add(New SqlParameter("@userName", userName))    '实体的UserName参数
                cmd.Parameters.Add(New SqlParameter("@password", password))
                If cmd.ExecuteNonQuery() > 0 Then a = 1
            Catch ex As Exception
    
            Finally
                conn.Close()
            End Try
            Return a
        End Function
    
        <WebMethod(Description:="用户登录方法")> _
        Public Function UserLogin(ByVal userName As String, ByVal password As String) As Integer
            Dim a As Integer = 0
            Try
                conn.Open()  '打开数据库连接
                Dim sql As String = "select * from Users where userName=@userName and password=@password"
                Dim cmd As New SqlCommand(sql, conn)  'SqlCommand方法是构造函数,参数为一个执行的SQL语句,一个为连接对象
                cmd.CommandText = sql  '获取要执行的T-sql语句
                cmd.Parameters.Add(New SqlParameter("@userName", userName))    '实体的UserName参数
                cmd.Parameters.Add(New SqlParameter("@password", password))
                If cmd.ExecuteReader.Read Then a = 1
            Catch ex As Exception
    
            Finally
                conn.Close()
            End Try
            Return a
        End Function

        之后进行运行,在函数中写的description则是对该函数功能的解释说明:

        然后我们更改上节创建的windows Forms 项目的窗体名为login,当然也可以自己新建一个工程,再右键点击工程名->add->new item,找到Windows Forms,命有意义的名,依次再增加两个窗口:

        这样该工程下就有三个窗口,分别是login,register和users,,login为登录窗口,register为注册窗口,users为用户登录成功后进入的窗口:

       此时再依次对三个窗口按照需要进行页面设置,如下所示:

                  

        双击login界面的注册按钮,编写以下代码,表示点击该按钮时register窗体打开:

    Public Class login
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            register.Show()
        End Sub
    End Class
    

        双击register界面的确定按钮,编写代码,实现注册的功能,其思想很简单,获取窗口输入的用户名和密码,通过调用WebService提供的UserAdd方法,判断返回值是什么,如果是1则注册成功否则注册失败。

        但是在编写过程中遇到如下问题,那就是根本找不到UserAdd方法,明明自己写的WebService成功运行且有该函数,这是怎么回事呢?

        原来是因为我们没有更新WebService,右键点击WebService的命名空间,选择update....,当然也可以像之前那样先把引用的WebService删除再重新引用,不过那样太麻烦了:

        此时就有UserAdd方法了:

       register界面“确定”按钮完整代码:

    Public Class register
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            '获取输入的用户名
            Dim userName As String = TextBox1.Text.Trim
            '获取输入的密码
            Dim password As String = TextBox2.Text.Trim
            '获取引用
            Dim service As New ServiceReference1.WebService1SoapClient
            '接收返回值
            Dim result As Integer = 0
            Try
                '调用WebService提供的注册功能函数
                result = service.UserAdd(userName, password)
                If result = 0 Then
                    MessageBox.Show("注册失败!")
                End If
                If result = 1 Then
                    MessageBox.Show("注册成功!自动返回登录界面!")
                    '关闭当前register窗口
                    Me.Close()
                End If
            Catch ex As Exception
                '管他出现啥错误都说注册失败
                MessageBox.Show("注册失败!")
            End Try
        End Sub
    End Class

        登录的代码逻辑和注册相同,获取用户名和密码,调用WebService提供的登录函数,判断返回值进行相应操作,其代码如下:

     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            '获取输入的用户名
            Dim userName As String = TextBox1.Text.Trim
            '获取输入的密码
            Dim password As String = TextBox2.Text.Trim
            '获取引用
            Dim service As New ServiceReference1.WebService1SoapClient
            '接收返回值
            Dim result As Integer = 0
            Try
                '调用WebService提供的登录功能函数
                result = service.UserAdd(userName, password)
                If result = 0 Then
                    MessageBox.Show("登录失败!")
                End If
                If result = 1 Then
                    MessageBox.Show("登录成功!自动进入用户界面!")
                    '隐藏当前login窗口
                    Me.Hide()
                    '打开用户界面窗口
                    users.Show()
                End If
            Catch ex As Exception
                '管他出现啥错误都说登录失败
                MessageBox.Show("登录失败!")
            End Try
        End Sub

    实现结果如下所示:

     

     

     

     

     

     

    展开全文
  • 自助点餐系统vb

    2018-06-28 17:10:41
    vb做的自动点餐系统,包括顾客、服务员、厨师、管理员四个实体 顾客可以排号,就餐,点餐 服务员可以安排当前排号到的顾客就餐 厨师可以查看顾客订单做菜 管理员可以管理所有菜品,桌位,职员,进行增删改操作 同时...
  • 一套专业的VB专业管理系统-包含源代码,使用说明: 1.软件所涉及的数据库分为四张表。 lesson kecheng zhuanye class 四张表所有操作均可在本程序中进行。 2.程序功能:a.班级、学期、专业及自由组合的查询。...
  • VB代码,编译通过,生成软件注册码,原理是获取网卡MAC,再对MAC进行加密运算,最后得出一串数字作为软件的注册码,代码编译通过了可直接复制使用,注册码的值在变量 zhucema As string当中,具体见代码,要学习的...
  • VB-SEH 反调试设计.rar

    2019-07-10 11:33:27
    VB-SEH 反调试设计,产生异常的INT指令,凡是流程顺这下来的都是错误的,不管怎样都是假注册圈套,然后恰恰是调试器接手了这块,于是就变成了往下运行,凡是流程顺着来到这里的都死错误的,不管怎样都是假注册圈套 ...
  • 基于VB车辆管理系统

    2019-03-19 22:35:23
    1. 程序采用VB(开发语言) + Access(数据库) 开发。 2. 快速找车、车型参数、车型对比、用户管理、我的信息、系统帮助 六大模块。 3. 快速找车查询条件有(车型、级别、排量、价格区间) 支持复合查询,修改,添加...
  • 关于vb程序控件进度条的简单实现过程,可以作为平时联系用。
  • vb 程序破解

    千次阅读 2017-09-02 16:44:57
    这里我尽量多和详细地解释了VB程序的破解(其实也可看到反破解)的相关东西,把一个简单的VB计时器程序研究透了,对于VB破解应有较大帮助,如果觉得无用的不要喷,谢谢!可能包含错误认识,如有错误欢迎指出。 VB程序...
  • vb登录界面编写

    千次阅读 2019-05-12 16:27:29
    VB 登录界面编写 登录界面展示(此篇只有登录代码) 登录代码 Private Sub Command1_Click() 'command1是登录的按钮 Dim no,np, np,np, i%, j%, b%, p% b = 0 p = 0 If Text1.text = “” Then 'text1是用户名的...
  • VB程序破解

    千次阅读 2016-04-02 16:03:34
    VB程序的破解思路总结、编译方式vs破解工具 比较 把一个简单的VB计时器程序研究透了,对于VB破解应有较大帮助,如有错误欢迎指出。 VB程序也是一个非常有趣的东西,你去看VB的主程序,是用Microsoft Visual ...
  • 计算机专业毕业设计题目大全 一、ASP类计算机专业毕业设计题目 1.网络留言薄2.客户管理系统3.多媒体积件管理库的开发与应用4.基于WEB的多媒体素材管理库的开发与应用5.网络教学软件中的教学设计与应用6.小型教育...
  • 里面有很多的图可供使用。 在sql server2000 上实现数据库的模型建立(数据库、表的建立、完整性约束的实现、关系图、必要的存储过程及触发器的编程),并用VB实现简单的应用程序
  • VB.Net程序设计:多线程处理。 最近要用到多线程程序,来处理一些数据。 在网上找了许多文章。现在会用多线程处理vb.net教程数据了,感觉程序灵活性增强了。 VB.Net-C#多线程Thread-代理委托delegate编程 搜索局域网...
  • Environment.GetCommandLineArgs ...创建一个快捷方式,然后在里面加固定参数,程序调用方法: Private Sub FrmMain_Load(sender As Object,
  • 照其他资料写了分别为:”获取计算机某码“、”利用计算机某码生成注册码“、”利用注册码登录主程序“这三个程序,那么,下面怎么做?如何写一个主机端,主机端可以为注册码:“设置时间限制”、“给注册码加时间”...
  • 数据库课程设计-KTV点歌系统(VB.net 窗体,MySQL5.5)

    千次阅读 多人点赞 2021-01-13 17:41:30
    数据库课程设计-KTV点歌系统(VB.net 窗体,MySQL5.5) A 目录 *引言* 《数据库系统课程设计》是计算机学院的实践课程。在较为系统地学完《数据库系统》后,通过此课程设计,一方面可以增强对数据库的理解;另一...
  • FlexCell控件的一个使用实例,产生几乎和微软OFFICE Excel表格软件一样的效果及功能。对FlexCell控件使用不熟悉的朋友可以参考一下作者是怎么使用它的,还包括许多辅助的设计...编译程序前请先注册控件,否则程序报错。
  • 用来民主投票选举时使用(不过,候选人限于...支持两种计票方法:1.直接输入赞成、反对、弃权;2.只输入反对、赞成,而后有总票数减去反对与弃权,反推出赞成票。 (此处,仅提供.exe文件,vb源文件,联系后再作提供)
  • 如何用VB6.0编写一个用户登录系统

    千次阅读 2020-02-21 18:57:08
    工具/原料电脑VB6.0软件(没有的就去去下载一个)方法/步骤    进入VB6.0软件,双击“标准EXE”显示的页面如图。预设正确的用户名和密码为cxywlq和701213。    先从控件栏选择标签控件在form1...
  • vb.net 视频教程 Thisarticle is on creating a simple registration and login system without using a database in visual basic. So this project usesPropertiespresent in My Project. The link to download ...
  • 您还在为服务器上由于客户不愿意安装Excel,而您又要部署一款程序,需要导出到Excel,或者需要把Excel中的数据导入到数据库中而犯愁吗?本例代码,帮您实现不需要安装Excl,而用VB可以操作Excel的样例,希望,给你...
  • 本系统主要包括注册管理、界面管理、学生信息查询、添加、修改、删除和帮助等部分。其功能主要有: 学生信息的添加,包括输入学生基本信息和成绩。 学生信息的查询,包括查询学生基本信息和成绩。 学生信息的...
  • VB——对象库未注册

    万次阅读 多人点赞 2012-08-19 08:09:13
    由于前两天在清理文件的时候,不小心把C盘系统文件删了,今天打开vb6遇到了一个很顽固的问题,如下:       解决方法1: 打开frmMain.log发现如下问题: 行 12: 控件 sbStatusBar 的类 MSComctlLib.Status...
  • vb+access 课程设计

    2012-01-14 10:39:54
    课程设计 程序说明书 用户登陆 用户注册
  •  此测试版源码不提供安全保密方面设计,在以后开发的新版本中将提供产品注册、数据库加密等相关保密措施。  系统支持两种用户,即管理员和普通用户。  管理员:可以添加新用户(可为管理员或普通用户);可删除...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,943
精华内容 5,177
关键字:

vb设计注册程序