안산드레아스

아래와 같이 한다.

1. 시작 검색창에 "전원" 검색 후 - 전원 관리 옵션 편

2. 시간 설정 (해당없음 하면 계속 켜짐)

끝...

VBscript에서 Dictionary를 만들고 사용하는 간단한 방법과 설명은 아래 링크를 참고.

https://ansan-survivor.tistory.com/1627

마치 파이썬으로 치면,

Key값이 a이고 Value가 List인 경우 (예를 들면 아래와 같은)

이러한 딕셔너리를 VBScript로 만들고 싶을 때 사용할 수 있는 샘플코드이다.

dictSample = {key: "a", Value: ["1-2", "2-3", "3-4"] }

아래 샘플은 key값이 a,b,c 이고, 그때 사용할 수 있는 List를 담는 예제이다.

간단하게 자주 사용할 수 있는, 응용할 수 있는 샘플 코드이다.

' Dictionary object 선언
Dim myDictionary
Set myDictionary = CreateObject("Scripting.Dictionary")

' key-value 등록법
myDictionary.Add "a", Array("1-2", "2-3", "3-4")
myDictionary.Add "b", Array("5-6", "6-7", "7-8")
myDictionary.Add "c", Array("9-10", "10-11", "11-12")

' value호출 방법
msgbox "Value associated with 'a':"
For Each item In myDictionary("a")
    msgbox item
Next

msgbox "Value associated with 'b':"
For Each item In myDictionary("b")
    msgbox item
Next

msgbox "Value associated with 'c':"
For Each item In myDictionary("c")
    msgbox item
Next

그림으로 그려보자면 아래와 같다.

결과 확인

아래와 같은 msgbox가 순서대로 출력된다.

즉 Key값 먼저 출력되고 그 뒤에 value값이 따라서 출력된다.

이를 통해 VBScript에서 어떻게 Dictionary를 쓰고 Key값 호출, Value값 호출을 하는지 보고 수정해서 쓰면된다.

위 예문에서는 For Each문을 통해 한꺼번에 모두다 출력하도록 했지만, 만약 List 내부의 특정 값에 접근하고 싶다면 아래와 같이 접근한다.

' Create a new Dictionary object
Dim myDictionary
Set myDictionary = CreateObject("Scripting.Dictionary")

' Add key-value pairs to the dictionary
myDictionary.Add "a", Array("1-2", "2-3", "3-4")

' Access the first item in the array associated with "a" key
Dim firstItem
firstItem = myDictionary("a")(0)

' Display the first item using MsgBox
MsgBox "First item associated with 'a' key: " & firstItem

(결과)

* 만약에 생성한 "a" Dictionary에 있는 Array에 추가로 값을 더 넣고 싶다면 아래 샘플 코드...

->

이 코드에서는 existingArray 변수에 "a" 키에 연결된 배열을 가져와서, 새로운 값을 추가하려는 newArray와 결합하여 combinedArray에 저장합니다.

그런 다음 "a" 키에 새로운 combinedArray를 할당합니다. 이렇게 하면 오류 없이 값을 추가할 수 있습니다.

' Create a new Dictionary object
Dim myDictionary
Set myDictionary = CreateObject("Scripting.Dictionary")

' Add key-value pairs to the dictionary
myDictionary.Add "a", Array("1-2", "2-3", "3-4")

' Access the first item in the array associated with "a" key
Dim firstItem
firstItem = myDictionary("a")(0)

' Get the existing array associated with "a" key
existingArray = myDictionary("a")

' Create a new array with additional values
Dim newArray
newArray = Array("apple", "banana", "orange")

' Combine the existing and new arrays
ReDim combinedArray(UBound(existingArray) + UBound(newArray) + 1)
Dim i

For i = 0 To UBound(existingArray)
    combinedArray(i) = existingArray(i)
Next

For i = UBound(existingArray) + 1 To UBound(existingArray) + UBound(newArray) + 1
    combinedArray(i) = newArray(i - UBound(existingArray) - 1)
Next

' Update the "a" key in the dictionary with the combined array
myDictionary("a") = combinedArray

' Output verification
MsgBox "Values associated with 'a':"
For Each item In myDictionary("a")
    MsgBox item
Next

파이썬은 List가 있어서 index를 쉽게 컨트롤할 수 있지만, VBScript에는 List가 없다.

VBScript는 "Array" 배열과, Collection이 있으며, Collection을 이용해 List처럼 사용할 수 있다.

