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


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0617
1GBhspsock5未解決


1GB

リンク

2007/6/17(Sun) 09:26:10|NO.8978

以前に質問しましたが、
いちおう、完成しました。
クライアントが接続待ちの常態になり、
サーバーからアクセスすることで、
真っ暗(cls4 の 全画面表示 の windowsキー無効化)
にすることが出来ます。
動作テストが出来ないため、
ご協力ください。
また、間違っている点は、指摘やアドバイスをくださると
ありがたいです。

title "サーバー" width 200,75 objsize 200,75 : button "接続",*setuzoku stop ;/////////////////////////////////////////////////////////// *setuzoku #include "hspsock.as" title "TCPサーバーテスト" *main port=999 ipget sockmake 0,port if stat : dialog "Socket error": goto *errbye a=0 repeat sockwait 0 title "CHK="+stat+"/"+a if stat>1 : dialog "Socket error": goto *errbye if stat=0 : break a+ wait 100 cls 4 loop ;///////////////////////////////////////////////////////////■クライアント処理■//////////////////// bgscr 2,ginfo_dispx,ginfo_dispy cls 4 gsel 2,2 ;///////////////////////////////////////////////////////////■10回クリックすると終了■ *y cls 4 z+1 if z>10 : goto *x ;10回クリックすると終了する。 onclick goto *y stop *x end ;///////////////////////////////////////////////////////////■windowsキー無効化■ #include "user32.as" #define VK_LWIN 0x5b #define VK_RWIN 0x5c #define VK_SHIFT 0x10 #define KEYEVENTF_KEYUP 2 #define WM_KEYDOWN 0x0100 oncmd gosub *lb_OnKeyDown, WM_KEYDOWN stop *lb_OnKeyDown if (wParam != VK_LWIN) & (wParam != VK_RWIN) : return keybd_event VK_SHIFT, 0, 0, 0 keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0 return ;/////////////////////////////////////////////////////////////////////////////////////////////////// *bye sockclose goto *main ; サーバーを続ける *errbye sockclose mes "終了" stop
■■■■■■

title "クライアント" width 200,75 ;/////////////////////////////////////////////////////////// mes "Now loading..." mes "Please wait..." pos 100,50 : objsize 100,20 : button "閉じる",*exit pos 0,50 : objsize 100,20 : button "透明化",*toumeika goto *setuzoku stop *exit dialog {"このウィンドウはシャットダウン時に自動で切れます。 今すぐ終了した場合、システムファイルに影響が出る可能性があります。"} *toumeika #include "user32.as" bgscr 0,640,480,700,0 boxf 150,100,0,768 GetWindowLong hwnd,-20 SetWindowLong hwnd,-20,stat|$80000 SetLayeredWindowAttributes hwnd,0xffffff,128,3 ;/////////////////////////////////////////////////////////// *setuzoku #include "hspsock.as" title "TCPクライアントテスト" *main adr="127.0.0.1" port=999 sockopen 0,adr,port a=0 repeat sockcheck 0 if stat!=0 : break wait 10 a+ loop a="" sockget a,64 wait 10 goto *main



この記事に返信する


f

リンク

2007/6/17(Sun) 10:04:01|NO.8979

・・・そんなモンは一人で楽しんでくれ。



Ve

リンク

2007/6/17(Sun) 10:27:27|NO.8980

自分でも動作テストは出来るでしょ?
これは画面が真っ暗になるジョークソフトですか?



f

リンク

2007/6/17(Sun) 20:21:11|NO.8997

・・・。
これ、「自分のところで動作テスト出来ない」んじゃなくて、バグってるだけちゃうかいのう?
実行してないのでアレだが、流れを見るにつけ。


クライアント側はなんか受信したらcloseもせずにまたopenしてるし、そもそもそれ以外の事してないし。
サーバ側の方に画面を隠すコードがあるようだし。クライアントから接続があっただけで、問答無用でサーバ側の画面隠すようだし。



Ve

リンク

2007/6/18(Mon) 00:05:14|NO.9003

まぁ悪質なコードではある。
多分、悪質なソフトウェアの検知ツールで警告が出ると思う。



f

リンク

2007/7/7(Sat) 02:29:04|NO.9304

age



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