Takaさん、こんにちは。

＞過去ログNo.14277に書いたのは、たぶんPB5時代のコードです。
＞PB6以降では、参照渡しの引数の型チェックが厳密になったためコンパイルエラーになると思います。

ありがとうございます。
私が初めて使ったPBは8でした。
今は9.0ですが、未ださっぱり分からないまま、新規作成や機能追加を命じられています。

＞＞subroutine RtlMoveMemory( ref long buf, long p, long s ) library \"kernel32.dll\"
＞
＞この部分を、
＞subroutine RtlMoveMemory( ref ulong buf, long p, long s ) library \"kernel32.dll\"
＞にしてみてください。
＞
＞
＞ちなみに
＞
＞＞WSADATA{
＞＞　ulong wVersion;
＞＞　ulong wHighVersion;
＞
＞これも間違いでした。
＞正しくは uint です。失礼しました。

ん?なかなかうまくいきません。
現在のスクリプトは以下の通りです。

*グローバル外部関数の宣言*
//IPアドレス取得用
function long WSAStartup(uint wVersionRequested, ref WSADATA lpWSAData) library \"wsock32.dll\"
function long WSACleanup() library \"wsock32.dll\"
function long gethostname(ref string strName, long namelen) library \"wsock32.dll\"
function long gethostbyname(string strName) library \"wsock32.dll\"
function long inet_ntoa(ulong addr) library \"wsock32.dll\"
subroutine RtlMoveMemory( ref hostent buf, long p, long s ) library \"kernel32.dll\"
subroutine RtlMoveMemory( ref ulong buf, long p, long s ) library \"kernel32.dll\"

*スクリプトf_getipaddress*
（略）
long p_addr, addr, n
blob{80} addr_buf
string s_addr

RtlMoveMemory(p_addr, host.h_addr_list, 4 )　　
RtlMoveMemory(addr_buf, p_addr, 80 )
.
.
（略）

やはりRtlMoveMemoryの部分で関数の参照引数のデータ型が定義と異なっています。
というエラーになってしまいました。