本文目录一览：
可以使用VB编写网站么
可以用VB直接编写，主要有2种方式： 1：只要你关闭你的WEB服务，用VB直接接收80端口的数据，然后按照HTML协议进行解析处理，处理完毕后打成HTML协议的数据报返回数据就可以了。 这样能实现的功能有限，不过如果代码写的好能解决许多安全问题。 2：用VB写ACTIVE DLL组件，然后在该组件中处理完整的网站应该处理的业务逻辑（注意：只是业务逻辑，也就是你ASP中应该处理的逻辑，不包括对HTML的解析），然后将处理完毕的逻辑返回。 然后用一个最简单的ASP来调用这个DLL组件就可以了，这个ASP中只要调用了这个组件就行，其他什么都不用做。 这个方式能实现的功能比上面一种方式灵活的多。 3：应该还可以用系统钩子的方式实现，即在WEB打开的情况下截取80端口的数据，在WEB服务处理该数据之前由VB编写的服务先处理，然后直接返回，而WEB服务对该数据根本不处理。 这样也可以，不过思路和第一种方式相同，只不过省略了关闭WEB服务的步骤。
用VB实现登陆网站
webbrowser
.document.form.username.value="123"
webbrowser.document.form.password.value="123"
webbrowser.document.form.submit
将form,username和password替换成你网页中相应控件的id
那个网页是嵌入了一个iframe实现的，稍微麻烦点，得把iframe的id写上，代码如下：
Private
Sub
Command1_Click()
With
WebBrowser1.Document.loginiframe.myform
.username.Value
"张三"
.userpass.Value
"12345"
.submit
End
With
End
Sub
关于VB打开网站的问题
'API函数定义
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'用api打开TEXT1中的网址
Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", trim(Text1.Text), 0, 0, 1
End Sub
用VB实现网络攻击
这和做一个聊天软件是一个道理的，制定通讯的代码，服务器端接收指令后做相应的动作即可。其实木马是很容易做的，一个winsock控件就够了
VB如何访问某一网页
HTML 源码:
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
html
head
titletestPage/title
/head
body
FORM name=chh method = "POST" action = "login.asp"
table width="100%" border="0" cellspacing="0" cellpadding="2"
tr
td width="31%" align="center"用户：/td
td width="69%" align="left"
input name="LoginName" type="text" id="LoginName" size="12"
/td
/tr
tr
td width="31%" align="center"密码：/td
td width="69%" align="left"
input name="LoginPassword" type="password" id="LoginPassword" size="12"
/td
/tr
/table
input type = "submit" id = "clickme" value = "提交"
/FORM
/body
/html
很简单的页面，在上面有一个登录的 Form，一个用户名输入框 LoginName，一个密码输入框LoginPassword 和一个提交按钮 clickme，然后用 IE 打开这个页面，注意页面的 title 设置为 testPage。然后打开 VBA，在工程中引用 Microsoft internet controls：
Private Sub Command1_Click()
Dim IEList As New ShellWindows
Dim browser
Dim Doc
On Error Resume Next
'遍历当前地浏览器窗口
For Each browser In IEList
'找到需要地IE窗口
If browser.Document.Title = "testPage" Then
'获得浏览器地文档对象
Set Doc = browser.Document
'填写用户名字段
Doc.body.All("LoginName").Value = "eddie"
'填写密码字段
Doc.body.All("LoginPassword").Value = "123456"
'提交
Doc.body.All("clickme").Click
End If
Next
End Sub
自己参考一下，应该可以搞定....