Youtube 구간 설정 공유 테스트

개발과 트러블슈팅 2017. 3. 29. 17:41 Posted by 양고

유튜브 영상에서 원하는 구간을 설정하고 공유하는 방법이다.

원래 공유주소에 ?start=몇초&end=몇초 부분을 추가해주면 된다.

<iframe width="560" height="315" src="https://www.youtube.com/embed/QO9A9u4GyGc?start=111&end=148" frameborder="0" allowfullscreen></iframe>

이 '몇초' 부분은 '초'로 환산해서 넣어줘야 한다. 즉 1:51였다면 111초로 입력한다.



1:51~2:28 구간만 재생되는 것을 알 수 있다.

사용자가 재생바를 이용해 다른 지점으로 이동하면 설정구간은 사라진다.

저작자표시 비영리 변경금지

잡 보안프로그램 지우기

개발과 트러블슈팅 2017. 3. 28. 14:53 Posted by 양고


NetClient, Genian, NHCAAgent(농협? Net Helper), 안랩 policy agent 등등 한번 깔리면 절대 지워지지 않는 악성코드보안프로그램들을 지우기 위해 만든 batch file이다.

개인적 용도로 만든 것이고 컴퓨터마다 상황이 다를 수 있으니 쓰실 분들은 알아서 고쳐서 쓰시길...


call :KILLSVC "N5Client Agent"

call :KILLSVC "GnAgent"

call :KILLSVC "GnStart"

call :KILLSVC "NHCAAgent"

call :KILLSVC "paSvc"

call :KILLSVC "v3Svc"

call :KILLSVC "APCSheild"

call :KILLSVC "ShieldStart"


taskkill /F /im n5uinfo.exe

taskkill /F /im n5client.exe

taskkill /F /im GnAgent.exe

taskkill /F /im GnGUI.exe

taskkill /F /im GnPlugin.exe

taskkill /F /im NHCAAgent.exe

taskkill /F /im NHCASysMon.exe

taskkill /F /im NHCACPUID.exe

taskkill /F /im pasvc.exe

taskkill /F /im patray.exe

taskkill /F /im V3UI.exe


del c:\temp\n5client_1.exe /Q

rmdir c:\progra~2\netclient5 /S /Q

rmdir c:\progra~3\netclient5 /S /Q

rmdir c:\progra~3\hauri\vms\agent\package /S /Q

rmdir C:\Progra~2\Geni /S /Q

rmdir C:\Progra~2\Izex /S /Q

rmdir c:\progra~1\ahnlab /S /Q

rmdir c:\progra~2\ahnlab /S /Q

rmdir c:\progra~1\common~1\ahnlab /S /Q


goto :EOF


:KILLSVC

sc stop %1

sc config %1 start=disabled

sc delete %1


저작자표시 비영리 변경금지

[EXCEL] 시트마다 다른 인쇄영역을 불러와서 다른 파일에 적용하기

개발과 트러블슈팅 2016. 12. 15. 03:19 Posted by 양고

0. 예전에 인쇄영역을 설정해놓은 엑셀파일을 읽어와서 새 엑셀파일에 적용하기 위한 매크로이다. 같은 이름의 시트에 인쇄영역이 복사된다.

1. 새롭게 인쇄영역을 설정하고자 하는 파일을 연다.

2. 매크로를 사용하기 위해 '개발도구'를 리본메뉴에 추가해야 한다.

엑셀 -> 파일 -> 옵션 -> 리본 사용자 지정에서 개발도구에 체크한다.


3. 메뉴에 추가된 개발도구로 이동하여 '매크로'를 클릭한다.
매크로 이름에 test라고 입력하고 만들기를 클릭한다.
매크로 편집창에 자동으로 두어줄 입력되는건 지워버리고, 아래와 같이 입력한다.
개발도구 -> 매크로 -> "인쇄영역불러오기" 매크로를 실행한다.
매크로를 실행하면 파일 열기 창이 뜨는데, 인쇄영역을 불러올 기존 파일을 선택해주면 된다.


Function SheetExists(SheetName As String, Optional wb As Excel.Workbook)
   Dim s As Excel.Worksheet
   If wb Is Nothing Then Set wb = ThisWorkbook
   On Error Resume Next
   Set s = wb.Sheets(SheetName)
   On Error GoTo 0
   SheetExists = Not s Is Nothing
End Function



Sub 인쇄영역불러오기()
    Dim wb As Workbook, wbSrc As Workbook
    Dim ws As Worksheet
    Dim vFile As Variant

    Set wb = ActiveWorkbook
    vFile = Application.GetOpenFilename("Excel-files, *.xls;*.xlsx", 1, "인쇄 영역이 지정된 기존 파일을 선택하세요", , False)
    If TypeName(vFile) = "Boolean" Then Exit Sub
    Workbooks.Open vFile
    Set wbSrc = ActiveWorkbook
    
    For Each wsSrc In wbSrc.Worksheets
        If SheetExists(wsSrc.Name, wb) Then
            Set ws = wb.Sheets(wsSrc.Name)
            ws.PageSetup.PrintArea = wsSrc.PageSetup.PrintArea
        End If
    Next wsSrc
End Sub




예제.zip


저작자표시 비영리 변경금지
 

티스토리툴바