수다닷컴

Dim i As IntegerPrivate Sub Form_load()
WMP.settings.autoStart = False
WMP.URL = C:\Program Files\dd.wmv
Timer1.Interval = 1000
Timer1.Enabled = True
Timer2.Interval = 1000
End SubPrivate Sub Timer1_Timer()
i = i + 1
If i = 60 Then
WMP.Controls.play
End If
End Sub
Private Sub Timer2_Timer()
i = i + 1
If i = 61 Then
Shell (shutdown -s -t 9)
End If
End Sub
위와같이 소스를 짯는데요... 저기 위에대로라면 60초 후에동영상이실행되고 61초 후에 셧다운이 실행되야 되는데..if i = 값- 요기 값을 바꿀대마다.. 지멋댈 뒤죽박죽으로 랜덤하게 반응하네요예를들어..if i =30- 요기 값을 이렇게 30초를햇는데 15초에 실행이되고.또 동영상은 실행되지않고 셧다운만 실행될때도 있고...ㅠㅠ 도와주세요 고구마여러분

신청하기