Keskustelu: Koodit: VB6: Chat(ftp)

'Chat by: maestro remontti-reiska ;D
'Tämä on huonosti kommentoitua koodia, tiedän sen.
'Tämä on muutenkin todella surkeaa koodia, tiedän sen.
'Chatin ulkoasun on todella karu.
'Älkää peljästykö vaan nauttikaa "Chatin" parissa :D.

Private Sub Command1_Click()
Dim jee As String
jee = Text1.Text
Open "C:\Omat tiedostot\chath\write.txt" For Output As #1
Write #1, Text1.Text
Close #1
   Inet1.AccessType = icUseDefault
   'FTP tiedot tähän
   Inet1.URL = "" 'osoite
   Inet1.UserName = "" 'tunnus
   Inet1.Password = "" 'salasana
   Inet1.RequestTimeout = 40
   Inet1.Execute , "Put c:\Omat tiedostot\chath\write.txt \write.txt" 'Tämä pitää vaihtaa. Tai ainakin C:\ alkuinen siksi minne write.txt menee
   Do While Inet1.StillExecuting
      DoEvents
   Loop
   Inet1.Execute , "CLOSE"
End Sub

Private Sub Command2_Click()
   Inet1.AccessType = icUseDefault
   'FTP tiedot tähän
   Inet1.URL = "" 'osoite
   Inet1.UserName = "" 'tunnus
   Inet1.Password = "" 'salasanaa
   Inet1.RequestTimeout = 40
   Inet1.Execute , "GET write.txt C:\write.txt" 'C:\write.txt pitää vaihtaa write.txt tiedoston merkkijonoksi
   Do While Inet1.StillExecuting
      DoEvents
   Loop
   Inet1.Execute , "CLOSE"
'Sitten avataan write.txt
'tuo merkkijono pitää myös muuttaa
   Open "C:\Omat tiedostot\chath\write.txt" For Input As #1
Input #1, jee
Close #1
rbt1.AddItem jee 'Näytetään viesti
End Sub