수다닷컴

Option Explicit
Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)
Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1=====================================================
Private Sub Command1_Click()
Timer1 = TrueShell C:\GO\SET\XX.EXE, 1
Sleep 3000
SendKeys {ENTER}
Sleep 1000
SendKeys {ENTER}
Sleep 5000
SendKeys {ENTER}
SendKeys {ENTER}
Sleep 5000
FileCopy C:\GO\XX_REGISTER.REG, C:\Program Files\Copyright\AA\XX_REGISTER.REGSleep 2000SendKeys {LEFT}
SendKeys {ENTER}
Sleep 500
SendKeys {ENTER}
Sleep 500
SendKeys {ENTER}
Sleep 1000ShellExecute Me.hwnd, vbNullString, XX_REGISTER.REG, vbNullString, C:\Program Files\Copyright\XX, SW_SHOWNORMALSleep 1000SendKeys {ENTER}
SendKeys {ENTER}Shell C:\Program Files\Copyright\NIC\XX.EXE
Sleep 2000SendKeys {RIGHT}
SendKeys {ENTER}
End Sub====================================================Private Sub Form_Load()
Timer1 = False
End Sub=====================================================Private Sub Timer1_Timer()If ProgressBar1.Value = 100 ThenMsgBox 완료되었습니다!!!Timer1.Enabled = FalseElseProgressBar1.Value = ProgressBar1.Value + 1End IfEnd Sub
=====================================================커맨드박스를 누르면 프로그래스바가 시작되고, 파일이 자동설치되는 프로그램입니다.커맨드를 누르는순간부터 프로그래스바가 움직이게 해놓은거 같은데...........설치부분이 너무빠른건지...딜레이를 넣어주었는데도.........마지막Shell C:\Program Files\Copyright\NIC\XX.EXE
이부분부터 프로그래스바가 시작되네요.......어떤게 문제인지 감이 안잡히는데 ㅠㅠ 조언,충고 부탁드립니다

신청하기