달력

9

« 2019/9 »

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  •  
  •  
  •  
  •  
  •  

계속해서 돌아가야 할 프로그램들이 종료되는 경우가 있다.
또는 시스템 재시작시 구동해야 될 목록을 관리해야 되는 경우
일일이 서버 관리자 또는 수동으로 목록 관리하여 메뉴얼 보면서 작업하는 것도 귀찮죠.

그래서 비베로 후다닥 만든 초기작...
업무상 필요해서 만든거지만, 어디에서 요청 온 것도 없고,
내가 필요해서 따로 만든거라 그냥 공개했습니다.
(사무실에서 전기가 자주 떨어져 하드가 ....완성본이 없어져 버렸네 ㅠㅠ)

로그를 볼 수 있는 기능과 실행 시 인자 값을 넣어서 가능한 버전이 사라졌지만....-_-;;;
추후에 다시 구현 하기로 하고, 초기버전을 업로드합니다..




실행화면



왠지 제목은 거창한데 프로그램은 너무 볼품이 없네요 ㅎㅎ
실행중인 프로세스에는 현재 구동된 프로세스 목록을 볼수 있으며(10초인가 30초마다 갱신),
감시 중인 프로세스에는 추가를 통해 프로그램을 등록 할수 있습니다.
등록된 프로그램은 프로세스명으로 검색하여, 해당 프로세스가 프로세스 목록에 있는지 검색하여, 없을 경우 프로그램을 재시작합니다..

시작프로그램 등록은 레지스터리에 processMonitor.exe를 등록하여,
윈도우 시작 시, processMonitor.exe를 자동으로 실행하게 됩니다.
즉, 감시중인 프로세스에 등록되어 있다면, 시스템이 리붓이 되더라도 구동이 되겠죠 ^^

아 참 실행파일이 있는 폴더에 Log폴더가 있을껍니다. 거기에 재시작시 로그 간단히 남기게 되어 있어요.

......아흑 소스 복구 언제 하나 ㅠㅠ
Posted by 현자

댓글을 달아 주세요

  1. 감사합니다. 2016.08.10 11:45  댓글주소  수정/삭제  댓글쓰기

    서버관리자로 이런프로그램 찾고 있었는데
    정말 감사드립니다.

  2. ㅇㅇ 2016.12.08 18:23  댓글주소  수정/삭제  댓글쓰기

    찾고있던거네요 감사합니다

2010.09.15 17:48

Visual Basic 현재 날짜 가져 오기 Language/VB2010.09.15 17:48

현재 날짜를 원하는 형식으로 가져 오는 법

Dim today As String

today = Format(Now, "yyyyMMdd")


Posted by 현자

댓글을 달아 주세요

  1. hagnod 2014.07.30 16:19 신고  댓글주소  수정/삭제  댓글쓰기

    시간이 아니고 날짜네요..

2010.04.08 14:34

VisualBasic ODBC를 이용한 DB접속 Language/VB2010.04.08 14:34

기본적으로 project-references-MicroSoft ActiveX Data Objects 2.8 Library가 체크인
되어 있어야한다.

- MsSql 접속


  '선언부

  Dim RS_MS As ADODB.Recordset
  Dim ado_MS As ADODB.Connection

  '사용시
  Dim strconn As String

  strconn = "Provider=MSDASQL;dsn=dsnname;Database=databasename;UID=username;PWD=password;"

  Set ado_MS = New ADODB.Connection
  ado_MS.CursorLocation = adUseClient
  ado_MS.Open strconn


- Oracle 접속

  '선언부
  Dim ado_Ora As ADODB.Connection
  Dim RS_Ora As ADODB.Recordset

  '사용시
  Dim strconn As String

  strconn = "Provider=MSDAORA.1;Persist Security Info=False;User ID=userid;Password=password;Data Source=datasourcename"

  Set ado_Ora = New ADODB.Connection
  ado_Ora.CursorLocation = adUseClient
  ado_Ora.Open strconn


