::NPTEAM:: Network Programer Team

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics
 
Public Module SolutionExplorer
 
    Sub FindInSolution()
        Dim p = DTE.Properties("Environment", "ProjectsAndSolution").Item("TrackFileSelectionInExplorer")
        p.value = 1
        p.value = 0
    End Sub
 
    Sub CollapseNode(ByRef item As UIHierarchyItem)
 
        Dim subitem As UIHierarchyItem
        For Each subitem In item.UIHierarchyItems
            If (subitem.UIHierarchyItems.Expanded = True) Then
                CollapseNode(subitem)
                subitem.UIHierarchyItems.Expanded = False
            End If
        Next
 
    End Sub
 
    Sub CollapseAll()
 
        ' Get the the Solution Explorer tree
        Dim UIHSolutionExplorer As UIHierarchy
        UIHSolutionExplorer = DTE.Windows.Item(EnvDTE.Constants.vsext_wk_SProjectWindow).Object()
 
        ' Check if there is any open solution
        If (UIHSolutionExplorer.UIHierarchyItems.Count = 0) Then
            ' MsgBox("Nothing to collapse. You must have an open solution.")
            Return
        End If
 
        ' Get the top node (the name of the solution)
        Dim UIHSolutionRootNode As UIHierarchyItem
        UIHSolutionRootNode = UIHSolutionExplorer.UIHierarchyItems.Item(1)
 
        CollapseNode(UIHSolutionRootNode)
 
        ' Select the solution node, or else when you click on the solution window
        ' scrollbar, it will synchronize the open document with the tree and pop
        ' out the corresponding node which is probably not what you want.
        UIHSolutionRootNode.Select(vsUISelectionType.vsUISelectionTypeSelect)
 
    End Sub
End Module

net use  \\(윈도우 동기화 서버 IP) /USER:(아이디) 패스워드
net time \\(윈도우 동기화 서버 IP) /SET /Y
net use  \\(윈도우 동기화 서버 IP) /delete

tasklist /FI "PID eq 436"

for /f "tokens=5" %p in (' netstat -ano ^| find ":4899" ') do taskkill /F /PID %p

for /f "tokens=5" %p in (' netstat -ano ^| find ":4889" ') do tasklist /FI "PID eq %p"

netstat -ano > net.txt && notepad net.txt

for /f "tokens=*" %p in ('pslist -s 1 -m ^| find "explorer"') do @echo %date%%time% %p >> explorer.txt

7z  a -r -tzip test.zip *.txt *.diz *.chm
7zG a -r -tzip test.zip *.txt *.diz *.chm

7z  a -r -tzip test.zip -x!*.txt -x!*.diz -x!*.chm
7zG a -r -tzip test.zip -x!*.txt -x!*.diz -x!*.chm

Windows Registry Editor Version 5.00
 
; author  :leejisung.com
; homepage  :이지성닷컴 http://www.leejisung.com
;
; ※ 윈도우즈 XP에서 추출한 즐겨찾기의 경로설정 부분을 보다 빠르게 수동으로 변경하기 위한
;    레지스터리 파일입니다. 아래 경로 부분을 수정하신 후 더블클릭합니다.
;    재부팅을 하시거나 모든 창을 닫으셨다가 실행하시면 사용하실 수 있습니다.
;    경로 수정을 하실 때 \ 부분을 두번 입력하셔야 합니다.
;    ex) D:\\backup\\Favorites  (D드라이브의 backup폴더안에 즐겨찾기 폴더명을 지정
;    아래와 같이 즐겨찾기 폴더명을 "My Favorites"라고 해도 실제는 "즐겨찾기"로 나타남
 
 
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
"Favorites"="D:\\My Documents\\My Favorites"
 
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
"Favorites"="D:\\My Documents\\My Favorites"
 
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"FavoritesImportFolder"="D:\\My Documents\\My Favorites"

@echo off
comp "%1" "%2" < n.txt
 
IF "%ERRORLEVEL%" == "0" GOTO END
ECHO
ECHO ========================================
ECHO %1 원본 파일과
ECHO ----------------------------------------
ECHO %2 대상 파일이 일치하지 않습니다!
ECHO ========================================
pause
 
:END

@echo off
echo N | comp "%1" "%2"
 
IF "%ERRORLEVEL%" == "0" GOTO END
ECHO
ECHO ========================================
ECHO %1 원본 파일과
ECHO ----------------------------------------
ECHO %2 대상 파일이 일치하지 않습니다!
ECHO ========================================
pause
 
:END