Advertisement
Guest User

Untitled

a guest
Dec 13th, 2019
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.33 KB | None | 0 0
  1. Function FLB_UDP_prova(command$ As String)
  2.    
  3. String str_tmp$
  4. String dataReceive$
  5.  
  6. OpenNet #202 As Client
  7. Print "FLb Udp Started"
  8.  
  9.  
  10.    
  11.     Print #202, command$
  12.     Wait 0.1
  13.    
  14.     Do While (Val(str_tmp$) > 0)
  15.     Print #202, "OB[4]"
  16.     Input #202, dataReceive$
  17.     str_tmp$ = Left$(dataReceive$, (Len(dataReceive$) - 2))
  18.     Loop
  19.    
  20.  
  21.  
  22. Fend
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement