اكواد

فتح تطبيق او برنامج معين

Dim processID As Integer

processID = Shell("NOTEPAD.EXE", AppWinStyle.NormalFocus)

AppActivate(processID)

**********************************************************************

فتح موقع او صفحة في المتصفح

Process.Start("www.altavista.com")

**********************************************************************

يعيد المساحة الفارغة على القرص

Dim drive As System.IO.DriveInfo

drive = My.Computer.FileSystem.GetDriveInfo("C:\")

Dim space As Long = drive.AvailableFreeSpace

MsgBox(space)

**********************************************************************

معرفة نظام التشغيل على جهازك

Dim osname As String

osname = My.Computer.Info.OSFullName

MsgBox(osname)

**********************************************************************

الفرق بين تاريخيين

Dim firstDate, msg As String

Dim secondDate As Date

firstDate = InputBox("ادخل التاريخ لمعرفة الفرق")

secondDate = CDate(firstDate)

msg = "الفرق بالايام: " & DateDiff(DateInterval.Day, Now, secondDate)

MsgBox(msg)

**********************************************************************

تشغيل ملف صوتي

My.Computer.Audio.Play("d:\max.wav", AudioPlayMode.WaitToComplete)

تشغيل ملف صوتي باستمرار

My.Computer.Audio.Play("d:\max.wav", AudioPlayMode.BackgroundLoop)