saeed_sho
چهارشنبه 13 مهر 1390, 12:55 عصر
سلام
چند وقته روی سوکت پروگرمینگ کار رو شروع کردم سه تا سؤال دارم
سؤال اول : از سایت یه برنامه دانلود کردم که توش از فایل net.exe استفاده کرده بود میخواام بدونم کاربرد این فایل چیه و توی متد List که اینجاس ازش چه استفاده ای میکنه در واقع معنی این کد چیه بیشتر جنبه ی net.exe رو میگم؟
Private Sub list()
Dim netUtility As Process = New Process()
netUtility.StartInfo.FileName = "net.exe"
netUtility.StartInfo.CreateNoWindow = True
netUtility.StartInfo.Arguments = "view"
netUtility.StartInfo.RedirectStandardOutput = True
netUtility.StartInfo.UseShellExecute = False
netUtility.StartInfo.RedirectStandardError = True
netUtility.Start()
Dim s As StreamReader = New StreamReader(netUtility.StandardOutput.BaseStream, netUtility.StandardOutput.CurrentEncoding)
Dim line As String = ""
While (True)
line = s.ReadLine()
If IsDBNull(line) Then
Exit While
Else
If (line.StartsWith("\\")) Then
cmbIPAddress.Items.Add(line.Substring(2).Substring (0, line.Substring(2).IndexOf(" ")).ToUpper())
End If
End If
End While
s.Close()
netUtility.WaitForExit(1000)
End Sub
سؤال دوم : توی متد timer معنی این -1-1-1 ها چیه و هر کدوم با تعداد مختلف چه معنی میده؟
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim pp As String
Try
If Listener.Pending = True Then
'RichTextBox1.Text = (RichTextBox1.Text + "Message Pending" + vbCrLf)
Message = ""
Client = Listener.AcceptTcpClient()
Dim Reader As New StreamReader(Client.GetStream())
While Reader.Peek > -1
Message = Message + Convert.ToChar(Reader.Read()).ToString
End While
If Message.StartsWith("-1-1-1:") Then
pp = Message.Substring(7, Message.Length - 7)
Dim a = MsgBox(pp.Trim + "want to send you a file.Do you agree?", MsgBoxStyle.YesNo)
If a = MsgBoxResult.Yes Then
check = 2
'taiid masir faal she
Client = New TcpClient(iip, 28960)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write("-1-1-" + iip)
Writer.Flush()
Button4.PerformClick()
list1.Start()
Else
check = -1
End If
ElseIf Message.StartsWith("-1-1-") Then
pp = Message.Substring(5, Message.Length - 5)
Dim a = MsgBox(pp.Trim + " Agree sending file.Do you send?", MsgBoxStyle.YesNo)
If a = MsgBoxResult.Yes Then
check = 1
taid = 1
Button3.PerformClick()
Else
'pp = Message.Substring(4, Message.Length - 4)
Client = New TcpClient(iip, 28960)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write("-1-1" + pp)
Writer.Flush()
check = -1
End If
ElseIf Message.StartsWith("-1-1") Then
MsgBox("DArkhast Laghv shod")
check = -1
taid = -1
'gosh kardan ra cancel konam
FTServerCode.receivedPath = ""
Else
RichTextBox1.Text += (Message + vbCrLf)
End If
End If
Catch ex As Exception
End Try
End Sub
سؤال سوم : برای پورت توی برنامه های مختلف هر کسی یه پورتی رو میذاره یه جا خوندم برای سوکت بهتره از پورت 5656 استفاده بشه استاندارد خاصی وجود داره ؟ بهتره چه پورتی استفاده بشه؟
دوستان باتجربه لطفا راهنمایی کنید
ممنونم
چند وقته روی سوکت پروگرمینگ کار رو شروع کردم سه تا سؤال دارم
سؤال اول : از سایت یه برنامه دانلود کردم که توش از فایل net.exe استفاده کرده بود میخواام بدونم کاربرد این فایل چیه و توی متد List که اینجاس ازش چه استفاده ای میکنه در واقع معنی این کد چیه بیشتر جنبه ی net.exe رو میگم؟
Private Sub list()
Dim netUtility As Process = New Process()
netUtility.StartInfo.FileName = "net.exe"
netUtility.StartInfo.CreateNoWindow = True
netUtility.StartInfo.Arguments = "view"
netUtility.StartInfo.RedirectStandardOutput = True
netUtility.StartInfo.UseShellExecute = False
netUtility.StartInfo.RedirectStandardError = True
netUtility.Start()
Dim s As StreamReader = New StreamReader(netUtility.StandardOutput.BaseStream, netUtility.StandardOutput.CurrentEncoding)
Dim line As String = ""
While (True)
line = s.ReadLine()
If IsDBNull(line) Then
Exit While
Else
If (line.StartsWith("\\")) Then
cmbIPAddress.Items.Add(line.Substring(2).Substring (0, line.Substring(2).IndexOf(" ")).ToUpper())
End If
End If
End While
s.Close()
netUtility.WaitForExit(1000)
End Sub
سؤال دوم : توی متد timer معنی این -1-1-1 ها چیه و هر کدوم با تعداد مختلف چه معنی میده؟
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim pp As String
Try
If Listener.Pending = True Then
'RichTextBox1.Text = (RichTextBox1.Text + "Message Pending" + vbCrLf)
Message = ""
Client = Listener.AcceptTcpClient()
Dim Reader As New StreamReader(Client.GetStream())
While Reader.Peek > -1
Message = Message + Convert.ToChar(Reader.Read()).ToString
End While
If Message.StartsWith("-1-1-1:") Then
pp = Message.Substring(7, Message.Length - 7)
Dim a = MsgBox(pp.Trim + "want to send you a file.Do you agree?", MsgBoxStyle.YesNo)
If a = MsgBoxResult.Yes Then
check = 2
'taiid masir faal she
Client = New TcpClient(iip, 28960)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write("-1-1-" + iip)
Writer.Flush()
Button4.PerformClick()
list1.Start()
Else
check = -1
End If
ElseIf Message.StartsWith("-1-1-") Then
pp = Message.Substring(5, Message.Length - 5)
Dim a = MsgBox(pp.Trim + " Agree sending file.Do you send?", MsgBoxStyle.YesNo)
If a = MsgBoxResult.Yes Then
check = 1
taid = 1
Button3.PerformClick()
Else
'pp = Message.Substring(4, Message.Length - 4)
Client = New TcpClient(iip, 28960)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write("-1-1" + pp)
Writer.Flush()
check = -1
End If
ElseIf Message.StartsWith("-1-1") Then
MsgBox("DArkhast Laghv shod")
check = -1
taid = -1
'gosh kardan ra cancel konam
FTServerCode.receivedPath = ""
Else
RichTextBox1.Text += (Message + vbCrLf)
End If
End If
Catch ex As Exception
End Try
End Sub
سؤال سوم : برای پورت توی برنامه های مختلف هر کسی یه پورتی رو میذاره یه جا خوندم برای سوکت بهتره از پورت 5656 استفاده بشه استاندارد خاصی وجود داره ؟ بهتره چه پورتی استفاده بشه؟
دوستان باتجربه لطفا راهنمایی کنید
ممنونم