הוסטס - פורום אחסון האתרים הגדול בישראל

הוסטס - פורום אחסון האתרים הגדול בישראל (https://hosts.co.il/forums/index.php)

- פורום תיכנות (https://hosts.co.il/forums/forumdisplay.php?f=14)

- - בעית קוד בVisual Basic (https://hosts.co.il/forums/showthread.php?t=89737)

Joker

25-05-11 17:50

בעית קוד בVisual Basic

מטרתי היא לגרום לכך שבלחיצה על 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

25-05-11 21:29

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

קוד:

apiBlockInput(1)

System.Threading.Thread.Sleep(3000)

apiBlockInput(0)

Joker

27-05-11 12:16

ציטוט:

נכתב במקור על ידי trupix (פרסם 805348)

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

קוד:

apiBlockInput(1)

System.Threading.Thread.Sleep(3000)

apiBlockInput(0)

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

ציטוט:

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

Joker

30-05-11 15:17

עזרה ?

OrPol

30-05-11 21:23

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

Joker

31-05-11 15:11

ציטוט:

נכתב במקור על ידי Or Polaczek (פרסם 805885)

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

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

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 תואמים לחתימה הלא מנוהלת של היעד.

כל הזמנים הם GMT +2. הזמן כעת הוא 16:15.