Winamp 2.5
بله
خیر
سلام به همه دوستان عزیز .
بعد از چند روز یه کد واستون نوشتم . اینو بزارید توی From_Load ببینید چی میشه !!!!!!!!
Dim g As New Drawing2D.GraphicsPath
'------------------------
Dim Rect As RectangleF
With Rect
.Height = 100
.Width = 150
.X = 100
.Y = 100
End With
'---------------------
g.AddRectangle(Rect)
Me.Region = New System.Drawing.Region(g)
ســــــــــــــــلام .
اینم یه کد واسه خاموش کردن سیستم بعد از 1 دقیقه .
خب اگه خاستید عملیات خاموش شدن رو متوقف کنید Command Prompt رو باز کنید و کد زیر رو وارد کنید :
System.Diagnostics.Process.Start("shutdown.exe", " -s -t 60")
بای بای ........................
shutdown -a
آخرین ویرایش به وسیله Netsky : یک شنبه 11 بهمن 1388 در 00:10 صبح
سلام یه کد میخوام برای سرچ فایل ها در vb.net
سلام .
به کد دیگه تقدیم دوستان عزیز میکنم .
بوسیله این کد میتونید با استفاده از PID یک پروسس نام اون پروسس رو بدست بیارید .
MsgBox(System.Diagnostics.Process.GetProcessById(4 000).ToString())
نوشتن در یک فایل متنی هم با این کد انجام میشه .
Dim Writter As StreamWriter = File.AppendText("C:\Test1.txt")
With Writter
.WriteLine("I'm a Text File and Created By Your Program")
.Flush()
.Close()
End With
250 سورس vb.Net:
لینک مطلب
لینک دانلود با حجم 14.5 مگابایت
سلام بچه ها من هم ميخوام تو اين تاپيك شركت كنم
ولي كد هاي اينجا رو داشتم مرور ميكردم كه ديدم كدهاي شما خيلي طولاني چرا ايقدر برنامه نويسي رو
پيچيده ميكنيد با كدهاي راحت تري ميتونيد كار كنيد
سلام به همگی ..........
بازم با یه کد کاربردی در خدمت شما هستم . با استفاده از این کد میتونید نام فولدرهای داخل یه درایو ( و یا یک فولدر ) رو بدست بیارید .
Public Function Get_Folders(ByVal Folder_OR_Drive)
Dim strFolders As String
'----------------------------
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(400, 400)
Me.Controls.Add(LSTBOX)
'----------------------------
If Directory.Exists(Folder_OR_Drive) = False Then
MessageBox.Show("Invalid This Folder : " & Folder_OR_Drive, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
For Each strFolders In System.IO.Directory.GetDirectories(Folder_OR_Drive )
LSTBOX.Items.Add(strFolders)
Next
End If
End Function
ســــــــــــــلام .
خب ، یه کد دیگه نوشتم که تقدیم میکنم . با این کد میتونید یه Drive Box به صورت Runtime ( در زمان اجرا ) داشته باشید .
Public Function DriveBox_RunTime()
Dim Drive_Box As New ComboBox
Drive_Box.Size = New Size(100, 0)
Drive_Box.DropDownStyle = ComboBoxStyle.DropDownList
Me.Controls.Add(Drive_Box)
'================================================= ===
Dim Drives As DriveInfo
'-------------------------
For Each Drives In System.IO.DriveInfo.GetDrives()
Drive_Box.Items.Add(Drives.Name)
Next
End Function
سلام .
با این کد میتونید فایل های داخل یه فولدر ( یا یک درایو ) رو بدست بیارید .
Public Function Get_Files(ByVal Folder As String)
Dim strFiles As String
'-----------------------
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(400, 400)
Me.Controls.Add(LSTBOX)
'-----------------------
If Directory.Exists(Folder) = False Then
MessageBox.Show("Invalid This Folder : " & Folder, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
For Each strFiles In System.IO.Directory.GetFiles(Folder)
LSTBOX.Items.Add(strFiles)
Next
End If
End Function
بازم سلام .
خب این دفعه یه کد واقعا کاربردی واستون نوشتم که در بعضی مواقع واقعا به برنامه کمک زیادی میکنه ( به من که تابحال خیلی کمک کرده ).
در بعضی مواقع لازمه که کاربر رو از نوشتن هرچیزی به جز اعداد در TextBox منع کنیم . این کد به شما کمک میکنه که این کار رو انجام بدید . البته واسه کلید Backspace هم شرطی در نظر گرفته شده تا این کلید کار کنه . کد زیر رو در داخل رویداد KeyPress مربوط به تکست باکستون بنویسید :
در کد بالا فقط نوشتن کاراکتر نقطه منع نشده ( به خاطر نوشتن اعشار ) که در صورت که صلاح دیدید میتونید کاراکتر نقطه رو هم به ساختار Select-Case ی که در کد هست اضافه کنید . برای اینکار میتونید کد زیر رو بعد از یکی از Case ها بنویسید :
If e.KeyChar = "8" Then
e.Handled = False
End If
Select Case e.KeyChar
Case "*"
e.Handled = True
Case "-"
e.Handled = True
Case "/"
e.Handled = True
Case "!"
e.Handled = True
Case "#"
e.Handled = True
Case "$"
e.Handled = True
Case "%"
e.Handled = True
Case "^"
e.Handled = True
Case "&"
e.Handled = True
Case "("
e.Handled = True
Case ")"
e.Handled = True
Case "+"
e.Handled = True
End Select
If (e.KeyChar >= "0") And (e.KeyChar <= "9") = False Then
e.Handled = True
End If
اگه بازم مشکلی بود من در خدمتم ......
Case "."
e.Handled = True
خب اینم یه کد دیگه که کاربردش رو در ادامه میخونید .....
بعضی مواقع پیش میاد که بخایم از داخل یه فولدر ( یا درایو ) یه سری فایل با فرمت خاص ( مثلا exe یا jpg ) رو بدست بیاریم .
نیازی نیست زحمتی به خودتون بدید ، چون بنده کد آماده ش رو در اختیارتون قرار میدم . کد زیر رو ملاحظه بفرمایید :
البته کد خیلی واضح نوشته شده ولی احیانا اگه دوست عزیزی چیزی رو از داخل کد متوجه نشد ، اصلا اشکالی نداره ، به صورت پیام خصوصی مشکلش رو باهام در میون بگذاره . من نوکرش هم هستم .......
Public Function Get_Files_Special_Extention(ByVal Folder As String)
Dim strFiles, Extention As String
Dim Case_Sens As Integer
'-----------------------
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(400, 400)
Me.Controls.Add(LSTBOX)
'-----------------------
If Directory.Exists(Folder) = False Then
MessageBox.Show("Invalid This Folder : " & Folder, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
For Each strFiles In System.IO.Directory.GetFiles(Folder)
Extention = Path.GetExtension(strFiles)
Case_Sens = String.Compare(Extention, ".EXE", True)
If Case_Sens = 0 Then
LSTBOX.Items.Add(strFiles)
End If
Next
End If
End Function
سلام به همه دوستان عزیز . امیدوارم حال خودتون و کامپیوترتون (مخصوصا برنامه ویژوال استدیو) خوب باشه !!!
خب یه کد دیگه واستون نوشتم که در ادامه تقدیم شما برنامه نویسای عزیز میشه .
ممکنه درحال نوشتن یه برنامه باشید و بخاید Process های ( پردازش ) که الان در سیستم درحال اجرا هستند رو بدست بیارید . بوسیله کد زیر میتونید خیلی راحت این کار رو انجام بدید . البته اضافه بر نام پروسس ها شماره پردازش شون ( PID ) رو میتونید ملاحظه کنید :
Public Function Get_Processes()
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(300, 380)
Me.Controls.Add(LSTBOX)
'========================
Dim Processes As System.Diagnostics.Process
For Each Processes In System.Diagnostics.Process.GetProcesses()
LSTBOX.Items.Add(Processes.ProcessName & " ( " & Processes.Id & " ) ")
LSTBOX.Items.Add("")
Next
End Function
سلام .
روشی بسیار ساده واسه بدست آوردن درایوهای Removable ( فلش ها – مموری کارت گوشی ها و ... ) .
Public Function Get_Removable_Drive()
Dim RMDRV As String
Dim Drive As DriveInfo
For Each Drive In System.IO.DriveInfo.GetDrives()
RMDRV = Drive.DriveType.ToString()
If RMDRV = "Removable" Then
MessageBox.Show(Drive.Name, "Removable Drive")
End If
Next
End Function
با سلام . در چندين تاپيك ديدم كه دوستان نحوه ايجاد uninstall در ساخت setup با VB.NET رو پرسيدن . اينجا جواب رو كامل ميذارم كه در دسترس دوستان باشه :
در بخش ساخت setup در فولدر user's programs menu یا هر جای دیگه ای که می خواین یک shortcut جدید اضافه کنین با نام uninstall myProject (یا هر اسمی که دوست دارین)
فایلی که ازش shortcut می سازین همون primary output هست (همون فایل اجرایی که از مسیر application folder می ریم) همونطور که می بینین این دقیقا همون فایلی هستش که برای اجرای برنامه مون ازش استفاده می کنیم.
روی shortcut جدیدی که ساختین راست کلیک کنین و properties رو انتخاب کنین و این تغییرات رو بدین:
مقدار گزینه Arguments رو برابر کد:/u=[ProductCode]بذارین
Name و توضیحات Description مربوط به uninstall رو به دلخواه خودتون تغییر بدین .
حالادر ماژول ()Main کد زیر رو بنویسین :
Dim arguments As String() = Environment.GetCommandLineArgs()
Dim myArgument As String()
Dim myString As String
For Each argument As String In arguments
Dim myChar As Char() = {"="c}
myArgument = argument.Split(myChar)
myString = myArgument(0)
If myString.ToLower() = "/u" Then
Dim guid As String = myArgument(1)
Dim path As String = Environment.GetFolderPath(Environment.SpecialFolde r.System)
Dim si As ProcessStartInfo
si = New ProcessStartInfo(path + "\\msiexec.exe", "/i " + guid)
Dim myProcess As Process
myProcess = Process.Start(si)
myProcess.Close()
Application.Exit()
End
End If
Next
اینم منبع :
http://www.codeproject.com/KB/instal...Uninstall.aspx
موفق باشيد
این کد، متن خالص رو از میان کدهای اچ تی ام ال صفحات وب جدا می کند:
Function RemoveTags(HTML As String) As String
Dim buf As String, pos As Integer
pos = InStr(HTML, "<")
'check for no tags situation
If pos = 0 Then
RemoveTags = HTML
Exit Function
End If
Do
' Add text before the first tag to beffer
buf = buf & Left(HTML, pos - 1)
' Find end of tag
pos = InStr(HTML, ">")
' Remove everythin up to the
' end of the tag from text
If pos = 0 Then Exit Do
HTML = Mid(HTML, pos + 1)
' Find the start of the next tag
pos = InStr(HTML, "<")
If pos = 0 Then Exit Do
Loop While True
RemoveTags = buf
End Function
بعضي از دوستان در مورد خواندن داده ها از يك فايل Excel سوال كرده بودن.
با مثالي كه ضميمه كردم بدون استفاده از dll هاي آفيس مي توانيد :
داده ها را از اكسل بخوانيد (در اين مثال از شيت اول فايل C:\1.xls )
آنها را در يك DataGridView ببينيد
يك ستون مشخص (با عنوان 'نام مشترك') را مشخص كرده و تمام رديفهاي مربوطه را در يك آرايه بريزيد
محتواي ستون فوق را در يك ListBox ببينيد.
فرضيات فوق را براي كم حجم شدم و خوانا شدن برنامه انجام داده ام . شما به سليقه و ذوق خودتان مي توانيد فايل ، شيت و ستون دلخواه را انتخاب كنيد و يا بصورت ران تايم بعهده كاربر بگذاريد.
موفق و سبز باشيد
آقا خیلی ممنون دمت گرم حال کردم
سلامی دوباره عرض میکنم خدمت تمامی دوستان خوبم .
یک بار دیگه با یک برنامه دیگه در خدمت¬تون هستم . این یکی دیگه واقعا کاربردیه و در خیلی زمینه ها مثل امنیت برنامه هاتون به شما کمک میکنه . این برنامه به شما کمک میکنه که یکی متن رو رمزنگاری کنید . حالا این متن میتونه رمز عبور برنامه شما باشه که در یه جا ذخیره¬ش میکنید یا اطلاعات مهم دیگه¬ای از این قبیل .
در این برنامه از الگوریتم رمزنگاری کلید متقارن Rijendael استفاده شده که یک الگوریتم بسیار قدرتمند در زمینه رمزنگاریه .
خب حالا یک اسکرین شات از برنامه ببینید . از همین اسکرین شات میشه روش کار برنامه رو متوجه شد ، ولی من خودم هم یک توضیح میدم .
شما یک متن دارید که میخاید اون رو رمزنگاری کنید . متن مورد نظرتون رو در تکست باکس بالا بنویسید .
حالا یک کلمه یا عدد رو به عنوان کلید در تکست باکس وسط برنامه وارد کنید .
دکمه Encryption رو بزنید و میبینید که در تکست باکس پایین برنامه متن مورد نظر شما به صورت رمز شده ظاهر میشه .
یه نکته بسیار مهم : اگه متنی رو با این روش رمز کردید حتما کلمه ای که به عنوان کلید در برنامه وارد کردید رو یه جایی یادداشت کنید تا اگه خواستید متن رمز شده رو به حالت عادی برگردونید ( Decryption ) از کلید خودش استفاده کنید . در غیر اینصورت متن شما غیرقابل بازیابیه .
خب حالا فرض کنید خواستید متنی رو که یه روزی رمز کردید به حالت عادی برگردونید . متن رمز شده رو داخل تکست باکس پایین برنامه مینویسید و کلید رو هم در تکست باکس وسط برنامه . حالا دکمه Decryption رو بزنید و میبینید که متن شما در تکست باکس بالا نمایش داده خواهد شد .
امیدوارم که از این برنامه استفاده کافی رو ببرید .
چون فضای آپلود سایت یه چندکیلوبایتی کمتر بود مجبور شدم فایل رو دوتکه کنم . هردو فایل ادامه هم هستن . پس موقعی که خواستید اونا رو Extract کنید کنار هم بزاریدشون .
یه بازی ساده که شاید خوشتون بیاد!!
اگه کسی می خواد فایروال سیستم رو غیر فعال کنه می تونه از این استفاده کنه
اینم یه برنامه جالب که EN رو به عربی تبدیل می کنه
اینم یه موزیک پلیز زیبا که امیدوارم بدردتون بخوره!!
با سلام به دوستان گلم
اینم برنامه برای تغییر سایز عکس به دلخواه
البته با کمک دوست گلم آقایی amin_iman82
روش کار :
ابتدا با اجرا شدن برنامه یک پوشه با نام pic در Debug برنامه ایجاد کرده و پس از تغییر سایز اون رو در پوشه Debug\pic ذخیره میکنه
موفق باشید
resize pic.rar
اینم یه پروژه فوق العاده که موزیک پلیر و MyComputer و IE همه با هم رو توی خودش داره!!!
پیشنهاد می کنم حتما دانلود کنید.
اینم یه برنامه جامع برای کسانی که دوست دارن با GDI+ یا مد گرافیک کار کنن.
برنامه کامل سیستم رزرواسیون هتل که حتما بدردتون می خوره!!
http://www.divshare.com/download/10564519-8a0
سلام . آرزوی بهترین¬ها برای شما که بهترین هستید .
برنامه ¬ی دیگه ای نوشتم که تقدیم شما سروران عزیز میشه .
بوسیله این برنامه میتونید میزان استفاده از CPU یا همون CPU Usage و فضای قابل استفاده از حافظه اصلی سیستم ( RAM ) رو بدست بیارید . اطلاعاتی که در برنامه میبینید به صورت Dynamic هستش و هر 1 ثانیه آپدیت میشه .
اینم نمایی از برنامه :
امیدوارم مفید واقع بشه .
یه دیتاگرید که میتونید داخلش سرچ کنید و فایل باز کنید!! واسه تازه کارا بد نیست