🚀 go-pugleaf

$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
--------------------------------------------------------------