by ゲスト » 2006年1月21日(土) 19:10
コンパイルは通るようになりましたが、stsに-1が返ってきて失敗しているようです。
コード: 全て選択
Declare Function ioctlsocket Lib "ws2_32.dll" (s As DWord, cmd As Long, argp As DWordPtr) As Long
Const FIONBIO=&H5421
Dim val As DWord
Dim sts As Long
val=1
sts = ioctlsocket(id, FIONBIO, VarPtr(val))
では、駄目でしょうか。
コンパイルは通るようになりましたが、stsに-1が返ってきて失敗しているようです。
[code]Declare Function ioctlsocket Lib "ws2_32.dll" (s As DWord, cmd As Long, argp As DWordPtr) As Long
Const FIONBIO=&H5421
Dim val As DWord
Dim sts As Long
val=1
sts = ioctlsocket(id, FIONBIO, VarPtr(val))
[/code]
では、駄目でしょうか。