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줄이상으로 늘어 놨다던가,, 틀린점좀 지적해주세요 -
감추어왔던
사이트가 느리거나 코드를 비효율적으로 짜신거같음
-
내담
로그인을 반복한다는건가여?
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2694399 | RegWrite 등록확인방법이있나요? | 하린 | 2025-05-10 |
| 2694340 | 아스키코드 출력 | 다힘 | 2025-05-10 |
| 2694286 | 1,900,000 - 백 구십 만원 (6) | 허우룩 | 2025-05-09 |
| 2694230 | 텍스트복사 | 거북이 | 2025-05-09 |
| 2694203 | 당신의 지식을 공유해주세요! | 후예 | 2025-05-09 |
| 2694174 | 디버거 크랙방지 (8) | 덕이 | 2025-05-08 |
| 2694146 | 수다 사이트글 조회한사람 목록추출가능? (5) | 곰돌츼 | 2025-05-08 |
| 2694070 | vb_vbnet님의 사이트댓글자동작성기인데 이것을요. | 가시 | 2025-05-07 |
| 2694041 | 모듈은 무었인가요? | 하람 | 2025-05-07 |
| 2694013 | 비쥬얼베이직 책 추천좀요^^... | 초코맛캔디 | 2025-05-07 |
| 2693985 | 리소스문제데요...ㅋㅋ (1) | 아리에스 | 2025-05-07 |
| 2693929 | 했는데 ㅠㅠ | 볼수록중독 | 2025-05-06 |
| 2693870 | 수정좀요 ^^;; (2) | 차오름 | 2025-05-06 |
| 2693812 | ※고구마는 보아라 (6) | 솔길 | 2025-05-05 |
| 2693789 | 마우스가있는곳의 좌표 보기 | 하예진 | 2025-05-05 |
| 2693759 | 실시간으로 서버 열렸는지 닫혔는지 확인하는법좀 | 참이 | 2025-05-05 |
| 2693728 | 로그인 유지 관련 제발 성실답변좀요 | 에녹 | 2025-05-04 |
| 2693705 | 아 재질문합니다 (5) | 모아 | 2025-05-04 |
| 2693677 | Dim a (1 to 11) AS Long에서 11을 K로 놓는 방법 질문 | 진주 | 2025-05-04 |
| 2693648 | 55런타임오류..... | 가론 | 2025-05-04 |