[Release] String Sender DLL

<DllImport("user32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Private Shared Function keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) As Long
End Function


<DllImport("user32", EntryPoint:="VkKeyScanA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Private Shared Function VkKeyScan(ByVal yourchar As Char) As Integer
End Function

 

Private Const KEYEVENTF_KEYUP As Integer = 2

Public Sub SendString(ByVal WhatToSend As String, ByVal PauseLength As Integer)
    WhatToSend = WhatToSend.ToLower
    Dim num As Integer = 0
    Try 
        Do While (num <> WhatToSend.Length)
            StringSend.keybd_event(CByte(StringSend.VkKeyScan(WhatToSend.Chars(num))), 0, 0, 0)
            Thread.Sleep(10)
            StringSend.keybd_event(CByte(StringSend.VkKeyScan(WhatToSend.Chars(num))), 0, 2, 0)
            num += 1
            Thread.Sleep(PauseLength)
        Loop
    Catch exception1 As Exception
        ProjectData.SetProjectError(exception1)
        Dim exception As Exception = exception1
        ProjectData.ClearProjectError
    End Try
End Sub

 

 
Public Sub SendKey(ByVal WhichKey As Integer)
    StringSend.keybd_event(CByte(WhichKey), 0, 0, 0)
    Thread.Sleep(10)
    StringSend.keybd_event(CByte(WhichKey), 0, 2, 0)
End Sub