이걸 웹언어로 번역하면 어떻에되는지요? > 십년전오늘

십년전오늘

10년전 추억의 책장을 넘기며

이걸 웹언어로 번역하면 어떻에되는지요? 정보

이걸 웹언어로 번역하면 어떻에되는지요?

본문

이건 웹이란 관련없는듯하여 여기 올립니다.
 
싸이월드 미니홈피뒤 tid값을 웹에서 뽑을려고하는데요
 
텍스트박스만들어서 그않에 주소뒷부분을 넣어버리면 고유번호가 뜨게하는형식을할려는데
 
이거 웹으로 번역해주실분있으신가요?
 
Dim td As String
 
On Error GoTo err:
Text2 = Split(Inet1.OpenURL("http://www.cyworld.com/" & Text1), "tid=")(1)
td = Split(Text2, "&url")(0)
If IsNumeric(td) = False Then GoTo err:
 
msgbox "고유번호는 " & td & "입니다."
 
Exit Sub

댓글 전체

전체 135,051
십년전오늘 내용 검색

회원로그인

(주)에스아이알소프트 / 대표:홍석명 / (06211) 서울특별시 강남구 역삼동 707-34 한신인터밸리24 서관 1402호 / E-Mail: admin@sir.kr
사업자등록번호: 217-81-36347 / 통신판매업신고번호:2014-서울강남-02098호 / 개인정보보호책임자:김민섭(minsup@sir.kr)
© SIRSOFT