بهترین لینک های ویژوال بیسیک ارائه شده توسط اعضاء سایت

[SR72]

با عرض سلام بعد يه مدت طولاني دوباره برگشتم

عزيز شما يه سرچ بكني من قبلا لينك دانلود ويژوال بيسيك رو گزاشتم

هرچی سرچ زدیم چیزی نیافتیم ... البته یه لینک دوستان یا شاید هم خودتون داده بودید .. ولی اشتباه بود ..لینک دانلود megaupload بود ..
حالا لطف کنید همین جا بذارید که سردرگم نشیم ...ممنون ..

[mostafa_zare]

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

[marmolak kocholo]

سلام به همه ی دوستان برنامه نویس.

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

من یه سورس یا کد می خوام که با گزاشتن اون در داخل برنامه ، برنامه بعد از مدتی از کار بیفته مثل برنامه های Trial دیگر.

ممنون می شم اگه سریع برام بزارید.

[Arshia001]

سلام به همه ی بچه های گل!
من مدتیه که تو انجمن کنسول ها فعالیت میکنم،ولی اینجا تا حالا نیومده بودم.خیلی حال داد.دستتون درد نکنه.

مارمولک کوچولو،اگه با Vb2005 یا Vb2008 بخوای خیلی سادست.میتونم برات بذارم.اگه میخوای بگو بنویسم.البته تضمینی برای کرک نشدنش نیست.ولی اگه چیز دیگه ای میخوای،من نمیدونم.
یه بنده خدایی هم صفحه ی 2 راجع به استکانوگرافی سوال کرده بود.اونم میذارم اگه خدا خواست.

چاکر همه ی کدر ها!

خوب،همون طور که گفته بودم،اینم کد برنامه ی Trial Version.البته این فقط ایده ی کلی برنامه هست.برای استفاده باید اطلاعات LastUsed.txt،FirstUsed.txt و Lisence.txt رو جای مطمئن تری بریزی.

Public Class Form1

Const File_LastUsed As Integer = 1
Const File_Lisence As Integer = 2
Const File_FirstUsed As Integer = 3
Const UsageTime As Integer = 30

Enum LisenceTypeEnum
Registered = 1
Trial = 2
Expired = 3
End Enum

Private Function IsSerialValid(ByVal Serial As String) As Boolean
If Serial = "A Valid Serial" Then Return True Else Return False
End Function

Private Sub EndMe()
On Error Resume Next
Dim CurrentTime As System.DateTime = My.Computer.Clock.LocalTime
FileClose(File_LastUsed)
FileOpen(File_LastUsed, "LastUsed.txt", OpenMode.Output)
WriteLine(File_LastUsed, CurrentTime.Day)
WriteLine(File_LastUsed, CurrentTime.Month)
WriteLine(File_LastUsed, CurrentTime.Year)
FileClose(File_LastUsed)
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim LisenceType As LisenceTypeEnum
FileOpen(File_Lisence, "Lisence.txt", OpenMode.Input)
Input(File_Lisence, LisenceType)
Select Case LisenceType
Case LisenceTypeEnum.Registered
MessageBox.Show("Software Is Registered.")
EndMe()
Case LisenceTypeEnum.Expired
If IsSerialValid(InputBox("Lisence Expired.Enter Serial:")) Then
FileClose(File_Lisence)
FileOpen(File_Lisence, "Lisence.txt", OpenMode.Output)
Write(File_Lisence, LisenceTypeEnum.Registered)
FileClose(File_Lisence)
MessageBox.Show("Software Now Registered.Thanks For Your Purchase.")
EndMe()
Else
MessageBox.Show("Invalid Serial.")
EndMe()
End If
Case LisenceTypeEnum.Trial
Dim CurrentTime As System.DateTime = My.Computer.Clock.LocalTime
Dim LastUsedTime As System.DateTime
Dim FirstUsedTime As System.DateTime
Dim I As Integer
FileOpen(File_LastUsed, "LastUsed.txt", OpenMode.Input)
FileOpen(File_FirstUsed, "FirstUsed.txt", OpenMode.Input)
Input(File_LastUsed, I)
LastUsedTime = LastUsedTime.AddDays(I - 1)
Input(File_LastUsed, I)
LastUsedTime = LastUsedTime.AddMonths(I - 1)
Input(File_LastUsed, I)
LastUsedTime = LastUsedTime.AddYears(I - 1)
Input(File_FirstUsed, I)
FirstUsedTime = FirstUsedTime.AddDays(I - 1)
Input(File_FirstUsed, I)
FirstUsedTime = FirstUsedTime.AddMonths(I - 1)
Input(File_FirstUsed, I)
FirstUsedTime = FirstUsedTime.AddYears(I - 1)
If (CurrentTime - LastUsedTime).Days < 0 Then
MessageBox.Show("Your Clock Has Changed.The Trial Has Now Expired.")
FileClose(File_Lisence)
FileOpen(File_Lisence, "Lisence.txt", OpenMode.Output)
Write(File_Lisence, LisenceTypeEnum.Expired)
FileClose(File_Lisence)
EndMe()
End If
If (CurrentTime - FirstUsedTime).Days > UsageTime Then
MessageBox.Show("Lisence Just Expired.Obtain Serial From:http://www.mysite.com")
FileClose(File_Lisence)
FileOpen(File_Lisence, "Lisence.txt", OpenMode.Output)
Write(File_Lisence, LisenceTypeEnum.Expired)
FileClose(File_Lisence)
EndMe()
End If
MessageBox.Show("Trial Version.")
EndMe()
End Select
End Sub
End Class

