---
title: "vill göra ett mini program"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/53833-vill-göra-ett-mini-program"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Thompa__85"
published: "2002-09-20T22:29:58.000Z"
updated: "2002-10-21T18:28:27.000Z"
replies: 4
views: 337
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/53833-vill-göra-ett-mini-program"
---

# vill göra ett mini program

## #1 — Thompa__85, 2002-09-20T22:29Z

Tja! Vill göra ett mini program som gör att capslock + scrolllock börjar blinka... hur gör jag de?
Har skapat en timer och skrivet denna kod:

Private Sub tmrKeys_Timer()
  SendKeys "{CAPSLOCK}"
  SendKeys "{SCROLLLOCK}"
End Sub

men vad ska jag mer skriva??

Permalänk: https://www.webforum.nu/p/53833

## #2 — Mharlin, 2002-09-23T16:36Z

Vad händer nu när du kör programmet?

Permalänk: https://www.webforum.nu/p/795195

## #3 — jultomten17, 2002-10-05T10:50Z

En grej du kan göra är ju att använda dig av API.

```
keybd_event(145,0,0,0)
keybd_event(145,0,KEYEVENTF_KEYUP,0)
keybd_event(20,0,0,0)
keybd_event(20,0,KEYEVENTF_KEYUP,0)
```

i delphi är de bara att använda de och vara glad, men i vb måste man deklarerar de på nåt sätt har jag för mig

Permalänk: https://www.webforum.nu/p/811182

## #4 — Nexus86, 2002-10-16T09:36Z

hittas troligtvis lättast i API-viewern.

Permalänk: https://www.webforum.nu/p/822028

## #5 — huginen, 2002-10-21T18:28Z

```
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Form_Unload(Cancel As Integer)
keybd_event 145, 0, 0, 0
keybd_event 20, 0, 0, 0
End Sub

Private Sub Timer1_Timer()
    keybd_event 145, 0, 0, 0
    keybd_event 145, 0, KEYEVENTF_KEYUP, 0
    keybd_event 20, 0, 0, 0
    keybd_event 20, 0, KEYEVENTF_KEYUP, 0
End Sub
```

 

lägg in en Timer med en interval på tex 200

Permalänk: https://www.webforum.nu/p/829496

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/53833-vill-göra-ett-mini-program