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번 포트를 오픈시켜 보세요.
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
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 |