• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

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

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

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


コミットメタ情報

リビジョン1 (tree)
日時2018-04-22 17:07:00
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- protoMacro/protoMacro/FileUtils.vb (nonexistent)
+++ protoMacro/protoMacro/FileUtils.vb (revision 1)
@@ -0,0 +1,13 @@
1+Public Class FileUtils
2+
3+ ''' <summary>
4+ ''' 実行exeのあるパスを取得
5+ ''' </summary>
6+ ''' <returns></returns>
7+ Public Shared Function GetRootPath() As String
8+ Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetEntryAssembly()
9+ Dim rootpath As String = System.IO.Path.GetDirectoryName(myAssembly.Location)
10+ Return rootpath
11+ End Function
12+
13+End Class
--- protoMacro/protoMacro/Form1.Designer.vb (nonexistent)
+++ protoMacro/protoMacro/Form1.Designer.vb (revision 1)
@@ -0,0 +1,64 @@
1+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2+Partial Class Form1
3+ Inherits System.Windows.Forms.Form
4+
5+ 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
6+ <System.Diagnostics.DebuggerNonUserCode()> _
7+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8+ Try
9+ If disposing AndAlso components IsNot Nothing Then
10+ components.Dispose()
11+ End If
12+ Finally
13+ MyBase.Dispose(disposing)
14+ End Try
15+ End Sub
16+
17+ 'Windows フォーム デザイナーで必要です。
18+ Private components As System.ComponentModel.IContainer
19+
20+ 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
21+ 'Windows フォーム デザイナーを使用して変更できます。
22+ 'コード エディターを使って変更しないでください。
23+ <System.Diagnostics.DebuggerStepThrough()> _
24+ Private Sub InitializeComponent()
25+ Me.TextBox1 = New System.Windows.Forms.TextBox()
26+ Me.btnPlay = New System.Windows.Forms.Button()
27+ Me.SuspendLayout()
28+ '
29+ 'TextBox1
30+ '
31+ Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Bottom
32+ Me.TextBox1.Location = New System.Drawing.Point(0, 59)
33+ Me.TextBox1.Multiline = True
34+ Me.TextBox1.Name = "TextBox1"
35+ Me.TextBox1.Size = New System.Drawing.Size(282, 194)
36+ Me.TextBox1.TabIndex = 0
37+ Me.TextBox1.Text = "WScript.Echo(""hello world"")"
38+ '
39+ 'btnPlay
40+ '
41+ Me.btnPlay.Location = New System.Drawing.Point(100, 21)
42+ Me.btnPlay.Name = "btnPlay"
43+ Me.btnPlay.Size = New System.Drawing.Size(75, 23)
44+ Me.btnPlay.TabIndex = 1
45+ Me.btnPlay.Text = "再生"
46+ Me.btnPlay.UseVisualStyleBackColor = True
47+ '
48+ 'Form1
49+ '
50+ Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
51+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
52+ Me.ClientSize = New System.Drawing.Size(282, 253)
53+ Me.Controls.Add(Me.btnPlay)
54+ Me.Controls.Add(Me.TextBox1)
55+ Me.Name = "Form1"
56+ Me.Text = "Form1"
57+ Me.ResumeLayout(False)
58+ Me.PerformLayout()
59+
60+ End Sub
61+
62+ Friend WithEvents TextBox1 As TextBox
63+ Friend WithEvents btnPlay As Button
64+End Class
--- protoMacro/protoMacro/Form1.vb (nonexistent)
+++ protoMacro/protoMacro/Form1.vb (revision 1)
@@ -0,0 +1,14 @@
1+Public Class Form1
2+ Private Sub btnPlay_Click(sender As Object, e As EventArgs) Handles btnPlay.Click
3+ Dim jsfilename As String
4+ 'ファイル名がない場合はuntitle.jsに保存する。
5+ jsfilename = System.IO.Path.Combine(FileUtils.GetRootPath(), "untitle.js")
6+ Using sw As New System.IO.StreamWriter(jsfilename, False, System.Text.Encoding.GetEncoding("shift_jis"))
7+ sw.Write(TextBox1.Text)
8+ End Using
9+
10+ 'untitle.jsを実行する
11+ Dim p As Process = System.Diagnostics.Process.Start(jsfilename)
12+
13+ End Sub
14+End Class
--- protoMacro/protoMacro/My Project/Application.Designer.vb (nonexistent)
+++ protoMacro/protoMacro/My Project/Application.Designer.vb (revision 1)
@@ -0,0 +1,38 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
14+
15+Namespace My
16+
17+ 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
18+ ' or if you encounter build errors in this file, go to the Project Designer
19+ ' (go to Project Properties or double-click the My Project node in
20+ ' Solution Explorer), and make changes on the Application tab.
21+ '
22+ Partial Friend Class MyApplication
23+
24+ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
25+ Public Sub New()
26+ MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
27+ Me.IsSingleInstance = false
28+ Me.EnableVisualStyles = true
29+ Me.SaveMySettingsOnExit = true
30+ Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
31+ End Sub
32+
33+ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
34+ Protected Overrides Sub OnCreateMainForm()
35+ Me.MainForm = Global.protoMacro.Form1
36+ End Sub
37+ End Class
38+End Namespace
--- protoMacro/protoMacro/My Project/AssemblyInfo.vb (nonexistent)
+++ protoMacro/protoMacro/My Project/AssemblyInfo.vb (revision 1)
@@ -0,0 +1,35 @@
1+Imports System
2+Imports System.Reflection
3+Imports System.Runtime.InteropServices
4+
5+' アセンブリに関する一般情報は以下の属性セットをとおして制御されます。
6+' アセンブリに関連付けられている情報を変更するには、
7+' これらの属性値を変更してください。
8+
9+' アセンブリ属性の値を確認します
10+
11+<Assembly: AssemblyTitle("protoMacro")>
12+<Assembly: AssemblyDescription("")>
13+<Assembly: AssemblyCompany("")>
14+<Assembly: AssemblyProduct("protoMacro")>
15+<Assembly: AssemblyCopyright("Copyright © 2018")>
16+<Assembly: AssemblyTrademark("")>
17+
18+<Assembly: ComVisible(False)>
19+
20+'このプロジェクトが COM に公開される場合、次の GUID が typelib の ID になります
21+<Assembly: Guid("285bc914-d816-4892-9669-0572e704743d")>
22+
23+' アセンブリのバージョン情報は次の 4 つの値で構成されています:
24+'
25+' メジャー バージョン
26+' マイナー バージョン
27+' ビルド番号
28+' Revision
29+'
30+' すべての値を指定するか、次を使用してビルド番号とリビジョン番号を既定に設定できます
31+' 既定値にすることができます:
32+' <Assembly: AssemblyVersion("1.0.*")>
33+
34+<Assembly: AssemblyVersion("1.0.0.0")>
35+<Assembly: AssemblyFileVersion("1.0.0.0")>
--- protoMacro/protoMacro/My Project/Resources.Designer.vb (nonexistent)
+++ protoMacro/protoMacro/My Project/Resources.Designer.vb (revision 1)
@@ -0,0 +1,62 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
14+
15+Namespace My.Resources
16+
17+ 'This class was auto-generated by the StronglyTypedResourceBuilder
18+ 'class via a tool like ResGen or Visual Studio.
19+ 'To add or remove a member, edit your .ResX file then rerun ResGen
20+ 'with the /str option, or rebuild your VS project.
21+ '''<summary>
22+ ''' A strongly-typed resource class, for looking up localized strings, etc.
23+ '''</summary>
24+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
25+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
27+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
28+ Friend Module Resources
29+
30+ Private resourceMan As Global.System.Resources.ResourceManager
31+
32+ Private resourceCulture As Global.System.Globalization.CultureInfo
33+
34+ '''<summary>
35+ ''' Returns the cached ResourceManager instance used by this class.
36+ '''</summary>
37+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
38+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
39+ Get
40+ If Object.ReferenceEquals(resourceMan, Nothing) Then
41+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("protoMacro.Resources", GetType(Resources).Assembly)
42+ resourceMan = temp
43+ End If
44+ Return resourceMan
45+ End Get
46+ End Property
47+
48+ '''<summary>
49+ ''' Overrides the current thread's CurrentUICulture property for all
50+ ''' resource lookups using this strongly typed resource class.
51+ '''</summary>
52+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
53+ Friend Property Culture() As Global.System.Globalization.CultureInfo
54+ Get
55+ Return resourceCulture
56+ End Get
57+ Set(ByVal value As Global.System.Globalization.CultureInfo)
58+ resourceCulture = value
59+ End Set
60+ End Property
61+ End Module
62+End Namespace
--- protoMacro/protoMacro/My Project/Settings.Designer.vb (nonexistent)
+++ protoMacro/protoMacro/My Project/Settings.Designer.vb (revision 1)
@@ -0,0 +1,73 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
14+
15+Namespace My
16+
17+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
19+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
20+ Partial Friend NotInheritable Class MySettings
21+ Inherits Global.System.Configuration.ApplicationSettingsBase
22+
23+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
24+
25+#Region "My.Settings Auto-Save Functionality"
26+#If _MyType = "WindowsForms" Then
27+ Private Shared addedHandler As Boolean
28+
29+ Private Shared addedHandlerLockObject As New Object
30+
31+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33+ If My.Application.SaveMySettingsOnExit Then
34+ My.Settings.Save()
35+ End If
36+ End Sub
37+#End If
38+#End Region
39+
40+ Public Shared ReadOnly Property [Default]() As MySettings
41+ Get
42+
43+#If _MyType = "WindowsForms" Then
44+ If Not addedHandler Then
45+ SyncLock addedHandlerLockObject
46+ If Not addedHandler Then
47+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48+ addedHandler = True
49+ End If
50+ End SyncLock
51+ End If
52+#End If
53+ Return defaultInstance
54+ End Get
55+ End Property
56+ End Class
57+End Namespace
58+
59+Namespace My
60+
61+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
62+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
63+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
64+ Friend Module MySettingsProperty
65+
66+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
67+ Friend ReadOnly Property Settings() As Global.protoMacro.My.MySettings
68+ Get
69+ Return Global.protoMacro.My.MySettings.Default
70+ End Get
71+ End Property
72+ End Module
73+End Namespace