EHh Bende Denemedim, Muhtemelen Öledir..

cok saol ya sen isi iyi biliyon denemedim ama anladıgim kadari ile tex1 = smtp text 2 = kimden text3 = kime text 4 de bilgimi?

sanki bu kodlarda bi eksiklik var gibi

ben progu yaptım ama yollamadı namussuz. Belkide kodlarda hata vardır

İlk olarak yeni bir proje açalım ve içine text1, text2, text3, text4, timer1 ve command1 ekleyelim daha sonra bu kodları formun kod kısmına yapıştıralım. ' Private Sub Command1_Click On Local Error Resume Next Dim x Winsock1. RemoteHost = Trim(Text1. Text) Winsock1. RemotePort = 25 'server'ın SMTP portu Winsock1. LocalPort = 0 'işletim sistemi otomatik olarak bir port verir Winsock1. Connect If Winsock1. State = 7 Then x = "mail from: " & Trim(Text2. Text) & vbCrLf Winsock1. SendData x x = "rcpt to:" & Trim(Text3. Text) & vbCrLf Winsock1. SendData x x = "deneme" & vbCrLf Winsock1. SendData x x = Trim(Text4. Text) & vbCrLf Winsock1. SendData x x = "." & vbCrLf 'email bitti demek icin bunu yollamalisin. 'SMTP server bunu anlar Winsock1. SendData x x = "QUIT" & vbCrLf Winsock1. SendData x End If End Sub Private Sub Timer1_Timer Select Case Winsock1. State Case 0: Me. Caption = "Kapalı" Case 1: Me. Caption = "Açık" Case 2: Me. Caption = "Port Dinleniyor" Case 4: Me. Caption = "Verilen Adres Çözülüyor." Case 5: Me. Caption = "Adres Çözüldü." Case 6: Me. Caption = "Bağlanıyor." Case 7: Me. Caption = "Bağlandı." Case 8: Me. Caption = "Karşısı bağlantıyı kapatıyor." Case 9: Me. Caption = "Hata Oluştu." Winsock1. Close End Select End Sub ' BİRŞEY DEğİL...

cok saol bekliycem bide dosya göndermeli olursa iyi olur

onun koları benimde işime yarar

Araştirim, Vardır Muhtemelen ( Kodu ) Veririm Burayaa..

denemedinmi yapma be okadar yalakalık yaptık ya bana mail gönderme progu lazım simdi denedimde bu calismadi bee

abi ben buldum bitane dosyada gönderiyo ama olmadi smtp serwerdemi sorun war anlamadim calisan bi smtp server bilen warsa göndere bilirmi calisiyosa düzenleyip göndericem

Japon Hacker Senı Sewırom Dıger Insanlar Gıbı Bıldıklerını Kendınılerıne Saklamak Yerıne Bıldıklerını Paylasıorsun