DouKaku?

strScriptName = "d:\rebirth"

' アプリを実行する
strAppname = "calc.exe"
WScript.CreateObject("WScript.Shell").Run strAppname, 1, true

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//"+strComputer+"/root/cimv2")

Set args = WScript.Arguments
If args.length = 0 Then
  ' 引数なしならタスク登録
  Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
  commandline = "wscript.exe " & strScriptName & "2.js"
  dt = DateAdd( "n", 1, Now )
  oneMinuteLater = Right( 1000000 + Hour(dt)*10000 + Minute(dt)*100 + Second(dt), 6 )
  starttime = "********" & oneMinuteLater & ".000000+540"
  errJobCreated = objNewJob.Create( commandline, starttime, False, 127, "", True, JobID )
  WScript.Echo("タスクを登録しました。" & starttime & "  " & errJobCreated)

  ' サブスクリプト生成
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set tfs = fso.CreateTextFile(strScriptName+"2.js")
  tfs.WriteLine("WScript.CreateObject('WScript.Shell').Run('wscript.exe " & Replace(strScriptName, "\", "\\") & ".vbs " & JobID & "');")
  tfs.Close()
  WScript.Echo("サブスクリプトを生成しました。")

Else
  ' 引数（＝ジョブID）があればタスク削除
  JobID = args.Item(0)
  Set objTask = objWMIService.Get("Win32_ScheduledJob.JobID=" & JobID)
  If Err.Number = 0 Then
    objTask.Delete
    WScript.Echo("タスクを削除しました。")
  Else
    WScript.Echo("タスク削除に失敗しました。")
  End If

End If

Imports System
Imports System.Runtime.Remoting.Proxies
Imports System.Runtime.Remoting.Messaging

Interface IHoge
    Sub Piyo()
End Interface

Class BeforeAfterProxy(Of T)
    Inherits RealProxy

    Public Sub New(obj As T, before As Action, after As Action)
        MyBase.New(GetType(T))
        Me.obj = obj
        Me.before = before
        Me.after = after
    End Sub

    Public Overrides Function Invoke(msg As IMessage) As IMessage
        Dim mm = DirectCast(msg, IMethodMessage)
        before()
        mm.MethodBase.Invoke(obj, mm.Args)
        after()
        Invoke = New ReturnMessage( _
            Nothing, Nothing, 0, mm.LogicalCallContext, DirectCast(msg, IMethodCallMessage))
    End Function

    private obj As T
    private before As Action
    private after As Action
End Class

Class HogeImpl
    Implements IHoge

    Sub Piyo() Implements IHoge.Piyo
        Console.WriteLine("piyo")
    End Sub

    Shared Sub Before()
        Console.WriteLine("Before")
    End Sub

    Shared Sub After()
        Console.WriteLine("After")
    End Sub

    Shared Sub Main()
        Dim hoge = New HogeImpl()
        Dim xHoge = New BeforeAfterProxy(Of IHoge)(hoge, AddressOf Before, AddressOf After)
        Dim tHoge = DirectCast(xHoge.GetTransparentProxy(), IHoge)
        tHoge.Piyo()
    End Sub
End Class

Imports Microsoft.VisualBasic.FileIO
Module CSVParser
    Sub Main()
        Dim p As New TextFieldParser(Console.OpenStandardInput())
        p.SetDelimiters(",")
        p.HasFieldsEnclosedInQuotes = True
        While Not p.EndOfData
            Dim i As Integer = 0
            For Each col As String In p.ReadFields()
                i = i + 1
                Console.WriteLine("{0} => {1}", i, col)
            Next col
        End While
    End Sub
End Module

Imports System.Linq
Imports System.IO
Imports System.Text

Module Freq
    Function GetC(c As Char) As String
        Select Case c
            Case " "
                GetC = "[SP]"
            Case vbCr
                GetC = "[CR]"
            Case vbLf
                GetC = "[LF]"
            Case vbTab
                GetC = "[Tab]"
            Case Else
                GetC = c
        End Select
    End Function

    Function Main(args As String()) As Integer
        If args.Length < 1 Then
            Main = 1
        Else
            Dim en = From u In File.ReadAllText(args(0)) _
                     Select c = Char.ToUpperInvariant(u) _
                     Group By Character = c _
                     Into Characters = Group, Count() _
                     Select Character = Characters(0), Characters.Count _
                     Order By Count Descending
            For Each e In en
                Console.WriteLine("{0,-6}: {1}", GetC(e.Character), e.Count)
            Next
            Main = 0
        End If
    End Function
End Module

Module Env
    Sub Main()
        Console.WriteLine("キーを入力してください。")
        Dim key = Console.ReadLine()
        Try
            Console.WriteLine("%" & key & "% == " _
                & My.Application.GetEnvironmentVariable(key))
        Catch e As Exception
            Console.Error.WriteLine("キーの取得に失敗しました")
        End Try
    End Sub
End Module

Public Class Form1
    Private Sub Form1_MouseDoubleClick(ByVal sender As Object, _
            ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
        MessageBox.Show("X座標 : " & e.X & vbCrLf & "Y座標 : " & e.Y)
    End Sub
End Class

Class StringException
    Inherits Exception
    Public Msg As String
    Public Overrides Function ToString As String
        Return Msg
    End Function
End Class

Module Vb
    Sub Main
        CheckParen.Testee = Console.ReadLine
        For Each s In CheckParen.Result
            If s <> "" Then
                Dim ex = New StringException
                ex.Msg = s
                Throw ex
            End If
        Next s
    End Sub
End Module

==== VB.vb ====
Imports CSharp
Class ResultTrue
    Inherits Exception
End Class

Class ResultFalse
    Inherits Exception
End Class

Module Vb
    Sub MaIn
        Dim s = Console.ReadLIne
        Dim n = 0

        For Each c In s
            If c = Paren.Open Then
                n = n + 1
            Else If c = Paren.Close Then
                n = n - 1
            End If

            If n < 0 Then
                Throw New ResultFalse
            End If
        Next c

        If n <> 0 Then
            Throw New ResultFalse
        Else
            Throw New ResultTrue
        End If
    End Sub
End Module

==== CSharp.cs ====
namespace CSharp {
    public class Paren {
        public static char Open = '\x28';
        public static char Close = '\x29';
    }
}

==== コンパイル手順 ====
csc /target:library CSharp.cs
vbc /r:CSharp.dll VB.vb

Module Doukaku
    Enum Roman As Integer
        NONE
        I
        II
        III
        IV
        V
        VI
        VII
        VIII
        IX
        X
    End Enum
    Dim Japanize As String() = {"〇", "一", "二", "三", "四", "五", "六", "七", "八", "九", "十"}
    Sub Main()
        For row As Roman = Roman.I To Roman.IX
            For col As Roman = Roman.I To Roman.IX
                Dim ans As Integer = row * col

                If ans < Roman.X Then
                    Console.Write("  ")
                    Console.Write(Japanize(ans))
                Else
                    Console.Write(Japanize(ans / Roman.X))
                    Console.Write(Japanize(ans Mod Roman.X))
                End If
                Console.Write(" ")
            Next
            Console.WriteLine("")
        Next
        Console.ReadLine()
    End Sub
End Module

Dim WSH, ExecObj
Set WSH = CreateObject("WScript.Shell")
Set ExecObj = WSH.Exec("hostname")
WScript.Echo "pid:" & ExecObj.processID
WScript.Echo "stdout: " & ExecObj.StdOut.ReadAll
WScript.Echo "exit: " & ExecObj.exitCode
WScript.Quit(ExecObj.exitCode)
Set ExecObj = Nothing
Set WSH = Nothing

Module Module1
    Sub Main( )
        For Each cmd As String In My.Application.CommandLineArgs
            Console.WriteLine(cmd)
        Next
        Console.ReadLine()
    End Sub
End Module

Module Module1

    Sub Main()
        Dim input As String = _
            "A B C D E" & ControlChars.CrLf & _
            "| | |-| |" & ControlChars.CrLf & _
            "|-| | |-|" & ControlChars.CrLf & _
            "| |-| |-|" & ControlChars.CrLf & _
            "|-| |-| |" & ControlChars.CrLf & _
            "|-| | | |"

        Console.WriteLine(input)
        Console.WriteLine(GhostLeg(input))
        Console.ReadKey()
    End Sub

    Public Function GhostLeg(ByVal input As String) As String
        Dim inputlines As String() = input.Split(New String() {ControlChars.CrLf}, StringSplitOptions.RemoveEmptyEntries)
        Dim lines As String() = inputlines(0).Split(Nothing)
        For i As Integer = 1 To inputlines.Length - 1
            Dim bars As String() = inputlines(i).Split(New Char() {"|"c})
            For j As Integer = 1 To bars.Length - 2
                If bars(j) <> " " Then Dim s As String = lines(j) : lines(j) = lines(j - 1) : lines(j - 1) = s
            Next
        Next
        Return String.Join(" "c, lines)
    End Function


End Module

Module Module1

    Sub Main()
        Dim e As IEnumerator(Of LatticePoint) = New LatticePointEnumerator()
        Dim i As Integer
        For i = 1 To 999
            e.MoveNext()
        Next
        e.MoveNext()
        Console.WriteLine(i.ToString() & ":" & e.Current.ToString())

        For i = 1001 To 999999
            e.MoveNext()
        Next
        e.MoveNext()
        Console.WriteLine(i.ToString() & ":" & e.Current.ToString())

        For i = 1000001 To 99999999
            e.MoveNext()
        Next
        e.MoveNext()
        Console.WriteLine(i.ToString() & ":" & e.Current.ToString())

        Console.ReadKey()
    End Sub

End Module

Public Class LatticePointEnumerator
    Implements IEnumerator(Of LatticePoint)

    Private _list As LinkedList(Of LatticePoint)
    Private _r As Integer
    Private _pointlist As List(Of LatticePoint)
    Private _enumerator As IEnumerator(Of LatticePoint)

    Public Sub New()
        _list = New LinkedList(Of LatticePoint)
        _pointlist = New List(Of LatticePoint)
        Reset()
    End Sub

    Public Sub Reset() Implements System.Collections.IEnumerator.Reset
        _list.Clear()
        _list.AddLast(New LatticePoint(0, 0))
        _list.AddLast(New LatticePoint(1, 0))
        _list.AddLast(New LatticePoint(1, 1))
        _list.AddLast(New LatticePoint(2, 0))
        _list.AddLast(New LatticePoint(2, 1))
        _list.AddLast(New LatticePoint(2, 2))
        _list.AddLast(New LatticePoint(3, 0))
        _list.AddLast(New LatticePoint(3, 1))
        _list.AddLast(New LatticePoint(3, 2))
        _list.AddLast(New LatticePoint(3, 3))
        _r = 4
        _pointlist.Clear()
        _enumerator = _pointlist.GetEnumerator()
    End Sub

    Public ReadOnly Property Current() As LatticePoint Implements System.Collections.Generic.IEnumerator(Of LatticePoint).Current
        Get
            Return _enumerator.Current
        End Get
    End Property

    Public ReadOnly Property Current1() As Object Implements System.Collections.IEnumerator.Current
        Get
            Return DirectCast(_enumerator, IEnumerator).Current
        End Get
    End Property

    Public Function MoveNext() As Boolean Implements System.Collections.IEnumerator.MoveNext
        If _enumerator.MoveNext() Then Return True

        If _list.First.Value._r2 >= _r * _r Then
            Dim node As LinkedListNode(Of LatticePoint)
            Dim p As LatticePoint
            node = _list.First
            For y As Integer = 0 To _r
                p = New LatticePoint(_r, y)
                While node IsNot Nothing AndAlso p._r2 > node.Value._r2
                    node = node.Next
                End While
                If node Is Nothing Then _list.AddLast(p) Else _list.AddBefore(node, p)
            Next
            _r += 1
        End If

        _pointlist.Clear()
        _pointlist.Add(_list.First.Value)
        _list.RemoveFirst()
        While _list.First.Value._r2 = _pointlist(0)._r2
            _pointlist.Add(_list.First.Value)
            _list.RemoveFirst()
        End While

        Dim j As Integer
        j = _pointlist.Count - 1
        If _pointlist(j).X = _pointlist(j).Y Then j -= 1
        For i As Integer = j To 0 Step -1
            _pointlist.Add(New LatticePoint(_pointlist(i).Y, _pointlist(i).X))
        Next
        j = _pointlist.Count - 1
        If _pointlist(j).X = 0 Then j -= 1
        For i As Integer = j To 0 Step -1
            _pointlist.Add(New LatticePoint(-_pointlist(i).X, _pointlist(i).Y))
        Next
        j = _pointlist.Count - 1
        If _pointlist(j).Y = 0 Then j -= 1
        For i As Integer = j To 1 Step -1
            _pointlist.Add(New LatticePoint(_pointlist(i).X, -_pointlist(i).Y))
        Next
        If _pointlist(0).Y <> 0 Then _pointlist.Add(New LatticePoint(_pointlist(0).X, -_pointlist(0).Y))

        _enumerator = _pointlist.GetEnumerator()
        _enumerator.MoveNext()

        Return True
    End Function

    Public Sub Dispose() Implements IDisposable.Dispose
    End Sub

End Class

Public Class LatticePoint
    Friend _x As Integer
    Friend _y As Integer
    Friend _r2 As Long

    Friend Sub New(ByVal x As Integer, ByVal y As Integer)
        _x = x
        _y = y
        _r2 = x * x + y * y
    End Sub

    Public ReadOnly Property X() As Integer
        Get
            Return _x
        End Get
    End Property

    Public ReadOnly Property Y() As Integer
        Get
            Return _y
        End Get
    End Property

    Public ReadOnly Property SquaredRadius() As Long
        Get
            Return _r2
        End Get
    End Property

    Public Overrides Function ToString() As String
        Return String.Format("({0}, {1}) [{2}]", _x.ToString(), _y.ToString(), _r2.ToString())
    End Function

End Class

Module Module1

    Sub Main()
        Dim li As Integer() = New Integer() {1, 2, 3, 4, 5}
        Dim ls As Char() = New Char() {"a"c, "b"c, "c"c}

        Dim cpg As New CrossProductGenerator(li, ls)
        Dim e As IEnumerator(Of Object()) = cpg.GetEnumerator

        While e.MoveNext
            For i As Integer = 0 To e.Current.Length - 1
                Console.Write(e.Current(i))
            Next
            Console.WriteLine()
        End While

    End Sub

End Module

Public Class CrossProductGenerator
    Implements IEnumerable(Of Object())
    Private _list As IEnumerable()

    Public Sub New(ByVal ParamArray list() As IEnumerable)
        _list = list
    End Sub

    Public Function GetEnumerator() As System.Collections.Generic.IEnumerator(Of Object()) Implements IEnumerable(Of Object()).GetEnumerator
        Return New Enumerator(_list)
    End Function

    Private Function GetEnumerator1() As IEnumerator Implements IEnumerable.GetEnumerator
        Return New Enumerator(_list)
    End Function

    Private Class Enumerator
        Implements IEnumerator(Of Object())

        Private _enumerators As IEnumerator()
        Private _current As Object()
        Private _state As Integer

        Public Sub New(ByVal list As IEnumerable())
            _enumerators = New IEnumerator(list.Length - 1) {}
            For i As Integer = 0 To _enumerators.Length - 1
                _enumerators(i) = list(i).GetEnumerator()
            Next
            _state = -1
            _current = Nothing
        End Sub

        Public Sub Reset() Implements System.Collections.IEnumerator.Reset
            For i As Integer = 0 To _enumerators.Length - 1
                _enumerators(i).Reset()
            Next
            _state = -1
            _current = Nothing
        End Sub

        Public ReadOnly Property Current() As Object() Implements System.Collections.Generic.IEnumerator(Of Object()).Current
            Get
                Return _current
            End Get
        End Property

        Private ReadOnly Property Current1() As Object Implements System.Collections.IEnumerator.Current
            Get
                If _state <> 0 Then Throw New InvalidOperationException()
                Return _current
            End Get
        End Property

        Public Function MoveNext() As Boolean Implements System.Collections.IEnumerator.MoveNext
            If _state > 0 Then Return False

            If _state < 0 Then
                For i As Integer = 0 To _enumerators.Length - 1
                    If Not _enumerators(i).MoveNext() Then
                        _state = 1
                        _current = Nothing
                        Return False
                    End If
                Next
                _state = 0
            Else
                Dim i As Integer = 0
                While i < _enumerators.Length
                    If _enumerators(i).MoveNext Then Exit While
                    _enumerators(i).Reset()
                    _enumerators(i).MoveNext()
                    i += 1
                End While
                If i >= _enumerators.Length Then
                    _state = 1
                    _current = Nothing
                    Return False
                End If
            End If

            _current = New Object(_enumerators.Length - 1) {}
            For i As Integer = 0 To _enumerators.Length - 1
                _current(i) = _enumerators(i).Current
            Next

            Return True
        End Function

        Public Sub Dispose() Implements IDisposable.Dispose
        End Sub

    End Class

End Class

Module Module1

    Sub Main()
        Console.WriteLine(Goedel(9))
        Console.WriteLine(Goedel(81))
        Console.WriteLine(Goedel(230))
    End Sub

    Public Function Goedel(ByVal n As Integer) As Double
        If n < 0 Then Throw New ArgumentOutOfRangeException()
        Dim digits As New List(Of Integer)
        Dim primes As Integer()
        Dim r As Double

        While (n > 0)
            digits.Add(n Mod 10)
            n = n \ 10
        End While

        primes = GetPrimes(digits.Count)

        r = 1
        For i As Integer = 0 To digits.Count - 1
            r *= primes(i) ^ digits(digits.Count - i - 1)
        Next

        Return r
    End Function

    Public Function GetPrimes(ByVal count As Integer) As Integer()
        If count > 10 Then Throw New ArgumentOutOfRangeException()
        Dim r(count - 1) As Integer
        Array.Copy(PrimeSeeds, 0, r, 0, count)
        Return r
    End Function

    Private PrimeSeeds As Integer() = New Integer() {2, 3, 5, 7, 11, 13, 17, 19, 23, 29}

End Module

'http://ja.doukaku.org/
'http://ja.doukaku.org/102/投稿用
Imports System
Imports System.Windows.Forms

NameSpace どう書く_orgフォルダパス一覧のツリー構造への変換
    Class Program
        <STAThread> _
        Shared Sub Main(byval args() As String)
            Application.Run(new Form1())
        End Sub
    End Class

    class Form1:Inherits Form
        'treeView1
        Dim treeView1 As TreeView = New TreeView()

        '起動時引数でパス一覧のファイルを指定
        Dim pathListFilePath As String = System.Environment.GetCommandLineArgs()(1)

        Public Sub New()
            'treeView1
            treeView1.Parent = Me
            treeView1.Dock = DockStyle.Fill
        End Sub

        Private Sub Form1_Load(byval sender As object, byval e As EventArgs)handles Me.Load
            'ROOTNode
            Dim rootNode As TreeNode = New TreeNode("ROOT")
            treeView1.Nodes.Add(rootNode)

            For Each fullPath As String In System.IO.File.ReadAllLines(pathListFilePath)
                Dim addNode As TreeNode = rootNode
                For Each path As String In fullPath.Split(New char(){"\"c})
                    Dim flag As Boolean = True
                    For Each node As TreeNode in addNode.Nodes
                        If node.Text = path Then
                            addNode = node
                            flag = False
                        End If
                    Next
                    if flag Then
                        Dim newnode As TreeNode = New TreeNode(path)
                        addNode.Nodes.Add(newnode)
                        addNode = newnode
                    End If
                Next
            Next
            rootNode.ExpandAll()
        End Sub
    End Class
End NameSpace

Module Module1
    Sub Main(ByVal args() As String)
        For i As Integer = Integer.Parse(args(0)) To Integer.Parse(args(1))
            Dim Line As String = ""
            For j As Integer = 1 To args(1).Length - i.ToString.Length
                Line &= " "
            Next
            Line &= i.ToString & ":"
            Dim IsHoge As Boolean = True
            For j As Integer = 2 To args.Length - 2 Step 2
                If i Mod Integer.Parse(args(j)) = 0 Then
                    Line &= args(j + 1)
                    IsHoge = False
                End If
            Next
            If IsHoge Then
                Line &= "hoge"
            End If
            Console.WriteLine(Line)
        Next
    End Sub
End Module

Module Module1

    Sub Main()
        For i As Integer = 1 To 20
            If i <= 9 Then
                Console.Write(" ")
            End If
            Console.Write(i & ":")
            If i Mod 3 = 0 Then
                Console.Write("Fizz")
            End If
            If i Mod 5 = 0 Then
                Console.Write("Buzz")
            End If
            If i Mod 3 <> 0 AndAlso i Mod 5 <> 0 Then
                Console.Write("hoge")
            End If
            Console.Write(vbCrLf)
        Next
    End Sub

End Module

    Private Function mamakodate(ByVal n As Integer, ByVal k As Integer, ByVal m As Integer) As Integer
        'カードを並べる
        Dim List As New List(Of Integer)
        For i As Integer = 0 To n - 1
            List.Add(i + 1)
        Next

        Dim index As Integer = m - 1
        While List.Count <> 1
            List.RemoveAt(index)

            index += k - 1
            While index > List.Count - 1
                index -= List.Count
            End While
        End While
        Return List(0)
    End Function