Jump to content
Sign in to follow this  
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

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.

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...