用VB制作一个简易的网页登陆器
首先网页的开发是一个多语言的环境，前台有html css javascript，这些语言组成静态页面，后台有php asp jsp asp.net 等服务器端语言，用于写后台在服务器端运行的程序，看你写的代码，应该 是asp的程序， asp 一般都是用 vbscript写的，注意不是vb，vbscript是一种服务器端脚本语言是asp技术的通用的编程语言
首先添加控件WebBrowser（工具栏鼠标右键--部件--添加，找到WebBrowser控件添加进来） 接着托个WebBrowser到窗体上，设置Navigate就可以显示指定的网站了，如： WebBrowser1.Navigate “ http://www.baidu.com ”
你是直接在VB中加载登录窗口进行登录，还是在浏览器中做插件进行登录？
在VB中进行登录：
'函数功能： 登陆网页
'输入参数： WB:webbrower控件，sURL：网址，OverTime：超时时间，UserName：用户名，UserPWD：用户密码，InPutName：用户名输入框，InPutPWD：密码输入框，LoginFrom：登陆窗体，BtnName：登陆按钮名字
'输出参数： 无
'返回值： True：成功，false：失败
'******************************************************************
Public Function LoginUrl(WB As WebBrowser, sURL As String, OverTime As Long, UserName As String, UserPWD As String, InputName As String, InputPWD As String, LoginFrom As String, BtnName As String) As Boolean
On Error GoTo errorHandle
bHtmlFlag = False
Set sDocument = WB.Document
sDocument.getElementById(InputName).Value = UserName
sDocument.getElementById(InputPWD).Value = UserPWD
If BtnName = "" Then
sDocument.Forms(LoginFrom).submit
Else
sDocument.getElementById(BtnName).Click
End If
If HtmlOverTime(OverTime, sURL) = 1 Then '判断超时
LoginUrl = False
InsertLog "登陆网址：" & sURL & "失败！", 1
Exit Function
End If
LoginUrl = True
Exit Function
errorHandle:
InsertLog "错误号:" & Err.Number & "错误描述:" & Err.Description, 1
Debug.Print Err.Description
Err.Clear
End Function
'******************************************************************
'创建日期： 2008-10-28
'函数功能： 判断网页打开是否超时
'输入参数： sTime：超时时间
'输出参数： 无
'返回值： 0:成功，1：失败
'******************************************************************
Public Function HtmlOverTime(sTime As Long, sURL As String) As Long
t = GetTickCount
Do Until bHtmlFlag = True
DoEvents
If GetTickCount - t > sTime Then
InsertLog "打开网址：" & sURL & "失败！", 1
HtmlOverTime = 1
Exit Function
End If
Loop
HtmlOverTime = 0
End Function
如果用插件的 复杂一些，可以查找olelib的知识
'引用olelib实现IObjectWithSite接口来获得IE对象
Implements olelib.IObjectWithSite
'
Private WithEvents m_IEObj As InternetExplorer
Attribute m_IEObj.VB_VarHelpID = -1
Private m_site As olelib.IUnknown
Private sDoc As New MSHTML.HTMLDocument
Private Sub IObjectWithSite_GetSite(riid As olelib.UUID, ppvSite As stdole.IUnknown)
m_site.QueryInterface riid, ppvSite
End Sub
Private Sub IObjectWithSite_SetSite(ByVal pUnkSite As stdole.IUnknown)
Set m_site = pUnkSite
Set m_IEObj = pUnkSite
End Sub
'========================================================
'网页加载完成后要处理
'
'
'========================================================
Private Sub m_IEObj_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim strHTML As String
Dim strScript As String
Dim scDoc As New MSHTML.HTMLDocument
Dim sHeads As IHTMLElementCollection
Dim sHead As IHTMLHeadElement
Dim sElement As IHTMLElement
'获取Script脚本内容
strScript = getHTMLScript
'MsgBox URL
If InStr(URL, "zs/browseShenbao.do?formId=") > 0 Then
'获取添加按钮的html语句
strHTML = GetIni("HTML", "String1", App.Path & "\HtmlMark.ini")
Set sDoc = m_IEObj.Document
Set scDoc = sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
Set scDoc = scDoc.frames("mainFrame").Document
'获取HEAD头的对象
Set sHeads = scDoc.getElementsByTagName("HEAD")
Set sHead = sHeads(0)
'创建script的节点
Set sElement = scDoc.createElement("script")
sElement.setAttribute "language", "JavaScript"
sElement.setAttribute "text", strScript
'把script的节点插入到head中
Call sHead.insertBefore(sElement, Null)
'把按钮的html语句插入到页面中
scDoc.body.innerHTML = scDoc.body.innerHTML & strHTML
End If
'
If InStr(URL, "/initArchive.do") > 0 Then
Set sDoc = m_IEObj.Document
'获取添加按钮的html语句
strHTML = GetIni("HTML", "String2", App.Path & "\HtmlMark.ini")
Set scDoc = sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
Set scDoc = scDoc.frames("mainFrame").Document
'获取HEAD头的对象
Set sHeads = scDoc.getElementsByTagName("HEAD")
Set sHead = sHeads(0)
'创建script的节点
Set sElement = scDoc.createElement("script")
sElement.setAttribute "language", "JavaScript"
sElement.setAttribute "text", strScript
'把script的节点插入到head中
Call sHead.insertBefore(sElement, Null)
'把按钮的html语句插入到页面中
scDoc.body.innerHTML = scDoc.body.innerHTML & strHTML
End If
'档案查询页面
If InStr(URL, "/showDangAn.do?") > 0 Then
Set sDoc = m_IEObj.Document
'获取添加按钮的html语句
strHTML = GetIni("HTML", "String3", App.Path & "\HtmlMark.ini")
'MsgBox "strHTML---------" & strHTML
'MsgBox sDoc.body.innerHTML
Set scDoc = sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
Set scDoc = scDoc.frames("mainFrame").Document
'MsgBox scDoc.body.innerHTML
'获取HEAD头的对象
Set sHeads = scDoc.getElementsByTagName("HEAD")
Set sHead = sHeads(0)
'创建script的节点
Set sElement = scDoc.createElement("script")
sElement.setAttribute "language", "JavaScript"
sElement.setAttribute "text", strScript
'把script的节点插入到head中
Call sHead.insertBefore(sElement, Null)
'把按钮的html语句插入到页面中
scDoc.body.innerHTML = scDoc.body.innerHTML & strHTML
End If
End Sub
跟我制作简易仓库系统:[5]入库出库自动记帐
插入模块：点击开发工具\/代码\/visual basic，（或者AIT+F11)弹出VB编辑窗口。点击VB编辑器中的插入，选择模块点击，会出现一个新的模块。编写代码：在代码编辑窗口写入如下代码 Sub 入库提交() Dim a As Long a = IIf(Sheets("入库单").[P14] = "
VB高手进,求一个简单计算器的VB代码
这是刚看VB的时候写的一个简易计算器，可以看看Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判断是否是数字开头Dim PointFlag As Boolean '判断是否已有小数点Dim Runsign As Integer '储存运算符号Dim SignFlag As Boolean '判断是否已有运算符号 Sub ...
用vb制作简易MP3播放器
利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举 启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图 按钮"Open ...
VB简易计算器代码怎么写
Dim a(100) As Double Dim n& Dim Plus As Boolean Dim yunsuan(100) As Integer '---这里增加 Dim a100 As Double Private Sub cmd1_Click()If Plus = True Then Plus = False Text1.Text = "1"Else Text1.Text = Text1.Text & "1"End If End Sub Private Sub cmd2_Click()...
如何用vb画出简易函数图像
用vb画出简易函数图像的操作步骤为：（1）新建一个工程,新建一个Form1,在上面添加一个picture控件和一个command控件；（2）选中此控件,右击"复制",在窗体空白处右击"粘贴",在弹出的对话框中选择"是",创建了一个Command控件数组,复制,使窗体上总共出现7个Command控件；（3）复制代码:Const Pi = 3....
用VB来编程一个简易的计算机
后面发了两个文件的内容，你创建两个文本文件按照那两个文件命名后，并把对应代码用记事本打开粘贴到里面，最好再用vb运行project1.vbp文件编译成exe文件或直接执行都可以。给你写了一个代码十分简单的计算器，真正手写代码就这么多。Dim mem1 As Long, mem2 As Long, mem3 As Long Dim calc As ...
怎样用VB编辑一个简易计算器 最好用控件数组 急求 !!!
2013-03-02 如何用vb中控件数组做一个简易计算器? 2012-12-16 如何用vb中控件数组做一个简易计算器? 1 2016-01-13 vb 编写一个简易计算器,图中给了数组的做法,要求使用单个控... 2009-11-19 如何用vb中控件数组做一个简易计算器? 12 2014-11-12 那个用vb的控件数组做计算器还存在吗?可以发给我...
用VB程序编写设计一个简易记事本,要求能够实现“复制”、“剪切...
Dim sFind As String Dim FileType, FilterType As String Private Sub Form_Load()Me.Height = 6000 Me.Width = 9000 End Sub Private Sub Form_Resize()On Error Resume Next RichTextBox1.Top = 5 RichTextBox1.Left = 5 RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width =...
VB 超简易迷宫 代码
Dim spRECT(12) As RECT '我这里只有13个shape画的墙，用来记录所有墙覆盖的区域 Dim menRECT As RECT '小人覆盖的区域 Const bu As Long = 10 '定义小人移动的步长 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim temp As RECT Select Case KeyCode Case vbKey...
急求用VB编辑简易计算器代码
简易计算器代码2008-09-25 09:33package javaapplication1;import java.awt.*;import java.awt.event.*;import javax.swing.*;public class TestZ extends JFrame implements ActionListener{ private JPanel jPanel1,jPanel2;private JTextField resultField;private JButton s1,s2,s3,s4,s5,s6,s7,...
尾管强力： 你是直接在VB中加载登录窗口进行登录,还是在浏览器中做插件进行登录? 在VB中进行登录: '函数功能: 登陆网页 '输入参数: WB:webbrower控件,sURL:网址,OverTime:超时时间,UserName:用户名,UserPWD:用户密码,...
张掖市15814672473： VB制作一个简单网页登陆器 - ？
尾管强力： Private Sub Command1_Click() If Text1.Text = ＂＂ Then MsgBox ＂用户名不能为空＂: Exit Sub If Text2.Text = ＂＂ Then MsgBox ＂密码不能为空＂: Exit Sub Dim strFormData As String strFormData = ＂uid=＂ + Text1.Text + ＂&pwd=＂ + ...
张掖市15814672473： VB制作自动网站登录器 - ？
尾管强力： 首先加载部件 Microsoft Internet Controls (VB网页浏览器控件)然后加入已下代码:WebBrowser1.Document.All(＂SName＂).Value = ＂123456＂ '姓名 WebBrowser1.Document.All(＂SNo＂).Value = ＂123456＂ '学号'以上是文本框赋值 ...
张掖市15814672473： VB制作网站登陆器 - ？
尾管强力： 第一行代码的意思是你的帐户名不能为空,否则不能链接到网址 第二行代码的意思是你的密码不能为空,否则不能链接到网址 第三行代码的意思是定义一个字符串,第四行代码的意思是把帐户名和密码转换成数据库查询语句 第五行代码的意思是如果帐户名和密码都正确,就链接网址
张掖市15814672473： 怎么用VB做个登入器 - ？
尾管强力： 用网页 自动填表 的方法首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library. 假设你的HTML页面表单代码如下: <form method=＂POST＂ action=＂http://chen/dll/chat/chatmain.exe/RegUser＂> <p>请填写下面表单注...
张掖市15814672473： 怎样用VB简单做WEB浏览器? - ？
尾管强力： 你启动VB,新建一个工程,选择＂VB应用程序向导＂此向导会指导你创建一个工程,其中有一步是询问＂你是否希望用户从你的应用程序中访问internet＂,选择＂是＂,最后选择＂完成＂来生成一个工程你会看到,向导已经为你生成了一个:frmBrowser的窗体,这就是你要的web浏览器了.企业版本在新建项目里面都有游览器这个可以直接用
张掖市15814672473： 如何用VB编一个登陆器 - ？
尾管强力： 其实用不着什么数据库,不用数据库一样可以编写出来,但是就是麻烦点 if text1.text = ＂abc＂ and text2.text = ＂cba＂ then 同上 写二十遍 abc与cba 为用户名与密码 就OK了 如果想使用可以修改和创建账户的话,那就的使用数据库了
张掖市15814672473： VB怎样做登陆网站？
尾管强力： Private Sub cmdBack_Click() On Error Resume Next WebBrowser.GoBack '回到上一个页面 txtURL.Text = ＂＂ End Sub Private Sub cmdExit_Click() End End Sub Private Sub cmdGo_Click() '打开网页 If Len(txtURL.Text) > 0 Then ...
张掖市15814672473： 跪求!用VB制作一个简单的登陆界面 - ？
尾管强力： 窗体上画两个text(txt_user,txt_psw),两个label(用户名,密码),两个command(login,cancel) login_click事件 if txt_user=＂我的名字＂ then if txt_psw=＂我的密码＂ msgbox ＂welcome＂ else msgbox ＂口令不对＂ endif else msgbox ＂名不对＂ endif
张掖市15814672473： 怎么用VB编写简易登陆器? - ？
尾管强力： FindWindow获得游戏窗口 sedkeys传入用户名密码
