tailieunhanh - Cách làm chương trình bommail bằng VB

Làm chương trình bommail bằng VB trang này đã được đọc lần Phần chuẩn bị đầu tiên của chương trình là: 1. Tất nhiên là phải mở Microsoft Visual Basic (tôi sử dụng phiên bản ) | Làm chương trình bommail bằng VB trang này đã được đọc lần Phần chuẩn bị đầu tiên của chương trình là 1. Tất nhiên là phải mở Microsoft Visual Basic tôi sử dụng phiên bản 2. Tạo một Form mới tôi đặt tên Form này là frmMain 3. Vào trên thanh Menu -- Project -- Components-- đánh dấu chọn vào mục Microsoft Winsock Control sao đó nhấn OK thoát ra và kéo nó vào trong frmMain nó sẽ có tên mặt định là Winsock1 cứ để nó thế nếu bạn muốn đổi tên cho khác một tý thì phần source dưới đây bạn phải đổi tên các sub Event cho nó nha. 4. Tạo một nút lệnh command và đặt tên nó là cmdBomb. 5. Tạo một label có tên là lblStatus thông báo trạng thái của tiến trình 6. nhấn phải ngay frmMain vào phần View Code và bắt đầu nhá. Và đây là đoạn code của chương trình tôi sẽ cố gắn chú thích trước mỗi đoạn code cho các bạn dễ nắm. I Khai bao bien Bien kiem soat cau lenh goi di Dim strCaulenh As String Bien de nhan thong tin tu server goi ve Dim strData As String Bien de kiem soat so luong mail da goi di Dim intbomb As Integer Tao Function cau lenh connect vao smtp server va tra ve cho ham mot chuoi ky tu dai dien de de be kiem soat. Function clConnect sckSend As Winsock MailServerName As String As String Kiem tra tinh trang cua sockket neu no o trang thai dong thi tien hanh ket noi If sckClosed Then Thiet lap Protocol sckTCPProtocol Khai bao SMTP server se cho vao ham MailServerName Khai bao Cong ket noi thuong la cong 25 25 Goi cau lenh ket noi Tra ve cho ham chuoi Connect to phan nay rat quan trong vi dung de kiem tra cung voi gia tri do server tra ve xem ket noi da OK hay chua. ban se hieu ro muc dich cua phan nay. Day chinh la su khac biet ma toi da nghien cuu va so sanh voi cac source bomb mail tuong tu va toi nhan thay no rat hieu qua va don gian hon bat cu giai thuat nao khac. Moi ham sau day deu tra ve mot chuoi thong bao tuong tu clConnect Connect to End If End Function Tao Function goi cau .