选取VB达成邮箱自动注册

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


实例1:

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

 

  1. 正常编写HTML页面,利用元素的url属性传递参数。例如某个链接写成:

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

 

执行此应用程序

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

  程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没

  1. VB中编写代码。首富,引入WebBrowser控件,在部件中选中“Microsoft
    Internet Controls”;

Dim ii As Integer

有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件…”,

引用它比较安全,发布时不用带上,因为WINDOWS系统都会有它,且会随着电脑上IE的不同而不同,内核版本完全一致。

 

确保在弹出的对话框中选中“控件”标签,找到Microsoft
Internet Controls,在它前

  1. 在”引用“中引用”Microsoft Object Library“(它指向的是MSHTML.TLB文件);

  2. 在本窗体模块全局声明:Public WithEvents m_doc As HTMLDocument;

  3. 在WebBrowser加载文档结束窗口事件中赋值:

Private Sub Form_Load()

面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代

Private Sub webAbout_DocumentComplete(ByVal pDisp As Object, URL As
Variant)
Set Me.m_doc = Me.webAbout.Document
End Sub

  
WebBrowser1.Navigate
“”

表的控件正是我们需要的WebBrowser。

  1. 响应m_doc的点击事件:

End Sub

  由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正

Private Function m_doc_onclick() As Boolean
On Error Resume Next

 

我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程

Dim sUrl$
sUrl = m_doc.activeElement.URL
If Left(sUrl, 3) = “run” Then
sApp = Right(sUrl, Len(sUrl) – 4)
If Dir(sApp) = “” Then
MsgBox “此文件不存在!” & vbCrLf & sApp, vbCritical, “!”
Exit Function
Else
ShellExecute 0&, vbNullString, sApp, vbNullString, vbNullString,
vbNormalFocus
End If
End If
Exit Function
myEnd:
‘MsgBox “不能执行,路径或文件不存在!” & m_doc.activeElement.URL,
vbCritical, “!”
m_doc_onclick = True
End Function

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

序中用到的:

实例2:

  Dim doc As
IHTMLDocument2

  属性:LocationURL
返回控件显示WEB页面的URL。

不多说了,直接看代码吧

  Set doc =
WebBrowser1.Document

  方法:Navigate
转移到指定的URL或打开指定HTML文件。

Public WithEvents m_runnotepad As HTMLAnchorElement
Public WithEvents m_doc As HTMLDocument

  Dim tmp As
String

  事件:1.DownloadBegin 下载操作开时触发。

Private Sub Form_Load()
Me.WebBrowser1.Silent = True
Me.WebBrowser1.Navigate “about:blank”

 

  2.DownloadComplete
下载操作完成、终止或失败时触发。

Const tag$ = “运行$name”
Dim s$
‘//s = “运行NOTEPAD”
Dim oFSO As Variant, oFiles As Variant, oFile As Variant
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
Set oFiles = oFSO.getfolder(“c:\windows\system32”).Files
Dim sDoc$

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

  3.ProgressChange
WebBrowser控件跟踪下载操作的过程,并定期触发此事件。

sDoc = “”
For Each oFile In oFiles
If LCase(Right(oFile.Name, 4)) = “.exe” Then

    tmp = “sdfsdf23” +
Trim(Str$(ii))

其语法为:Sub WebBrowser_ProgressChange (ByVal
Progress As Long, ByVal

s = Replace(tag, “$url”, oFile.Path)
s = Replace(s, “$name”, Mid(oFile.Name, 1, Len(oFile.Name) – 4))
sDoc = sDoc + s
End If
Next

   
doc.All.Item(“uid”).focus

ProgressMax As
Long)。Progress变元是当前已下载的数据总量,ProgressMax变元

sDoc = sDoc + “”
Me.WebBrowser1.Document.write (sDoc)
Set Me.m_doc = Me.WebBrowser1.Document

    SendKeys
tmp

是将要下载的数据总量。

Set Me.m_runnotepad =
Me.WebBrowser1.Document.getElementById(“runnotepad”)
‘//MsgBox Me.WebBrowser1.Document.getElementById(“runnotepad”).onclick
End Sub

    SendKeys
“{enter}”

  4.TitleChange 当前文档标题改变时触发

Private Function m_doc_onclick() As Boolean
On Error Resume Next
‘//Debug.Print m_doc.activeElement.URL

  End
If

  除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:

If Err.Number Then Exit Function
Shell m_doc.activeElement.url, vbNormalFocus
End Function

 

combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:

Private Function m_runnotepad_onclick() As Boolean
‘//Shell “notepad”, vbNormalFocus
End Function

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

ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件

实例3:

Microsoft Windows Common
Controls5.0的成员,加入工具箱的方法同WebBrowser控件),

最后再给出一个HTML文档,利用脚本执行EXE。不过这个可能需要权限。代码如下:

相关文章

相关搜索:

今天看啥

搜索技术库

返回首页

  • MVVM-Sidekick
    之SendToEventRouterAction使用,mvvm框架
  • C#实现任意大数的计算和简单逻辑命题的证明
  • C# 的 Dictionary
    使用上應注意事項,
  • 使用 xsd.exe 命令工具将 xsd 架构生成
    类(CS)
  • MVC使用 Elmah
    日志记录组件,mvcelmah
  • C#实现任意大数的计算和简单逻辑命题的证明

相关频道:
Java编程  C#教程  C语言  C++教程  VC教程  Delphi教程  VB教程  工具软件金沙js333娱乐场,  

这些控件的属性值都用缺省值。

<script type=”text/javascript”>
function run(exename)
{
//alert(‘aa’);
var wsh;
try{
wsh=new ActiveXObject(“WScript.Shell”);
}
catch(e)
{
//alert(e);
}
wsh.run(exename);
}
</script>
运行NOTEPAD

  以下是程序清单:

全文结束。鸣谢Confidence!

  Option Explicit

  

1.
正常编写HTML页面,利用元素的url属性传递参数。例如某个链接写成:
执行此应用程序 2. VB中编写代码。首富,引入WebBrowser控件…

发表评论

电子邮件地址不会被公开。 必填项已用*标注