Bir sitedeki dosyaya yazı yazdırma (Vb 6.0)

Merhaba


www.xxxxx.com/deneme/one.txt dosyasına visual basic 6.0 ile yaptığım bir programla 555 yazdırmak istiyorum.Yardımcı olurmusunuz.


Biliyorum bu topice en az 2 hafta mesaj gelmez.Gelsede yardımcı olacak bir mesaj gelmez

Pek sağlıklı bir yöntem olmaz, başkalarıda yazdırabilir o zaman. Sonuçta programdan net üzerindeki dosyaya yazabilmen için CHMOD ayarının 777 olması lazım. Bu demek oluyorki gelen geçen yazabilir Güvenlik bakımından önermem, hem siten hem hostun için zararlı olur.

Abel : Pek sağlıklı bir yöntem olmaz, başkalarıda yazdırabilir o zaman. Sonuçta programdan net üzerindeki dosyaya yazabilmen için CHMOD ayarının 777 olması lazım. Bu demek oluyorki gelen geçen yazabilir Güvenlik bakımından önermem, hem siten hem hostun için zararlı olur.

Dosyayı ftpye upload ettrirsin sende deiştirmezsinde şifreyi bilmeyenlerde yazdıramaz ?

@ Kalimus
suan vb yok eve giidince yazarım bişiler

On Error Resume Next
Open "C:/temp.txt" For Output As #1
Print #1, Text3.Text
Close #1
Inet1.RemoteHost = "hostadres"
Inet1.URL = "ftp.ifastnet.com"
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.UserName = "ftp kullanıcı ad"
Inet1.Password = "host şifre"
Inet1.RequestTimeout = "40"


Inet1.Execute , "CD anon_ftp" & vbCrLf
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop

Inet1.Execute , "CD incoming" & vbCrLf
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop

Me.Caption = "By Justice Crusades-Servera Bağlı.."
Inet1.Execute , "SEND C:/temp.txt /one.txt" & vbCrLf

Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Me.Caption = "By Justice Crusades-Dosya Gönderildi.."
Kill "C:/temp.txt"
Exit Sub
End If

Buton koy bunu yaz inet ekle componentslerden internet transfer control olması lazım
Text3 adında text koy bi tane text 3 e yazdıgın metni ftpye atar

bak yanlız 555 yazdın yolladn sora 666 yazdın yolladın ozmn 555 silinir silinmesin istiosan bişiler ayarlarız