Arkadaşlar Bu Ftp de Logları nasıl Ftp ye atarım TürkHacking İn Paylaştıgı ftp İle Nasıl Logları atablirim yane Dosya Seç Olmıcak Direk Text2deki yazıyı Ftp ye atıcak yane Bekliorummm Dim Durum As Boolean Private Sub Command1_Click On Error GoTo hata: If tServer = "" Or tPass = "" Then MsgBox "Boş bilgi girme!" Else Label1 = "Bağlantı kurulmaya çalışılıyor" Inet. Protocol = icFTP 'Burada inetin bağlantı protokolü belirleniyor Inet. URL = tServer 'Burada serverin URLsi belirleniyor If tName = "" Then 'Burada kullanıcı adı anonymous mu yoksa isim var mı kontrol ediliyor Inet. UserName = "anonymous" Else Inet. UserName = tName End If Inet. Cancel Inet. Password = tPass 'Şifre belirleniyor Inet. RequestTimeout = 40 'Bağlantıyı en geç 40 içinde yap olmazsa hata verdir anlamında Inet. Execute, "CD " & Chr(34) & Text1 & Chr(34) Do While Inet. StillExecuting 'Burada execute komutu tamamlanana kadar Bu döngü oluyor ve önemlidir yoksa program hata raporu verebilir. DoEvents: DoEvents: DoEvents 'Burada doevents sayesinde Execute komutunun kasmasını engellemeye çalışıyoruz Loop Label1 = "Bağlanıldı" Durum = True End If Exit Sub hata: 'Bağlantıda hata olması durumunda hata mesajı alıyoruz. MsgBox "Bağlantı hatası", vbOKOnly + vbInformation, "Bağlantı sağlanamadı" End Sub Private Sub Command2_Click Inet. Cancel Do While Inet. StillExecuting DoEvents: DoEvents: DoEvents: DoEvents Loop Label1 = "Bağlantı Kapatıldı" If Durum = False Then Inet. Execute, "CLOSE" Else Inet. Cancel End If End Sub Private Sub Form_Load End Sub Private Sub inet_StateChanged 'Burada inet nesnesinin statüsüne göre işlem yaptırıyoruz. Bu statü olayı her an değişebilecek özelliktedir. 'Sürekli burası kontrol altında olduğu için nesnenin bize verdiği avantajlardan yararlanıp durumun ne olduğu hakkında 'her an bilgi alabiliyoruz. Dim Data1, RemoteFiles Dim RemoteFileName As String Select Case State Case icResolvingHost Label5 = "Domain Name Başarısız" Durum = False Case icHostResolved Label5 = "İp Adress Başarısız" Durum = False Case icConnecting Label5 = "Domain'e Baglantı Başarılı" Case icConnected Label5 = "Bağlantı Sağlandı" Case icRequesting Label5 = "Dosya Gönderiliyor..." Case icRequestSent Label5 = "Dosyalar Başarı İle Gönderildi" Case icReceivingResponse Label5 = "Cevap Alınıyor" Case icResponseReceived Label5 = "Cevap Alındı" Case icDisconnecting LLabel5 = "Bağlantı Kapatıldı" Durum = False Case icDisconnected Label5 = "Bağlantı Yok" Durum = False Case icError If Inet. ResponseCode = 12030 Then Label5 = "Bağlantı Yok" Inet. Cancel End If If Inet. ResponseCode <> 87 Then MsgBox Inet. ResponseCode & " " & Inet. ResponseInfo, vbOKOnly + vbCritical, "Hata" End If Durum = False End Select End Sub Private Sub Picture1_Click If CD. FileName = "" Then Label5 = "Dosya Seçmeden Yükleyemezsin" ElseIf Durum = False Then Label5 = "Bağlantın Başarısız" Else Inet. Execute, "PUT " & Chr(34) & CD. FileName & Chr(34) & " " & Chr(34) & CD. FileTitle & Chr(34) Do While Inet. StillExecuting DoEvents: DoEvents: DoEvents: DoEvents Loop Label5 = "Dosyalar Başarı İle Gönderilmiştir" End If End Sub Private Sub Picture2_Click CD. Action = 1 End Sub Private Sub Picture3_Click On Error GoTo hata: If tServer = "" Or tPass = "" Then Label5 = "Boş Bilgi Girme" Else Label5 = "Bağlantı kurulmaya çalışılıyor" Inet. Protocol = icFTP 'Burada inetin bağlantı protokolü belirleniyor Inet. URL = tServer 'Burada serverin URLsi belirleniyor If tName = "" Then 'Burada kullanıcı adı anonymous mu yoksa isim var mı kontrol ediliyor Inet. UserName = "anonymous" Else Inet. UserName = tName End If Inet. Cancel Inet. Password = tPass 'Şifre belirleniyor Inet. RequestTimeout = 40 'Bağlantıyı en geç 40 içinde yap olmazsa hata verdir anlamında Inet. Execute, "CD " & Chr(34) & Text1 & Chr(34) Do While Inet. StillExecuting 'Burada execute komutu tamamlanana kadar Bu döngü oluyor ve önemlidir yoksa program hata raporu verebilir. DoEvents: DoEvents: DoEvents 'Burada doevents sayesinde Execute komutunun kasmasını engellemeye çalışıyoruz Loop Label5 = "Bağlanıldı" Durum = True End If Exit Sub hata: 'Bağlantıda hata olması durumunda hata mesajı alıyoruz. MsgBox "Bağlantı Hatası Lütfen Bilgilerinizi Kontrol Ediniz", vbInformation End Sub Private Sub Picture4_Click Inet. Cancel Do While Inet. StillExecuting DoEvents: DoEvents: DoEvents: DoEvents Loop MsgBox "Bağlantınız Kapatıldı", vbCritical If Durum = False Then Else Inet. Cancel End End If End End Sub Private Sub Picture6_Click End Sub

