Standby verhindern

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Standby verhindern

    Moin !

    ich habe ein kleines Programm das mittels Timer immer etwas ausfuhrt.

    Die Aktion ist alle 60 Sekunden

    Dennoch habe ich den Eindruck, dass das Laptop in der Nacht in Standby gegangen ist..

    Kann man per Programm den Standby verhindern, wenn das Programm läuft?

    Jan

    @jan99 Wie lautet die Fehlermeldung?
    Eigentlich sind die paar Zeilen Code so easy, dass Du sie allein übersetzen können müsstest.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    der Source ist

    C#-Quellcode

    1. static class WinApi
    2. {
    3. [DllImport("kernel32.dll", CharSet = CharSet.Auto, SetLastError = true)]
    4. public static extern EXECUTION_STATE SetThreadExecutionState(EXECUTION_STATE flags);
    6. [Flags]
    7. public enum EXECUTION_STATE : uint
    8. {
    9. ES_AWAYMODE_REQUIRED = 0x00000040,
    10. ES_CONTINUOUS = 0x80000000,
    11. ES_DISPLAY_REQUIRED = 0x00000002,
    12. ES_SYSTEM_REQUIRED = 0x00000001
    13. }
    14. }


    die Meldung ist

    Spoiler anzeigen



    Error message:

    CONVERSION ERROR: Conversion for SimpleBaseType not implemented, please report this issue in 'uint' at character 235

    at ICSharpCode.CodeConverter.VB.NodesVisitor.DefaultVisit(SyntaxNode node)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitSimpleBaseType(SimpleBaseTypeSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.SimpleBaseTypeSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitSimpleBaseType(SimpleBaseTypeSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.SimpleBaseTypeSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitEnumDeclaration(EnumDeclarationSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.EnumDeclarationSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitEnumDeclaration(EnumDeclarationSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.EnumDeclarationSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at ICSharpCode.CodeConverter.VB.NodesVisitor.<VisitClassDeclaration>b__23_0(MemberDeclarationSyntax m)

    at System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext()

    at System.Collections.Generic.List`1..ctor(IEnumerable`1 collection)

    at System.Linq.Enumerable.ToList[TSource](IEnumerable`1 source)

    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitClassDeclaration(ClassDeclarationSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.ClassDeclarationSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitClassDeclaration(ClassDeclarationSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.ClassDeclarationSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at ICSharpCode.CodeConverter.VB.NodesVisitor.<VisitCompilationUnit>b__15_1(MemberDeclarationSyntax m)

    at System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext()

    at Microsoft.CodeAnalysis.SyntaxList`1.CreateNode(IEnumerable`1 nodes)

    at Microsoft.CodeAnalysis.SyntaxList`1..ctor(IEnumerable`1 nodes)

    at Microsoft.CodeAnalysis.VisualBasic.SyntaxFactory.List[TNode](IEnumerable`1 nodes)

    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitCompilationUnit(CompilationUnitSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.CompilationUnitSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)

    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)

    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitCompilationUnit(CompilationUnitSyntax node)

    at Microsoft.CodeAnalysis.CSharp.Syntax.CompilationUnitSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)

    at ICSharpCode.CodeConverter.VB.CSharpConverter.ConvertCompilationTree(CSharpCompilation compilation, CSharpSyntaxTree tree)

    at ICSharpCode.CodeConverter.VB.CSToVBConversion.SingleFirstPass(Compilation sourceCompilation, SyntaxTree tree)

    at ICSharpCode.CodeConverter.Shared.ProjectConversion.SingleFirstPass(SyntaxTree tree, String treeFilePath)

    at ICSharpCode.CodeConverter.Shared.ProjectConversion.FirstPass()





    Jan

    user32.dll => kernel32dll

    @jan99 Ja, der kommt da iwie nicht klar. Probier mal diesen hier:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. <Flags>
    5. Private Enum EXECUTION_STATE
    6. ES_AWAYMODE_REQUIRED = &H40
    7. ES_CONTINUOUS = &H80000000
    8. ES_DISPLAY_REQUIRED = &H2
    9. ES_SYSTEM_REQUIRED = &H1
    11. End Enum
    12. <DllImport("kernel32dll")>
    13. Private Shared Function SetThreadExecutionState(ByVal flags As EXECUTION_STATE) As EXECUTION_STATE
    14. End Function
    16. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    17. SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS Or EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_DISPLAY_REQUIRED)
    18. End Sub
    20. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    21. SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)
    22. End Sub
    23. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    Moin!

    danke erst einmal.

    Zwei Dinge in diesem Zusammenhang. Was die beiden Buttons betrifft.

    Nur für den Screensave ermöglichen ist in dem Beispiel

    C#-Quellcode

    1. WinApi.SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS | EXECUTION_STATE.ES_SYSTEM_REQUIRED);


    Der Button2 ist aber nicht genau so definiert?!?! Da muss ich noch etwas anhängen - richtig?

    Dann steht oben

    <Flags>


    Was bedeutet das? Oder ist das hier nur zur Ordnung?

    Gruß jan

    bekomme folgende Fehlermeldung:


    Muss ich noch etwas einbinden?

    Jetzt sieht es so aus

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class Form1
    3. <Flags>
    4. Private Enum EXECUTION_STATE
    5. ES_AWAYMODE_REQUIRED = &H40
    6. ES_CONTINUOUS = &H80000000
    7. ES_DISPLAY_REQUIRED = &H2
    8. ES_SYSTEM_REQUIRED = &H1
    10. End Enum
    11. <DllImport("user32")>
    12. Private Shared Function SetThreadExecutionState(ByVal flags As EXECUTION_STATE) As EXECUTION_STATE
    13. End Function
    15. Private _LastOnlineStatus As Integer = 0 ' -1 ... offline / 0 ... kein Status / 1 .... online
    16. Private _lastPingChange As Date
    17. Private _StartApp As Date
    18. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    19. _StartApp = Date.Now
    20. _lastPingChange = _StartApp
    21. End Sub
    23. Private Sub CheckOnline()
    25. Dim Zeitpunkt As Date = Now
    26. Dim sZeitpunkt As String = Zeitpunkt.ToString("yyyy-MM-dd HH:mm:ss")
    28. Dim IsOnlineStatus As Integer = IsOnline()
    30. Select Case IsOnlineStatus
    31. Case -1
    32. If _LastOnlineStatus <> IsOnlineStatus Then
    33. WritePingLog(String.Format("{0} - offline", sZeitpunkt), Zeitpunkt)
    34. _lastPingChange = Zeitpunkt
    35. End If
    36. _LastOnlineStatus = -1
    38. Case 0
    40. If _LastOnlineStatus <> IsOnlineStatus Then
    41. WritePingLog(String.Format("{0} - ?????", sZeitpunkt), Zeitpunkt)
    42. _lastPingChange = Zeitpunkt
    43. End If
    44. _LastOnlineStatus = 0
    46. Case 1 ' online
    47. If _LastOnlineStatus <> IsOnlineStatus Then
    48. WritePingLog(String.Format("{0} - online", sZeitpunkt), Zeitpunkt)
    49. _lastPingChange = Zeitpunkt
    50. End If
    51. _LastOnlineStatus = 1
    52. End Select
    54. txt_logging.ScrollToCaret()
    56. Label1.Text = "Letzter Pingzeitpunkt: " & Zeitpunkt
    58. End Sub
    59. ''' <summary>
    60. ''' Schreiben der LogMeldung
    61. ''' </summary>
    62. ''' <param name="Message">Text für die Ausgabe</param>
    63. Private Sub WritePingLog(Message As String, PingZeit As Date)
    64. Dim Teiler As Long = 1000
    65. Dim Dauer As Long = CLng(DateDiff(DateInterval.Second, _lastPingChange, PingZeit) / Teiler)
    67. If _StartApp = _lastPingChange Then
    68. txt_logging.AppendText(Message & Environment.NewLine)
    69. Exit Sub
    70. End If
    72. If Dauer > ndown_Interval.Value Then
    73. Dim Diff As String = CStr(Dauer) & " Sekunden"
    74. txt_logging.AppendText(Message & " - " & Diff & Environment.NewLine)
    75. Else
    76. txt_logging.AppendText(Message & Environment.NewLine)
    77. End If
    79. End Sub
    80. Private Sub timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
    81. CheckOnline()
    82. End Sub
    83. Function IsOnline() As Integer
    84. Try
    86. If My.Computer.Network.IsAvailable AndAlso My.Computer.Network.Ping("www.google.de", 1000) = True Then Return 1
    88. Catch ex As System.Exception
    90. With txt_logging
    91. .AppendText(ex.ToString & Environment.NewLine)
    92. Return 0
    93. End With
    95. Return -1
    96. End Try
    98. Return -1
    99. End Function
    101. Private Sub Button1_Click(sender As Object, e As EventArgs)
    102. CheckOnline()
    103. End Sub
    104. ''' <summary>
    105. ''' Starten der Auswertung
    106. ''' </summary>
    107. Private Sub bt_start_Click(sender As Object, e As EventArgs) Handles bt_start.Click
    108. ' SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)
    109. bt_start.Enabled = False
    110. ndown_Interval.Enabled = False
    111. Dim sDateStart As String = Now.ToString("yyyy-MM-dd HH:mm:ss")
    113. With lbl_StartZeitpunkt
    114. .Text = "Start des Loggers: " & sDateStart
    115. Visible = True
    116. End With
    118. With txt_logging
    119. .AppendText("Start: " & sDateStart & Environment.NewLine)
    120. .AppendText(String.Format("Interval {0} sek" & Environment.NewLine, ndown_Interval.Value.ToString))
    121. .AppendText(Environment.NewLine)
    122. .ScrollToCaret()
    123. End With
    125. Dim Sekunden As Integer = CInt(ndown_Interval.Value)
    126. Timer1.Interval = 1000 * Sekunden
    127. Timer1.Enabled = True
    128. AddHandler Me.Timer1.Tick, New System.EventHandler(AddressOf Me.timer1_Tick)
    130. End Sub
    131. End Class


    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jan99“ ()

    @jan99 Fehler gefunden.
    Bei Dir im Code ist die falsche DLL zugeordnet: mach mal user.dll => kernel32dll.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende