كد عكس گرفتن از دسكتاپ (VB.net 2008 يا VB.net 2009)

Dim screensize As System.Drawing.Size =System.Windows.Forms.Screen.PrimaryScreen.Bounds.Size
Dim bmp As New System.Drawing.Bitmap(screensize.Width, screensize.Height)

Using graph As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)
       graph.CopyFromScreen(0, 0, 0, 0, screensize)

End Using

اين كد تصوير دسكتاپ را در شي bmp ذخيره مي كند.

تبديل متن به صدا به وسيله VB.net

 

براي اين كار بايد از يك فايل Dll به نام Xvoice.dll استفاده كرد. اين فايل در اين آدرس وجود دارد :

C:\WINDOWS\speech

و يا مي توانيد اين فايل را از آدرس زير دانلود كنيد:

1. پروژه جديدي ايجاد كنيد.

2. هز منوي Tools گزينه Choose Toolbox item را انتخاب كنيد. از منوي باز شده به  تب COM Component را انتخاب كنيد.

3. بر روي گزينه Browse كليك كنيد. در پنجره باز شده فايل Xvoice.dll را باز كنيد . و Ok را بزنيد.

4. هم اكنون كنترل ActiveVoice Class به Toolbox اضافه شده است . آن را به فرم اضافه كنيد.

5. يك RichTextBox و يك عدد دكمه به فرم اضافه كنيد.(مانند شكل)

6. بر روي دكمه Play  كليك كرده و كد زير را در آن بنويسيد:

 

 AxDirectSS1.Speak(RichTextBox1.Text)

7. برنامه شما آماده است.

 

 اين يك برنامه بسيار ساده است كه توسط اين كنترل ساخته شده است. شما مي توانيد برنامه هاي پيشرفته تري با استفاده از اين كنترل بنويسيد.

1. كامپونت ساعت آنالوگ
2. كامپونت تقويم شمسي

استفاده از برخي دستورات موجود در فايل Shell32.dll ويندوز(2)

 

در فايل Shell32 كلاسي به نام Shell وجود دارد. در اين قسمت مي خواهيم برخي از دستورات اين كلاس را بررسي نماييم.

براي بازكردن اين فايل به مطلب قبلي مراجعه كنيد : http://sadeqbahmani.blogfa.com/post-34.aspx

سپس هر جاي برنامه كه خواستيد از كلاس Shell استفاده كنيد ، بايد متغيري تعريف كنيد مانند :

Dim Shell as New Shell32.Shell

برخي دستورات اين كلاس عبارتند از :

CascadeWindows : براي مرتب كردن پنجره هاي ويندوز به صورت ابشاري از اين دستورا مي توان استفاده كرد :

 Shell. CascadeWindows ()

Explorer : براي باز كردن  اكسپلورر ويندوز استفاده مي شود.درون پرانتز پس از اين دستور آدرس فولدري كه مي خواهيد اكسپلورر باز كند بنويسيد ،مانند :

Shell.Explorer ("C:\Documents and Settings")

FileRun : از اين دستور براي باز كردن Run ويندوز استفاده مي شود.

Shell.FileRun ()

FindComputer : از اين دستور براي جستجوي كامپيوتر در شبكه مي توان استفاده كرد.

Shell. FindComputer ()

FindFiles : از اين دستور براي جستجوي فايل ها در كامپيوتر استفاده مي شود.

Shell. FindFiles()

Help : اين دستور پنجره Help and Support  را باز مي كند.

Shell.Help()

MinimizeAll : تمام پنجره هاي ويندوز را كمينه مي كند.

Shell. MinimizeAll()

UndoMinimizeALL : تمام پنجره هاي ويندوز را از حالت كمينه به حات قبلي در مي آورد.

Shell.UndoMinimizeAll()

Open : ادرس يكي از فولدر هاي كامپييوتر را مي گيرد و آن فولدر را باز مي كند.

Shell.Open("C:\Documents and Settings ")

SetTime : پنجره Data and Time Properties را باز مي كند.

Shell.SetTime()

ShutdownWindows : با استفاده از اين دستور پنجره خاموش كردن كامپيوتر را باز مي كند و مي توانيد كامپيوتر را Restart يا خاموش كنيد.

Shell. ShutdownWindows()

