<![CDATA[
<p>잘 되는 소스입니다</p><p><br></p><p>불필요하게 API 선언하거나 스크립트 쓰지말고 간단하게 핫메요~</p><p><br></p><div style="color: rgb(212, 212, 212);background-color: rgb(30, 30, 30);font-family: Consolas, "Courier New", monospace;font-size: 14px;line-height: 19px;white-space: pre;overflow: auto;"><div><span style="color: #569cd6;">Private</span> Declare<span style="color: #569cd6;"> Function </span>ShellExecute Lib <span style="color: #ce9178;">"shell32"</span> _</div><div> Alias <span style="color: #ce9178;">"ShellExecuteA"</span> (<span style="color: #9cdcfe;"> _</span></div><div> ByVal hWnd As <span style="color: #4ec9b0;">Long</span>,<span style="color: #9cdcfe;"> _</span></div><div> ByVal lpOperation As <span style="color: #4ec9b0;">String</span>,<span style="color: #9cdcfe;"> _</span></div><div> ByVal lpFile As <span style="color: #4ec9b0;">String</span>,<span style="color: #9cdcfe;"> _</span></div><div> ByVal lpParameters As <span style="color: #4ec9b0;">String</span>,<span style="color: #9cdcfe;"> _</span></div><div> ByVal lpDirectory As <span style="color: #4ec9b0;">String</span>,<span style="color: #9cdcfe;"> _</span></div><div> ByVal nShowCmd As <span style="color: #4ec9b0;">Long</span>) As <span style="color: #4ec9b0;">Long</span></div><br><div><span style="color: #569cd6;">Private Sub </span><span style="color: #dcdcaa;">Command1_Click</span>()</div><div> ShellExecute hWnd, <span style="color: #ce9178;">"runas"</span>, <span style="color: #ce9178;">"reg.exe"</span>, <span style="color: #ce9178;">"add ""HKEY_CURRENT_USER\Control Panel\Desktop"" /v test /t REG_BINARY /d 00102030"</span>,<span style="color: #9cdcfe;"> CurDir</span>$(),<span style="color: #9cdcfe;"> vbNormalFocus</span></div><div><span style="color: #569cd6;">End Sub</span></div><br></div><p>이빈다<br><br></p>
<!-- -->
]]>
카페 게시글
고급언어 어학원
VB6 runas reg.exe 레지스트리 쓰기 테스트
Luna
추천 0
조회 39
17.08.21 11:17
댓글 1
다음검색
첫댓글 문제는 hWnd 이군요
VB6 이 정의하지 않은 변수도 인정을 하는게 기본값이라서 저게됩니다
자바스크립트랑 매우 흡사한 부분인데 이거 정의문 퍼온데가 스택오버플로 인데 ... 그대로써도 문제는 없죠