精华内容
下载资源
问答
  • 经过1年多的积累修改,VB6也可以实现网页自动化,针对360急速浏览器,webdriver和chrome请大家自行到网站下载对应版本。(方法包括:截图、通过多种途径获取id、通过id获取文本、各种属性获取、删除、设置、切换网页...
  • 直接调用系统的WinHttp对象实现网页访问和提交数据。 不使用inet1控件和winsock控件,也不使用API函数,更不用xmlhttp这种卡顿的方式。 对网页编码支持UTF-8和Unicode以及GBK/gb2312的正常处理。
  • vb.net2008开发的网页浏览器程序(含源码),实现了多标签(核心功能)、百度搜索等浏览器常用功能。
  • 怎样实现窗体中内容象网页一样滚动呢?本例给出了一个解决方法。还挺新颖,一般不怎么这么用,就是当你拖动滚动条的时候,窗体中的内容不论什么,都随着滚动条的移动而滚动,就像在IE中浏览网页一样,实现起来并不...
  • VB 模拟点击网页按钮、输入、搜索 学做插件的基本
  • vb网页编辑器源代码

    2012-10-08 10:19:58
    在CSDN下载的都是不能用的,找了一个完整的上传之, vb网页编辑器,有完整的源代码,测试可以使用。
  • VB获取指定网址下网页的所有链接及图片,比如实例中是抓取163首页上的所有链接及图片,每个链接都有抓到,当然JS和IFRAME的除外,图片也可以抓取并显示出来,不过你的网速如果慢的话,那需要耐心等待了。程序用到了...
  • vb.net 网页控制教学实现撷取按钮自动填写 想要控制网页的赶快来看看
  • Vb实现 另存为网页的功能,一个小软件,下载网页文件的小工具,类似于IE浏览器的网页另存为的功能,可保存网页上的HTML、IMAGES等图像和CSS文件,是由国外网友写的一个小程序,对于理解网络编程有一定的参考帮助作用...
  • VB实现网页木马

    2012-07-10 11:36:12
    1.剖析网页木马的工作原理 2.理解木马的植入过程 3.学会编写简单的网页木马脚本 4.通过分析监控信息实现手动删除木马
  • Vb网页浏览器

    2013-02-19 13:46:36
    一个简单的网页浏览器,能实现基本的后退、前进、刷新、主页的功能。 打开后会自动打开IE的主页。
  • 经过1年多的积累修改,VB6也可以实现网页自动化,针对谷歌的chrome浏览器,webdriver和chrome请大家自行到网站下载对应版本。(方法包括:截图、通过多种途径获取id、通过id获取文本、各种属性获取、删除、设置、...
  • VB.NET实现网页禁止重复提交,含源码,已调试通过。
  • 主要介绍了VB使用XMLHTTP实现Post与Get的方法,有一定的借鉴价值,需要的朋友可以参考下
  • 内容索引:VB源码,网络相关,编辑器 VB编写的网页代码提取器,并可分析代码进行比对,可导入、保存、执行脚本等,貌似功能还比较多,程序是由网络上最初的一个HTML提取程序改写而成。
  • 内容索引:VB源码,网络相关,Scoket,HTTP,上传文件 VB实例:Scoket通过HTTP协议上传文件,通过软件向网页提交文件,实现类似上传的功能。用到了Scoket和HTTP协议相关知识。
  • VB6实现网页自动化方法(chrome或360极速版) 资源共享中挂载了类插件,可能很多人不知道如何使用,这里做一个说明。 1 首先下载360极速版浏览器,正常安装。打开浏览器-----右上角三个杠-----帮助-----关于360极速...

    VB6实现网页自动化方法(chrome或360极速版)
    资源共享中挂载了类插件,可能很多人不知道如何使用,这里做一个说明。
    1 首先下载360极速版浏览器,正常安装。打开浏览器-----右上角三个杠-----帮助-----关于360极速浏览器,查看内核版本号(就是谷歌浏览器的版本)。
    2 百度一下WebDriver的下载地址,下载chromedriver.exe,找到内核对应的版本下载,不同的内核对应不同的版本。将下载文件一般可以放在360极速浏览器安装目录中(随便哪里都行,需要指定位置)
    3 简单的使用代码:

    getUser = Environ(“USERPROFILE”)
    Temp = getUser & “\AppData\Local\360Chrome\Chrome\Application”

    ‘这句是360浏览器通常安装路径。

      web.DriverPath = Temp & "chromedriver.exe"
    

    ’指定chromedriver.exe所在位置

        web.Start Temp & "360chrome.exe"
    

    ‘启动360浏览器

        web.GoURL "chrome://settings/advanced"
        Hid = web.getDriverIdById("switch_mode-Chrome")
        web.click Hid
        web.wait 1000
    
    • ’这段是让360浏览器使用急速方式(谷歌浏览器模式,非IE模式) ,Hid和hids默认的元素变量名,自己定义也可以。

       web.GoURL ”https://www.baidu.com"
      

    ’自动加载网址,比如百度引擎,当然百度网站,没有下面的元素。

        Hid = web.getDriverIdById("username")
    

    ‘查找username为id的元素。

        web.SetElementValue Hid, myName
    

    ’设置元素的值

        Hid = web.getDriverIdById("password")
    

    ‘查找password元素

        web.SetElementValue Hid, Mypass
    

    ’给指定的元素赋值

        Hid = web.getDriverIdById("kc-submit")
    

    ‘查找id为kc-submit的元素

        web.wait 1000
    

    等待1S

        web.click Hid
    

    点击这个元素

    其它功能自己根据实际情况使用:

    • 特别提示:

    Hid = web.getDriverIdById(“username”)
    这里的 getDriverIdById 通过id得到DriverId
    id是指分析网页结构中的元素id(有的元素定义了id,有的没有定义)
    DriverId是指 "chromedriver.exe"软件中对元素定义的id(所以元素都有DriverId)
    如果返回空,说明元素不存在。

    展开全文
  • 内容索引:VB源码,界面编程,浏览器 界面很漂亮很个性的VB网页浏览器,使用了比较多的BMP图像来修改窗体,虽然程序有些老,不过现在掌握这项窗体美化技术同样有用,本例子的关键实质并不是浏览器的实现,或许作者更想...
  • 内容索引:VB源码,网络相关,网页源代码 获得网页源代码的小工具_VB编写实现,也可直接浏览网址的内容,点击“显示源码”就能看到网页源代码了。
  • vb实现网页自动填表

    2021-04-13 13:07:16
    URL As Variant) S = True End Sub 总结 以上是编程之家为你收集整理的vb实现网页自动填表全部内容,希望文章能够帮你解决vb实现网页自动填表所遇到的程序开发问题。 如果觉得编程之家网站内容还不错,欢迎将编程...

    搜索热词

    选中复选框

    Private Sub Command1_Click()

    Dim objDoc As Object

    Dim i As Integer

    Set objDoc = WebBrowser1.Document.All.tags("button")

    For i = 0 To objDoc.length - 1

    Select Case objDoc(i).Type

    Case "submit"

    objDoc(i).Click

    Exit For

    End Select

    Next

    End Sub

    VB 选定LIST 自动填表

    '例子在这..写在command里看效果吧..加一个WebBrowser1.之后写上这些效果 。。

    WebBrowser1.Navigate "http://newreg.qq.com/"

    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE '等装载完

    DoEvents

    Loop

    WebBrowser1.Document.All.tags("select")(3).selectedIndex = 2 '改属性

    WebBrowser1.Document.All.tags("select")(3).onchange '确认

    直接运行网页中的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

    Option Explicit

    Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

    Dim SendLog%

    Private Sub Command1_Click()

    MsgBox WebBrowser1.LocationName & "|" & WebBrowser1.LocationURL

    End Sub

    Private Sub Form_Load()

    If App.PrevInstance = True Then

    MsgBox "你已经运行过一个喽!"

    End

    End If

    Me.Hide

    WebBrowser1.Left = 240

    WebBrowser1.top = 240

    WebBrowser1.Navigate "http://zhidao.baidu.com/"

    'WebBrowser1.Navigate "http://zhidao.baidu.com/index.PHP?act=worklog:loginfo&id="

    End Sub

    Private Sub Form_Resize()

    WebBrowser1.Width = Me.Width - WebBrowser1.Left - 350

    WebBrowser1.Height = Me.Height - WebBrowser1.top - 750

    End Sub

    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant)

    Me.Caption = WebBrowser1.LocationName

    '登录并转到

    Dim vDoc,vTag

    Dim i As Integer

    Dim s

    If WebBrowser1.LocationURL = "http://zhidao.baidu.com/" Then

    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 = "wangquan"

    Case "userps"

    vTag.Value = "1282"

    End Select

    ElseIf vTag.Type = "submit" Then

    vTag.Click

    End If

    End If

    Next i

    WebBrowser1.Navigate "http://zhidao.baidu.com/index.PHP?act=worklog:insert"

    End If

    '是否周末

    If WebBrowser1.LocationURL = "http://zhidao.baidu.com/index.PHP?act=worklog:insert" Then

    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 = "hidden" Then

    '填写标题

    If vTag.Name = "w_title" Then

    Dim todays

    todays = IIf(DateDiff("s","07:00:00",Time) < 0,Date - 1,Date)

    todays = Format(todays,"yyyy年mm月dd日")

    vTag.Value = todays

    End If

    '选择类别

    s = "javascript:document.getElementsByName(""w_type"")[0].value='" & IIf(Weekday(Now,2) > 5,1,0) & "';void(0)"

    WebBrowser1.Document.parentwindow.execScript s

    End If

    '提交日志

    If SendLog = 0 Then

    WebBrowser1.Document.parentwindow.execScript "insert(2)","JavaScript"

    SendLog = 1

    End If

    End If

    Next i

    Exit Sub

    End If

    '提交跳转http://zhidao.baidu.com/index.PHP?act=worklog:insert:sc

    If WebBrowser1.LocationURL = "http://zhidao.baidu.com/index.PHP?act=worklog:insert:sc" Then

    WebBrowser1.Navigate "http://zhidao.baidu.com/?act=worklog:mylogList"

    'MsgBox "今天的日志已经提交,但不保证成功哦!",64,Me.Caption

    End If

    If WebBrowser1.LocationURL = "http://zhidao.baidu.com/?act=worklog:mylogList" Then

    Me.Show

    End If

    End Sub

    '烟花飘飘-{百}度注册机开源

    Dim S As Boolean,inf,Info

    Private Sub Command1_Click()

    S = False

    WebBrowser1.Navigate "https://passport.baidu.com/?reg®type=1®from=1&tpl=ik&u=http%3A//zhidao.baidu.com/regok.html%3Flogin%26t%3D1246074692593"

    Do While S = False

    DoEvents

    Loop

    Randomize

    For Each a In WebBrowser1.Document.getelementsbytagname("input")

    Select Case a.Name

    Case "username"

    a.Value = CLng(Rnd * 123456789 + 9999999)

    inf = "用户名:" & a.Value & vbCrLf

    Case "loginpass","verifypass"

    a.Value = "yanhuapiaopiao"

    Case "email"

    a.Value = "yhpp.ys168.com@qq.com"

    Case "verifycode"

    Set w = WebBrowser1.Document.getelementbyid("verifypic")

    Set w1 = WebBrowser1.Document.BODY.createcontrolrange

    w1.Add (w)

    w1.execCommand ("Copy")

    Picture1.Picture = Clipboard.GetData

    t = InputBox("输入图片框里的验证码")

    If Len(t) <> 4 Then Exit Sub

    a.Value = t

    Case "submit"

    a.Click

    Info = Info & inf

    Text1 = Info

    End Select

    Next

    End Sub

    Private Sub Form_Load()

    Info = "注册的账号:(密码都是: yanhuapiaopiao )" & vbCrLf

    End Sub

    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant)

    S = True

    End Sub

    总结

    以上是编程之家为你收集整理的vb实现网页自动填表全部内容,希望文章能够帮你解决vb实现网页自动填表所遇到的程序开发问题。

    如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。

    本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。

    展开全文
  • VB自动填写网页表单

    热门讨论 2011-01-06 12:28:22
    一个用VB实现自动填写网页表单的小程序。可以用于实现自动登录之类的应用。
  • VB网页对比程序

    2015-01-07 15:30:25
    VB网页对比程序;实现网页只要发生变化,就能提示的功能。
  • VB.NET实现文件上传下载

    千次阅读 2019-05-10 10:16:29
    1.文件上传最好可以支持多文件上传,增加系统通用性 前端: <form id="form1" method="post" enctype="multipart/form-data" runat="server"> <div> <input name="file1" type="file" id="file...

    1.文件上传
    文件上传最好可以支持多文件上传,增加系统通用性

    前端:

    <form id="form1" method="post" enctype="multipart/form-data" runat="server">
        <div>
            <input name="file1" type="file" id="file1" multiple="multiple" style="width:286px;" />
            <input name="submit1" type="submit" value="提交"/>
        </div>
    </form>
    

    后台:

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
            Dim Pfile As HttpPostedFile = Nothing
            For i = 0 To Request.Files.Count-1
                If Request.Files.Count > 0 Then
                    '获取上传的文件对象
                    Pfile = Request.Files(i)
                    '获取上传的文件完全限定名称(及包括后缀名)
                    Dim filename As String = Pfile.FileName
                    '获取上传文件的大小
                    Dim size As Int32 = Pfile.ContentLength
                    '设置存储路径
                    Dim path As String = "D:\test\"
                    '上传文件
                    Pfile.SaveAs(path & filename)
                End If
            Next
            Response.Write("<script type='text/javascript'>alert('提交成功')</script>")
        End If
    End Sub
    

    测试
    在这里插入图片描述
    在这里插入图片描述
    提前把文件夹创建好。实际应用的话肯定会涉及到数据库的,一般会把文件的路径存放至数据库而不是将文件保存到数据库,且上传的位置一般都是项目的某个路径下。如果文件夹内存在名称相同的文件会被覆盖,这一点需要注意。

    2.文件下载
    文件下载主要工作在后台,且指定为文件下载的页面应该只做文件下载功能,并通过从其他页面用a标签链接过来完成下载功能

    前端
    UploadTest.aspx

    <form id="form1" method="post" enctype="multipart/form-data" runat="server">
        <div>
            <input name="file1" type="file" id="file1" multiple="multiple" class="inputBorder" style="width:286px;" />
            <input name="submit1" type="submit" value="提交"/>
        </div>
    </form>
    <a href="DownloadTest.aspx">下载test2.txt</a>
    

    DownloadTest.aspx前端什么都不需要,工作都在后台

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    	If Not IsPostBack Then
            '获取需要下载的文件路径
            Dim filePath As String = Server.MapPath("./") + "test2.txt"
            '获取该文件对象
            Dim file As New FileInfo(filePath)
            '获取文件大小
            Dim intFileLength As Int32 = file.Length
            '获取文件名称
            Dim fileName As String = file.Name
    
            Response.AddHeader("Content-Disposition", "attachment; filename=" & fileName)
            Response.AddHeader("Content-Length", intFileLength)
            Response.ContentType = "application/octet-stream"
            Response.WriteFile(filePath)
            Response.Flush()
        End If
    End Sub
    

    测试
    在这里插入图片描述
    在这里插入图片描述

    展开全文
  • 绝对好用的上传图片的vb.net示例,可按比例形成缩略图,并存于服务器端。略加改动,当然也就可以用来上传文件。关键是VB的例子不多。如果不行,可能是IIS配置等问题
  • Vb程序实现网站HTTP方式下载文件 利用VB实现软件下载,类似于通过Http方式下载文件,你可指定输入下载网站的网址,注意网址URL不能为空,请确保网址可以打开,否则程序可能会假死。程序依赖于shdocvw.dll组件。
  • 内容索引:VB源码,界面编程,浏览器 实现一个无边框、无状态栏、无标题栏的网页浏览器,只为学习,尽量不要过多使用这种功能,会让使用者不知所措,演示截图如上示,可以设置网页地址,稍等片刻自动加载指定网址,还...
  • VB.net实现网页小工具。 练习及理解:多线程操作,窗口消息,事件响应以及非托管API的调用方法。 主要思路: 将网页画面复制到另一个小窗口上,实现小窗口预览。 将小窗口上的鼠标及键盘事件发送到网页上,...
  • VB.NET实现无边框、无标题栏的网页浏览器,这个窗口同时还没有状态栏,可以说是一个无边框的窗口,直接显示内容,浏览器功能是基于Windows的IE组件,直接调用的IE内核,本程序其实最值得参考的部分是窗体界面的设计...
  • VB创建网页浏览

    2021-01-24 13:40:30
    URL Case "NewWindow2" '单击一个链接时执行 Ie.object.Navigate2 Ie.object.document.activeElement.href Info.EventParameters(1) = True '拦截弹出窗口 'Info.EventParameters(0) = Ie.object '根据需要可实现在...

    Private WithEvents Ie As VBControlExtender

    '动态删除控件
    Private Sub Command2_Click()
    Controls.Remove “Ie”
    End Sub

    Private Sub Command1_Click()
    Dim strweb As String
    Text1 = WebDaima(Ie, “All”)
    End Sub

    Private Sub Command3_Click()
    'Ie.object.document.parentwindow.scrollby 0, 1 '页面向下滚动1像素
    'Ie.object.Refresh’刷新当前页面
    'Ie.object.Stop’停止当前页面及其内容的载入
    'Ie.object.GoHome’连接用户默认的主页
    Ie.object.GoBack '使你在当前历史列表中后退一项
    End Sub

    Private Sub Command4_Click()
    Ie.object.GoForward '使你在当前历史列表中前进一项
    End Sub

    Private Sub Command5_Click()
    'Ie.object.document.oncontextmenu = False
    End Sub

    Private Sub Form_Load()
    Dim URL As String
    URL = “www.baidu.com”
    Set Ie = Me.Controls.Add(“Shell.Explorer.2”, “IE”, Me) '相当于在程序内创建Webbrowser控件
    Ie.object.Navigate URL
    Ie.Visible = 1
    Ie.object.Silent &

    展开全文
  • 满意答案ywwlg2013.04.26采纳率:42%等级:13已帮助:9064人想做个程序让它自动点击网页中的提交按钮,我已经从网上找了很久,虽然找到了一个方法是可以找到按钮并提交的,代码如下:Dim Dov As ObjectDim Tag As ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 21,993
精华内容 8,797
关键字:

vb网页上传