Android Question Sending data from app to another how?

import sys
from socket import socket, AF_INET, SOCK_DGRAM

SERVER_IP   = '127.0.0.1'
PORT_NUMBER = 5000
SIZE = 1024
print ("Test client sending packets to IP {0}, via port {1}\n".format(SERVER_IP, PORT_NUMBER))

mySocket = socket( AF_INET, SOCK_DGRAM )

while True:
        mySocket.sendto('cool',(SERVER_IP,PORT_NUMBER))
sys.exit()

Sub Process_Globals      
    'You need Network library (for sockets) and RandomAccessFile library (for Streams)
    Dim srvSocket As ServerSocket
    Dim clientSocket As Socket
    Dim SocStream As AsyncStreams  
End Sub


Sub Activity_Create(FirstTime As Boolean)
    srvSocket.Initialize (5000,"srvSocket")
    srvSocket.Listen 
    clientSocket.Initialize ("")
End Sub

Sub srvSocket_NewConnection(Successfull As Boolean , NewSocket As Socket )
    Log("Connection is " & Successfull)
    If Successfull Then
        clientSocket=NewSocket
        SocStream.Initialize(clientSocket.InputStream, clientSocket.OutputStream,"SocStream")
    End If   
End Sub

Sub SocStream_NewData (Buffer() As Byte)
    'Received new data
    Dim msg As String
    Dim cMsg As String       
    Dim unsignedi As Int
    Dim signedb As Byte
   
    msg = BytesToString(Buffer, 0, Buffer.Length, "ASCII")   
    For i = 0 To msg.Length -1
        signedb = Buffer(i)
        unsignedi = Bit.AND(0xff, signedb)
        cMsg = cMsg & Chr(unsignedi)
    Next
    Log("Received " & cMsg)
   
End Sub

(Intent) Intent { act=android.intent.action.MAIN flg=0x20000000 cmp=IanMcRV.SideWays/.main }
no extras
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
(Intent) Intent { act=android.intent.action.MAIN flg=0x20000000 cmp=IanMcRV.SideWays/.main }
no extras
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **

print ("Test server listening on port {0}\n".format(PORT_NUMBER)

dim clientsocket as socket. ' in process-global
Dim SocStream as asyncstreams. 'In process.globals
 clientsocket.initialize("clientsocket") 'in activity–create

Clientsocket.Connect("127.0.0.1",5000,15000)  'in act.create

Sub Clientsocket_Connected(Connected As Boolean) As Boolean
   If Connected = true then
      Log("connected")
      Socstream.Initialize(Clientsocket.InputStream,Clientsocket.OutputStream,"SocStream")
   Else
       Log("not connected")
   EndIf
End Sub

'Add here the socstream_NewData sub from my previous example

#Region  Project Attributes
    #ApplicationLabel: xx
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim clientsocket As Socket
    Dim SocStream As AsyncStreams
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    clientsocket.initialize("clientsocket")
    clientsocket.Connect("127.0.0.1",5000,15000)

End Sub
Sub Clientsocket_Connected(Connected As Boolean) As Boolean
   If Connected = True Then
      Log("connected")
      SocStream.Initialize(clientsocket.InputStream,clientsocket.OutputStream,"SocStream")
   Else
       Log("not connected")
   End If
End Sub
Sub SocStream_NewData (Buffer() As Byte)
    'Received new data
    Dim msg As String
    Dim cMsg As String     
    Dim unsignedi As Int
    Dim signedb As Byte
 
    msg = BytesToString(Buffer, 0, Buffer.Length, "ASCII") 
    For i = 0 To msg.Length -1
        signedb = Buffer(i)
        unsignedi = Bit.AND(0xff, signedb)
        cMsg = cMsg & Chr(unsignedi)
    Next
    Log("Received " & cMsg)
 
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

import socket

HOST = ''     # It means the local host
PORT = 5000 # the port port
s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.bind((HOST, PORT))    # binding the socker
s.listen(1)   # Put the serve in listening mode, accepting only 1 connection at a time
conn, addr = s.accept()  # accept an incoming connection from the IP 'addr'. Conn is a new socket
   # that will be used for the data exchange. The server socket normally doesn't 
   # perform data exchage but only listen and accept/refuse incominq conn requests
print 'Connected by', addr  # Just a feedback
while 1:
    data = conn.recv(1024) # wait for some data
    if not data: break  # if no data, break
    conn.send(data)  # resend the same data (is an echo server, or you can conn.send('Hallo world')
conn.close()  #ok, close the connection (not the server)