수다닷컴

음.... 수다님꺼 보고서 도전은 해봤는데요...
계속 제꺼는 안 나오고 소스에 추가한 다른 고유번호1랑
실행창에 추가한 또 다른 고유번호2를 쓰면
제 미니홈피는프로그램 실행할 때에만 나오고
그 이후에는 계속 고유번호1과 고유번호2끼리만
왔다갔다 해요 ㅠㅠ 뭐가 어디서 잘못 된 걸까요 ㅠㅠ

dim start as boolean
dim z as string
private sub command1_click()
list1.additem text1
end sub
private sub command2_click()
on error resume next
list1.removeitem list1.listindex
end sub
private sub command3_click()
command3.enabled = false
timer1.enabled = true
end sub
private sub command4_click()
command3.enabled = true
timer1.enabled = false
end sub
private sub form_load()
webbrowser1.navigate2 about:blank
webbrowser1.silent = true
webbrowser1.navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid=48717459
z = 0
start = true
end sub
private sub timer1_timer()
on error resume next
timer1.interval = 16000 / list1.listcount - 1
if start = true then
webbrowser1.navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid=40728093&urlstr=&urlstrsub=
start = false
else
webbrowser1.navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & list1.list(z) & &urlstr=&urlstrsub=
if z = list1.listcount - 1 then
z = 0
else
z = z + 1
end if
start = true
end if
end sub

신청하기