수다닷컴

자꾸 로그인을 하라고 뜨네요;;소스요

Private Sub Command1_Click()
If Len(Text1) = 8 Then List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.Silent = True
Timer1.Interval = 16000 / List1.ListCount
If List1.ListIndex List1.ListCount - 1 Then
WebBrowser1.Navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & List1.List(List1.ListIndex)
List1.ListIndex = List1.ListIndex + 1
Else
WebBrowser1.Navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & List1.List(List1.ListIndex)
List1.ListIndex = 0
End If
End Sub
Private Sub Form_Load()
List1.AddItem 매크로방지A
WebBrowser1.Navigate2 http://minihp.cyworld.com/pims/main/pims_maun4.asp?tid=46465594
List1.AddItem 매크로방지B
WebBrowser1.Navigate2 http://minihp.cyworld.com/pims/main/pims_maun4.asp?tid=59931136
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub

신청하기