Mengatur tinggi dan lebar aplikasi menggunakan WMI

Apakah mungkin untuk mengatur tinggi dan lebar aplikasi menggunakan WMI? Jika ya, bagaimana caranya? Misalnya, ubah tinggi dan lebar Notepad.

Terima kasih

windows wmi

— tuan
sumber

Apakah WASP akan membantu? archive.codeplex.com/?p=wasp

— Andrew Lau

Tidak. WMI adalah Antarmuka Manajemen, bukan antarmuka aplikasi. Anda harus mengedit pertanyaan ini dan membuatnya tentang masalah aktual yang Anda coba selesaikan.

— Ƭᴇcʜιᴇ007

@ Ƭᴇcʜιᴇ007, itulah masalah sebenarnya yang saya coba selesaikan. Saya bertanya-tanya / berharap WMI memiliki kemampuan untuk mengubah tinggi / lebar aplikasi yang sedang berjalan. Pertanyaan itu terbentuk dalam pertanyaan yang sangat umum, yang saya maksudkan. Bentuk pertanyaan yang bahkan lebih umum mungkin adalah, bagaimana cara mengubah lebar dan tinggi aplikasi yang sedang berjalan melalui API (VBScript, WMI, dll).

— lordhog

@AndrewLau, tidak yakin WASP akan membantu, tapi saya belum pernah mendengarnya. Saya akan memeriksanya dan mungkin menjanjikan karena itu PowerShell. Terima kasih.

— lordhog

"Bentuk pertanyaan yang bahkan lebih umum mungkin adalah, bagaimana cara mengubah lebar dan tinggi aplikasi yang sedang berjalan melalui API (VBScript, WMI, dll)." Akan menjadi pertanyaan yang bisa dijawab dalam format ini. As-is Anda telah membuatnya spesifik tentang solusi yang diusulkan alih-alih masalah (dikenal sebagai Masalah XP ), jadi jawaban untuk pertanyaan, sebagaimana adanya, hanyalah "Tidak". Dan dengan demikian, tidak cocok untuk SU.

— Ƭᴇcʜιᴇ007

Dari VBScript, VBA, dll memang dimungkinkan untuk mengubah ukuran jendela. Di bawah ini adalah contoh cara mengubah ukuran jendela menggunakan pegangannya. Anda perlu memberikan hWnd (pegangan jendela) dari jendela spesifik yang ingin Anda ubah ukurannya. Apis win32 lainnya dapat digunakan untuk menentukan hWnd dari, misalnya, judul jendela.

Const HWND_TOPMOST = -1
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)


Private Sub ResizeWindow(ByVal hWnd as Long,ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long)
    SetWindowPos hWnd, HWND_TOPMOST, X, Y, cx, cy, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

Fungsi SetWindowPos

— ttaylor1218
sumber