수다닷컴

Private Sub CandyButton1_Click()
List1.AddItem (Text1.Text)
End Sub

Private Sub CandyButton2_Click()
On Error Resume Next
List1.RemoveItem List1.ListIndex
End Sub

Private Sub CandyButton3_Click()
On Error Resume Next
List1.Clear
End Sub

Private Sub CandyButton4_Click()
List1.ListIndex = 0
Timer1.Enabled = True
End Sub

Private Sub CandyButton5_Click()
Timer1.Enabled = False
End Sub

Private Sub CandyButton6_Click()
If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex
End Sub

Private Sub CandyButton7_Click()
Form2.Show
End Sub

Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate2 about:blank
WebBrowser1.Silent = True
WebBrowser1.Navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid=58940308
Start = True
List1.AddItem 58940308
End Sub

Private Sub Text1_Click()
Text1.Text =
End Sub

Private Sub Timer1_Timer()
On Error Resume Next

If List1.ListIndex List1.ListCount - 1 Then

WebBrowser1.Navigate http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & List1.List(List1.ListIndex)
List1.ListIndex = List1.ListIndex + 1

Else

WebBrowser1.Navigate http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & List1.List(List1.ListIndex)
List1.ListIndex = 0
End If
End Sub

이게 소스인데요 제가하고싶은것은 interval 16000를 리스트개수대로 나누고 싶은거구요
리스트에 있는 제 번호가 삭제되않게 그리고 제번호를 매크로 방지 A 로 바꾸고 싶어요 무슨소스를 더넣어야 되나요? 알려주세요~~ 감사합니다.

신청하기