- MySql 접속

  '선언부

  Dim RS_MS As ADODB.Recordset
  Dim ado_MS As ADODB.Connection

  '사용시
  Dim strconn As String

  strconn = "DRIVER={MySQL ODBC 3.51 Driver};server=servername;uid=userid;pwd=password;database=dbname;option=3;port=3306;STMT=SET NAMES EUCKR"

  Set ado_MS = New ADODB.Connection
  ado_MS.CursorLocation = adUseClient
  ado_MS.Open strconn
Posted by 현자

댓글을 달아 주세요

2010.04.08 14:01

VisualBasic 파일 입출력 Language/VB2010.04.08 14:01

' 파일 입력 예제   
    Dim f As Integer
    Dim str As String
       
    f = FreeFile()
   
    Open App.Path & "\config.ini" For Input As #f
        Line Input #f, server
        Line Input #f, ID
        Line Input #f, pw
        Line Input #f, str
        cycleTime = str
       
    Close #f


' 파일 출력 예제
    Dim f As Integer
       
    f = FreeFile()
    Open App.Path & "\Log\" & Replace(Date, "-", "") & "_Log_Err.txt" For Append As #f
        Print #f, Date & " " & Format(Time, "hh:mm:ss") & "   " & str
    Close #f
Posted by 현자

댓글을 달아 주세요

2010.04.08 13:20

VisualBasic 폼의 투명도 설정하기 Language/VB2010.04.08 13:20

' 선언부
' ### 투명화 관련
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

' 사용시
MakeLayeredWnd Me.hWnd
SetLayeredWindowAttributes Me.hWnd, 0, 255 * (투명도), LWA_ALPHA
Posted by 현자

댓글을 달아 주세요

2010.04.08 12:42

VisualBasic 폼을 원으로 만들기 Language/VB2010.04.08 12:42

' 선언부

' ### 폼 원형으로 설정
Private Declare Function CreateEllipticRgn Lib "gdi32.dll" ( _
    ByVal X1 As Long, _
    ByVal Y1 As Long, _
    ByVal X2 As Long, _
    ByVal Y2 As Long _
) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal hRgn As Long, _
    ByVal bRedraw As Boolean _
) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" ( _
    ByVal hObject As Long _
) As Long

' 사용시

' ### 폼을 둥글게 설정한다.
Dim hRgn As Long
hRgn = CreateEllipticRgn(0, 0, ScaleX(Me.Width, vbTwips, vbPixels), ScaleY(Me.Height, vbTwips, vbPixels))
SetWindowRgn hWnd, hRgn, False
DeleteObject hRgn
Posted by 현자

댓글을 달아 주세요

' 선언부

' ### 커서/아이콘 관련
Private Declare Function GetIconInfo Lib "user32.dll" (ByVal hIcon As Long, ByRef piconinfo As ICONINFO) As Long
Private Declare Function GetCursorInfo Lib "user32.dll" (ByRef pci As CURSORINFO) As Long
Private Declare Function DrawIconEx Lib "user32.dll" ( _
    ByVal hdc As Long, _
    ByVal xLeft As Long, _
    ByVal yTop As Long, _
    ByVal hIcon As Long, _
    ByVal cxWidth As Long, _
    ByVal cyWidth As Long, _
    ByVal istepIfAniCur As Long, _
    ByVal hbrFlickerFreeDraw As Long, _
    ByVal diFlags As Long _
) As Long

'사용 시

Dim ci As CURSORINFO, ii As ICONINFO, pt As POINTAPI, rc As RECT, rcForm As RECT, rcIntersect As RECT, cx As Long, cy As Long

ci.cbSize = Len(ci)
GetCursorInfo ci ' ### 마우스 커서 정보를 얻는다.
GetIconInfo ci.hCursor, ii ' ### 마우스 커서의 아이콘 정보를 얻는다.
pt = ci.ptScreenPos
Posted by 현자

댓글을 달아 주세요