• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 5 رای - 2.2 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سوال
حالت خطی
#2
درود
لطفا عنوان مناسب برای تایپک خود استفاده کنید.
یک تایمر بر روی فرم بزار ,رو 1 ثانیه ست کن
بعد جای

کد:
Untitled - Notepad
تایتل پنجره ای که میخوای MINIMIZE بشه رو بده
اگر میخوای عنوان پنجره ها رو هم ببینی اخر کد ME.CAPTION =TXT رو بزن
بفرمایید :  

کد:
'CODE BY WWW.PARSICODERS.COM BY AMIN MANSOURI
'FIND HANDLE AND MINIMIZE WINDOW
Private Const SW_MINIMIZE As Long = 6

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
  ByVal nCmdShow As Long) 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 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Timer1_Timer()
Call FindHandleMin("Untitled - Notepad")

End Sub

Private Sub FindHandleMin(Amin As String)
Dim foreground_hwnd As Long
Dim txt As String
Dim length As Long
    foreground_hwnd = GetForegroundWindow()
    txt = Space$(1024)
    length = GetWindowText(foreground_hwnd, txt, Len(txt))
    txt = Left$(txt, length)
If txt = (Amin) Then
ret = ShowWindow((foreground_hwnd), SW_MINIMIZE)
End If
End Sub

  
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
سوال - توسط attacker - 04-11-2013، 10:30 AM
RE: سوال - توسط Amin_Mansouri - 04-12-2013، 02:17 AM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سوال درباره پر.ژه اسکن aghamali 1 3,320 04-17-2014، 03:42 PM
آخرین ارسال: aghamali
  سوال در مورد ویروس سازی a.adhami 4 6,148 11-20-2013، 07:13 PM
آخرین ارسال: Amin_Mansouri
Question سوال attacker 1 3,301 03-22-2013، 11:25 AM
آخرین ارسال: Amin_Mansouri
  سوال در مورد کانکت بودن gachboy 5 7,755 03-16-2013، 05:08 PM
آخرین ارسال: Kei armin
  سوال raid 1 3,497 03-07-2013، 09:44 AM
آخرین ارسال: raid
Question سوال attacker 1 3,347 01-04-2013، 07:59 PM
آخرین ارسال: persiaunknown
Rainbow سوال در باره ی Inet gachboy 0 2,580 12-23-2012، 02:28 PM
آخرین ارسال: gachboy
Question سوال در مورد افزایش سرعت کراکر gachboy 1 3,564 12-05-2012، 12:35 PM
آخرین ارسال: rap0661
Question سوال در مورد sendkeys gachboy 9 11,310 10-16-2012، 09:45 PM
آخرین ارسال: gachboy
  یه سوال وی بی 6 Thewolf 5 6,967 09-20-2012، 02:27 PM
آخرین ارسال: Ghoghnus

پرش به انجمن:


Browsing: 1 مهمان