vb登录代码post(vb退出程序的代码)
admin 发布:2022-12-20 00:00 205
本篇文章给大家谈谈vb登录代码post,以及vb退出程序的代码对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录一览:
- 1、VB HTTPS POST
- 2、用VB XMLhttp Post制作自动登录,为什么就是登录不成功
- 3、vb用户怎么登录界面?用户登陆的代码是多少?
- 4、【VB】vb如何post提交
- 5、vb用户登录界面代码
VB HTTPS POST
首选添加引用:microsoft xml 6.0 我用的是6.0 如果你没有去安装xml6吧。
添加完成后,添加以下代码即可完成POST数据发送
Option Explicit
Dim xml As XMLHTTP60
Private Sub Command1_Click()
xml.open "POST", "", True '注明是POST请求,当然也可以get
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Dim str As String
str = str "wd=关键" '可以在这里添加参数
str = p_URLEncoding(str) '需要将POST的数据进行编码
xml.send str
End Sub
Private Sub Form_Load()
Set xml = New XMLHTTP60
End Sub
'编码函数
Private Function p_URLEncoding(vstrIn) As String
'/////////////////////////////////////////////////
'解决编码转换问题 POST GB2312 编辑的数据
Dim i As Long
Dim strReturn As String
Dim ThisChr As String
Dim innerCode As Long
Dim Hight8 As Long
Dim Low8 As Long
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vstrIn, i, 1)
If Abs(Asc(ThisChr)) HFF Then
strReturn = strReturn ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode 0 Then
innerCode = innerCode + H10000
End If
Hight8 = (innerCode And HFF00) \ HFF
Low8 = innerCode And HFF
strReturn = strReturn "%" Hex(Hight8) "%" Hex(Low8)
End If
Next
p_URLEncoding = strReturn
End Function
用VB XMLhttp Post制作自动登录,为什么就是登录不成功
post你看看参数有没有问题
cookie一般都是第一次访问网页,服务器会给你的。。。
至于验证码嘛,访问验证码地址同样会有cookie,把这个cookie和页面cookie加在一起post就行了
vb用户怎么登录界面?用户登陆的代码是多少?
vb登陆程序源代码
你可以这样做建一个模块在里面输入下列
Public conn As ADODB.Connection
Sub main()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"
conn.Open
from1.Show ’登录界面
End Sub
再在登录界面“确定”下写入如下代码:
Private Sub Command1_Click()
If id.Text = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbInformation, "友情提示"
id.SetFocus
Exit Sub
End If
If password.Text = "" Then
MsgBox "密码不能为空!", vbOKOnly + vbInformation, "友情提示"
password.SetFocus
Exit Sub
End If
Dim strSQl As String
strSQl = "select * from Users where users_name='" Trim$(id.Text) "' and password='" Trim$(password.Text) "' "
Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
If Try_times = 3 Then
MsgBox "您已经三次尝试进入本系统,均不成功,系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me
Else
MsgBox "对不起,用户名不存在或密码错误 !", vbOKOnly + vbQuestion, "警告"
id.SetFocus
id.Text = ""
password.Text = ""
End If
Else
Unload Me
Form2.Show ’登录进入的另一个界面
End If
End With
End Sub
【VB】vb如何post提交
vb的inet、webbrowser、winsock控件都可以post
你可以在百度中搜索相应控件的post
一般要先用抓包工具得到post数据,再在程序中按样post
vb用户登录界面代码
送给你一段现存的登录代码:
Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=001234;Initial Catalog=Mydatabase;Data Source=MERRYCHINA" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from A用户表 ORDER BY ID"
Set rs = Selectsql(SQL)
If rs.RecordCount 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("姓名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "请输入口令!", 64, "提示"
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "请选择帐号!", 64, "提示"
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM A用户表 WHERE 姓名='" Combo1.Text "' AND 密码='" Text1.Text "' "
Set rs = Selectsql(SQL)
If rs.RecordCount 0 Then
Form1.Show
Unload Me
Else
MsgBox "口令不对,请重新输入!", 64, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个
' 3) 在SQL Server2000中创建数据库"MyDatabase",新建表"A用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定
关于vb登录代码post和vb退出程序的代码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
相关推荐
- 04-28安卓小游戏代码项目下载(java简单手机小游戏源代码)[20240428更新]
- 04-28免费的手机端设计代码(手机端编写代码)[20240428更新]
- 04-28asp测试代码怎么写(ASP测试)[20240428更新]
- 04-28北京时间网页代码(中国北京时间代码)[20240428更新]
- 04-28做一个微信小程序需要多少钱,微信小程序制作一个需要多少钱
- 04-28网页页尾代码(网页制作尾部)[20240428更新]
- 04-28网站背景音乐自动播放代码(html背景音乐自动播放代码)[20240428更新]
- 04-28推箱子html代码(推箱子小游戏的代码)[20240428更新]
- 04-28手机版在线留言asp代码(asp手机网站源码)[20240428更新]
- 04-28淘宝js轮播代码(淘宝轮播图代码)[20240428更新]
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接