For문 사용하는데 30초에 100개....
갅쥐누뉨
2023.04.01
함수내용┌─────────────────┐ 함수이름 :Change winhttp로 사이트 로그인해서~ 어쩌구 맞으면 true 틀리면 false└─────────────────┘소스num= 5000For i = 0 To 999999
If change(Form1.Text1.Text) = True Then
MsgBox 성공적으로 올렸습니다!
Exit For
Else
num =num + 1
End If
Ifnum =10000 Then
Exit For
End If
DoEvents이렇게 작성하고num 변수를 5000을 지정하고for문으로 함수에 넣어서 True가 되면 메세지박스가 뜨게하고아니면 num에 1을 더해서 다시 함수돌리기이걸 돌리면 30초에 100개밖에 못하네요,,넘 느린데 빠르게할방법이 없는건가요?
Next i
-
루리
num = 5000
For i = 0 To 999999
If check(Form1.Text1.Text) = True Then
MsgBox \성공적으로 올렸습니다!\
Exit For
Else
num = num + 1
End If
If num = 10000 Then
Exit For
End If
DoEvents
Next i
일단 이 소스는 어떤가요? 비효율적인지..??
한줄로 쓸수있는걸 2줄이상으로 늘어 놨다던가,, 틀린점좀 지적해주세요 -
감추어왔던
사이트가 느리거나 코드를 비효율적으로 짜신거같음
-
내담
로그인을 반복한다는건가여?
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655243 | 파일크기비교 | 혜윤 | 2024-05-18 |
2655211 | 우엉~ Winhttp 겁나 급해요 ㅜㅜ (2) | 정훈 | 2024-05-17 |
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |
2654822 | 원하는 이미지만 꼭 찝어서 냅두기 (3) | 다솜 | 2024-05-14 |
2654791 | 닷홈으로 TEXT를 전송하는데요.. (1) | 그리 | 2024-05-14 |
2654769 | 뭐죠 ?? | 가을 | 2024-05-13 |
2654744 | winhttp로 자동으로 글 등록하는 걸 만들었는데 | 민들레 | 2024-05-13 |
2654717 | 웹브 뒤로가기? (2) | 샹1큼해 | 2024-05-13 |
2654660 | int(Rnd *9999) 질문좀 드릴게욤..;; | 사랑은아픔 | 2024-05-12 |
2654604 | 텍스트내용 메일로 보낼때 일정부분 가리기 (1) | 풋내 | 2024-05-12 |
2654575 | 메시지박스 | 터1프한렩 | 2024-05-12 |
2654551 | form의 크키가 커지면 다른 도구들도 커지는법좀. | 앵겨쭈 | 2024-05-11 |