🚀 go-pugleaf

In article <346182D3.992E5B0D@hilbert.elcom.nitech.ac.jp>, $BFsB<(B $B0K5WM:(B wrote:
>$BLa$jCM$H$7$F!"#C8@8l$G$$$&%]%$%s%?$rJV$9$h$&$J4X?t$G(B
>$B#V#B$N(BString$B$KJ8;zNs%G!<%?$H$7$F<u$1$k$3$H$r9M$($F$$$^$9!#(B

$B;d$N4D6-$K$O(B VB4DLL.TXT $B$H$$$&%U%!%$%k$,(B Visual Basic $B$r%$%s%9%H!<%k$7$?(B
$B%G%#%l%/%H%j$K$"$j!"$3$NCf$KJ8;zNs$r<u$1<h$kJ}K!$,5-=R$5$l$F$$$^$9!#(B
$BD4$Y$F$_$F$O$$$+$,$G$7$g$&$+!#(B

 $B$J$*!"(BDLL $B$,=$@5$G$-$J$$>l9g$O!"(Blstrcpy $B$J$I$N(B $B%a%b%j4V$N%G!<%?E>Aw$r(B
$B9T$&(BWindows API $B4X?t$r;HMQ$9$kJ}K!$b$"$j$^$9!#(B

-- 
Computer Institute of Japan, Ltd.
$B:4F#@59((B masahiro@cij.co.jp

$@FsB<$G$9!#(J

> $@#V#B#4$r;HMQ$7$F$$$^(J$@$9!#(J
>
> $@La$jCM$H$7$F!"#C8@8l$G$$$&%]%$%s%?$rJV$9$h$&$J4X?t$G(J
> $@#V#B$N(JString$@$KJ8;zNs%G!<%?$H$7$F<u$1$H(J$@$k$3$H$r9M$($F$$$^$9!#(J

lstrcpy $@$G2r7h$7$^$7$?!#(J
$@$"$j$,$H$&$4$6$$$^$7$?!#(J

lstrcpy $@$GF0:n3NG'$r$7$F$$(J$@$k;~!"$b$&0l$D5?Ld$,H/@8$7$^$7$?!#(J

$@:#!"(JWinSock$@$r;H$C$?%W%m%0%i%`$r:n@.$7$F$$$^$9!#(J
gethostname $@4X?t$G(J$@%[%9%HL>$r<hF@$7$?$$$N$G$9$,!"(J
$@$I$NMQ$K4X?t$r@k8@$7!"$I$N$h$&$KJ8;zNsJQ?t$K<hF@$9$l$P(J
$@$$$$$N$+$o$+$j$^(J$@$;$s!#(J

$@$^$?!"#V#B$r;H$C$?(JWinSock$@%W%m%0%i%`$N=q@R$J$I$,$"$l$P!"(J
$@>R2p$7$F$/$@$5$$!#(J

$@59$7$/$*4j$$$7$^$9(J$@!#(J

$@$U$?$`$i$$$/$*(J
futamura@hilbert.elcom.nitech.ac.jp

In article <FUTAMURA.97Nov18170110@hilbert.elcom.nitech.ac.jp>, futamura wrote:
>$B:#!"(BWinSock$B$r;H$C$?%W%m%0%i%`$r:n@.$7$F$$$^$9!#(B
>gethostname $B4X?t$G%[%9%HL>$r<hF@$7$?$$$N$G$9$,!"(B
>$B$I$NMQ$K4X?t$r@k8@$7!"$I$N$h$&$KJ8;zNsJQ?t$K<hF@$9$l$P(B
>$B$$$$$N$+$o$+$j$^$;$s!#(B

 $B@k8@$O$3$l$+$i$?$S$?$SI,MW$K$J$k$G$7$g$&$+$i!"(B Declare $B%9%F!<%H(B
$B%a%s%H$d!"(BVB4DLL.txt $B$J$I$rD4$Y$F$_$k$3$H$r$*4+$a$7$^$9!#(B

$B$A$J$_$K!"@k8@$O0J2<$N$h$&$K$J$k$+$H;W$$$^$9!#(B

 Type WSADATA
    wVersion As Integer
    wHighVersion As Integer
    szDescription As String * 257
    szSystemStatus As String * 129
    iMaxSockets As Integer
    iMaxUdpDg As Integer
    lpVendorInfo As Long
End Type

Declare Function gethostname Lib "wsock32.dll" (ByVal s As String, namelen As Long) As Long
Declare Function WSAStartup Lib "wsock32.dll" (ByVal v As Long, w As WSADATA) As Long
Declare Function WSACleanup Lib "wsock32.dll" () As Long

 $B$^$?!"<!$N$h$&$K$9$l$P;HMQ$G$-$k$H;W$$$^$9!#(B

  Dim s As String * 1000
  Dim wd As WSADATA

  WSAStartup &H101, wd
  gethostname s, 1000
  WSACleanup
  MsgBox s

#$B4V0c$C$F$$$?$i!"$4$a$s$J$5$$!#(B

>$B$^$?!"#V#B$r;H$C$?(BWinSock$B%W%m%0%i%`$N=q@R$J$I$,$"$l$P!"(B
>$B>R2p$7$F$/$@$5$$!#(B

 $B;DG0$J$,$i!"$3$A$i$NJ}$OJ,$+$j$^$;$s!#(B

-- 
Computer Institute of Japan, Ltd.
$B:4F#@59((B masahiro@cij.co.jp

$BA}86(B@Urban$B$G$9!#(B

>>$B$^$?!"#V#B$r;H$C$?(BWinSock$B%W%m%0%i%`$N=q@R$J$I$,$"$l$P!"(B
>>$B>R2p$7$F$/$@$5$$!#(B
>
>$B;DG0$J$,$i!"$3$A$i$NJ}$OJ,$+$j$^$;$s!#(B

Message-ID: <62775r$4nk$1@nw013.infoweb.or.jp>$B$r8+$l$P=q$$$F$"$j$^$9!#(B
$B4{$K(Bexpire$B$5$l$F$$$k$+$b$7$l$^$;$s$N$G$H$j$"$($:!#(B

$B5;=QI>O@<T!'%$%s%?!<%M%C%H$N0Y$N(BWinsock$B%W%m%0%i%_%s%0(B
	    Dabe Roberts$BCx(B	$BDj2A(B4,800$B1_(B($BK\BN(B4660$B1_(B)
ASCII	  $B!'(BVisual Basic $B%$%s%?!<%M%C%H%W%m%0%i%_%s%0(B
	    Michael Marchuk$BCx(B	Kaieda Labs/$B3$9>ED(B $B0l;mLu(B
	    ISBN4-7561-1681-7	$BDj2A(B4,800$B1_(B($BK\BN(B4,660$B1_(B)


$B$G$O$G$O(B