EVIAR DADO POR REDE

 Tópico anterior Próximo tópico Novo tópico

EVIAR DADO POR REDE

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#498079 - 08/09/2021 18:03:41

SMZTODOPODEROSO
ABAIARA
Cadast. em:Junho/2009


é possível enviar um carácter sem ser cliente por rede?
Meu ip 192.168.0.1 objectivo enviar para o ip 192.168.0.191 a letra g

Winsock.RemoteHost = '192.168.0.191'
Winsock.RemotePort = 50
Winsock.Connect
Winsock.SendData ('g')

algo deste género muito simples?



#498080 - 08/09/2021 18:40:50

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Citação:
:
é possível enviar um carácter sem ser cliente por rede?
Meu ip 192.168.0.1 objectivo enviar para o ip 192.168.0.191 a letra g

Winsock.RemoteHost = '192.168.0.191'
Winsock.RemotePort = 50
Winsock.Connect
Winsock.SendData ('g')

algo deste género muito simples?

se o ip for publico acho que sim




Resposta escolhida #498084 - 09/09/2021 00:27:57

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Se tiver algum serviço nessa porta no host de destino, sim.

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#498093 - 10/09/2021 11:38:48

SMZTODOPODEROSO
ABAIARA
Cadast. em:Junho/2009


Citação:
:
:
é possível enviar um carácter sem ser cliente por rede?
Meu ip 192.168.0.1 objectivo enviar para o ip 192.168.0.191 a letra g

Winsock.RemoteHost = '192.168.0.191'
Winsock.RemotePort = 50
Winsock.Connect
Winsock.SendData ('g')

algo deste género muito simples?
se o ip for publico acho que sim

sim será dentro da mesma rede



#498094 - 10/09/2021 11:41:51

SMZTODOPODEROSO
ABAIARA
Cadast. em:Junho/2009


alguém tem um exemplo para seguir?



#498095 - 10/09/2021 14:32:12

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
O que você tem já é basicamente a coisa toda, é mesmo bem simples. Aqui tem um chat que mostra esse princípio.

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#498096 - 10/09/2021 15:05:25

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Última edição em 10/09/2021 15:06:05 por FABRICIOWEB

Option Explicit

Private lonBytesSent As Long

Private Sub Winsock1_Connect()
  Dim strData As String

  strData = 'Este exemplo usa uma string, mas funcionará com qualquer tipo que está sendo enviado.'
   'Redefina o número de bytes enviados de qualquer pacote anterior.
  lonBytesSent = 0
  Winsock1.SendData strData
End Sub

Private Sub Winsock1_SendComplete()
  MsgBox CStr(lonBytesSent) & ' byte(s) sent on last transmission.', vbInformation
End Sub

Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
  lonBytesSent = lonBytesSent + bytesSent
End Sub




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por SMZTODOPODEROSO em 14/09/2021 11:36:21