Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. #INCLUDE Once "TSNE_V3.bi"   'can u find here: http://www.freebasic-portal.de/porticula/tsnev3-bi-1459.html
    
  2. 
    
  3. 
    
  4. 
    
  5. '##############################################################################################################
    
  6. Sub TSNE_Disconnected(Byval V_TSNEID As Uinteger)
    
  7. Print "[CONNECTION TERMINATED]"
    
  8. End Sub
    
  9. 
    
  10. 
    
  11. 
    
  12. '##############################################################################################################
    
  13. Sub TSNE_Connected(Byval V_TSNEID As Uinteger)
    
  14. TSNE_Data_Send(V_TSNEID, "Hello!")
    
  15. Print "[CONNECTION ESTABLISHED]"
    
  16. End Sub
    
  17. 
    
  18. 
    
  19. 
    
  20. '##############################################################################################################
    
  21. Sub TSNE_NewData (Byval V_TSNEID As Uinteger, Byref V_Data As String)
    
  22. Print "[RECEIVING NEW DATA]: >" & V_Data & "<"
    
  23. End Sub
    
  24. 
    
  25. 
    
  26. 
    
  27. '##############################################################################################################
    
  28. Dim RV As Integer
    
  29. Dim TClientID As Uinteger
    
  30. BV = TSNE_Create_Client(TClientID, "www.google.de", 80, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData)
    
  31. 'Disconnect and Connect parameter are optional!
    
  32. 
    
  33. If BV <> TSNE_Const_NoError Then
    
  34.     Print "[ERROR] Description:" & TSNE_GetGURUCode(BV)
    
  35.     End -1
    
  36. End If
    
  37. TSNE_WaitClose(TClientID)
    
  38. End 0
    
  39.