Musen

kender ikke noget til det, men har du prøvet det mest indlysende?:
Shell \"rundll32 mouse,enable\"

Nej det virker ikke (skrev han mens han \"TAB\'ede\" sig ned til input vinduet ;-))

Jeg har også prøvet uden resutat....

Man kan også bruge

Shell \"rundll32 keyboard,disable\"

Men det er bare det der med at få liv i dem igen der er problemet

prøv evt med:
reset
init
initialize
restart

(eller vent på en der ved det ;-)

Her er lidt på Tysk:
\'rundll32 krnl386,exitkernel\'    Beendet Windows auf rabiateste Weise und stellt keine Nachfragen bei geöffneten Dateien

\'rundll32 user,swapmousebutton\'    Vertauscht die Mausbuttons , läßt sich aber nicht ohne Neustart rückgängig machen

\'rundll32 keyboard,disable\'    Dürfte wohl klar sein was dieser Aufruf macht

\'rundll32 mouse,disable\'    desgleichen

\'rundll32 user,exitwindows\'    Fährt Windows ordnungsgemäß herunter

\'rundll32 user,wnetconnectdialog\'    Dialog \'Netzlaufwerke verbinden\'

\'rundll32 user,wnetdisconnectdialog\'    Dialog \'Netzlaufwerke trennen\'

\'rundll32 user,disableoemlayer\'    Absturz provozieren

\'rundll32 user,repaintscreen\'    Anzeige aktualisieren

\'rundll32 diskcopy,DiskCopyRunDll\'    Dialog Diskette kopieren

\'rundll32 rnaui.dll,RnaWizard /1\'    DFÜ-Verbindung aufrufen

\'rundll32 shell,shellexecute\'    Öffnet ein Explorerfenster

\'rundll32 shell32,OpenAs_RunDll\'    \'Öffnen mit\' Dialog

\'rundll32 shell32,SHFormatDrive\'    Diskette formatieren

\'rundll32 shell32,ShellAboutA\'    Info-Box über Windows

\'rundll32 shell32,Control_RunDLL\'    Systemsteuerung starten

Og den eneste måde at få gang i udstyret igen er ved en reboot. Der kan ikke tændes for noget der er slukket, ikke når det er en rundll enhed.

Det skulle da lige være hvis man kunne bruge Shell \"rundll32 mouse,Control_RunDLL\" men jeg ikke tro at dette virker, da alt hvad jeg har læst da står det at computeren skal resetes før den igen kan bruge enhederne normalt. Men min viden er jo ikke alt afgørende

Hvorfor skal du egentligt disable musen?

Det er i forbindelse med en fremvisning af et nyt program, så vil jeg ikke have at de sidde og klikke på alle knapperne før de for lov til det....
Jeg prøver lige
Shell \"rundll32 mouse,Control_RunDLL\"

shell \"rundll32 mouse,Control_RunDLL\"

Virker heller ikke... måske har tyskeren ret

(Skrev han og begyndte at genstarte sin maskine)

Hmmm, jeg er ikke tysker, blot jyde med stort K

Sorry powell ...

Er der så en anden måde man kan disable musen på ?

Det skal være så man ikke kan bevæge den rund på skærmen for så derefter så slå den til igen efter et tidsrum

Jeg giver nu 100 point for rigtig svar !

En mulighed kunne være dette:

Gør din Cursor usynlig.
Brug API funktionen ShowCursor(False) og synlig igen ShowCursor(True)
Du skal vide at mussen jo er et delt objekt, så hvis en aplikation gør den usynlig skal denne aplikation også gøre den synlig igen. Og funktionen er sådan bygget sådan op at gøres mussen usynlig flere efterhinanden følgene gange, så skal den ligeså mange gange gøres usynlig igen.

en anden måske mere hensigtsmæssig fremgangsmåde kunne jo være at disable knapperne i dit program

Sub ButtonsEnabled(maajeg as boolean)
  Command1.Enabled = maajeg
  Command2.Enabled = maajeg
  ...
end sub

Når knapperne skal være enabled kalder du

ButtonsEnabled(true)

og når de ikke skal virke

ButtonsEnabled(false)

(du kan også en/disable textboxe osv...)

Hov den sidste usynlig skulle være en synlig

Okay, jeg har heller ikke kunnet finde ud af at disable musen helt, men jeg har lige lavet et simpelt program, der _næsten_ gør det; hvis man rykker meget kraftigt med musen flytter markøren sig et par pixels, men vender straks tilbage til positionen i øverste, venstre hjørne. Du behøver i hvert fald ikke være bange for, at folk trykker på knapper, mens programmet kører ;-)

Brugsanvisning: Kør programmet. Musen er nu låst indtil du trykker på de 3 magiske taster: CTRL, SHIFT og ALT.

Programkoden kommer her, hvis du kan bruge det:

Declare Function SetCursorPos Lib \"user32.dll\" (ByVal x As Long, ByVal y As Long) As Long
Declare Function GetKeyState Lib \"user32.dll\" (ByVal nVirtKey As Long) As Integer
Const VK_CONTROL = &H11
Const VK_SHIFT = &H10
Const VK_MENU = &H12

Sub Main()
Do
    DoEvents
    Call SetCursorPos(0, 0)
    If GetKeyState(VK_CONTROL) < 0 And GetKeyState(VK_SHIFT) < 0 And GetKeyState(VK_MENU) < 0 Then End
Loop
End Sub

Jeg bruger i øjeblikket Windows NT 4.0, så jeg ved ikke om det virker, men jeg prøvede at disable musen på DIN måde, og Enable den igen med cstern\'s måde! Ved hjælp af
Shell Rundll32 mouse,Initialize -det virker (eller gjorde én gang!)

Jeg prøver lige at leje lidt med
Rundll32 mouse,Initialize

Vender tilbage ....

Jeg skal snart hjem fra arbejde så det kan godt være jeg først kan uddele pointne på mandag det håber jeg er i orden med jer

Jeg har prøvet mig lidt frem, og vælger ingen af løsningerne.....

Jeg har fundet et components som kan..

hvad var det for en component? Just curious...

For 200 Point kan jeg sende det til dig...det kan disable mange ting og er nemt at bruge.. er du intersseret ..?

forget it.

jeg ofrer gerne 200 for det !!!!

hvis det virker til windows vista OG XP !!