본문 바로가기
반응형

DEV/VB

프로세스 관리 프로그램(프로세스 모니터, 자동 재시작) 2011. 7. 12. 계속해서 돌아가야 할 프로그램들이 종료되는 경우가 있다. 또는 시스템 재시작시 구동해야 될 목록을 관리해야 되는 경우 일일이 서버 관리자 또는 수동으로 목록 관리하여 메뉴얼 보면서 작업하는 것도 귀찮죠. 그래서 비베로 후다닥 만든 초기작... 업무상 필요해서 만든거지만, 어디에서 요청 온 것도 없고, 내가 필요해서 따로 만든거라 그냥 공개했습니다. (사무실에서 전기가 자주 떨어져 하드가 ....완성본이 없어져 버렸네 ㅠㅠ) 로그를 볼 수 있는 기능과 실행 시 인자 값을 넣어서 가능한 버전이 사라졌지만....-_-;;; 추후에 다시 구현 하기로 하고, 초기버전을 업로드합니다.. 실행화면 왠지 제목은 거창한데 프로그램은 너무 볼품이 없네요 ㅎㅎ 실행중인 프로세스에는 현재 구동된 프로세스 목록을 볼수 있으며(..
Visual Basic 현재 날짜 가져 오기 2010. 9. 15. 현재 날짜를 원하는 형식으로 가져 오는 법 Dim today As String today = Format(Now, "yyyyMMdd")
VisualBasic ODBC를 이용한 DB접속 2010. 4. 8. 기본적으로 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 ..
VisualBasic 파일 입출력 2010. 4. 8. ' 파일 입력 예제 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 Clo..
VisualBasic 폼의 투명도 설정하기 2010. 4. 8. ' 선언부 ' ### 투명화 관련 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 L..
VisualBasic 폼을 원으로 만들기 2010. 4. 8. ' 선언부 ' ### 폼 원형으로 설정 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 _ ) ..
윈도우 마우스 포인트 좌표 가져오기 2010. 4. 8. ' 선언부 ' ### 커서/아이콘 관련 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, _ By..
반응형

티스토리툴바