سلام
این برنامه هم برای حسین أقا نوشتم چون اسرار کرده بود نوشتم با این برنامه میتونید ریجستری خود را فعال یا غیر فعال کنید
از اینجا دانلود کن
http://www.sharemation.com/shhacker/regedit&enable&disable.exe
وفتی دانلود کردی حتما نظر بده ممنون
باز هم برنامه
سلام برابچبا این برنامه کوچک میتوانید ژیغام اخطار کمبود فضای خالی بر روی هارد دیسک را بردارید
از اینجا دانلود کنید
نظر اول بدین بد دانلود کنید
http://www.sharemation.com/shhacker/disk%20space.exe
سلام برابچ
این برنامه هم برای ماتریکس نوشتم فقط هم ماتریکس دانلود کند
این برنامه برای شوخی با دیگران نوشتم
این برنامه را برای یارو بفرست راستی خودت هم بازش کن اگر چیزی میخوای بهش اضافه کنم بهم بگو
سلام به بروبج
این هم وبلاگ دوست عزیزمون
http://www.vbp.persianblog.com
وبلاگ جدیدشون
http://www.vbheaven.persianblog.com/
میخوام دو تا برنامه که با ویژوال بیسیک نوشتم بزارم اینجا تا دانلود کنید یکی برای مخفی کردن درایو ها و دیگری افزایش سرعت باز شدن منوهاست
http://www.sharemation.com/shhacker/drive%20hidden.exe
http://www.sharemation.com/shhacker/menu%20speed%201.exe
سلام بروبچ یک سایت توپ که پر از نرم افزار گزاشته برای دانلود
http://barname.blogsky.com
بابا شما چی چی هستید نظر بدید
ریجستری ادیتور
سلام
این برنامه هم ساختم به خاطر اینکه دیگه تو ریجستری نرم و راحت کارهایی که با ریجستری سر وکار دارم را گزاشتم تو این برنامه
امیدوارم خوشتون بیاد
تصویری از این برنامه
از اینجا دانلود کنید ۴۳ کیلوبایت
http://www.sharemation.com/shhacker/rigistry%20editor1%20far30.sfx.exe
راستی نظر یادتون نره
غیرفعال ـ فعال کردن ریجستری با ویژوال بیسیک
سلام دوستان که این قدر محبت دارید ممنون از نظرات وپیشنهاداتون
میخوام سورپریزتون کنم
میدونید امروز چه روزیه امروز جشن تولد این وبلاگه از امروز این وبلاگ یک ساله شد
حالا میخوام یک آموزش جدید بزارم براتون تا حالشا ببرید
اول دوتا کمند تو فرم درست کنید
وبعد این کدها را کپی کنید
Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCUsoftwaremicrosoftwindows" & _
"currentVersionPoliciessytemdisableRegistryTools"
b.regwrite s, 1, "REG_DWORD"
End Sub
Private Sub Command2_Click()
Set b = CreateObject("wscript.shell")
s = "HKCUsoftwaremicrosoftwindows" & _
"currentVersionPoliciessytemdisableRegistryTools"
b.regdelete s
End Sub
Private Sub Form_Load()
Dim a As Object
Dim b As String
Command1.Caption = "disable regedit"
Command2.Caption = "enable regedit"
End Sub
راستی نظر یادتون نره
سلام - امروز می خوایم یه کاری روی Desktop انجام بدیم - با سورس زیر تمام آیکونهای روی صفحه از سمت چپ چیده می شن.
کد ماژول :
Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GW_CHILD = 5
Private Const LVA_ALIGNLEFT = &H1
Private Const LVM_ARRANGE = &H1016
حالا یک Command با نام Command1 به فرم اضافه کرده و :
Private Sub Command1_Click()
Dim HWnd1 As Long
Dim HWnd2 As Long
Dim MER As Long
HWnd1 = FindWindow("Progman", vbNullString)
HWnd2 = GetWindow(HWnd1, GW_CHILD)
HWnd1 = GetWindow(HWnd2, GW_CHILD)
MER = SendMessage(HWnd1, LVM_ARRANGE, LVA_ALIGNLEFT, 0)
End Sub
سلام
برابچ
دانلود برنامه جادو فارسی
مژده به کسانی که عاشق دانلود نرم افرار های فارسی هستند
این هم یک ساعت دیجیتال همه کاره است که کنار دکستاپ قرار میگیرد
که میتوانید با آن ساعت سیستم و تاریخ وحتی سیدی را باز وبسته میکند وسریال نامبر برنامه های مفید وویندوزوایمجینگ فارسی و خنده ولینک های سایتهای مختلف و حتی دفتر چه یادداشت وخاموش کردن اتوماتیک کامپیوتر را برای شما این ساعت فراهم میکند. من حدود 4 ساعت داشتم این برنامه را مینوشتم حتما دانلود کنید تا حالشا ببرید
اگر احیانا باز نشد باید ویژوال بیسیک را نصب کنید یا ویندوز خود را آپدیت نمایید
از اینجا دانلود نمایید 178 کیلوبایت