vb.net制作密码 vbs密码程序

VB.net2008开发软件设置软件第一次登录密码【请看图】

第一次打开也没有密码吧？如果有初始密码，直接写代码中，判断下没有ini就用存储密码的变量

隆化网站建设公司成都创新互联,隆化网站设计制作，有大型网站制作公司丰富经验。已为隆化超过千家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的隆化做网站的公司定做！

如何用VB.NET制作账号自动登陆的程序

Private Sub SendBlogTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendBlogTimer.Tick

Dim textboxUserId As HtmlElement

Dim textboxPassword As HtmlElement

Dim buttonSubmit As HtmlElement

textboxUserId = SendBlogBrowser.Document.All("username")'获取用户名输入框

textboxPassword = SendBlogBrowser.Document.All("password")'获取密码输入框

buttonSubmit = SendBlogBrowser.Document.All("btnLogin")'获取登陆按钮

textboxUserId.SetAttribute("value","用户名")'给用户名输入框赋值

textboxPassword.SetAttribute("value","密码"）'给密码框赋值

buttonSubmit.InvokeMember("click")’执行登陆按钮的单击

End Sub

其中的SendBlogBrowser为WebBrowser控件

vb.net如何创建mdb文件并设置密码

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

选择 Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建空的access数据库文件--数据库文件.mdb，密码为123

Dim Mycat As Catalog = New Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")

'以下代码创建一个名为“实验数据表”

Dim MyTable As ADOX.Table = New ADOX.Table '定义新表

MyTable.Name = "实验数据表" '表命名

'给表“实验数据表” 创建一个字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

'给表“实验数据表” 创建一个整数字段，字段名“学号”

MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段

'给字段“学号”创建一个主键“PimaryKey_Field”

MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

MyTable = Nothing

Mycat = Nothing

End Sub

End Class

VB.NET设置用户名,密码?

If TextBox1.Text = "123" TextBox2.Text = "123" Then

改成 If TextBox1.Text = "123" and TextBox2.Text = "123" Then

vb.net中修改用户密码

以下这里有错误：

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username " 'AND password='" userpassword " '"

修改为：

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username "' AND password='" userpassword "'"