Jump to content
TNC-TR
x_files_x

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

Recommended Posts

Mrb, arkadaşlar. Diyelim ki

run("deneme.exe")  komutu ile ilgili programı çalıştırdık. Bu deneme.exe dosyasının aktif pencere başlığına nasıl ulaşırım?   

  • Like 1

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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ı

Share this post


Link to post
Share on other sites
#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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.

×