• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javaandroidc++linuxc#objective-ccocoa誰得qtrubybathyscaphegamephpguicwindows翻訳pythonomegattwitterframeworkbtronarduinovb.net計画中(planning stage)directxpreviewertestゲームエンジンdom

windowsのステップを記録しJavaScriptにする。


コミットメタ情報

リビジョン4 (tree)
日時2018-04-24 11:08:52
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- protoMacro/protoMacro/Form1.Designer.vb (revision 3)
+++ protoMacro/protoMacro/Form1.Designer.vb (revision 4)
@@ -26,6 +26,7 @@
2626 Me.TextBox1 = New System.Windows.Forms.TextBox()
2727 Me.btnPlay = New System.Windows.Forms.Button()
2828 Me.btnRec = New System.Windows.Forms.Button()
29+ Me.Button1 = New System.Windows.Forms.Button()
2930 Me.SuspendLayout()
3031 '
3132 'TextBox1
@@ -57,11 +58,21 @@
5758 Me.btnRec.Text = "●"
5859 Me.btnRec.UseVisualStyleBackColor = True
5960 '
61+ 'Button1
62+ '
63+ Me.Button1.Location = New System.Drawing.Point(196, 12)
64+ Me.Button1.Name = "Button1"
65+ Me.Button1.Size = New System.Drawing.Size(110, 20)
66+ Me.Button1.TabIndex = 3
67+ Me.Button1.Text = "Button1"
68+ Me.Button1.UseVisualStyleBackColor = True
69+ '
6070 'Form1
6171 '
6272 Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
6373 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
6474 Me.ClientSize = New System.Drawing.Size(798, 512)
75+ Me.Controls.Add(Me.Button1)
6576 Me.Controls.Add(Me.btnRec)
6677 Me.Controls.Add(Me.btnPlay)
6778 Me.Controls.Add(Me.TextBox1)
@@ -75,4 +86,5 @@
7586 Friend WithEvents TextBox1 As TextBox
7687 Friend WithEvents btnPlay As Button
7788 Friend WithEvents btnRec As Button
89+ Friend WithEvents Button1 As Button
7890 End Class
--- protoMacro/protoMacro/Form1.vb (revision 3)
+++ protoMacro/protoMacro/Form1.vb (revision 4)
@@ -36,6 +36,7 @@
3636 btnRec.Text = "●"
3737 End If
3838 btnPlay.Enabled = Not isRec
39+
3940 End Sub
4041
4142 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -51,16 +52,23 @@
5152
5253 Private Sub MouseHook_MouseHook(sender As Object, e As MouseHookClass.MouseHookEventArgs) Handles MouseHook.MouseHook
5354
54- InsertMouseMove(e.Point.x, e.Point.y, e.Message)
55+ InsertMouseMove(e.Point, e.Message)
5556
5657
5758 End Sub
5859
59- Private Sub InsertMouseMove(x As Integer, y As Integer, message As MouseHookClass.MouseMessage)
60+ Private Sub InsertMouseMove(ByVal p As MouseHookClass.Point, ByVal message As MouseHookClass.MouseMessage)
61+ Dim x = p.x
62+ Dim y = p.y
6063 Dim code As String = String.Empty
6164 If message = MouseHookClass.MouseMessage.Move Then
6265 code = $" sh.Run(""rundll32.exe MouseEmulator.dll, _SetMouseXY@16 {x}, {y}"");//{cnt}{vbCrLf}"
66+ ElseIf message = MouseHookClass.MouseMessage.LDown Then
67+ code = $" sh.Run(""rundll32.exe MouseEmulator.dll, _DownLeft@16 {x}, {y}"");//{cnt}{vbCrLf}"
68+ ElseIf message = MouseHookClass.MouseMessage.LUp Then
69+ code = $" sh.Run(""rundll32.exe MouseEmulator.dll, _UpLeft@16 {x}, {y}"");//{cnt}{vbCrLf}"
6370 End If
71+
6472 cnt += 1
6573 InsertToTextBox(code)
6674
@@ -72,7 +80,7 @@
7280 End Sub
7381
7482
75- Private Sub Button1_Click(sender As Object, e As EventArgs)
7683
77- End Sub
84+
85+
7886 End Class
--- protoMacro/protoMacro/Form3.Designer.vb (revision 3)
+++ protoMacro/protoMacro/Form3.Designer.vb (revision 4)
@@ -23,23 +23,34 @@
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
2525 Me.TextBox1 = New System.Windows.Forms.TextBox()
26+ Me.Label1 = New System.Windows.Forms.Label()
2627 Me.SuspendLayout()
2728 '
2829 'TextBox1
2930 '
30- Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
31- Me.TextBox1.Location = New System.Drawing.Point(0, 0)
31+ Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Bottom
32+ Me.TextBox1.Location = New System.Drawing.Point(0, 58)
3233 Me.TextBox1.Multiline = True
3334 Me.TextBox1.Name = "TextBox1"
3435 Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
35- Me.TextBox1.Size = New System.Drawing.Size(282, 253)
36+ Me.TextBox1.Size = New System.Drawing.Size(584, 195)
3637 Me.TextBox1.TabIndex = 0
3738 '
39+ 'Label1
40+ '
41+ Me.Label1.AutoSize = True
42+ Me.Label1.Location = New System.Drawing.Point(12, 24)
43+ Me.Label1.Name = "Label1"
44+ Me.Label1.Size = New System.Drawing.Size(48, 15)
45+ Me.Label1.TabIndex = 1
46+ Me.Label1.Text = "Label1"
47+ '
3848 'Form3
3949 '
4050 Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
4151 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
42- Me.ClientSize = New System.Drawing.Size(282, 253)
52+ Me.ClientSize = New System.Drawing.Size(584, 253)
53+ Me.Controls.Add(Me.Label1)
4354 Me.Controls.Add(Me.TextBox1)
4455 Me.Name = "Form3"
4556 Me.Text = "Form3"
@@ -49,4 +60,5 @@
4960 End Sub
5061
5162 Friend WithEvents TextBox1 As TextBox
63+ Friend WithEvents Label1 As Label
5264 End Class
--- protoMacro/protoMacro/Form3.vb (revision 3)
+++ protoMacro/protoMacro/Form3.vb (revision 4)
@@ -3,12 +3,15 @@
33 Private WithEvents MouseHook As New MouseHookClass
44
55 Private Sub MouseHook_MouseHook(sender As Object, e As MouseHookClass.MouseHookEventArgs) Handles MouseHook.MouseHook
6- TextBox1.SelectedText = $"{e.Point.x},{e.Point.y}:{e.Message}{vbCrLf}"
76
7+ insertCode($"{e.Point.x},{e.Point.y}:{e.Message}{vbCrLf}")
88
9+ End Sub
10+ Private Sub insertCode(ByVal code As String)
11+ TextBox1.SelectedText =code
12+ Label1.Text = code
913
1014 End Sub
11-
1215 Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
1316 MouseHook.MouseHookStart()
1417 End Sub
--- protoMacro/protoMacro/My Project/Application.Designer.vb (revision 3)
+++ protoMacro/protoMacro/My Project/Application.Designer.vb (revision 4)
@@ -32,7 +32,7 @@
3232
3333 <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
3434 Protected Overrides Sub OnCreateMainForm()
35- Me.MainForm = Global.protoMacro.Form3
35+ Me.MainForm = Global.protoMacro.Form1
3636 End Sub
3737 End Class
3838 End Namespace