나만의 MESS UI 만들기 - VB.NET

기존에 있는 messui를 사용하면 디바이스 데이터베이스를 볼 수 있어서 매우 편하다. 게다가 윈도우 UI 로 롬파일 등을 mount/unmount 할 수 있는 점도 편한 점 중 하나이다. 하지만 화면 사이즈 조절 등 몇가지가 커맨드프롬프트에서 직접 다루는 것 만큼 자유롭지가 못한 점이 아쉽다. 이에 윈도우즈 상에서 VB.NET 으로 (현재 배우는 중) 나만의 UI를 만들어 보려 한다.

 

일단 몇몇 필요한 기능으로는 mess.exe 호출시 파라메터를 보내는 것과, 이 경우 shell 화면은 감추고 mess 실행 화면만 나타나게 하는 것 정도.

 

열심히 구글링하면서 코드들을 찾아 모아서 간단히 구현해 보았다. Button2의 경우는 shell 화면이 함께 떠서 실패한 버전의 연습 코드...

 

 

 

Imports System

Imports System.IO

 

Public Class Form1

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Directory.SetCurrentDirectory("D:\Z\R\mess0149")

 

        Dim p As New ProcessStartInfo

        p.FileName = "mess.exe"

        p.Arguments = "-noka -r 400x300 msx2"

        'p.WindowStyle = ProcessWindowStyle.Hidden

        p.WindowStyle = ProcessWindowStyle.Normal

        p.UseShellExecute = False

        p.CreateNoWindow = True

        Process.Start(p)

    End Sub

 

 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Directory.SetCurrentDirectory("D:\Z\R\mess0149")

        'Shell("notepad 1.txt", AppWinStyle.NormalFocus)

        'Shell("mess -noka", AppWinStyle.NormalFocus)

        'Shell("mess -noka -r 400x300 msx2", AppWinStyle.NormalFocus)

        'Shell("mess -noka -r 400x300 msx2", AppWinStyle.Hide)

        'Shell("mess -noka -r 400x300 msx2", AppWinStyle.NormalFocus)

 

        'System.Diagnostics.Process.Start("mess", "-r 400x300 msx2")

        Shell("mess")

    End Sub

 

End Class