برنامه نویسی

سلام

یه پروژه جدید دارم واستون افکت تایپ هست میتونید تو برنامه هاتون استفاده کنید
من برای اینکه مشکلی پیش نیاد از تابع ()Chr استفاده کردم ولی شما میتونید واسه خودتون بصورت سفارشی درست کنید  کد اون رو هم بصورت comment تو پنجره کد ها گذاشتم براتون.

موفق باشید

سلام

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

یه دگمه به فرم اضافه کنید و این کد رو تو قسمت جنرال کپی کنید:

Sub FourCorners(frm As Form) ' Cool Effect ex.) FourCorners Form1 'Visit DiP's VB World At: 'http://come.to/dipsvbworld If frm.WindowState <> 0 Then Exit Sub Dim X As Integer Dim Y As Integer Dim a As Integer Dim b As Integer Dim C As Integer Dim d As Integer Dim g As Integer Dim current As Double g = frm.Left b = frm.Top X = frm.Width Y = frm.Height C = g d = b current = Timer Do While Timer - current < 0.1 DoEvents Loop For a = 0 To 10 Call frm.Move(0, 0, X, Y) current = Timer Do While Timer - current < 0.1 DoEvents Loop Call frm.Move(Screen.Width - frm.Width, 0, X, Y) current = Timer Do While Timer - current < 0.1 DoEvents Loop Call frm.Move(Screen.Width - frm.Width, Screen.Height - frm.Height, X, Y) current = Timer Do While Timer - current < 0.1 DoEvents Loop Call frm.Move(0, Screen.Height - frm.Height, X, Y) current = Timer Do While Timer - current < 0.1 DoEvents Loop Next a Call frm.Move(g, b, X, Y) End Sub Private Sub Command1_Click() Call FourCorners(Me) End Sub

دوستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!(این کار بخصوص نزد تازه کارها از جمله خودم رواج بیشتری داره)
ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه 

وسایل لازم: فقط یه تایمر مثل همیشه!
کدها:

سلام، تا به حال شده برین و ویژوال بیسیک تونو بازکنید و بخوایین توش فارسی بنویسیداماچنین چیزیببینید؟

خوب این یه مشکل خیلی ساده است که برای منم پیش اومده بود، کاری نداره! فقط این مسیر رو برید:

Tools>Option>Editor format

حالا تو قسمت Font برید و ( Courier New (Arabic رو انتخاب کنید و مشکل حله.

ویژوال بیسیک توسعه یافته زبان برنامه‌ نویسی بیسیک می‌باشد. بیسیک توسط پروفسور جان کمنسی و توماس کرتز از کالج دارتموث برای نوشتن برنامه‌ های ساده ایجاد شد. طراحی آن از اواسط دهه ۱۹۶۰ آغاز گردید.
ویژوال بیسیک تا نسخه ۳ به صورت ۱۶ بیتی بود. از نسخه ۵ به بعد فقط ویرایش ۳۲ بیتی آن ارائه شد. (نسخه ۴ هم به صورت ۱۶ بیتی و هم به صورت ۳۲ بیتی عرضه شده بود.)
ویژوال بیسیک از نسخه ۶ به بعد بر پایه چارچوب دات‌ نت (NET.) ارائه شد.
اگر چه با ظهور ویژوال بیسیک دات نت اکثر برنامه‌نویسان ویژوال بیسیک ۶ به آن گرویدند، ولی نسخه ۶ همچنان طرفداران ویژهٔ خود را دارد.
ویژوال بیسیک برای توسعه سریع نرم افزار (RAD یا Rapid Application Development) بر پایه رابط گرافیگی کاربر (GUI یا Graphical User Interface) توسعه داده شد. دسترسی آسان و سریع به پایگاه دادهها با استفاده از DAO ،RDO یا ADO و ایجاد کنترل‌ های اکتیو ایکس از جمله مواردی هستند که این زبان را برای RAD مناسب کرده‌ اند.

برنامه ‌نویسی در ویژوال بیسیک به صورت رخدادگرا می‌باشد.
در برنامه‌ نویسی تجاری، ویژوال بیسیک جز محبوب‌ ترین‌ ها است. بنابه آماری که در سال ۲۰۰۳ منتشر شد، ۵۳٪ از برنامه‌های تجاری با استفاده از این زبان تولید شده‌ اند.

تغییرات حاصله در ویرایش نسخه جدید 2009 به شرح زیر است.

حلقه Do

با استفاده از حلقه می توان تعدادی دستور را به اندازه دلخواه تکرار کند.

درون حلقه دستورات تا زمانی که شرایط  محیا نشده ، آن دستورات تکرار میشوند و زمانی که شرایط محیا شد دیگر دستورات تکرار نمی شوند.

 حلقه Do While

شکل کلی حلقه Do While

شكل دوم (شرط حلقه در انتها تست ميشود)

برای اینکار دو روش وجود داره؛ روش اول اینه که برنامه رو در پوشه Startup کپی کنیم که روش جالبی نیست چون کاربر میتونه بره به اون پوشه و فایل رو پاک کنه و امّا روش دوّم (قابل توجّه ویروس نویسا) اینه که برنامه رو تو لیست برنامه های Startup در رجیستری ذخیره کنیم که روش مطمئن و بهتریه چون کاربر نمیدونه برنامه کجا قرار داره و از کجا اجرا میشه مگر اینکه از طریق رجیستری و یا برنامه System Configuration Utility (تایپ msconfig در Run ویندوز) متوجه مسیر برنامه بشه که خب خوشبختانه همه اینکارو بلد نیستن...

200 تابع برای استفاده تو ویژوال بیسیک همراه با توضیح و طرز استفاده از اون ها.

اطلاعات فايل:

[336 KB]

[exe]

[-]

[Programming]

[-]

[programming.rozblog.com]

دانلود در ادامه مطلب...

Declarations:

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Code:

SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME

سلام،

باز هم با یه پروژه جدید در خدمتتون هستیم :)

یه پروژه ی چت هست تقریبا که از کنترل winsock استفاده میکنه میتونید در ادامه مطلب بقیه عکس ها رو از محیط این برنامه ببینید.

دانلود برنامه در ادامه مطلب...