Saçma bir istek. Ayrıca böyle bir isteği hazır kod istekleriniz konusuna atmalıydın. Şimdi sana birşey sorayım ben. Masaüstünde dosyaların bulunduğu yere yazı yazma imkanın var mı? ya da ömründe hiç böyle birşey gördün mü Anlayacağın FTP de senin masaüstün gibi başka bilgisayara ait sanal bilgisayardan ibarettir. Eğer senin amacın Chat sistemi yapmak ise SQL kullanman lazım. Asp-SQL ya da PHP-Sql bilgin olması lazım. İşini görecek şekilde sayfaları hazırlarsan visual basic de de inet ile istediğin gibi chat yapabilirsin Baya uzun bir mevzuu olduğu için sana yardım etmem imkansız.

Arkadaşın düşündüğü şekilde chat sistemi yapılabilir zayıfta olsa Tabi verilerin alınıp gonderilmesi Vb ile anında olmadıgı için senin gonderme süresi karsı tarafın alıp cevap yazıp sana ulasma 30 saniye fln sürebilir

Ya ben de diyorum bu şahıs ne anlatmak istiyor. Meğer konunun başlığını okumamışım. FTP ye logları atacaksan eğer sana tavsiyem ilk önce bilgisayarın güvenlik duvarını kaldır hemen ardından txt uzantılı dosyayı at sonra kullanıcı anlamasın diye güvenlik duvarını geri aç. Bu şekilde yaparsan o engeli aşarsın belli etmeden. Ayrıca senin dediğin şey dosyalama işlemlerine giriyor. Text2 içindeki yazıları txt olarak bir yere kaydedip göndermelisin. O kadarını araştırmak sana düşer. O kadar kodları verdik bağlanıp atsın diye gerisi sana kalmış. Maksat dosyalama işlemlerini öğrenirsin. Justice Dostum, şimdi google kadar hızlı bir site açarsan ve sql den iyi anlayıp visual basicde de string işlemlerine hakim olursan eğer bir de inet kullanmayı bilirsen ki sen inet olayına bizden önce girdiğin için no problem 5 er saniyede 2 taraf da her türlü chatleşir

google kadar hızlı bir site açarsan ve sql den iyi anlayıp visual basicde de string işlemlerine hakim olursan Hepsini görmek için tıklayın... Yok artık lebron james Arkadaşın dediğine göre söledim ben uzun sürer diye, ona bakarsan msn gibi bi program yapalım yapmışken anında olsun Turkhacking varmısın projeye Wardom messenger, Büyük sükse yaparız forumda

kanka text dosyasi acarak loglari gönderebilir yani pc de loglari tutacak belirli zamanlarda o loglari ftp ye atacak otomatik olarak o tarz bişi istiyor arkadas sanirim

o proje zaten dosya atmak için çalışıyor yanlız firewall a yakalandığı için keylogger da işe yaramaz