VB.Net Ödevi - Programı Minimize Olarak Başlatma

10.05.2020 17:30

dreamfancy WM Aracı Kullanıcı

Üyelik 30.10.2013
Yaş/Cinsiyet 30 / E
Meslek WebMaster
Konum Rusya

Ad Soyad Ö** Ç**
Mesajlar 339
Beğeniler 154 / 71
Ticaret 3, (%100)

Merhaba Ustalar,

İnternetten bazı kaynaklara baktım. Sadece Notepad ve Hesap Makinesi gibi şeylere start verirken Minimize yani küçültülmüş bir şekilde (alta alınmış) bir şekilde başlatıyor.

Ama ben istiyorum ki bütün programları yani neyi açarsa açsın minimize olarak küçültülmüş alta alınmış olarak Process.Start versin istiyorum. Yani diğer uygulamalarda minimize edilmiş şekilde başlatılabilsin. Birde button1'e bastığımdada açık olan programı küçültsün minimize etsin istiyorum.

Bu mümkünmüdür?

.....Belki yardım edersiniz :(
ontedi emreyvz Decimas BRAGA Simurg

10.05.2020 19:50

#2

BRAGA WM Aracı Kullanıcı

Üyelik 02.01.2014
Yaş/Cinsiyet 30 / E
Meslek Öğrenci
Konum Ankara

Ad Soyad R** Ç**
Mesajlar 248
Beğeniler 49 / 60
Ticaret 2, (%100)

Sanırım bot yapmaya çalışıyosun. Programlar senin uygulamanın içinde mi çalışacak yoksa normal Process.start verip minimize yapmak mı istiyorsun? Pek anlamam ama yardımcı olmak için biraz araştırma yaptım ve bunu buldum. Kendi formun içinden çalıştırıp minimize atabilirsin belki. Burada sadece harici uygulamalar form içinde nasıl çalıştırılır onu anlatmış. Form içinde çalıştırıp minimize atabilirsin belki.

Burayı da incele , bu senin isteğine daha yakın

Edit : Bir de kod buldum


Dim p As ProcessStartInfo = New ProcessStartInfo("Mugen.exe") With {.WindowStyle = ProcessWindowStyle.Minimized}
Process.Start(p)

www

10.05.2020 19:58

#3

emreyvz .NET Core & Angular & PHP Kullanıcı

Üyelik 19.04.2016
Yaş/Cinsiyet 28 / E
Meslek Bilgisayar Mühendisi
Konum İstanbul Anadolu

Ad Soyad E** Y**
Mesajlar 691
Beğeniler 110 / 250
Ticaret 24, (%100)

Minimize, Maximize, Gizleme ve Eski Haline Döndürmek İçin öncelikle belirtilenler Global olarak tanımlanmalı:


'Global Olarak Tanımlanmalı
    Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
    Const SW_HIDE As Integer = 0
    Const SW_RESTORE As Integer = 1
    Const SW_MINIMIZE As Integer = 2
    Const SW_MAXIMIZE As Integer = 3

Minimize olarak Uygulama başlatma:


Dim prcs As New ProcessStartInfo("notepad.exe")
prcs.WindowStyle = ProcessWindowStyle.Minimized
Process.Start(prcs)

Eğer yukarıdaki kod alta alınmış olarak başlatmıyorsa alttaki kodlar ile işlemi takip edip açıldığında anında küçültebilir veya gizleyebilirsiniz.

Varolan Uygulamayı Process'e göre alta alma(Minimize):




'Button Click Eventi:

  For Each p As Process In Process.GetProcesses
            If String.Compare(p.ProcessName, "notepad", True) = 0 Then
                Dim hWnd As Integer = CType(p.MainWindowHandle, Integer)
                ShowWindow(hWnd, SW_MINIMIZE)

            End If
   Next

Varolan Uygulamayı Process'e göre büyütme(Maximize):




'Button Click Eventi:

  For Each p As Process In Process.GetProcesses
            If String.Compare(p.ProcessName, "notepad", True) = 0 Then
                Dim hWnd As Integer = CType(p.MainWindowHandle, Integer)
                ShowWindow(hWnd, SW_MAXIMIZE)

            End If
   Next

Varolan Uygulamayı Process'e göre gizleme(Hide):




'Button Click Eventi:

  For Each p As Process In Process.GetProcesses
            If String.Compare(p.ProcessName, "notepad", True) = 0 Then
                Dim hWnd As Integer = CType(p.MainWindowHandle, Integer)
                ShowWindow(hWnd, SW_HIDE)

            End If
   Next

Kolay gelsin.

10.05.2020 20:13

#4

dreamfancy WM Aracı Kullanıcı

Üyelik 30.10.2013
Yaş/Cinsiyet 30 / E
Meslek WebMaster
Konum Rusya

Ad Soyad Ö** Ç**
Mesajlar 339
Beğeniler 154 / 71
Ticaret 3, (%100)

emreyvz adlı üyeden alıntı

Minimize, Maximize, Gizleme ve Eski Haline Döndürmek İçin öncelikle belirtilenler Global olarak tanımlan.....

BRAGA adlı üyeden alıntı

Sanırım bot yapmaya çalışıyosun. Programlar senin uygulamanın içinde mi çalışacak yoksa normal Process.start verip minimize yapmak mı istiyorsun? Pek anlamam ama yardımcı olmak için biraz araştırma yaptım ve URL="https://www.......

Merhaba, öncelikle çok teşekkür ederim yardım için. Kod işe yarıyor ancak notepad dışında başka uygulamalara yapamıyorum bunu. Örneğin FileZilla.exe'yi küçültmeyi deneyin yada herhangi bir oyunu veya bir başka şeyi.

Yalnızca notepad, paint ve benzeri programlarda işe yarıyor kod diğer programlarda yaramıyor. :(

10.05.2020 20:37

#5

emreyvz .NET Core & Angular & PHP Kullanıcı

Üyelik 19.04.2016
Yaş/Cinsiyet 28 / E
Meslek Bilgisayar Mühendisi
Konum İstanbul Anadolu

Ad Soyad E** Y**
Mesajlar 691
Beğeniler 110 / 250
Ticaret 24, (%100)

dreamfancy adlı üyeden alıntı

Merhaba, öncelikle çok teşekkür ederim yardım için. Kod işe yarıyor ancak notepad dışında başka uygulamalara yapamıyorum bunu. Örneğin FileZilla.exe'yi küçültmeyi deneyin yada herhangi bir oyunu veya bir başka şeyi.

Yalnızca notepad, paint ve benzeri programlarda işe yarıyor kod diğer programlarda yaramıyor. :(

Şimdi test ettim Filezilla gibi uygulamalar direkt olarak minimize başlamıyor. Ancak belirttiğim gibi timer ile kontrol edip uygulama açılır açılmaz minimize ve hide state'ine getirebilirsiniz.



For Each p As Process In Process.GetProcesses

If String.Compare(p.ProcessName, "notepad", True) = 0 Then

Dim hWnd As Integer = CType(p.MainWindowHandle, Integer)

ShowWindow(hWnd, SW_MINIMIZE)

End If

Next

1 kişi bu mesajı beğendi.

10.05.2020 20:57

#6

dreamfancy WM Aracı Kullanıcı

Üyelik 30.10.2013
Yaş/Cinsiyet 30 / E
Meslek WebMaster
Konum Rusya

Ad Soyad Ö** Ç**
Mesajlar 339
Beğeniler 154 / 71
Ticaret 3, (%100)

Çok teşekkür ediyorum.

VB.Net Ödevi - Programı Minimize Olarak Başlatma

Üye Girişi Yap