|
|
| Yazar | Mesaj |
[Kalimus]
Nereden: |
#241198
2007-08-28 22:26 GMT 
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 
|
MiqRop
Nereden: Turkey Ist/Maltepe |
#241234
2007-08-28 23:27 GMT
[url]http://msdn2.microsoft.com/en-us/library/1t4kyezf(VS.80).aspx[/url]
Bilmem işine yarar mı
|
Abel
Nereden: Turkey Bursa |
#241271
2007-08-29 00:59 GMT
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.
|
[Kalimus]
Nereden: |
#241336
2007-08-29 09:42 GMT
Benimkiyle alakası yok galiba.Bu kendi pc'ndeki bir yere yazdırma.(Emin değilim anlıyamadım )Abel sen biliyorsan gönder bana.Güvenlik açığı benim için tık etmez
|
JusticeCrusades
Nereden: Turkey İstanbull.. |
#241859
2007-08-30 19:10 GMT
Dosyayı ftpye upload ettrirsin sende deiştirmezsinde şifreyi bilmeyenlerde yazdıramaz ? @ Kalimus suan vb yok eve giidince yazarım bişiler
Moneta.gen.tr Efsane Yeniden Doğuyor... --------------------------------------------------- Justice Crusades |
[Kalimus]
Nereden: |
#241865
2007-08-30 19:27 GMT
Peki bekliyorum.Çok gerekli birşey benim için
|
JusticeCrusades
Nereden: Turkey İstanbull.. |
Kod: 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
Moneta.gen.tr Efsane Yeniden Doğuyor... --------------------------------------------------- Justice Crusades |
