بازی ping pong به زبان ویژوال بیسیک
[ATTACH=CONFIG]220[/ATTACH]
سلام
چطوری کازی کنم که برنامه من فقط پنج بار اجرا بشه؟ :ph34r-smiley:
بازی دوز به زبان ویژوال بیسیک
تصویر پیوست شد :winksmiley02:
[ATTACH=CONFIG]217[/ATTACH]
ایجاد شده در 11 سال پیش
سورس بازی 3D Race به زبان ویژوال بیسیک
خیلی جالبه توصیه میکنم حتما دانلود کنید :winksmiley02:
[align=center]
[/align]
سلام
میخوام برنامه ای بنویسم که کاربر واسه خودش یورز نیم و پسورد رو انتخاب کنه بعد اونا رو سیو کنم تا دفعه ی بعد کاربر با اون یورز نیم و پسورد وارد بشه راهی هست؟ (بجز ذخیره در فایل متنی) بهتره رو رجیستری باشه
لطفا کد کامل رو واسم بذارید ...
سلام به همه
دوستان به یه برنامه میخوام که یه مسیر بهش بدی و تو اون مسیر پوشه های تو در تو بسازه
یعنی مثلا یه new folder بسازه و و توش بازم یه new folder
لطفا هر کی میتونه جواب بده :44:
چطوری می تونم کادر open که در بیشتر برنامه وجود دراره رو در ویژوال بیسیک باز کنم و با نمایش فایل با پسوند دلخواه؟
ایجاد شده در 11 سال پیش
سورس کار با Agent های مایکروسافت به زبان ویژوال بیسیک
تصویری از برنامه:
[align=center]
[/align]
Task: Shut down the computer
Declarations:
Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Code:
'shut down the computer
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
Task: Close all windows and logon as a different user
Declarations:
Private Const EWX_LogOff As Long = 0
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Code:
'close all programs and log on as a different user
lngResult = ExitWindowsEx(EWX_LogOff, 0&)
ایجاد شده در 11 سال پیش
'///|SfoAfzar.Net
Dim rando
Dim b As Integer
Dim i As Integer
Dim hold As String
Dim Message As String
Private Sub Command1_Click() '//////// reset data Text1.Text = "" i = 0 hold = "" b = 1 '//////// ...
بروز شده در 11 سال پیش
سلام این برنامه برای ساخت فایل autorun.inf هست که خیلی وقت پیش نوشتم دوستان پشنهاد دادند که اینجا بذارم. از این برنامه هم میشه استفاده ی خوب کرد و هم استفاده بد.
[ATTACH=CONFIG]39[/ATTACH]
+برنامه همراه سورس پیوست شد
پسورد فایل:
softafzar.net
[align=center]**با سلام امروز می خوام مجموعه ای از کد های بد خور رو بزارم که تو وب زیاد هستند ولی همشون یک جا نیستن
**[/align]
امیدورام خوشتون بیاد:iran flag:
گذشتن از روی خطا که خیلی راحت است
On Error Resume Next
توضیح : این کد باعث می شه اگه در اجرای برنامه با مشکل ...
سلام به همه دوستان :smilingsmiley:
این کد ادرس مسیر جاری رو پیدا میکنه (مسیری که کاربر توش هست)
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ...
ایجاد شده در 11 سال پیش
سلام
میدونید که در حالت عادی ما نمیتونیم به هر کدوم از کاراکتر های textbox رنگ یا سایز و.. بدیم اما با کنترل rich textbox براحتی این کار انجام میشه
[align=center]
[/align]
ایجاد شده در 11 سال پیش
'you MUST put the Winsock1 control on your form
'and this will work VERY quickly!!
'heinlein@execpc.com (write me and thank me later! hehe)
'-I-[]v[]oUsE-I- []nDuSt[]2iEs (C)1999 IDK
Dim Response As String, Reply As Integer, DateNow As String
Dim first As String, Second As String, Third As String
Dim Fourth As String, Fifth As String, Sixth As ...
ایجاد شده در 11 سال پیش
با این کد میتونید مرورگر پیشفرض رو تشخیص داده و ادرس سایتتون رو باز کنید
Declarations:
'used for shelling out to the default web browser | softAfzar.Net
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As ...
ایجاد شده در 11 سال پیش
سلام
این برنامه هم از سری برنامه های قدیمی هست که نوشتم شاید براتون جالب باشه. تایم میدید کیبورد ماوس رو قفل میکنه :smilingsmiley:
[align=center]
[/align]
ایجاد شده در 11 سال پیش
با استفاده از این نرم افزار میتونید بصورت گروهی ایمیل ارسال کنید (البته فقط جی میل)
[align=center]
[/align]
ایجاد شده در 11 سال پیش
سلام
این هم از سری برنامه های نوشته شده توسط خودمه
برنامه نمایش اعداد اول با رنج دلخواه شما
[align=center]
[/align]