VB.NETのアプリケーション実行中にスクリーンセーバーを無効にしたい

Question

下記を参考にしましたが
https://programlib.com/2016/09/01/スリープモードの抑制方法/

このようなエラーになります。
対処方法を教えていただけないでしょうか？

マネージド デバッグ アシスタント 'PInvokeStackImbalance' : 'PInvoke 関数 'XXXXXXXXXXX::SetThreadExecutionState' がスタックを不安定にしています。PInvoke シグネチャがアンマネージ ターゲット シグネチャに一致していないことが原因として考えられます。呼び出し規約、および PInvoke シグネチャのパラメーターがターゲットのアンマネージ シグネチャに一致していることを確認してください。'

Comments

[YAmaGNZ]

現状どのようなコードを書いているのでしょうか？　また、参考にされているページはあくまでスリープの無効であって、スクリーンセーバーを無効にしてるわけではないですが、いいのですか？

Answer 1

参考にされたサイトでは、SetThreadExecutionStateの引数と戻り値はLongで定義していますが、VB6以前のLongはVB.Netでいう所のIntegerですので、おそらくVB6以前で使用していたコードを流用しているのかも知れません。
（それでいて、列挙体EXECUTION_STATEはIntegerになっている．．．）
実際のSetThreadExecutionStateの引数と戻り値はSystem.UInt32ですので、まずはここを統一してみてはいかがでしょうか。

ただし、スクリーンセーバーを起動させない、ということであれば、別のアプローチを行っても良いかも知れません。
例えば、以下の掲示板の投稿では、最終的には、SendInputでマウスを「その場」に動かす、という方法で解決したようです。
http://bbs.wankuma.com/index.cgi?mode=al2&namber=61080&KLOG=102

Answer 2

DLLの呼び出し規約が合っていないということで、
対処方法は、その呼び出し規約を確認して、コードを修正して合うようにすればいいということですねー