提交: 3 - macro (svn)

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

Commit MetaInfo

• 修订版: 3 (tree)
• 时间: 2018-04-23 20:38:25
• 作者: bellyoshi

Log Message

更改概述

• modified: protoMacro/protoMacro/Form1.vb
• added: protoMacro/protoMacro/Form2.Designer.vb
• added: protoMacro/protoMacro/Form2.resx
• added: protoMacro/protoMacro/Form2.vb
• added: protoMacro/protoMacro/Form3.Designer.vb
• added: protoMacro/protoMacro/Form3.resx
• added: protoMacro/protoMacro/Form3.vb
• modified: protoMacro/protoMacro/My Project/Application.Designer.vb
• modified: protoMacro/protoMacro/My Project/Application.myapp
• modified: protoMacro/protoMacro/protoMacro.vbproj

差异

--- protoMacro/protoMacro/Form1.vb	(revision 2)
+++ protoMacro/protoMacro/Form1.vb	(revision 3)
@@ -3,7 +3,7 @@
 Public Class Form1
 
     Private isRec As Boolean = False
-
+    Private cnt As Integer = 0
     Private WithEvents MouseHook As New MouseHookClass
 
     Private Sub btnPlay_Click(sender As Object, e As EventArgs) Handles btnPlay.Click
@@ -50,23 +50,28 @@
     End Sub
 
     Private Sub MouseHook_MouseHook(sender As Object, e As MouseHookClass.MouseHookEventArgs) Handles MouseHook.MouseHook
-        'カレットの位置を取得
-        Dim selectPos As Integer = TextBox1.SelectionStart
+
         InsertMouseMove(e.Point.x, e.Point.y, e.Message)
-        'カーソルを戻す
-        Me.TextBox1.SelectionStart = selectPos
 
+
     End Sub
 
     Private Sub InsertMouseMove(x As Integer, y As Integer, message As MouseHookClass.MouseMessage)
         Dim code As String = String.Empty
         If message = MouseHookClass.MouseMessage.Move Then
-            code = $" sh.Run(""rundll32.exe MouseEmulator.dll, _SetMouseXY@16 {x}, {y}"");"
+            code = $" sh.Run(""rundll32.exe MouseEmulator.dll, _SetMouseXY@16 {x}, {y}"");//{cnt}{vbCrLf}"
         End If
+        cnt += 1
+        InsertToTextBox(code)
 
+    End Sub
+
+    Private Sub InsertToTextBox(code As String)
         TextBox1.SelectedText = code
+
     End Sub
 
+
     Private Sub Button1_Click(sender As Object, e As EventArgs)
 
     End Sub

--- protoMacro/protoMacro/Form2.Designer.vb	(nonexistent)
+++ protoMacro/protoMacro/Form2.Designer.vb	(revision 3)
@@ -0,0 +1,72 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form2
+    Inherits System.Windows.Forms.Form
+
+    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows フォーム デザイナーで必要です。
+    Private components As System.ComponentModel.IContainer
+
+    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
+    'Windows フォーム デザイナーを使用して変更できます。  
+    'コード エディターを使って変更しないでください。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(51, 29)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(419, 122)
+        Me.TextBox1.TabIndex = 0
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(64, 184)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(158, 184)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(100, 22)
+        Me.TextBox2.TabIndex = 2
+        '
+        'Form2
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(620, 253)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Name = "Form2"
+        Me.Text = "Form2"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents TextBox2 As TextBox
+End Class

--- protoMacro/protoMacro/Form2.vb	(nonexistent)
+++ protoMacro/protoMacro/Form2.vb	(revision 3)
@@ -0,0 +1,7 @@
+Public Class Form2
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        For i As Integer = 0 To 100
+            TextBox1.SelectedText = $"メッセージ{i}{vbCrLf}"
+        Next
+    End Sub
+End Class
\ No newline at end of file

--- protoMacro/protoMacro/Form3.Designer.vb	(nonexistent)
+++ protoMacro/protoMacro/Form3.Designer.vb	(revision 3)
@@ -0,0 +1,52 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form3
+    Inherits System.Windows.Forms.Form
+
+    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows フォーム デザイナーで必要です。
+    Private components As System.ComponentModel.IContainer
+
+    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
+    'Windows フォーム デザイナーを使用して変更できます。  
+    'コード エディターを使って変更しないでください。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TextBox1.Location = New System.Drawing.Point(0, 0)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
+        Me.TextBox1.Size = New System.Drawing.Size(282, 253)
+        Me.TextBox1.TabIndex = 0
+        '
+        'Form3
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(282, 253)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Name = "Form3"
+        Me.Text = "Form3"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents TextBox1 As TextBox
+End Class

--- protoMacro/protoMacro/Form3.vb	(nonexistent)
+++ protoMacro/protoMacro/Form3.vb	(revision 3)
@@ -0,0 +1,21 @@
+Public Class Form3
+
+    Private WithEvents MouseHook As New MouseHookClass
+
+    Private Sub MouseHook_MouseHook(sender As Object, e As MouseHookClass.MouseHookEventArgs) Handles MouseHook.MouseHook
+        TextBox1.SelectedText = $"{e.Point.x},{e.Point.y}:{e.Message}{vbCrLf}"
+
+
+
+    End Sub
+
+    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        MouseHook.MouseHookStart()
+    End Sub
+
+    Private Sub Form3_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        If MouseHook.Hooked Then
+            MouseHook.MouseHookEnd()
+        End If
+    End Sub
+End Class
\ No newline at end of file

--- protoMacro/protoMacro/My Project/Application.Designer.vb	(revision 2)
+++ protoMacro/protoMacro/My Project/Application.Designer.vb	(revision 3)
@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     このコードはツールによって生成されました。
+'     ランタイム バージョン:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
+'     コードが再生成されるときに損失したりします。
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
@@ -13,15 +13,15 @@
 
 
 Namespace My
-
-    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
-    ' or if you encounter build errors in this file, go to the Project Designer
-    ' (go to Project Properties or double-click the My Project node in
-    ' Solution Explorer), and make changes on the Application tab.
+    
+    'メモ:このファイルは自動生成されました。直接変更しないでください。変更したり、
+    ' ビルド エラーが発生した場合は、プロジェクト デザイナー へ移動し (プロジェクト
+    ' プロパティに移動するか、またはソリューション エクスプローラーのマイ プロジェクト
+    ' ノード上でダブルクリック)、アプリケーション タブ上で変更を行います。
     '
     Partial Friend Class MyApplication
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Public Sub New()
             MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
             Me.IsSingleInstance = false
@@ -29,10 +29,10 @@
             Me.SaveMySettingsOnExit = true
             Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.protoMacro.Form1
+            Me.MainForm = Global.protoMacro.Form3
         End Sub
     End Class
 End Namespace