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줄이상으로 늘어 놨다던가,, 틀린점좀 지적해주세요 -
감추어왔던
사이트가 느리거나 코드를 비효율적으로 짜신거같음
-
내담
로그인을 반복한다는건가여?
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2676183 | 후킹? (1) | 꼬꼬마 | 2024-11-24 |
| 2676153 | 아차! 음악링크좀 쓰게 올려주실분.. 많이있는곳으로! | 사이 | 2024-11-24 |
| 2676125 | Themida 패킹시 윈도우7은 호환 하지 못하나요? | 라 | 2024-11-24 |
| 2676093 | 현재프로그램 파일이름을 추출하는걸알고싶습니다 (1) | 도1도캣 | 2024-11-24 |
| 2676066 | exe를 소스로 만드는법좀.. (3) | 회전력 | 2024-11-23 |
| 2676034 | 이런 창은 어떻게 지우나요? | 수련 | 2024-11-23 |
| 2676006 | 질문하나더~ | 찬바리 | 2024-11-23 |
| 2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
| 2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
| 2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
| 2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
| 2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
| 2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
| 2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
| 2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
| 2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
| 2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
| 2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |
| 2675492 | 비베 수다 사이트채팅 접속방법 | 마법 | 2024-11-18 |
| 2675463 | ㅠㅠ;; | 지은 | 2024-11-18 |