Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

Program Exe' Sinden Pencere Başlığına Ulaşmak Istiyorum


x_files_x
 Share

Recommended Posts

Global $AktifPencereAdi = WinGetTitle("[ACTIVE]")
   MsgBox(0,"Çalısan Pencerenin Başlığı",$AktifPencereAdi)
;Exe Nin Adını Mesaj ile Gösterme
$Programim = Run("Notepad.exe")
WinWait($Programim, "", 2)
$handle = WinGetHandle("[CLASS:Notepad]")
MsgBox(0, "", WinGetTitle($handle, ""))

 

Edited by darendeli
Link to comment
Share on other sites

  • 2 hafta sonra ...
darendeli, 27.12.2017 - 17:09 yazdı:

Global $AktifPencereAdi = WinGetTitle("[ACTIVE]")
   MsgBox(0,"Çalısan Pencerenin Başlığı",$AktifPencereAdi)

;Exe Nin Adını Mesaj ile Gösterme
$Programim = Run("Notepad.exe")
WinWait($Programim, "", 2)
$handle = WinGetHandle("[CLASS:Notepad]")
MsgBox(0, "", WinGetTitle($handle, ""))

 

darendeli kardeş, eline sağlık işime yaradı

Link to comment
Share on other sites

  • 2 hafta sonra ...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Global $AktifPencereAdi = WinGetTitle("[ACTIVE]")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Aktif Pencerenin Adı", 342, 101, 192, 124)
$Input1 = GUICtrlCreateInput("", 24, 24, 297, 21)
$Button1 = GUICtrlCreateButton("Kontrol Et", 24, 56, 185, 33)
$Checkbox1 = GUICtrlCreateCheckbox("Sürekli Kontrol Et", 224, 54, 105, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Sürekli Üstte Tut", 224, 74, 105, 17)
$herzamanustte = 0
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
		GUICtrlSetData($Input1,$AktifPencereAdi)
		Case $Checkbox1
			If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
				AdlibRegister("_PencereBilgi",1000)
			ElseIf GUICtrlRead ($Checkbox1) = $GUI_UNCHECKED Then
			    AdlibUnRegister("_PencereBilgi")
			EndIf

		Case $Checkbox2
			If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
			$herzamanustte = Not $herzamanustte
			WinSetOnTop ($Form1,"",$herzamanustte)
			Else
			WinSetOnTop ($Form1,"","")
			EndIf
	EndSwitch
WEnd




Func _PencereBilgi()
	Global $AktifPencereAdi = WinGetTitle("[ACTIVE]")
	If $AktifPencereAdi == "Aktif Pencerenin Adı" Then
		GUICtrlSetData($Input1,"")
		Else
	GUICtrlSetData($Input1,$AktifPencereAdi)
	EndIf
EndFunc

Pencere Baslıklarını Gösteren Kücük bir Gui Yaptım  Lazım olan Kullanır...

Edited by darendeli
  • Like 1
Link to comment
Share on other sites

  • 5 hafta sonra ...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...