Reply to thread

Message

<blockquote data-quote="cheetah05" data-source="post: 160514" data-attributes="member: 19628">Just to let you know, I managed to fix this without using any extra wires.I created a small program which changes the resolution to something small and then changes it back to the default resolution when the computer comes out of standby.Thanks for your help though.For anyone that wants the code:[code]#Region &quot;Imports&quot;Imports Microsoft.Win32#End RegionPublic Class mainForm#Region &quot;Change Resolution Function&quot;&nbsp; &nbsp; Const CCDEVICENAME As Short = 32&nbsp; &nbsp; Const CCFORMNAME As Short = 32&nbsp; &nbsp; Const DM_BITSPERPEL As Integer = &amp;H40000&nbsp; &nbsp; Const DM_PELSWIDTH As Integer = &amp;H80000&nbsp; &nbsp; Const DM_PELSHEIGHT As Integer = &amp;H100000&nbsp; &nbsp; Const CDS_UPDATEREGISTRY As Short = &amp;H1S&nbsp; &nbsp; Const CDS_TEST As Short = &amp;H4S&nbsp; &nbsp; Const DISP_CHANGE_SUCCESSFUL As Short = 0&nbsp; &nbsp; Const DISP_CHANGE_RESTART As Short = 1&nbsp; &nbsp; Const BITSPIXEL As Short = 12&nbsp; &nbsp; Private Structure DEVMODE&nbsp; &nbsp; &nbsp; &nbsp; &lt;VBFixedString(CCDEVICENAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)&gt; Public dmDeviceName As String&nbsp; &nbsp; &nbsp; &nbsp; Dim dmSpecVersion As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmDriverVersion As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmSize As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmDriverExtra As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmFields As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim dmOrientation As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmPaperSize As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmPaperLength As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmPaperWidth As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmScale As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmCopies As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmDefaultSource As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmPrintQuality As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmColor As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmDuplex As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmYResolution As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmTTOption As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmCollate As Short&nbsp; &nbsp; &nbsp; &nbsp; &lt;VBFixedString(CCFORMNAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)&gt; Public dmFormName As String&nbsp; &nbsp; &nbsp; &nbsp; Dim dmUnusedPadding As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmBitsPerPel As Short&nbsp; &nbsp; &nbsp; &nbsp; Dim dmPelsWidth As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim dmPelsHeight As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim dmDisplayFlags As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim dmDisplayFrequency As Integer&nbsp; &nbsp; End Structure&nbsp; &nbsp; Private Declare Function EnumDisplaySettings Lib &quot;user32&quot; Alias &quot;EnumDisplaySettingsA&quot; (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean&nbsp; &nbsp; Private Declare Function ChangeDisplaySettings Lib &quot;user32&quot; Alias &quot;ChangeDisplaySettingsA&quot; (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Integer) As Integer&nbsp; &nbsp; Private Sub ChangeRes(ByRef X As Integer, ByRef Y As Integer, ByRef Bits As Integer)&nbsp; &nbsp; &nbsp; &nbsp; Dim DevM As DEVMODE = Nothing&nbsp; &nbsp; &nbsp; &nbsp; Dim erg As Integer&nbsp; &nbsp; &nbsp; &nbsp; 'Get the info into DevM&nbsp; &nbsp; &nbsp; &nbsp; erg = EnumDisplaySettings(0, 0, DevM)&nbsp; &nbsp; &nbsp; &nbsp; 'This is what we're going to change&nbsp; &nbsp; &nbsp; &nbsp; DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL&nbsp; &nbsp; &nbsp; &nbsp; DevM.dmPelsWidth = X 'ScreenWidth&nbsp; &nbsp; &nbsp; &nbsp; DevM.dmPelsHeight = Y 'ScreenHeight&nbsp; &nbsp; &nbsp; &nbsp; DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)&nbsp; &nbsp; &nbsp; &nbsp; 'Now change the display and check if possible&nbsp; &nbsp; &nbsp; &nbsp; erg = ChangeDisplaySettings(DevM, CDS_TEST)&nbsp; &nbsp; End Sub#End Region#Region &quot;Declarations&quot;&nbsp; &nbsp; Dim WithEvents systemEvent As SystemEvents#End Region&nbsp; &nbsp; Private Sub On_Standby_Resume(ByVal sender As Object, ByVal e As Microsoft.Win32.PowerModeChangedEventArgs) Handles systemEvent.PowerModeChanged&nbsp; &nbsp; &nbsp; &nbsp; If e.Mode = PowerModes.Resume Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ChangeRes(1280, 768, 32)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ChangeRes(1360, 768, 32)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End SubEnd Class[/code]</blockquote>

[QUOTE="cheetah05, post: 160514, member: 19628"] Just to let you know, I managed to fix this without using any extra wires. I created a small program which changes the resolution to something small and then changes it back to the default resolution when the computer comes out of standby. Thanks for your help though. For anyone that wants the code: [code] #Region "Imports" Imports Microsoft.Win32 #End Region Public Class mainForm #Region "Change Resolution Function" Const CCDEVICENAME As Short = 32 Const CCFORMNAME As Short = 32 Const DM_BITSPERPEL As Integer = &H40000 Const DM_PELSWIDTH As Integer = &H80000 Const DM_PELSHEIGHT As Integer = &H100000 Const CDS_UPDATEREGISTRY As Short = &H1S Const CDS_TEST As Short = &H4S Const DISP_CHANGE_SUCCESSFUL As Short = 0 Const DISP_CHANGE_RESTART As Short = 1 Const BITSPIXEL As Short = 12 Private Structure DEVMODE <VBFixedString(CCDEVICENAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String Dim dmSpecVersion As Short Dim dmDriverVersion As Short Dim dmSize As Short Dim dmDriverExtra As Short Dim dmFields As Integer Dim dmOrientation As Short Dim dmPaperSize As Short Dim dmPaperLength As Short Dim dmPaperWidth As Short Dim dmScale As Short Dim dmCopies As Short Dim dmDefaultSource As Short Dim dmPrintQuality As Short Dim dmColor As Short Dim dmDuplex As Short Dim dmYResolution As Short Dim dmTTOption As Short Dim dmCollate As Short <VBFixedString(CCFORMNAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String Dim dmUnusedPadding As Short Dim dmBitsPerPel As Short Dim dmPelsWidth As Integer Dim dmPelsHeight As Integer Dim dmDisplayFlags As Integer Dim dmDisplayFrequency As Integer End Structure Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Integer) As Integer Private Sub ChangeRes(ByRef X As Integer, ByRef Y As Integer, ByRef Bits As Integer) Dim DevM As DEVMODE = Nothing Dim erg As Integer 'Get the info into DevM erg = EnumDisplaySettings(0, 0, DevM) 'This is what we're going to change DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL DevM.dmPelsWidth = X 'ScreenWidth DevM.dmPelsHeight = Y 'ScreenHeight DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4) 'Now change the display and check if possible erg = ChangeDisplaySettings(DevM, CDS_TEST) End Sub #End Region #Region "Declarations" Dim WithEvents systemEvent As SystemEvents #End Region Private Sub On_Standby_Resume(ByVal sender As Object, ByVal e As Microsoft.Win32.PowerModeChangedEventArgs) Handles systemEvent.PowerModeChanged If e.Mode = PowerModes.Resume Then ChangeRes(1280, 768, 32) ChangeRes(1360, 768, 32) End If End Sub End Class [/code] [/QUOTE]

Verification