Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
创新互联从2013年创立，先为乐都等服务建站，乐都等地企业，进行企业商务咨询服务。为乐都企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据
On Error Resume Next
Dim Str_WebContent As String = "请输入查找网站地址."
Dim wb As WebClient = New WebClient() '//创建一个WebClient实例
If mWebsiteUrl.IndexOf("://") 0 Then
'//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。（可有可无）
wb.Credentials = CredentialCache.DefaultCredentials
'//从资源下载数据并返回字节数组。（加@是因为网址中间有"/"符号）
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//转换字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '
End Function
什么IIS架构。晕～～～
1.首先正式版本的发布你必须要Release，不要直接把Debug程序放上去。
2.将所有的.cs文件删除。vs.net有一个很方便的工具，“项目——复制项目”就ok了。
3.windows server2003上一定要安装了"Internet 信息服务(IIS)管理器",如果没有安装的话可以到“控制面板——添加或删除程序——添加\删除WINDOWS组件——应用程序服务器”如果“应用程序服务器”没有构选的话钩上，放入windows 2003的系统盘安装。
4.安装完成之后把项目靠到服务器上。简单一点的方法是右键点击项目文件夹，Web共享——共享文件夹。此时就算发布成功了。不过还有一些细节需要注意。如：IIS匿名访问等。那就是另外的问题了。呵呵。IIS设置很简单，可以在网上找些资料。
下文中找vSubmit.Click的部分即是按钮点击事件
VB6中采用WebBrowser自动填写并提交表单参考源码，已经可以实现自动填写并提交。对代码优化可以达到更好的效果。
Public Sub WebbFormEditing()
Dim i, j As Integer
Dim vForm, vSubmit
Dim vFrame
On Error Resume Next
Set vFrame = WebBrowser1.Document.frames
If IsEmpty(vFrame) Then GoTo ErrorFormEdit
For i = 0 To vFrame.length - 1
On Error Resume Next
vFrame(i).Document.body.innerHTML = tbHtml.Text
Next i
ErrorFormEdit:
On Error GoTo ErrorFormEditEnd
Set vForm = WebBrowser1.Document.Forms
If IsEmpty(vForm) Then GoTo ErrorFormEditEnd
Me.CurWebbState = 3 '填表单
For i = 0 To vForm.length - 1
On Error GoTo ErrorFormEditEnd
If InStr(1, vForm(i).name, "login", vbTextCompare) 0 Then '登录
ElseIf InStr(1, vForm(i).name, "search", vbTextCompare) 0 Or _
InStr(1, vForm(i).name, "find", vbTextCompare) 0 Then '搜索
Else '其他表单,先填了
On Error Resume Next
vForm(i).onSubmit = ""
For j = 0 To vForm(i).length - 1
If UCase(vForm(i)(j).tagName) = "INPUT" Then 'INPUT
Select Case LCase(vForm(i)(j).Type)
'********************text*********************
Case "text":
'1,链接
If InStr(1, vForm(i)(j).name, "url", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "link", vbTextCompare) 0 Or _
InStr(1, vForm(i)(j).name, "home", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "address", vbTextCompare) 0 Or _
InStr(1, vForm(i)(j).name, "tags", vbTextCompare) 0 Then
vForm(i)(j).Value = tbLink.Text
ElseIf InStr(1, vForm(i)(j).name, "email", vbTextCompare) 0 Then
vForm(i)(j).Value = tbEmail.Text
'名称
ElseIf InStr(1, vForm(i)(j).name, "name", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "user", vbTextCompare) 0 Or _
InStr(1, vForm(i)(j).name, "author", vbTextCompare) 0 Then
vForm(i)(j).Value = tbName.Text
'标题
ElseIf InStr(1, vForm(i)(j).name, "title", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "topic", vbTextCompare) 0 Then
If Len(vForm(i)(j).Value) = 0 Then vForm(i)(j).Value = tbTitle.Text
'评论,摘要
ElseIf InStr(1, vForm(i)(j).name, "summary", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "comment", vbTextCompare) 0 Or _
InStr(1, vForm(i)(j).name, "content", vbTextCompare) 0 Then
vForm(i)(j).Value = tbTextArea.Text
ElseIf InStr(1, vForm(i)(j).name, "qq", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "icq", vbTextCompare) 0 Then
vForm(i)(j).Value = tbQQ.Text
'验证码
ElseIf InStr(1, vForm(i)(j).name, "Random", vbTextCompare) 0 Then
Beep
End If
'****************text***************
Case "password"
Case "submit"
Set vSubmit = vForm(i)(j)
End Select
ElseIf UCase(vForm(i)(j).tagName) = "SELECT" Then
ElseIf UCase(vForm(i)(j).tagName) = "TEXTAREA" Then
vForm(i)(j).innerHTML = tbTextArea.Text
End If
Next j
' 当前表单填完,提交
If Not IsEmpty(vSubmit) Then
On Error GoTo ErrorFormEditEnd
Me.LbState.Caption = "提交"
Me.CurWebbState = 4
vSubmit.Click
End If
End If
Next i
If Me.CurWebbState 4 Then Me.CurWebbState = 5 '没有可提交的表单
Exit Sub '结束过程
'出错退出
ErrorFormEditEnd:
Me.CurWebbState = 11
End Sub
