سپيد سياه خاکستري

صفحه اصلي

ايميل به نويسنده

صفحات وبلاگ

1 2 3

نویسندگان

(26) خانه
(1) رعنا
(1) حسين
(1) مريم

موضوعات

(28) عمومی
(1) کامپیوتر
(0) شاعرانه

بایگانی

Welcome to Home

به خانه خوش آمديد

سه شنبه، 15 دی هزار و سیصد و هشتاد و هشت 7:01 PM

Get IPAddress

Option Strict Off
imports system
Imports System.Net.DNS

Public Class GetIP
shared Function GetIPAddress() As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String

With system.Net.DNS.GetHostByName(system.Net.DNS.GetHostName())
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
End With
GetIPAddress = sAddr
End Function

shared Sub main
Dim shostname As String

'Set string equal to value of System DNS Object value for GetHostName
'This should be the localhost computer name
shostname = system.Net.DNS.GetHostName
console.writeline ("Your Machine Name = " & shostname )

'Call Get IPAddress
console.writeline ("Your IP = " & GetIPAddress )
End Sub
End Class

نظرات 5

شنبه، 21 آذر هزار و سیصد و هشتاد و هشت 3:32 PM

VB.NET & C# Screen Capture Basics

VB.NET & C# Screen Capture Basics

19 Aug, 2007 Uncategorized

Some of you have seen my screen capture program Gotcha. Well, here is how some of the source for the basic screen shot taking.

First add a picture box to your form and name it PictureBox1. Next, add a button with any name you want. Now we are ready for the code. VB.NET users, put this under the button’s click event:

Dim bounds As Rectangle Dim screenshot As System.Drawing.Bitmap Dim graph As Graphics bounds = Screen.PrimaryScreen.Bounds screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) graph = Graphics.FromImage(screenshot) graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) PictureBox1.Image = screenshot

C# users put this under the button’s click event:

Rectangle bounds; System.Drawing.Bitmap screenshot; Graphics graph; bounds = Screen.PrimaryScreen.Bounds; screenshot = new System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb); graph = Graphics.FromImage(screenshot); graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy); PictureBox1.Image = screenshot;

For saving your screenshots just add another button to the form. Add this code for VB.NET users:

Dim SaveFileDialog1 As New SaveFileDialog() SaveFileDialog1.Filter = "PNG|*.png|GIF|*.gif" If SaveFileDialog1.ShowDialog() = DialogResult.OK Then If Not PictureBox1.Image Is Nothing Then PictureBox1.Save(SaveFileDialog1.FileName) End If End If

C# users use this instead:

SaveFileDialog SaveFileDialog1 = new SaveFileDialog(); SaveFileDialog1.Filter = "PNG|*.png|GIF|*.gif"; if (SaveFileDialog1.ShowDialog() == DialogResult.OK) { if (PictureBox1.Image != null) { PictureBox1.Save(SaveFileDialog1.FileName); } }

That’s it folks, have fun!

نظرات 3

یکشنبه، 17 آبان هزار و سیصد و هشتاد و هشت 10:02 AM

ٌWoW من دوباره تونستم وارد بلاگم بشم

سلام همیشه گفتن اولین حرف خیلی سخته اما من برگشتم از بلاگم خوشم میاد رمزم رو گم کرده بودم اما یه هو یادم اومد و تونستم دوباره بیام از همه گی ممنونم دلم واسه دوستای قذیمی ام خیلی تنگ شده الان هیچ کدومشون نیست و من تنهام (چه بهتر) قصد دارم مخ راضیه رو تیلیت کنم بیاد تو بلاگ بهم کمک کنه مارمولکی هست که دومی نداره استعداد عجیبی توی مطلب نوشتن وانتخاب قالب بلاگ داره محشر فقط تنها مشکلمون اینه که با هم نمی سازیم یعنی یه چند باری زد تمام مطالب منو پاک کری همه صفحات منو

خوب باشید تا بعد

نظرات 2

چهارشنبه، 9 مرداد هزار و سیصد و هشتاد و هفت 10:43 PM

دیگرازهمه ناامید شدم

نظرات 2

سه شنبه، 4 تیر هزار و سیصد و هشتاد و هفت 12:36 AM

مرو ای دوست مرو ای دوست
مرو از دست من ای یار که منم زنده به بوی تو
به گل روی تو
مروای دوست مرو ای دوست
بنشین با من و دل بنشین تا برسم مگر
به شب موی تو
تو نباشی چه امیدی به دل خسته من
تو که خامو شی بی تو به شام وسحر چه کنم
با غم تو

مروای دوست مرو ای دوست
مرو از دست من ای یار که منم زنده به بوی تو
به گل روی تو
بنشین تا بنشانی نفسی آتش دل
بنشین تا برسم مگر به شب موی تو
تو نباشی چه امیدی به دل خسته من
تو که خامو شی بی تو به شام وسحر چه کنم
با غم تو
چه کنم با دل تنها که نشد باور من
تو و ویرانی خاموشی کوهم اگر اگر چه کنم با غم تو

چه کنم با دل تنها چه کنم با غم دل
چه کنم با این درد دل من ای دل من
چه کنم با دل تنها چه کنم با غم دل
چه کنم با این درد دل من ای دل م
چه کنم با دل تنها چه کنم با غم دل
چه کنم با این درد دل من ای دل من
چه کنم با دل تنها چه کنم با غم دل
چه کنم با این درد دل من ای دل م
چه کنم.......
پخش آهنگ

(نظر بدهید.)

پنجشنبه، 16 خرداد هزار و سیصد و هشتاد و هفت 12:21 AM

من خیلی وقته که فراموش شدم
خوشحالم
و با این فراموش شدن می سازم
و امیدوارم که همه آدما به آرزو هاشون برسن
از هیچکی هم دلخوری ندارم به جز یه نفر به نام اسما
اگه دستم بهش برسه

نظرات 3

جمعه، 3 خرداد هزار و سیصد و هشتاد و هفت 12:04 AM

با من بمون ای همسفر
با من که از ره خسته ام
با جــام لبـريـز نگـات
از هستی خـود رسته ام
با من بمون ای همزبون
تـو ايـن شب دلـواپسی
با من که تنها مونده ام
در لحظـه هـای بيـکسی
ای يادگار از تو غرور زخمی ام
ای فارغ ازمن فارغ از يادت نيم
بر من رقيبم را پسنديدی ولی
شادم که ميدانی و ميدانم کيـم
شادم که سودايي ندارم
در سينه غوغـايي ندارم
آيينه ام خو کرده با شب
چشمی به فردايي ندارم

نظرات 1

چهارشنبه، 1 خرداد هزار و سیصد و هشتاد و هفت 10:40 PM

و سپس هیچکس برایم نماند ...

سلام
تا دیروز همه به من می گفتن تو با یکی دوتا دوست دختر راضی نمیشی باید یه دریا دختر باشن تا تو رو راضی کنه
اما امروز
خیلی از دوستام رفتن
بعضی هاشونم عروسی کردن
بعضی هاشونم آروم آروم دارن می رن
در کل دیگه هیچ کی برام نمی مونه

نظرات 1

چهارشنبه، 1 خرداد هزار و سیصد و هشتاد و هفت 10:34 AM

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

نظرات 1

چهارشنبه، 25 اردیبهشت هزار و سیصد و هشتاد و هفت 7:39 PM

دلم برای همه تون تنگ شده

نظرات 3