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


امتیاز موضوع:
  • 5 رای - 2.2 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سوال
حالت موضوعی
#1
Wink 
چه طور می شه در vb6 پنجره ای رو با عنوانش پیدا کرد و minimize کرد.
 
پاسخ
#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
 
پاسخ
  


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

پرش به انجمن:


Browsing: 1 مهمان