🚀 go-pugleaf

tg2-js wrote in message <01bd0383$61eb4690$bc0101c0@takano>...
.
.
>$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
>
>$B#H#E#L#P!J#B#O#O#K#S(B $B#O#N#L#I#N#E!K$K4JC1$JNc$,$"$C$?$N$G$=$N$H$*$j$K(B
>$B$7$F$_$^$7$?!#(B
>$B$=$l$G0l1~F0$$$?$N$G$9$,<!$N$h$&$JLdBj$,$"$k$3$H$K5$IU$-$^$7$?!#(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%(%i!<(B
$B$K(B
>$B$J$k!*!*!*(B
>$B!J#22sL\$N#C#O#N#N#E#C#T$r9T$C$?$H$-%5!<%P!<B&$G#C#o#n#n#e#c#t#i#o#n(B
>$B#R#e#q#u#e#s#t$N%$%Y%s%H$,5/$-$F$J$$!K(B
>
>$B"*%/%i%$%"%s%H$,%/%m!<%:$7$?;~E@$G%5!<%P!<B&$b#C#L#O#S#E$9$k$h$&$K$O$7$F$k(B
>$B$D$b$j$G$9$,!&!&!&(B
>  $B$*$+$7$$$s$G$7$g$&$+!)(B
>
>  Private Sub Winsock1_Close()
>     Winsock1.Close
>  End Sub
>
>$B"*$3$N$7$/$_$G$O#12s$7$+#C#O#N#N#E#C#T$G$-$J$$$N!)!)!)!)(B
.
.
>--------------------------------------------------------------
>$B9bLn(B  $B>!9%(B  $B%@%$%"%k%"%C%W(B E-Mail tg2-js@yo.rim.or.jp
>--------------------------------------------------------------

Winsock1.Close
$B$N8e$K(B
Winsock1.LocalPort = 0
$B$rDI2C$7$F$_$F$/$@$5$$(B
$B>>:d!!1QL@(B E-mail: cvc-matsu@in.aix.or.jp

$B9bLn!w#J#A#S#T$G$9(J
$B%]%9%H$I$&$b$"$j$,$H$&$4$6$$$^$9!#(J

Hideaki Matsuzaka <cvc-matsu@in.aix.or.jp> wrote in article <66g2f3$f6n@fullnews.aix.or.jp>...
> tg2-js wrote in message <01bd0383$61eb4690$bc0101c0@takano>...
> .
> .
> >$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(J
> >$B%(%i!<$K$J$k!*!*!*(J

> Winsock1.Close
> $B$N8e$K(J
> Winsock1.LocalPort = 0
> $B$rDI2C$7$F$_$F$/$@$5$$(J

$B$G!"$d$C$F$_$?$N$G$9$,!"%@%a$G$7$?!#(J
$B$A$g$C$H;d$N@bL@ITB-$+$b$7$l$J$$$N$G!"=hM}$r=q$$$F$_$^$9!#(J

$B!c%5!<%P!<B&!d(J
Private Sub Form_Load()
    Winsock1.LocalPort = GL_port_id
    Winsock1.Listen
End Sub

Private Sub Winsock1_Close()
    Winsock1.Close
    Winsock1.LocalPort = 0
End Sub

$B!c%/%i%$%"%s%HB&!d(J
$B%3%M%/%H%\%?%s$r2!$7$?;~(J
Private Sub cmdConnect_Click()
    If tcpClient.State = sckClosed Then
        tcpClient.RemoteHost = "127.1.1.0"
        tcpClient.RemotePort = 8000
        tcpClient.Connect
    End If
End Sub

$B%/%m!<%:%\%?%s$r2!$7$?;~(J
Private Sub cmdClose_Click()
    tcpClient.Close
    tcpClient.RemoteHost = ""
    tcpClient.RemotePort = 0
End Sub


$B$I$&$>$h$m$7$/$*4j$$CW$7$^$9!#(J
$B#N#I#F#T#Y$N!X65$($F$/$@$5$$!Y$H$+$N%U%)!<%i%`$r$N$>$$$F$_$^$7$?$,!"F1$8$h$&$J(J
$B<ALd$O$"$k$N$G$9$,!"Ez$($O$"$j$^$;$s$G$7$?!#(J
-- 
--------------------------------------------------------------
$B9bLn(J  $B>!9%(J  $B%@%$%"%k%"%C%W(J E-Mail tg2-js@yo.rim.or.jp
--------------------------------------------------------------

$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

$B9bLn$G$9!#(J

$BDGL>@5><(J <shiina@ro.bekkoame.or.jp> wrote in article
<66kn1m$hvv$1@fu.bekkoame.or.jp>...
> $B$I$&$b=i$a$^$7$F!#DGL>$H?=$7$^$9!#(J
$B%U%)%m!<$I$&$b$"$j$,$H$&$4$6$$$^$9!#(J

> $B0lEY%/%m!<%:$7$?%=%1%C%H%3%s%H%m!<%k$O!"%W%m%0%i%`$r=*N;$7$J$$8B$j(J
>
$BF1$8%]!<%HHV9f$G:F$S@\B3<uIU$G$-$J$$$O$:$G$9!#!J$=$&$$$&;EMM$i$7$$$N$G$9$,(J
$B!K(J

$B$=$&$@$C$?$N$G$9$M!#$=$l$,$o$+$C$?$@$1$G$b$9$4$$?JJb$G$9!#(J
$B!J$=$l$K$7$F$b$=$&$$$&;EMM$C$F$"$j!)!K(J
$B;d$,#B#O#O#K#S!!#O#N#L#I#N#E$rFI$s$@$H$-$K5$IU$+$J$+$C$?$N$+$b$7$l$^$;$s!#(J
$B#V#B$N%=%1%C%H%3%s%H%m!<%k$r;HMQ$7$F!"$3$&$$$&1?MQ$K$9$k$3$H;vBV$,(J
$B$^$A$,$C$F$$$?$N$G$9$M!#(J

> $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(J
> $B%3%s%H%m!<%kG[Ns$K$7$F$d$l$P!"J#?t$N<uIU!JJ#?t2s$N@\B3!"@ZCG!K$,2DG=(J

$B$3$l$O!"<B$O;d$b9M$($?$N$G$9$,!"%7%9%F%`$N1?MQE*$KL5M}$J$N$G!"7k6I(J
$B0lEY@\B3$7$?$i!"ESCf$G$O@Z$i$J$$!#@Z$l$?$i!J%(%i!<!K%7%9%F%`$N:FN)$A>e$2(J
$B$r9T$&J}8~$G:FEY9M$($F$_$^$9!#(J
$B%a!<%k$G$b8f=u8@$$$?$@$-$^$7$?!#$_$J$5$s$$$m$$$m$"$j$,$H$&$4$6$$$^$7$?!#(J

$B:G8e$K$J$j$^$7$?$,!";d$N#N#e#w#s!"FC$K(JMessage-ID$B$K4X$9$kL5CN$G$$$m$$$m$J(J
$BJ}$K$4LBOG$r$*$+$1$7$?$3$H$r$*OM$SCW$7$^$9!#(J
$B$^$?;d$,A02s$N%]%9%H$G(J tcpClient.RemoteHost = "127.1.1.0" $B$H$$$&%"%I%l%9$r(J
$B=P$7$^$7$?$,!"$"$/$^$G%m!<%+%k$J%F%9%H4D6-2<$N$3$H$G!"30$N@$3&$K=P$F9T$/(J
$B$3$H$O$"$j$^$;$s!#(J
$B:#8e$H$b$h$m$7$/$*$M$,$$$7$^$9!#(J

--------------------------------------------------------------
$B9bLn(J  $B>!9%(J  $B%@%$%"%k%"%C%W(J E-Mail tg2-js@yo.rim.or.jp
--------------------------------------------------------------

$B9S@n(B@TSN BBS$B$G$9!#(B

Katsuyoshi Takano (tg2-js@yo.rim.or.jp) wrote:
> > $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$,(B
> $B!K(B

Visible = False$B$N%U%)!<%`$rMQ0U$7$F!"$=$l$K%=%1%C%H%3%s%H%m!<%k$r(B
$BE=$jIU$1$F!"%a%$%s$H$J$k%&%#%s%I%&$H0l=o$KL)$+$KI=<($7$F$*$$$F!"(B
$B%/%m!<%:$7$?$i(BUnload, Load$B$r9T$C$?$i$I$&$J$j$^$9(B?
$B;2>H$H$+$a$s$I$&$/$5$=$&$G$9$1$I!"$"$s$,$$@.8y$7$?$j$7$F(B(^^;
-- 
Terushi Arakawa
mailto:bosturbo@bostn.tsn.or.jp