マイクロスイッチ仕様のマウス総合スレ

[過去ﾛｸﾞ] マイクロスイッチ仕様のマウス総合スレ (1002ﾚｽ)
上下前次1-新
抽出解除必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞あぼーん

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

120(1): 2016/07/14(木)19:54 ID:huExdvtu(1/9) AAS
# meinterv.tcl - mouse button event interval viewer 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
frame .f1
menubutton .f1.mb -text

121(3): 2016/07/14(木)20:10 ID:huExdvtu(2/9) AAS
# meinterv.tcl - mouse button event interval viewer 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
frame .f1
menubutton .f1.mb -text "File" -menu .f1.mb.m
menu .f1.mb.m
.f1.mb.m add command -label "Save as..." -command saveas
.f1.mb.m add command -label "Clear" -command clearlb
.f1.mb.m add command -label "Quit" -command exit
proc chopen {} {open [tk_getSaveFile -filetypes {{"CSV Files" {.csv}}}] "w"}
proc joinlb {} {join [.f2.lb get 0 end] "\n"}
省7

122(2): 2016/07/14(木)20:11 ID:huExdvtu(3/9) AAS
label .l -text "click here" -height 4 -relief sunken
pack .f1 -fill x
pack .l -fill both -expand 1
pack .f2 -fill x
.f2.lb insert end "time/ms, interval/ms, button, action"
proc tm {} {clock clicks -milliseconds}
set t0 [tm]; set t1 $t0
proc addlb3 {d1 d s} {.f2.lb insert end "$d1, $d, $s"; .f2.lb yview end}
proc addlb2 {s t1 t} {global t0; addlb3 [expr $t1 - $t0] [expr $t - $t1] $s}
proc addlb1 {b a t1} {set t [tm]; addlb2 "$b, $a" $t1 $t; return $t}
省4

123(2): 2016/07/14(木)20:16 ID:huExdvtu(4/9) AAS
# mecount.tcl - mouse button event counter 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
frame .f1
menubutton .f1.mb -text "File" -menu .f1.mb.m
menu .f1.mb.m
.f1.mb.m add command -label "Save as..." -command saveas
.f1.mb.m add command -label "Clear" -command cleartv
.f1.mb.m add command -label "Quit" -command exit
proc chopen {} {open [tk_getSaveFile -filetypes {{"CSV Files" {.csv}}}] "w"}
proc joinlb {} {join [.lb get 0 end] "\n"}
省15

124(2): 2016/07/14(木)20:17 ID:huExdvtu(5/9) AAS
proc tvval {b} {join [dict values [.tv set $b]] ", "}
proc tvcsv0 {} {join [lmap b [n5] {tvval $b}] "\n"}
proc tvcsv {} {join [list [join [cols] ", "] [tvcsv0]] "\n"}
proc mult {i} {lindex {Button Double Triple Quadruple} [expr $i-1]}
set multPrev 0
proc setP {m} {global multPrev; set multPrev $m}
proc mP {} {global multPrev; return $multPrev}
proc tvAdd {ic b n} {set v [.tv set $b $ic]; .tv set $b $ic [expr $v+$n]}
proc p1 {b} {tvAdd Total $b 1; setP 1}
proc p2 {b} {tvAdd Double $b 1; setP 2}
省4

125: 2016/07/14(木)20:24 ID:huExdvtu(6/9) AAS
ごめんなさい、>>120は無視してください

>>121-122はロジクールマウススレ177匹目476の「マウスのクリックイベントの
時間間隔をみるツール」の機能強化版です。ホイールクリックにも対応しました。
ログをセーブできるようになりました。
使用するには、例えばmeinterv.tclという名前のファイルに>>121-122を
くっつけたものを保存し、
- WindowsではActiveTclをインストールしてエクスプローラからダブルクリック。
- X11環境ではTcl/Tkインストール後ターミナルから `wish meinterv.tcl` を実行。

ボタンIDはLinuxでは
　1:左ボタン, 2:ホイールクリック, 3:右ボタン, 4: ホイール昇転, 5:ホイール降転
省7

126(2): 2016/07/14(木)20:43 ID:huExdvtu(7/9) AAS
# meinterv.ps1 - mouse button event interval viewer 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
$sf = "System.Windows.Forms"
Add-Type -AssemblyName $sf
$f0 = New-Object $sf'.form'
function ct {Get-Date -UFormat %s}
$i = 0; $t0 = ct; $t1 = $t0
function w ($b) {
$Global:i++; $t = ct; $d = $t-$t1; $Global:t1 = $t
Write-Host "$i, $($t-$t0), $d, $b"}
省5

127(4): 2016/07/14(木)20:47 ID:huExdvtu(8/9) AAS
# mecount.ps1 - mouse button event counter 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
$sf = "System.Windows.Forms"
Add-Type -AssemblyName $sf
$f0 = New-Object $sf'.form'
$b = 'Left Middle Right XButton1 XButton2'.Split()
$c = @{}; $b |%{$c.Add($_, 0)}; $d = $c.Clone()
function w {
Write-Host (@("ClickType")+$b -join ", ")
Write-Host (l 'Total' $c)
省5

128(1): 2016/07/14(木)20:54 ID:huExdvtu(9/9) AAS
>>126は>>121-122(マウスイベント時間間隔表示)のPowerShell用簡易版です。
>>127は>>123-124(不本意ダブクリ確率調査)のPowerShell用簡易版です。
Windows環境しかなくて、ディスク残容量が足りない、アプリインストールが
禁止されている等でActiveTclが使えない人はこちらを試してください。
PowerShell起動後にコマンドプロンプトにスクリプト(3行目以降)をコピペし、
その後現れる空白の窓をクリックしてください。
PowerShell版はホイール回転の情報がとれませんが、かわりにTcl/Tk版では
とれない「戻る/進むボタンの情報」がとれます。

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.116s*