اینو مستقیم کپی کن توی ادیتور VB2005 یا 2008.سه تا فایل رو هم بساز:
LastUsed.txt:
17
1
2008

FirstUsed.txt:
17
1
2008

Lisence.txt:
2

و ببین چجوری کار میکنه.ضمنا،اگه کاربر ساعت رو دستکاری کنه این کد میفهمه و خودشو Expire میکنه.
اون استکانوگرافی رو هم اگه وقت داشتم مینویسم همینجا میذارم.

[SR72]

سلام Arshia عزیز ...
لطف میکنی لینک دانلود vb 6.2 بذاری ؟
یا هوالی 6
ممنون

[Arshia001]

سلام Arshia عزیز ...
لطف میکنی لینک دانلود vb 6.2 بذاری ؟
یا هوالی 6
ممنون

شرمنده عزیز،من چون اینترنتم در سطح تیم ملی عمل میکنه(!) دنبال داونلود نرفتم.
چرا از 2005 یا 2008 استفاده نمیکنی؟خیلی بهترن.کد های vb6 رو هم خودشون طوری درست میکنن که با خودشون سازگار باشه.

[SR72]

شرمنده عزیز،من چون اینترنتم در سطح تیم ملی عمل میکنه(!) دنبال داونلود نرفتم.
چرا از 2005 یا 2008 استفاده نمیکنی؟خیلی بهترن.کد های vb6 رو هم خودشون طوری درست میکنن که با خودشون سازگار باشه.

جدا ؟ محیطش مثل همون نسخه های قبلیه ؟

[Arshia001]

ببین VB2005 و 2008 محیطشون مثل 6 نیست،ولی خیلی بهتره.من خودم 6 کار بودم.وقتی King September 2006 رو گرفتم دیدم VB2005 توش هست!گفتم نصب کنم ببینم چیه.نصبش که کردم،اصولا کفم آنچنان برید که دیگه دنبال 6 نرفتم.کار کردن باهاشون خیلی از 6 راحت تره.یه سری namespace اضافی هم دارن که واقعا به کار میاد،مثل system.drawing،system.IO،my،environment،و...� �به اضافه ی اینکه میتونی از Control های XP هم استفاده کنی و مجبور نیستی فرض کنی داری با 98 کار میکنی!2008 بریز پشیمون نمیشی!

[javad2625]

جدا ؟ محیطش مثل همون نسخه های قبلیه ؟

من نمي دونم اينترنت شما چيه ولي اگه Dialup داري، فكر دانلود vb6 رو نكن. چون حجمش زياده.
به هر حال، دير يا زود بايد از vb6 كه همون vb2000 هست به سراغ vb.net بياي كه نسخه هاي 2002و2003و2005و 2008 داره. همونطور كه گفته شد، بسيار هم بهتر از vb6 هست و مخصوصاً نسخه 2005 به بعد به سبك اكس پي طراحي شده. اما اگه مثلاً سي دي آموزش vb6 رو خريدي و ميخواي از روي سي دي ياد بگيري، خوب بايد همون vb6 رو تهيه كني كه محيطش شبيه آموزش باشه.

ضمناً بعضي ها، فكر مي كنند vb.net با vb فرق مي كنه كه اينطور نيست. نسخه هاي 2002 به بعد به دليل نيازمند بودن به ابزار كمكي net framework. به اين نام شناخته ميشن.

[SR72]

ببین VB2005 و 2008 محیطشون مثل 6 نیست،ولی خیلی بهتره.من خودم 6 کار بودم.وقتی King September 2006 رو گرفتم دیدم VB2005 توش هست!گفتم نصب کنم ببینم چیه.نصبش که کردم،اصولا کفم آنچنان برید که دیگه دنبال 6 نرفتم.کار کردن باهاشون خیلی از 6 راحت تره.یه سری namespace اضافی هم دارن که واقعا به کار میاد،مثل system.drawing،system.IO،my،environment،و...� �به اضافه ی اینکه میتونی از Control های XP هم استفاده کنی و مجبور نیستی فرض کنی داری با 98 کار میکنی!2008 بریز پشیمون نمیشی!

ممنون که راهنمایی کردید ..

من نمي دونم اينترنت شما چيه ولي اگه Dialup داري، فكر دانلود vb6 رو نكن. چون حجمش زياده.
به هر حال، دير يا زود بايد از vb6 كه همون vb2000 هست به سراغ vb.net بياي كه نسخه هاي 2002و2003و2005و 2008 داره. همونطور كه گفته شد، بسيار هم بهتر از vb6 هست و مخصوصاً نسخه 2005 به بعد به سبك اكس پي طراحي شده. اما اگه مثلاً سي دي آموزش vb6 رو خريدي و ميخواي از روي سي دي ياد بگيري، خوب بايد همون vb6 رو تهيه كني كه محيطش شبيه آموزش باشه.

ضمناً بعضي ها، فكر مي كنند vb.net با vb فرق مي كنه كه اينطور نيست. نسخه هاي 2002 به بعد به دليل نيازمند بودن به ابزار كمكي net framework. به اين نام شناخته ميشن.

آقا جواد متشکر ... یه سوال هم داشتم این بود که :
تو vb های 2007 و 2008 میشه از همه کد ها استفاده کرد ؟ یا مثلا آیا کد های جدیدی هم اضافه شده ؟
تو Vb .net که بعضی کد ها رو نمیشه زد ... چون بیشتر باهاش برنامه های high security میسازن ... (البته اگه اشتباه نکنم )