信息发布软件,b2b软件,广告发布软件

标题: VB.NET表单自动实现提交做群发软件必备技巧 [打印本页]

作者: 群发软件 时间: 2017-5-23 23:46
标题: VB.NET表单自动实现提交做群发软件必备技巧

　我们曾经在一篇文章中介绍过邮件自动注册中的修改代理服务器的应用。不过要想实现这一功能的话还需要一个应用的实现，那就是VB.NET表单自动提交。在这里我们就会为大家详细介绍这一应用技巧。

　　前些天在网上看到有人需要邮箱自动注册的程序，于是自己也写了一个，在查资料的过程中我看到一些网友写的类似文章，有一些是基于网络协议，需要了解session,cookie这些东西，对于一个新手来说很繁琐，等到把这些东西搞懂，热情也消耗殆尽。vb的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计，我找到了一种比较简单的办法，要求对HTML标记语言有所了解即可，现在把自己的经验写出来于各位网友共享，该方法也许不值一提，也许对您有所帮助。

　　我的办法就是利用控件WebBrowser,我想很多人对它都很熟悉，在新建一个工程之后您要做的是添加两个控件，一个是WebBrowser,另一个是Scriptlet，这两个控件配合使用，就可以完成这个任务了，Scriptlet中的IHTMLDocument2对象可以用来获得WebBrowser控件中的HTML文档。这两个控件的名字在组件对话框里分别叫Microsoft HTML Object Library和Microsoft Internet Controls。

　　这两个控件添加完成之后，你还需要知道WebBrowser的一个事件DocumentComplete，这个事件在整个网页下载完成之后触发，也就是说在页面完成之后这个事件即被执行，有了这些就可以顺利的实现注册了。

　　下面以eyou网站的免费邮箱注册为例来实现我的程序设计,新建标准工程后向Form中添加一个WebBrowser控件。所有代码如下：

　　1.Dim ii As Integer

　　2.Private Sub Form_Load()

　　3.WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?

　　bgp=％CE％D2％BD％D3％CA％DC&bgp_enable=on"

　　4.End Sub

　　5.Private Sub WebBrowser1_DocumentComplete

　　(ByVal pDisp As Object, URL As Variant)

　　6.Dim doc As IHTMLDocument2

　　7.Set doc = WebBrowser1.Document

　　8.Dim tmp As String

　　9.If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then

　　10.tmp = "sdfsdf23" + Trim(Str$(ii))

　　11.doc.All.Item("uid").focus

　　12.SendKeys tmp

　　13.SendKeys "{enter}"

　　14.End If

　　15.If InStr(doc.body.innerText, "输入您的个人资料") > 0 Then

　　16.doc.All.Item("Password").Value = "123456"

　　17.doc.All.Item("Confirm").Value = "123456"

　　18.doc.All.Item("FirstName").Value = "tomcant"

　　19.doc.All.Item("question").Value = "what is your name"

　　20.doc.All.Item("answer").Value = "my name is ddd"

　　21.doc.All.Item("year").Value = "80"

　　22.doc.All.Item("month").Value = "3"

　　23.doc.All.Item("day").Value = "18"

　　24.doc.All.Item("day").focus

　　25.SendKeys "{enter}"

　　26.End If

　　27.If InStr(doc.body.innerText, "申请邮箱成功") > 0 Then

　　28.iiii = ii + 1

　　29.WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?

　　bgp=％CE％D2％BD％D3％CA％DC&bgp_enable=on"

　　30.End If

　　31.End Sub

　　Eyou的免费邮箱注册入口地址为bgp_enable=on，所以要在Form_load事件中使用WebBrowser控件的Navigate方法。

　　在eyou的注册入口页面完成之后WebBrowser1_DocumentComplete即被执行，在这个函数中主要有三个条件语句，在三个条件语句之前有如下三句：

　　32.Dim doc As IHTMLDocument2

　　33.Set doc = WebBrowser1.Document

　　34.Dim tmp As String

　　doc定义为IHTMLDocument2对象用以取得WebBrowser1的文档，tmp字符串是循环注册中的用户名，在VB.NET表单自动提交的程序刚开始定义了ii这个integer变量，在每次注册完成之后ii加1附于tmp之后用以改变用户名。

　　第一个条件语句如下：

　　35.If InStr(doc.body.innerText, "寻找一个新的用户名") > 0 Then

　　36.tmp = "sdfsdf23" + Trim(Str$(ii))

　　37.doc.All.Item("uid").focus

　　38.SendKeys tmp

　　39.SendKeys "{enter}"

　　40.End If

　　首先判断是否是注册入口页面，通过InStr(doc.body.innerText, "寻找一个新的用户名") > 0语句实现，doc.body.innerText即取得了该页面中的所有文字。如果是则构造一个用户名。

