vb实现网页自动填表
http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
http://topic.csdn.net/t/20020113/14/474848.html
直接运行网页中的JavaScript:
function alllefttab()
WebBrowser1.Document.parentwindow.execScript "insert(2)", "JavaScript"
自动选择下拉列表中的某项2
Dim s
s = "javascript:document.getElementsByName(""w_type"")[0].value='2';void(0)"
WebBrowser1.Document.parentwindow.execscript s
添加一个WebBrowser1
Private Sub Form_Load()
WebBrowser1.Navigate "http://zhidao.stnts.com/"
'WebBrowser1.Navigate "http://zhidao.stnts.com/index.php?act=worklog:loginfo&id="
End Sub
Private Sub Form_Resize()
WebBrowser1.Width = Me.Width - 600
WebBrowser1.Height = Me.Height - 1000
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'登录并转到
If WebBrowser1.LocationURL = "http://zhidao.stnts.com/" Then
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case vTag.Name
Case "userid"
vTag.Value = "这里是用户"
Case "userps"
vTag.Value = "这里是密码"
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
WebBrowser1.Navigate "http://zhidao.stnts.com/index.php?act=worklog:insert"
End If
If WebBrowser1.LocationURL = "http://zhidao.stnts.com/index.php?act=worklo
相关文档:
'引用:Microfoft VBScript Regular Expressions 5.5 '一个正则提取功能
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As Ma ......
摘要: 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法,这些方法在开发VB数据库应用程序中很有实用价值,它可以提高数据库程序灵活性。
关键词:数据库、数据表、ADO、ADOX
1: 问题的提出
在Visual Basic中,常用的数据访问接口有下列三种:数据库访问对象(DAO,Data A ......
工作需要,针对java文件,作了一个行数统计的工具。统计的主要代码如下:
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
&nbs ......
'*************************************************************************
**说 明:永远的魔灵 by icecept(郭卫)
'**创 建 人:icecept(魔灵)
'**日 期:2009-11-15 20:27:03
'**修 改 人:icecept(魔灵)
'**版 本:V1.0.0
'**E-mail :icecept@163.com QQ:543375508
'**网 ......
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenu ......