[VB6] Win10 이상 SendKeys 내장 함수 오류 대응

 

Win10 이상 SendKeys 내장 함수 오류 대응

 

 

---

오류 개요

Visual Basic 6에서 SendKeys 코드를 사용하여 디버깅하면 '70' 런타임 오류가 발생했습니다. 사용 권한이 없습니다 오류가 발생합니다. 이 오류는 Win7부터 Win10, Win11까지 모두 발생하는 오류로 디버깅 시에만 발생하고 컴파일 후에는 정상적으로 동작합니다. 때문에 UAC(사용자 계정 컨트롤) 사용 해제 설정으로 무시하며 진행이 가능하나 코딩 시 계속 걸리적거리기에 오늘 포스팅을 참고하여 더 이상 오류가 나오지 않도록 수정하시길 바랍니다.

짜증나는 오류 화면

---

예제 코드

소스 안에 적당한 Module(.bas)을 선택해서 서브 프로시저로 추가

' *** Windows10 이상 Sendkeys 오류 대응 ***
Public Sub Sendkeys(text$, Optional wait As Boolean = False)

    Dim WshShell As Object
    Set WshShell = CreateObject("wscript.shell")
    WshShell.Sendkeys text, wait
    Set WshShell = Nothing

End Sub

 

 

---

실행 결과

해당 프로시저를 추가하는 것만으로 오류 현상이 사라짐을 확인할 수 있습니다.