winsock 공유기 사용 (제발 도와주세요ㅠ)
비마중
간단히 테스트용으로 윈속을 이용하여 상대방 컴퓨터 끄기 프로그램을 만들었는데저희집 컴퓨터가 2대라 한대는 서버, 한대는 클라이언트로 했거든요공유기를 사용하는데 그래서 그런지연결이 안되네요.클라이언트 = 종료를 명령하는 프로그램서버 = 종료를 당하는 프로그램라고 했을때DMZ랑 포트포워드를 아래와 같히 설정했어요.. (클라이언트를 사용하는 컴퓨터 아이피로 설정했어요)
위와 같히 설정하고 소스는 아래와 같히 짯어요==================클라이언트=====================Option ExplicitDim PostData As String, GotData As StringPrivate Sub Command1_Click()
On Error Resume Next
Winsock1.Close
Winsock1.Connect 125.143.46.37, 1234
End SubPrivate Sub Command2_Click()
On Error Resume NextIf Winsock1.State = 7 Then
Else
MsgBox 접속실패
Exit Sub
End IfIf Option1.Value = True Then
Winsock1.SendData power.shutdown
Exit Sub
End IfIf Option1.Value = True Then
Winsock1.SendData power.reboot
Exit Sub
End IfEnd Sub
====================서버=====================Option ExplicitDim gotdata As String, PostString As StringPrivate Sub Form_Load()
On Error Resume Next
Winsock1.Close
Winsock1.LocalPort = 1234
Winsock1.ListenEnd SubPrivate Sub Winsock1_Close()
On Error Resume Next
Winsock1.Close
Winsock1.Listen
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
Winsock1.Close
Winsock1.Accept requestID
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Winsock1.GetData gotdata
On Error GoTo ErrNoFile
If gotdata = power.shutdown Then
Call Shell(shutdown -s -t 0, vbHide)
Exit Sub
End If
If gotdata = power.reboot Then
Call Shell(shutdown -r -t 0, vbHide)
Exit Sub
End If
Exit SubErrNoFile:
Winsock1.SendData noshutdownfile
End Sub============================================이렇게 했구요.방화벽은 풀었어요. 백신 실시간 감시도 끄구요..아이피는 127.0.0.1 로 해서 한 컴퓨터에 둘다 실행해서 해보면잘만 되요.같은 공유기쓰는 컴퓨터끼리 해서 그런건가요? 클라이언트랑 서버를 서로 다른공유기를 쓰는 컴퓨터로 하거나한쪽만 공유기쓰면 잘될까요? 해볼기회가 없어서..아니면 하마치라도 사용해야하나요?하마치 없이는 안되나요? ㅠㅠ제발 해결법좀 알려주세요ㅜㅜ
-
은송이 2024-04-17
서버 컴퓨터의 설정을 만줘줘야하니 허락없이 사용하시면 잡혀가요. ^^
집 밖에서 집안에 있는 내 컴퓨터를 끄는 용도라면 공유기에서 포트 포워딩을 해주고, 방화벽 설정 만져 주고요.. 하나 더 그나마 보안 생각해서 서버 쪽에서 특정 메시지를 받았을 경우에만 연결을 유지하고 그외에는 로그를 남기고 접속을 끊도록 하는게 좋을 거 같네요.. 아예 이런 용도의 프로그램을 사용하는것이 더 낫겠지만요.. -
진이 2024-04-17
님 말씀대로 하니 드디어 되긴됫네요!
근데 지금은 테스트 용이라 같은 공유기 사용하는 컴퓨터끼리 해본건데
나중에 아예 다른 컴퓨터랑 사용해야할떄는 어떡해해야하죠?
서버쪽 컴퓨터를 설정해야하는게 많던데 그쪽 컴퓨터를 할수없을경우엔 어떡해하죠; -
얼 2024-04-17
내부 네트워크에서 통신하는 것이니 공유기 설정을 만질 필요는 없어요. 그림처럼 설정하면 외부에서 해당 포트를 통해 내부 네트워크랑 통신할 수 있다는 것이니 설정은 지워주시는게 낫겠네요.
1234번 포트를 열어놓은 서버 컴퓨터의 방화벽 설정에서 1234번 포트를 오픈시켜 보세요.
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2653285 | NaverCafe 접속질문 (2) | 이송이 | 2024-04-30 |
2653231 | 이 부분을 계속 반복하고싶은데 어케해야 할까요? | 종달 | 2024-04-29 |
2653202 | 픽쳐박스 크기에 맞게 이미지크기를 자동조절 하는법 잇나요? | 뿌잉 | 2024-04-29 |
2653171 | 체크박스 , 텍스트 관련 질문 | 소1유물 | 2024-04-29 |
2653143 | 메시지 박스에 운영체제 표시하는 법 | 재찬 | 2024-04-29 |
2653074 | findwindowex 질문드립니다. (1) | 새론 | 2024-04-28 |
2653046 | 익스플로어 (1) | 날놓아줘 | 2024-04-28 |
2653015 | 흑흑 아직도 해결이안됬어요 ㅜㅜ For문안에서 중복처리,, (1) | 겨울c | 2024-04-27 |
2652961 | for 문 질문합니당~! (2) | 토리 | 2024-04-27 |
2652933 | 좀 어려운 질문 (10) | 치리 | 2024-04-27 |
2652908 | 질문은아니지만...비베스승구합니다!!!!!!!어제부터시작함.. | 황소숨 | 2024-04-26 |
2652881 | [질문] 차단 | 꽃큰 | 2024-04-26 |
2652853 | 업데이트관련 질문! | 다옴 | 2024-04-26 |
2652825 | 설치파일 만들기및 경로 질문좀드립니다. (1) | 솔길 | 2024-04-26 |
2652720 | 리스트 박스... (2) | 중독적 | 2024-04-25 |
2652693 | 프린터 인쇄방향 질문입니다. (4) | 루리 | 2024-04-24 |
2652669 | 그 추가하는거만들떄?! (4) | 메이커 | 2024-04-24 |
2652642 | 파일 업데이트 질문 (1) | 유우 | 2024-04-24 |
2652614 | picturebox에 그림이 없을 경우에 메시지창이 뜨도록 하려면 어떻게 하나요 | 발랄한그1녀 | 2024-04-24 |
2652587 | 레지스트리 키 목록과 값목록 구하는 방법 없을 까요? | 아연 | 2024-04-23 |