HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0212
OSもどき作ってる人メッセンジャー的なやつ0解決


OSもどき作ってる人

リンク

2019/2/12(Tue) 17:23:28|NO.86559

今度作るメッセンジャー的な物のサンプル(?)スクリプト。

サーバー


#include "hspsock.as" title "Server" str_s="" port=1290 ipget mes "IP:"+refstr mes "Port"+port+"" sockmake 0,port if stat : dialog "Socket error": goto *errbye a=0 repeat sockwait 0 if stat>1 : dialog "Socket error": goto *errbye if stat=0 : break a+ wait 10 loop mes "("+refstr+")" input str_s button goto "ACSESS",*main stop *main wait 100 sockput str_s if stat : dialog "Socket error": goto *errbye mes "["+str_s+"]" stop *errbye sockclose mes "exit" stop



クライアント


#include "hspsock.as" title "Client" adr="127.0.0.2" port=1290 a="" *ac mes adr+"port"+port+"" sockopen 0,adr,port mes "Connection completed" repeat -1 sockcheck 0 if stat=0:{ sockget a,128,0 if a!="":{ mes "Server Message : "+a+"":a="" } } b=cnt wait 5 loop *bye mes "Error!" wait 300 end



hspsockのサンプルスクリプト [server2.hsp] と [client2.hsp] を参考に作りました。
まだまだ初心者なので、変な所もあると思いますが、そこは見逃して下さい。m(_ _)m



この記事に返信する


ONION software Copyright 1997-2021(c) All rights reserved.