チャットプログラム動作確認に協力お願いします
ご協力お願いします
ご協力いただける方は
以下のプログラムをエディタにコピーして実行してください
GOをおして接続できたら”接続完了”と入力し送信を押して閉じてください
終了 2010年７月25日 12時 50分
間でサーバープログラムを起動させておきますのでよろしくお願いします
;----------送信ボタンでテキストを送信するタイプ #include "pcbnet2.as" #define SERVERPORT 46497 #define VER "1.0" sdim recivedata,200;データを受信する sdim recivename,20;受信したデータから名前を取り出す sdim recivetext,50;受信したデータからテキストを取り出す ;--------名前などの定義------------------ username="TEST_USER";デフォルトの名前 serverIP="";同接続先 screen 0,320,135 title "RSCS Ver."+VER+" START" syscolor 15:boxf color 0,0,0 mes "利用するユーザーネーム" input username,320,20,20 objsize 320,60 button "GO",*start stop *start screen 0,640,240 notesel chatlog syscolor 15:boxf mesbox chatlog,640,220,0 boxID=stat chatmes="サーバーに接続を開始します。":gosub *writetext2box ;------------------接続開始---------------------------------- tcpopen socket,serverIP,SERVERPORT repeat tcpiscon socket if stat!0:break await 1 loop if stat=2:chatmes="--------------------------------\nサーバーとの接続に問題が生じました。５秒後に終了します！\n--------------------------------":gosub *writetext2box:wait 500:end chatmes="サーバーに接続しました。名前を送信":gosub *writetext2box tcpput username,socket;名前送信 ;--------------------------------------------------------------- chatmes="--------------------------------\n認証が完了しました。チャット開始\n--------------------------------":gosub *writetext2box mytext="" input mytext,540,20,50 inputboxID=stat objsize 100,20:pos 540,220:button gosub "送信",*sendtext title "Really Simple Chat System Client Ver."+VER+" Your name is \""+username+"\"" *main ;----------------------華麗なるメインループ-------------------------------------- gosub *waittext;サーバーからデータが来てないかチェック await 10 goto *main ;----------------------終わり---------------------------------------------------- *waittext tcpfail socket;エラーチェック if stat!0:{;エラーが生じた chatmes="--------------------------------\nサーバーとの接続に問題が生じました。５秒後に終了します！\n--------------------------------":gosub *writetext2box:wait 500:end } tcprecv recivedata,0,70,socket if stat!0:{;テキストが来ている unpack recivedata,"a20a50",recivename,recivetext chatmes=""+recivename+" ： "+recivetext+"":gosub *writetext2box } return *sendtext tcpput mytext,socket;サーバーにテキストを送信 chatmes=username+" ： "+mytext:gosub *writetext2box;自分のメッセージは帰ってこないので、自分でログに追加する mytext="" objprm inputboxID,"";入力欄をクリア objsel inputboxID;入力欄にフォーカスを移す return *writetext2box noteadd ""+chatmes+"",0 objprm boxID,chatlog return