1. 배열(Array):
   • 배열은 동일한 유형의 데이터 항목을 순차적으로 저장하는 데 사용됩니다.
   • 각 항목은 인덱스(index)로 식별됩니다. 인덱스는 0부터 시작하여 배열의 크기보다 하나 적은 값을 가집니다.
   • 예를 들어, Dim numbers(4)와 같이 선언하면 0부터 4까지 총 5개의 요소를 가진 배열이 생성됩니다.
   • 배열은 고정 크기를 가지며, 크기를 변경하려면 새로운 배열을 만들고 데이터를 복사해야 합니다.
2. 리스트(List):
   • VBScript에서 기본적으로 리스트 자료형은 제공되지 않습니다. 하지만 컬렉션(Collection)을 활용하여 리스트와 유사한 동작을 구현할 수 있습니다.
   • 컬렉션은 여러 항목을 저장하는 데 사용되며, 크기가 동적으로 조정될 수 있습니다.
   • Dictionary나 ArrayList 등의 컬렉션을 활용하여 리스트와 비슷한 기능을 구현할 수 있습니다.
   • 컬렉션은 인덱스뿐만 아니라 특정 항목의 이름(Key)을 사용하여 데이터에 접근할 수 있습니다.

배열 예제:

Dim numbers(4) 
numbers(0) = 10 
numbers(1) = 20 
numbers(2) = 30 
numbers(3) = 40 
numbers(4) = 50

컬렉션(리스트) 예제:

Set list = CreateObject("System.Collections.ArrayList") 
list.Add 10 
list.Add 20 
list.Add 30 
list.Add 40 
list.Add 50

Dim coordinates(4, 1) 
coordinates(0, 0) = 10 
coordinates(0, 1) = 20 
coordinates(1, 0) = 20 
coordinates(1, 1) = 30 
coordinates(2, 0) = 30 
coordinates(2, 1) = 40 
coordinates(3, 0) = 40 
coordinates(3, 1) = 50

하지만, 좀 더 간편하게 구조를 다루려면 VBScript에서는 컬렉션(Collection)을 사용하여 좀 더 유연한 데이터 구조를 구현할 수 있습니다. 아래는 컬렉션을 사용한 예제입니다.

컬렉션을 사용한 예제:

Set coordinatesList = CreateObject("System.Collections.ArrayList") 
coordinatesList.Add Array(10, 20)
coordinatesList.Add Array(20, 30) 
coordinatesList.Add Array(30, 40) 
coordinatesList.Add Array(40, 50)

Dim coordinates 
coordinates = Array(Array(10, 20), Array(20, 30), Array(30, 40), Array(40, 50))

==================================================

** Msgbox로 디버깅방법.

아래와 같이 각 Array의 좌표를 확인해볼 수 있다.

MsgBox "Added coordinates: (" & X & ", " & Y & ")"

오피스텔은 건축법상 주거용이 아니므로, "공시지가"를 쓸 수 없음.

따라서 순수 토지를 제외하고 건물에 대한 "시가표준액" 이라는 것을 만들어 "건축물 재산세"를 부과함. (7월과 9월에 납부)

또 별도로 토지가 구분되어있기에 "토지 재산세"를 부과 함.

시가표준액이란?  순수토지를 제외한 건축물에 대한 가격.

오피스텔 시가표준액 = 건축물시가표준액 + 토지공시가격.

이는 향후 공공분양의 청약에도 부동산 보유자산에도 영향을 미친다.

"신혼부부 특별공급 자산기준" 2023년 기준에는 아래와 같은 지원자격의 제한 사항이 있다.

 * 공공분양 = 부동산 2억 1550만원 이하, 자동차 가격 3천 5570만원 이하

 * 민간분양 = 부동산 3억 3100만원

여기서 만약 오피스텔을 소유하고 있다면, 해당 오피스텔의 분양가, 매입가가 아닌,

오피스텔의 건축물에 대한 표준가 + 토지가 이다.

오피스텔의 건축물에 대한 시가는 Wetax에서 구한다. (경기도 기준)

< 건축물에 대한 시가표준액 찾기 >

(위택스 : https://www.wetax.go.kr/main/ )

1. 지방세정보 - 시가표준액

2. 정보를 입력

 - 번지는 도로명이 없길래 옛날 번지로 넣음.

 - 예) 656-100   -> 본번지: 656  /  부번지 : 100