　　doc.All.Item("uid").focus使用户名文本框取得焦点，其中uid是该文本框的ID，这个ID的取得是通过查看HTML源代码得到的，所以要求对HTML标记语言有所了解。使用户名文本框取得焦点之后通过SendKeys函数模拟键盘向文本框发送tmp字符串，这样用户名即填写完成，之后发送回车键提交表单。关于SendKeys函数的使用大家可查阅MSDN帮助。

　　第二个条件语句首先判断改页面是否是个人资料填写页面，然后填写个人资料，其方法同填写用户名一致，取得个文本框的ID后填写其值，最后提交表单。

　　最后一个条件语句判断邮箱注册成功后将ii加一，然后将页面重新定位到注册入口页面，至此一个循环完成。

　　以上VB.NET表单自动提交的代码即实现了自动注册提交。

在本章中，我们将研究以下概念：

在应用程序中添加菜单和子菜单
在表单中添加剪切，复制和粘贴功能
锚定和对接控制在一种形式
模态形式

在应用程序中添加菜单和子菜单
传统上，Menu，MainMenu，ContextMenu和MenuItem类用于在Windows应用程序中添加菜单，子菜单和上下文菜单。

现在，MenuStrip，ToolStripMenuItem，ToolStripDropDown和ToolStripDropDownMenu控件替换和添加功能到以前版本的菜单相关的控件。但是，旧的控制类保留为向后兼容和未来使用。

让我们首先使用旧版本控件创建典型的Windows主菜单栏和子菜单，因为这些控件在旧应用程序中仍然很常用。

以下是一个示例，显示了如何使用菜单项创建菜单栏：文件，编辑，视图和项目。文件菜单有子菜单新建，打开和保存。

让我们双击窗体，并在打开的窗口中放下面的代码。
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'defining the main menu bar Dim mnuBar As New MainMenu() 'defining the menu items for the main menu bar Dim myMenuItemFile As New MenuItem("&File") Dim myMenuItemEdit As New MenuItem("&Edit") Dim myMenuItemView As New MenuItem("&View") Dim myMenuItemProject As New MenuItem("&Project") 'adding the menu items to the main menu bar mnuBar.MenuItems.Add(myMenuItemFile) mnuBar.MenuItems.Add(myMenuItemEdit) mnuBar.MenuItems.Add(myMenuItemView) mnuBar.MenuItems.Add(myMenuItemProject) ' defining some sub menus Dim myMenuItemNew As New MenuItem("&New") Dim myMenuItemOpen As New MenuItem("&Open") Dim myMenuItemSave As New MenuItem("&Save") 'add sub menus to the File menu myMenuItemFile.MenuItems.Add(myMenuItemNew) myMenuItemFile.MenuItems.Add(myMenuItemOpen) myMenuItemFile.MenuItems.Add(myMenuItemSave) 'add the main menu to the form Me.Menu = mnuBar ' Set the caption bar text of the form. Me.Text = "tutorialspoint.com" End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

Windows窗体包含一组丰富的类，用于创建您自己的具有现代外观，外观和感觉的自定义菜单。 MenuStrip，ToolStripMenuItem，ContextMenuStrip控件用于有效地创建菜单栏和上下文菜单。

作者: 西充 时间: 2017-5-25 01:12
好好学习了确实不错

作者: 都敏俊系 时间: 2017-5-28 23:14
，技术牛B，态度好，选这家没错！

作者: yiyi2014 时间: 2017-5-30 04:57
了，和卖家描述的一样，操作简单，很实用很方便，关键店家态度很好，不厌其烦的给讲解，非常满意

作者: xbaobeit 时间: 2017-5-31 12:12
，很高端的视觉效应，很耐心，设计的很不错，高端大气上档次啊，是自己喜欢的

作者: daoke 时间: 2017-6-2 05:44
真的很好用，我这边已经用起来了，目前不少客户从我们公众平台下单，再试用一段时间，打算推送给其他生意上的朋友

作者: huanyili998 时间: 2017-6-2 07:59
和5号笨蛋很有耐心，服务也很好

作者: zzjiuzi008 时间: 2017-6-5 00:32
机会继续合作，同时希望后期多多帮助。

作者: 枯干枯干 时间: 2017-6-14 03:54
铺一天销量也就几十票装修完发布后店铺的转化率高了很多。，提升了太多销量大概有3倍吧。视觉冲击效果强大起来

作者: nble002 时间: 2017-6-15 05:42
，很有用，下次还会购买

作者: dfgdgdfgdf 时间: 2017-6-18 07:16
情！迅速！

作者: asz111 时间: 2017-6-20 12:43
服务优！不错！

作者: daoke 时间: 2017-6-21 23:00
喜欢，质量好，跟卖家描述的一样，卖家态度好，买家很满意，

作者: 小痞子 时间: 2017-6-22 18:53
特别满意，很细心很周到的为我司考虑设计方案，耐心的一点点修改。我之前的网站就是077号做的，这次添加搜索栏也是找的她以后还要找她~

欢迎光临信息发布软件,b2b软件,广告发布软件 (http://postbbs.com/)