🚀 go-pugleaf

$B$I$&$b=i$a$^$7$F!#DGL>$H?=$7$^$9!#(B

>> .
>> >$B!*!*!*%/%i%$%"%s%H$+$i#C#L#O#S#E$7$F:FEY#C#O#N#N#E#C#T$7$h$&$H$7$?$i(B
>> >$B%(%i!<$K$J$k!*!*!*(B
>

$B3N$+!"#B#O#O#K#S!!#O#N#L#I#N#E$K$b=q$$$F$"$C$?$H;W$C$?$N$G$9$,!"(B
$B0lEY%/%m!<%:$7$?%=%1%C%H%3%s%H%m!<%k$O!"%W%m%0%i%`$r=*N;$7$J$$8B$j(B
$BF1$8%]!<%HHV9f$G:F$S@\B3<uIU$G$-$J$$$O$:$G$9!#!J$=$&$$$&;EMM$i$7$$$N$G$9$,!K(B
$B$3$l$O%=%1%C%H%3%s%H%m!<%k$,C10l$N;~$NOC$G!"%=%1%C%H%3%s%H%m!<%k$r(B
$B%3%s%H%m!<%kG[Ns$K$7$F$d$l$P!"J#?t$N<uIU!JJ#?t2s$N@\B3!"@ZCG!K$,2DG=(B
$B$G$9!#(B

$B%5%s%W%k!d(B

Private iMax As Long

Private Sub Form_Load()


iMax = 0
 sckServer(0).LocalPort = 1001
 sckServer(0).Listen

End Sub

Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As
$B!!(BLong)


If Index = 0 Then

  iMax = iMax + 1
  Load sckServer(iMax)
  sckServer(iMax).LocalPort = 0
  sckServer(iMax).Accept requestID
  Load txtData(iMax)


End If

End Sub

$B0J>e$NMM$J%3!<%I$r%5!<%P!<B&$K=q$$$F$*$1$P!"#O#K$@$H;W$$$^$9!#(B
$B%/%i%$%"%s%HB&$O8=>u$N$^$^J?5$$G$7$g$&!#(B
$B>\$7$/$O!"#B#O#O#K#S!!#O#N#L#I#N#E$N!V(B2 $B$D0J>e$N@\B3MW5a$N<u$1IU$1!W$N9`L\$r(B
$B;2>H$7$F$/$@$5$$!#(B