수다닷컴

간단히 테스트용으로 윈속을 이용하여 상대방 컴퓨터 끄기 프로그램을 만들었는데저희집 컴퓨터가 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 로 해서 한 컴퓨터에 둘다 실행해서 해보면잘만 되요.같은 공유기쓰는 컴퓨터끼리 해서 그런건가요? 클라이언트랑 서버를 서로 다른공유기를 쓰는 컴퓨터로 하거나한쪽만 공유기쓰면 잘될까요? 해볼기회가 없어서..아니면 하마치라도 사용해야하나요?하마치 없이는 안되나요? ㅠㅠ제발 해결법좀 알려주세요ㅜㅜ

신청하기