---
title: "Speedtype + mIRC"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/96765-speedtype-mirc"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Ekström"
published: "2004-02-07T12:24:49.000Z"
updated: "2004-02-07T18:18:48.000Z"
replies: 4
views: 263
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/96765-speedtype-mirc"
---

# Speedtype + mIRC

## #1 — Ekström, 2004-02-07T12:24Z

Tjena alla wF:are =) Längesen man var här nu...

Jag har byggt ett litet program i VB 6 för att testa hur fort man skriver. Man får skriva vad man vill och programmet tar tid, räknar ut KPM osv.

Grejen är att jag skulle vilja implementera det i mIRC. Så varje gång man skriver något i mIRC skulle den ta tid på det. Räkna ut KPM osv. =) Själva beräkningen är ju klar, men hur får jag det som skrivs i mIRC, bara mIRC att hamna i programmet?

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

## #2 — niko, 2004-02-07T13:39Z

Motfråga:

Vilken metod använder du för att över huvud taget fånga tangentnedtryckningar utanför din egen VB6-applikation?

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

## #3 — Ekström, 2004-02-07T14:20Z

GetAsyncKeyState tror jag det var.

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

## #4 — niko, 2004-02-07T15:17Z

OK. Isåf är en ganska enkel lösning att du i samband med *GetAsyncKeyState*  kollar vilken applikation som har fokus:

```
Private Const MAX_PATH = 260
Private Declare Function GetForegroundWindow _
Lib "user32" () As Long
Private Declare Function GetWindowText _
Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long

    'Nån timer-funktion.
    Dim lResult    As Long
    Dim sWndName   As String
    sWndName = Space$(MAX_PATH)
    lResult = GetWindowText(GetForegroundWindow(), sWndName, MAX_PATH)
    sWndName = Left$(sWndName, lResult)
    If InStr(UCase(sWndName), "MIRC") > 0 Then
        ' mIRC har fokus just nu.
    End If
```

Det finns bättre (men mycket krångligare) lösningar där man sätter en global keyboard-hook också.

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

## #5 — Ekström, 2004-02-07T18:18Z

Thx a lot, niko =) Ruggigt vad skillad man kan vara då.

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/96765-speedtype-mirc