hspsockではうまくいかなかったのでpcbnet2を使って作りました
自分のPCで起動するにはよいのですが、友達のPCと繋ぐと駄目でした
どうすれば離れた友達と通信できるでしょうか?
ちなみに、いろいろ調べてみたところプライベートIPはLAN上の通信にしか使えないようなことを書いた記事を見つけました
じゃぁグローバルIPを使えばいいのかとかいろいろ思うのですが
まず、LAN上にないPCと接続するにはどんな手順を踏まないといけないのかといううことがいまいちわからないです
一応スプりクト張っておきます
サーバー
クライアント
#include "pcbnet2.as" #include "hspsock.as" x=25 nama="" honnbunn="" namae="02" naiyou="" kaunnta=-1 title"サーバー" ipget mes"あなたのIPアドレスは"+refstr+"です、これを相手に事前に教えておいてください" button"待機する",*待機中 stop *待機中 cls tcpmake sock,50000 mes"待機中" repeat tcpwait sock if stat=1:tcpaccept socket,sock:break await 100 loop mes"接続されました" await 1000 cls input naiyou,600,20,40 button"送信",*送信 *受信 repeat tcpget nama,3,socket tcpget honnbunn,40,socket if stat!0 :x=x+20 :kaunnto=kaunnto+1:pos 0,x :: mes""+nama+" :"+honnbunn+"" : if kaunnto>21 {kaunnto=0:x=25:cls:input naiyou,600,20,40:button"送信",*送信:mes""+namae+": "+naiyou+""} await 100 loop stop *送信 kaunnto=kaunnto+1 if kaunnto>21 :kaunnto=0:x=25: cls :input naiyou,600,20,40:button"送信",*送信 tcpput namae,socket tcpput naiyou,socket x=x+20 pos 0,x mes""+namae+" : "+naiyou+" goto*受信
#include "pcbnet2.as" x=25 naiyou="" namae="" nama="01" ip="" honnbunn="" kaunnta=-1 *エラー title "クライアント" mes"相手のIPアドレスを入力してください" input ip,200,20 button "接続する",*接続 stop *接続 tcpopen sock1,ip,50000 repeat 10 tcpiscon sock1 if stat=1 : goto*完了 await 200 loop cls : await 500: mes"接続できません" : goto*エラー stop *完了 mes"接続しました" await 1000 cls input honnbunn,600,20,40 button" 送信 ",*送信 *受信 repeat tcpget namae,3,sock1 tcpget naiyou,40,sock1 if stat!0:x=x+20 : pos 0,x:kaunnto=kaunnto+1 ::mes""+namae+": "+naiyou+"": if kaunnto>21 {kaunnto=0:x=25:cls:input naiyou,600,20,40:button"送信",*送信:mes""+namae+": "+naiyou+""} await 100 loop stop *送信 kaunnto=kaunnto+1 if kaunnto>21 : kaunnto=0 : x=25 : cls :input honnbunn,600,20,40 :button"送信",*送信 tcpput nama,sock1 tcpput honnbunn,sock1 x=x+20 pos 0,x mes ""+nama+": "+honnbunn+" goto*受信