چند تا نمونه برنامه ( شبکه )

[mostafa_leman]

سلام دوستان . اینم یک سری نمونه برنامه شبکه ( گفتم شاید به درد یه نفربخوره ) اگه درپیته به بزرگی خودتون ببخشین

ساخت و ارسال ایمیل



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


اگه دوست داشتین بگین تا یه سری برنامه دیگه با موضوعات دیگه اضافه کنم

[M.kavyani]

اگه دوست داشتین بگین تا یه سری برنامه دیگه با موضوعات دیگه اضافه کنم با سلام از ببات این کدها ممنون ولی اگر امکان داره کد هارو داخل تگ مربوطه (از دکمه http://www.barnamenevis.org/forum/images/editor/code.gif ) برای کد مورد نظر استفاده کن تا به خوانایی کد ها افزوده گردد. چه موضوعاتی؟ اینجا اپلودش کن فیض ببریم . ممنون

[mostafa_leman]

سلام آقای کاویانی
منظورتونو نفهمیدم . میشه بیشتر توضیح بدین. اون فایل gif رو باید چی کار کنم؟
در ضمن در مورد نمونه برنامه ها منظورم برنامه هایی است که شاید توی پروژه نویسی به درد دوستان بخوره

از دوستان تقاضا دارم اگه کسی این سری نمونه برنامه ها داره همینجا بذاره
الان میخواستم نحوه restart , shutdown , logoff کردن سیستم رو با vb.net بذارم اما گفتم بهتره اول روش شما رو یاد بگیرم سپس بنویسم

[M.kavyani]

ساخت و ارسال ایمیل



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


اینجورشی کن که خوانا بشه :چشمک:
بله اگر امکان داره این موضوعات رو بذار ممنونت میشی
در پناه حق موفق و کامروا باشید

[mostafa_leman]

ممنون از راهنمایتون آقای کاویانی
الهی خیر از جوونیت ببینی ننه
قبلیها رو هم ویرایش کردم
اینم کد shut down


Shell("tsshutdn 0 /powerdown /delay:0")


اینم کد restart


Shell("tsshutdn 0 /reboot /delay:0")

فردا سعی میکنم کد logoff و switch user رو بذارم
دوستان هم اگه کد بدرد بخوری دارن لطف کنن بذارن . بخدا ثواب داره

[mostafa_leman]

کدswitch user



Shell("tsdiscon")


کد Log off



Shell("shutdown -l")