בעית קוד בVisual Basic

[Joker]

מטרתי היא לגרום לכך שבלחיצה על Button1,תפסק השליטה במקלדת ובעכבר.
חיפשתי ומצאתי את הקוד הבא:

Public Class Form1
    Public Declare Function apiBlockInput Lib "user32" Alias "BlockInput " (ByVal fBlock As Integer) As Integer

    Private Sub button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         apiBlockInput(1)
    End Sub

השאלה היא: מה לא בסדר פה ?
נוצרת לי השגיאה הבאה:

בקובץ ה-'BlockInput' אין אפשרות לאתר נקודת כניסה בשםDLL 'user32'

תודה לעוזרים.

[trupix]

נסה להחליף את הקוד באירוע button_click בזה:

apiBlockInput(1)
System.Threading.Thread.Sleep(3000)
apiBlockInput(0)

[Joker]

נכתב במקור על ידי trupix

נסה להחליף את הקוד באירוע button_click בזה:

apiBlockInput(1)
System.Threading.Thread.Sleep(3000)
apiBlockInput(0)

תודה, אך עדיין אותה שגיאה:

בקובץ ה-'BlockInput' אין אפשרות לאתר נקודת כניסה בשםDLL 'user32'

[Joker]

עזרה ?

[OrPol]

נתתי לך באשכול הקודם לינק לקוד דומה שעובד.
תכנס ותראה.

[Joker]

נכתב במקור על ידי Or Polaczek

נתתי לך באשכול הקודם לינק לקוד דומה שעובד.
תכנס ותראה.

ניסיתי.
בקוד הזה:

PHP קוד:

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

    Private Sub button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                BlockInput(True)
    End Sub 


נוצרה השגיאה הזו:

קריאה לפונקציית ה- PInvoke ‏'Virus!Virus.Form1::BlockInput' הוציאה את המחסנית מאיזון. סביר להניח שהגורם לכך הוא שחתימת ה- PInvoke המנוהלת לא תואמת לחתימת היעד הלא מנוהלת. בדוק שמוסכמת הקריאה והפרמטרים של חתימת ה- PInvoke תואמים לחתימה הלא מנוהלת של היעד.