🚀 go-pugleaf

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