3. 하단에 결과가 나온다. 만약 결과가 나오지 않았다면 없거나, 잘못입력한 것.

    만약 재산세, 토지세를 한번도 부과하지 않았던 신축의 경우,우측의에 "신축건물"을 선택한다.

    직접 입력하고, 연면적을 입력한다.

< 토지에 대한  지가 찾기 >

(국토교통부 : http://www.molit.go.kr/portal.do )

1. 오피스텔의 경우는 "개별공시지가"를 선택해야 한다.

2. 경기도 선택 (경기도 기준)

3. 주소를 입력하고 열람

앞서 1차원 배열에 관해서는 아래를 참고.

https://ansan-survivor.tistory.com/1590

2차원 배열에 관한 설명.

샘플코드

' 3x4 크기의 2차원 배열 선언
Dim myArray(2, 3)  

' 배열에 값 할당
myArray(0, 0) = 1
myArray(0, 1) = 2
myArray(0, 2) = 3
myArray(0, 3) = 4

myArray(1, 0) = 5
myArray(1, 1) = 6
myArray(1, 2) = 7
myArray(1, 3) = 8

myArray(2, 0) = 9
myArray(2, 1) = 10
myArray(2, 2) = 11
myArray(2, 3) = 12

' 배열 요소에 접근하여 값 출력
For row = 0 To 2
    For col = 0 To 3
        Msgbox "myArray(" & row & ", " & col & ") = " & myArray(row, col)
    Next
Next

결과는  for문으로 내부 배열이 쭉 출력된다.

직관적으로 보면 아래와 같은 2차원 배열을 만들고 하나씩 출력한 것이다.

최근 2023년 개정된 법으로 외국계기업등에 근무하는 사람들은 해외 주식을 해외 증권사를 통해 매매를 하면 법에 위배된다.

매수는 회사와 연계된 해외증권사가 해도 보유 또는 매도는 반드시 국내 증권사를 통해야만 한다.

https://news.mt.co.kr/mtview.php?no=2023061908062942382 

요약.

주의사항.

위반금액 1만불 이하시 경고, 초과시 과태료.

매매 후 차익에 대한 위반액이 100만원 보다 적으면 "100만원"을 납부.

매매 후 차익에 대한 위반액이 100만원보다 크면, "위반금액 x 2%" 를 납부 (만약 자진신고시 50% 깎아줌)

해외 보유금 (주식 및 채권 등)의 평가금액이 5억원을 초과시, 국세청에 신고해야 함. (미 신고시, 미신고 금액에 대한 과태료 10%)

윈도우 OS에서 발생한 특정 에러를 디버깅할 때 실시간 이벤트를 체크하면 좋다.

MS에서 이를 위해 고급 도구를 지원한다.

아래 링크에서 설치할 수 있다.

https://learn.microsoft.com/ko-kr/sysinternals/downloads/procmon

아래를 클릭하여 다운로드.

다운받고 압축을 풀면 아래와 같이 나온다.

여기서 Procmon.exe 파일을 실행시킨다.

원하는 Process만 확인하고 싶은경우 Filter기능을 사용한다.

1. 먼저 기존의 항목들을 모두 드레그 선택후 Remove로 제거.

2. 원하는 프로세스의 이름을 찾고, Include하여 추가

3. Apply를 눌러 필터링한다.

그러면 Chorme.exe에 관한 항목만 필터링이 된다.

* 실시간 발생 이벤트를 바로 확인할 수 있다.

보기 지저분하면 Clear 버튼을 눌러 그 시간을 기점으로 다시 이벤트 기록이 뜨도록 할 수 있다.

Auto Scroll을 하면 최신발생기록을 보여주면서 스크롤 다운되며 계속 기록된다.

Capture를 On/Off 시킴에 따라 기록이 되고 멈추고가 가능하다.

제일 좋은방법은 

1. Filter로 원하는 .exe 프로세스만 보이도록 세팅.

2. Clear로 필요없는 기록을 모두 지우기

3. Capture를 On하여 오류가 발생하는 순간, 보고자 하는 이벤트를 기록하고 Off 시키기. (많은시 Auto Scroll켜기)

4. (필요시) 원하는 부분만 짜르기..

5. 저장하기 (필요시 여러 포맷으로 가능)

아래 링크로 다운로드 받으면 된다.

https://drive.google.com/file/d/1Ywbi6lksugmz9CN1ztDE84kAhGB7WR4I/view?usp=drive_web