vb 6.0 save text w hostingu cba.pl

[666robo666]

mam taki projekt w ktorym gdy sie kliknie zeby zapisywalo mi teskt ktory byl wpisany w okn ie text1 oraz text2 i chce zeby to mi zapisywalo w http://robertotremba.cba.pl/Savefile.txt chodzi mi oto zeby zapisalo mi tam w Savefile.txt mysle ze otrzymam jakas pomoc pozdrawiam

[Gość LastPhoenix450]

Napisz instrukcję:

 

1.Zapis treści txtbox1 i txtbox2 do pliku savefile.txt w ścieżce lokalnej...

2.Połączenie z FTP serwera i wrzucenie pliku do pożądanej ścieżki...

 

Gotowego kodu ci na telefonie nie napiszę więc polecam google

[666robo666]

no tak

Private Sub Command1_Click()
Dim Savefile As Long
  Savefile = FreeFile
Open "C:\Savefile.txt;" For Output As Savefile
Print #Savefile, Text1.Text + Text2.Text
Close #Savefile
End Sub

no to mi wtedy zapisuje bardzo dobrze ale jak mam juz

Private Sub Command1_Click()
Dim Savefile As Long
  Savefile = FreeFile
Open "www.robertotremba.cba.pl/Savefile.txt" For Output As Savefile
Print #Savefile, Text1.Text + Text2.Text
Close #Savefile
End Sub

to juz wtedy nie chce wyskakuje mi w aplikacji blad Run-Time jak to zrobic

 

albo zeby bynajmniej mi pola wpisane w text1 i w tezt2 wysylalo na moj e-mial

[JacoH]

@UP bo żeby wysłać coś na serwer to musisz FTP serwera i wgl tam wpisać. Tak jak dodajesz jakiś plik na serwer to musisz się zalogować. To tak samo tutaj. A żeby na E-mail to musisz mieć też E-mail z którego będzie wysyłana ta wiadomość.

[666robo666]

@UP bo żeby wysłać coś na serwer to musisz FTP serwera i wgl tam wpisać. Tak jak dodajesz jakiś plik na serwer to musisz się zalogować. To tak samo tutaj. A żeby na E-mail to musisz mieć też E-mail z którego będzie wysyłana ta wiadomość.

na emial mam lecz pokazuje mi ze mam zly stmp lecz wpisuje dobrze bo interia ma poczta.interia.pl oto kod jaki uzywalem

Private Sub Command1_Click()

   Dim oSmtp As New EASendMailObjLib.Mail
   oSmtp.LicenseCode = "TryIt"

   ' Set your sender email address
   oSmtp.FromAddr = "[email protected]"
   ' Add recipient email address
   oSmtp.AddRecipientEx "[email protected]", 0

   ' Set email subject
   oSmtp.Subject = "simple email from VB 6.0 project"

   ' Set email body
   oSmtp.BodyText = "this is a test email sent from VB 6.0 project, do not reply"

   ' Your SMTP server address
   oSmtp.ServerAddr = "smtp.emailarchitect.net"

   ' User and password for ESMTP authentication, if your server doesn't require
   ' User authentication, please remove the following codes.
   oSmtp.UserName = "[email protected]"
   oSmtp.Password = "testpassword"
   ' If your smtp server requires SSL connection, please add this line
   ' oSmtp.SSL_init

   MsgBox "start to send email ..."
   If oSmtp.SendMail() = 0 Then
    MsgBox "email was sent successfully!"
   Else
    MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
   End If

End Sub

[Gość LastPhoenix450]

SMPT dla interia to www.poczta.fm a jak będzie źle to gmail.

[666robo666]

oky zobacze cZy trybi

 

edit

nie trybi