Imports System.Runtime.InteropServices
Module Module1
<StructLayout(LayoutKind.Sequential)>
Public Structure DEVMODE
Public dmDeviceName As String
Public dmSpecVersion As Short
Public dmDriverVersion As Short
Public dmSize As Short
Public dmDriverExtra As Short
Public dmFields As Integer
Public dmPositionX As Integer
Public dmPositionY As Integer
Public dmDisplayOrientation As Integer
Public dmDisplayFixedOutput As Integer
Public dmColor As Short
Public dmDuplex As Short
Public dmYResolution As Short
Public dmTTOption As Short
Public dmCollate As Short
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)>
Public dmFormName As String
Public dmLogPixels As Short
Public dmBitsPerPel As Integer
Public dmPelsWidth As Integer
Public dmPelsHeight As Integer
Public dmDisplayFlags As Integer
Public dmDisplayFrequency As Integer
Public dmICMMethod As Integer
Public dmICMIntent As Integer
Public dmMediaType As Integer
Public dmDitherType As Integer
Public dmReserved1 As Short
Public dmReserved2 As Short
Public dmPelsDensity As Integer
Public dmDisplayData As Integer
Public dmReserved3 As Integer
Public dmDriverExtra2 As Integer
End Structure
<DllImport("user32.dll", CharSet:=CharSet.Auto)>
Public Function ChangeDisplaySettings(ByRef lpDevMode As DEVMODE, ByVal dwFlags As Integer) As Integer
End Function
Sub Main()
Dim dm As New DEVMODE()
dm.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))
dm.dmPelsWidth = 1366
dm.dmPelsHeight = 768
dm.dmFields = &H80000 Or &H40000 ' DM_PELSWIDTH | DM_PELSHEIGHT
Dim result As Integer = ChangeDisplaySettings(dm, 0)
If result = 0 Then
Console.WriteLine("تم تغيير دقة الشاشة بنجاح.")
Else
Console.WriteLine("فشل في تغيير دقة الشاشة. الكود: " & result)
End If
End Sub
End Module