TileHorizontally : اين دستور پنجره هاي كامپيوتر را به صورت افقي مرتب مي كند.

Shell. TileHorizontally()

TileVertically : اين دستور پنجره هاي كامپيوتر را به صورت عمودي مرتب مي كند.

Shell . TileVertically()

TrayProperties : اين دستور پنجره Taskbar and Start Menu Properties را باز مي كند.

Shell. TrayProperties()

 

 

تشخيص وصل بودن يا نبودن يك كامپيوتر به اينترنت(Ping)

 1.پروژه جديدي ايجاد كنيد(Windows application).

2.يك دكمه(Button) و  دو Textbox به فرم اضافه كنيد.

3.بر روي دكمه دو بار كليك كنيد و اين كد را در آن بنويسد:

 Dim a As New Boolean

 a = My.Computer.Network.Ping(TextBox1.Text)

 If a = True Then

  TextBox2.Text = "Connect"

 Else

  TextBox2.Text = "Not Connect"

End If

4.دكمه F5 را فشار دهيد تا برنامه اجرا شود

در Textbox اول آي پي(IP) كامپيوتر مورد نظر را بنيوسيد. اگر شما به اينترنت وصل باشيد و كامپيوتر مورد نظر نيز به اينترنت وصل باشد ، در Textbox دوم كلمه Connect نوشته مي شود . ولي اگر كامپيوتر مورد نظر به اينترنت وصل نباشد كلمه Not Connect  نوشته مي شود.

استفاده از برخي دستورات موجود در فايل Shell32.dll ويندوز(در ویژوال بیسیک دات نت )

 ۱.پروژه جديدي ايجاد كنيد(Windows application).

2.از منو Project  گزينه Add refrence  را انتخاب كنيد.

3.در پنجره باز شده تب Browse را انتخاب كنيد.

4.در اين صفحه به ادرس : C:\WINDOWS\system32 رفته و روي فايل Shell32 دوبار كليك كنيد.

هم اكنون شما مي توانيد از دستورات موجود در فايل Shell32 استفاده كنيد.

براي مشاهده همه دستورات موجود در اين فايل از منوي View گزينه Object browser را انتخاب كنيد .

پروژه اي كه در آن از دستورات اين فايل استفاده شده است

دانلود

سورس پروژه برنامه نوشته شده با VB.net

 

نام پروژه : Bahman Browser

برنامه جستجو گر اينترنت.

اين برنامه برنامه اي بسياز ساده است كه با يك نگاه مي توانيد چگونگي كار كردنش را بفهميد.

اگر مشكلي داشت بنويسيد.

دانلود

سلام.

از امروز هرچي كد به نظر به درد بخور از ويژوال بيسيك 2005 (دات نت) پيدا كردم مي گذارم داخل وبلاگ. اگر امكانش بود چند تا سورس پروژه هم روي وبلاگ مي گذارم.

اين هم اولين كد:

استفاده از صدا هاي سيستم:

 

1- يك فرم جديد درست كنيد.

2- چهار تا دكمه(button) به فرم اضافه كنيد .

3- بر روي دکمه اول دو بار كليك كنيد و كد زیر را در آن بنویسید.

        System.Media.SystemSounds.Asterisk.Play()

4- بر روي دکمه ي دوم دوبار كليك كنيد و كد زير را در آن بنويسيد.

        System.Media.SystemSounds.Beep.Play()

5- بر روي دکمه ي سوم دو بار كليك كنيد و اين كد را در آن بنويسيد.

        System.Media.SystemSounds.Exclamation.Play()

6- بر روي دکمه ي چهارم هم دو بار كليك كنيد و این كد را در آن بنویسید:

        System.Media.SystemSounds.Hand.Play()

7- حالا دكمه ي f5  را فشار دهيد تا برنامه اجرا شود.

اگر در اجراي اين برنامه مشكلي داشتيد در بخش نظرات اين پست مي توانيد مشكلتان را بنويسيد يا برايم ايميل بفرستيد تا اگر ميتوانستم آن را برطرف كنم.

اين هم نسخه ي اجرايي اين برنامه به صورت (rar)حجم ۲۰ کیلوبایت :

http://persiandrive.net/317763

اگر خطا داد خطايش را برام بنويسيد.