mostafa_leman
چهارشنبه 13 اردیبهشت 1385, 09:06 صبح
سلام دوستان . اینم یک سری نمونه برنامه شبکه ( گفتم شاید به درد یه نفربخوره ) اگه درپیته به بزرگی خودتون ببخشین
ساخت و ارسال ایمیل
Imports System.Net.Mail
Public Class FrmMain
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim message As New MailMessage("sender@address", "from@address", "Subject", "Message Text")
Dim emailClient As New SmtpClient("Email Server Name")
emailClient.Send(message)
End Sub
End Class
تعیین وضعیت شبکه ( وجود یا عدم وجود شبکه )
Dim isAvailable As Boolean
isAvailable = My.Computer.Network.IsAvailable
دانلود یک فایل با استفاده از http
My.Computer.Network.DownloadFile("http://www.URLtoDownloadFrom.net", "C:\filename.html")
لیست سریال پورتها
For Each portName As String In My.Computer.Ports.SerialPortNames
Next
Ping کردن کامپیوتر
Dim siteResponds As Boolean = False
siteResponds = My.Computer.Network.Ping("somehost.my.domain")
خواندن اطلاعات از پورتهای سریال
Imports System.Text
Imports System.IO.Ports
Public Class FrmMain
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim buffer As New StringBuilder()
Using comPort As SerialPort = My.Computer.Ports.OpenSerialPort("COM1")
Do
Dim line As String = comPort.ReadLine()
If line Is Nothing Then
Exit Do
Else
buffer.AppendLine(line)
End If
Loop
End Using
End Sub
End Class
آپلود فایل
My.Computer.Network.UploadFile("c:\File.txt", "http://www.someserver.com/upload.aspx")
شماره گیری توسط پورت سریالها
Imports System.IO.Ports
Public Class FrmMain
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Using comPort As SerialPort = My.Computer.Ports.OpenSerialPort("COM1", 2400)
comPort.DtrEnable = True
comPort.Write("ATDT 206-555-1000" & vbCrLf)
' All data transfer code goes here.
End Using
End Sub
End Class
اگه دوست داشتین بگین تا یه سری برنامه دیگه با موضوعات دیگه اضافه کنم
ساخت و ارسال ایمیل
Imports System.Net.Mail
Public Class FrmMain
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim message As New MailMessage("sender@address", "from@address", "Subject", "Message Text")
Dim emailClient As New SmtpClient("Email Server Name")
emailClient.Send(message)
End Sub
End Class
تعیین وضعیت شبکه ( وجود یا عدم وجود شبکه )
Dim isAvailable As Boolean
isAvailable = My.Computer.Network.IsAvailable
دانلود یک فایل با استفاده از http
My.Computer.Network.DownloadFile("http://www.URLtoDownloadFrom.net", "C:\filename.html")
لیست سریال پورتها
For Each portName As String In My.Computer.Ports.SerialPortNames
Next
Ping کردن کامپیوتر
Dim siteResponds As Boolean = False
siteResponds = My.Computer.Network.Ping("somehost.my.domain")
خواندن اطلاعات از پورتهای سریال
Imports System.Text
Imports System.IO.Ports
Public Class FrmMain
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim buffer As New StringBuilder()
Using comPort As SerialPort = My.Computer.Ports.OpenSerialPort("COM1")
Do
Dim line As String = comPort.ReadLine()
If line Is Nothing Then
Exit Do
Else
buffer.AppendLine(line)
End If
Loop
End Using
End Sub
End Class
آپلود فایل
My.Computer.Network.UploadFile("c:\File.txt", "http://www.someserver.com/upload.aspx")
شماره گیری توسط پورت سریالها
Imports System.IO.Ports
Public Class FrmMain
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Using comPort As SerialPort = My.Computer.Ports.OpenSerialPort("COM1", 2400)
comPort.DtrEnable = True
comPort.Write("ATDT 206-555-1000" & vbCrLf)
' All data transfer code goes here.
End Using
End Sub
End Class
اگه دوست داشتین بگین تا یه سری برنامه دیگه با موضوعات دیگه اضافه کنم