Windows notepad position and size.

VisualBasic |

1.48 KB

Software

0 👍

0 👎

Raw Download Clone Embed Print View

Imports System.Runtime.InteropServices
 
Module Module1
    <DllImport("user32.dll")>
    Public Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function
 
    <DllImport("user32.dll")>
    Public Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr,
                                 ByVal X As Integer, ByVal Y As Integer,
                                 ByVal cx As Integer, ByVal cy As Integer,
                                 ByVal uFlags As UInteger) As Boolean
    End Function
 
    Sub Main()
        ' AOT ohne JIT Prüfung
        If Type.GetType("System.Runtime.JitInfo") Is Nothing Then
            Console.WriteLine("Läuft ohne JIT.")
        Else
            Console.WriteLine("JIT wird verwendet.")
        End If
 
        ' Notepad starten
        Dim process As New Process()
        process.StartInfo.FileName = "notepad.exe"
        process.Start()
        Threading.Thread.Sleep(2000) ' Wartezeit für vollständiges Laden
 
        ' Fenster-Handle abrufen
        Dim hWnd As IntPtr = FindWindow("Notepad", Nothing)
        If hWnd = IntPtr.Zero Then
            Console.WriteLine("Notepad-Fenster nicht gefunden.")
            Return
        End If
 
        ' Fenster auf Position (X=200, Y=200) setzen mit Größe 800x600
        SetWindowPos(hWnd, IntPtr.Zero, 917, 200, 913, 600, 0)
        Console.WriteLine("Notepad-Fenster wurde erfolgreich verschoben.")
    End Sub
End Module

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

Windows notepad position and size.

Comments