HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2011 0610	うさぎまん	キーボードマウス	11

うさぎまん

2011/6/10(Fri) 00:20:06|NO.39581

デスクトップ上でキーボードをマウスの代わりに使いたいのですが、
例）スペースキーを左クリックに変換するのは可能でしょうか？
よければ書き方を教えていただきたいです<(；＿＿)>おねがいします

この記事に返信する

2011/6/10(Fri) 00:25:03|NO.39582

直接変換する方法ではありませんが。

mouse_eventでイベントを起こすのが早いと思います。
getkeyだかstickだかで入力を監視し、押されたらmouse_event実行でどうでしょう。

うさぎまん

2011/6/10(Fri) 01:40:25|NO.39584

mouse_eventで色々と調べてみたら過去にこういった投稿がございました。

	;llmod3を使った各moduleの使用例

	;
	;=================================================================================
	#include "llmod3/llmod3.hsp"
	#include "llmod3/input.hsp"
	cls

	button "終了",*x15

	mes "方向キーでマウスカーソルを移動できます"
	mes "SHIFTボタンを押すとマウスの左ボタンを押したことになります"

*@
	movx=0 : movy=0
	getkey a,37 : if a : movx-	;←キー
	getkey a,38 : if a : movy-	;↑キー
	getkey a,39 : if a : movx+	;→キー
	getkey a,40 : if a : movy+	;↓キー
    
	;SHIFTが押されたら左ボタンを押す
	getkey kSHIFT,16
	if kSHIFT : a=$2 : else : a=0
	mouse_event $1+a, movx, movy
    
	;SHIFTを押すとマウスの左ボタンを押したことになりkが1になる
	getkey k,1 : if k : pset mousex,mousey

	;SHIFTが押されてたら左ボタンを放す
	if kSHIFT : mouse_event $4

	await 1
	goto *@b

*x15
	end

こちらはシフトをおしたら左クリックができるようですが、こんなに連打したくありません。゜゜(´□｀。)°゜。
普通に一度きりのクリックを何度もしたいのですが改良加えることできないですか？☆<(￣□￣;)>☆

ORZ

2011/6/10(Fri) 01:46:22|NO.39585

Gётκёчを∫тicκﾚﾆ置(≠換ぇT=らﾚヽﾚヽωＵ〃ゃTょﾚヽヵゝ？

うさぎまん

2011/6/10(Fri) 01:50:05|NO.39586

一応全部置き換えてためしたら何も動作しませんでした；；

ミント

2011/6/10(Fri) 09:48:46|NO.39591

う～ん。これは難しいなぁ。
とりあえず勢いでやってみた　（おかしかったらすいません）



	;SHIFTが押されたら左ボタンを押す
	stick kSHIFT
		if kSHIFT = 16 {
				a = $2
			} else {
				a = 0
			}

一応１回しか反応しないようにしたけど、自信がないんだな　(´･ω･`)

後スペースだとプログラム終了時に押してしまう可能性があり
終了　→　スペース押す　→　プログラムにスペースが入る
というめんどくさいことになるのでオススメはしたくないかな～
（最初のソースだと余計になりやすい）

それとORZさん
>>Gётκёчを∫тicκﾚﾆ置(≠換ぇT=らﾚヽﾚヽωＵ〃ゃTょﾚヽヵゝ？
この回答は人によって悪意をもったレスに見えてしまう恐れがあるような気がします。
ググってもダメだったし、縦読みでもないし、文字化けでもなさそうだし・・・
回答したくなかったら回答しなきゃいいのに・・・

れみはる

2011/6/10(Fri) 16:59:50|NO.39594

>Gётκёчを∫тicκﾚﾆ置(≠換ぇT=らﾚヽﾚヽωＵ〃ゃTょﾚヽヵゝ？
フォントによってはやたら読みにくいのでやめてくれ

WHOS

2011/6/10(Fri) 19:03:19|NO.39596

>>ORZ氏
回答したくないのなら回答しない方がいいと思います
意味不明な文字列を使い悪意を持ったレスにしか思えません

mirage17

2011/6/10(Fri) 19:41:37|NO.39598

>Gётκёчを∫тicκﾚﾆ置(≠換ぇT=らﾚヽﾚヽωＵ〃ゃTょﾚヽヵゝ？
ORZ氏の返答を翻訳すると・・・
ＧｅｔｋｅｙをＳｔｉｃｋに置き換えたらいいんじゃないか？
となりました。

mirage17

2011/6/10(Fri) 20:15:49|NO.39605




;llmod3を使った各moduleの使用例
	;
	;=================================================================================
	#include "llmod3/llmod3.hsp"
	#include "llmod3/input.hsp"
	cls

	button "終了",*x15

	mes "方向キーでマウスカーソルを移動できます"
	mes "スペースボタンを押すとマウスの左ボタンを押したことになります"

*@
	movx=0 : movy=0
	getkey a,37 : if a : movx-	;←キー
	getkey a,38 : if a : movy-	;↑キー
	getkey a,39 : if a : movx+	;→キー
	getkey a,40 : if a : movy+	;↓キー
    
	;スペースが押されたら左ボタンを押す
	stick a,16
	if a: a=$2 : else : a=0
	mouse_event $1+a, movx, movy
    
	;スペースを押すとマウスの左ボタンを押したことになりkが1になる
	getkey k,1 : if k : pset mousex,mousey

	;スペースが押されてたら左ボタンを放す
	if a : mouse_event $4

	await 1
	goto *@b

*x15
	end

これで、ＳＨＩＦＴではなく、スペースキーを押したら、マウスの左クイックが押された
事になりますが。

ひらまる

2011/6/10(Fri) 20:39:02|NO.39606

そんなにギャル文字に食いつかなくても良いじゃまいか（´・ω・｀）

うさぎまん

2011/6/20(Mon) 23:53:34|NO.39772

遅くなり申し訳ないです。解決しました！