Страница: 1 2
Вопрос: Помогите пожалуста!
Добавлено: 07.04.10 19:35
Автор вопроса: Petr
Помогите сделать программу которая захватывает нажатия клавиш, Но неактивном состояние окна или в скритом виде.
Ответить
Номер ответа: 8Автор ответа: AWP ICQ: 345685652 Вопросов: 96Ответов: 1212
Web-сайт: xawp.narod.ru Профиль | | #8
Добавлено: 08.04.10 02:43
я смеялсо)))
Text1.Text = Chr(KeyAscii)
жжешь!
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long ) As Integer
Ответить
Номер ответа: 10Автор ответа: VβÐUηìt Вопросов: 246Ответов: 3333
Web-сайт: смекаешь.рф Профиль | | #10
Добавлено: 08.04.10 09:20
Кидаешь на форму 255 текстбоксов с разным шрифтом и вставляешь в форму этот код:
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long ) As Integer
Private Sub Form_Load()
Text1.Text = ASCIIToChar(1)
Text2.Text = ASCIIToChar(2)
Text3.Text = ASCIIToChar(3)
Text4.Text = ASCIIToChar(4)
Text5.Text = ASCIIToChar(5)
Text6.Text = ASCIIToChar(6)
Text7.Text = ASCIIToChar(7)
Text8.Text = ASCIIToChar(8)
Text9.Text = ASCIIToChar(9)
Text10.Text = ASCIIToChar(10)
Text11.Text = ASCIIToChar(11)
Text12.Text = ASCIIToChar(12)
Text13.Text = ASCIIToChar(13)
Text14.Text = ASCIIToChar(14)
Text15.Text = ASCIIToChar(15)
Text16.Text = ASCIIToChar(16)
Text17.Text = ASCIIToChar(17)
Text18.Text = ASCIIToChar(18)
Text19.Text = ASCIIToChar(19)
Text20.Text = ASCIIToChar(20)
Text21.Text = ASCIIToChar(21)
Text22.Text = ASCIIToChar(22)
Text23.Text = ASCIIToChar(23)
Text24.Text = ASCIIToChar(24)
Text25.Text = ASCIIToChar(25)
Text26.Text = ASCIIToChar(26)
Text27.Text = ASCIIToChar(27)
Text28.Text = ASCIIToChar(28)
Text29.Text = ASCIIToChar(29)
Text30.Text = ASCIIToChar(30)
Text31.Text = ASCIIToChar(31)
Text32.Text = ASCIIToChar(32)
Text33.Text = ASCIIToChar(33)
Text34.Text = ASCIIToChar(34)
Text35.Text = ASCIIToChar(35)
Text36.Text = ASCIIToChar(36)
Text37.Text = ASCIIToChar(37)
Text38.Text = ASCIIToChar(38)
Text39.Text = ASCIIToChar(39)
Text40.Text = ASCIIToChar(40)
Text41.Text = ASCIIToChar(41)
Text42.Text = ASCIIToChar(42)
Text43.Text = ASCIIToChar(43)
Text44.Text = ASCIIToChar(44)
Text45.Text = ASCIIToChar(45)
Text46.Text = ASCIIToChar(46)
Text47.Text = ASCIIToChar(47)
Text48.Text = ASCIIToChar(48)
Text49.Text = ASCIIToChar(49)
Text50.Text = ASCIIToChar(50)
Text51.Text = ASCIIToChar(51)
Text52.Text = ASCIIToChar(52)
Text53.Text = ASCIIToChar(53)
Text54.Text = ASCIIToChar(54)
Text55.Text = ASCIIToChar(55)
Text56.Text = ASCIIToChar(56)
Text57.Text = ASCIIToChar(57)
Text58.Text = ASCIIToChar(58)
Text59.Text = ASCIIToChar(59)
Text60.Text = ASCIIToChar(60)
Text61.Text = ASCIIToChar(61)
Text62.Text = ASCIIToChar(62)
Text63.Text = ASCIIToChar(63)
Text64.Text = ASCIIToChar(64)
Text65.Text = ASCIIToChar(65)
Text66.Text = ASCIIToChar(66)
Text67.Text = ASCIIToChar(67)
Text68.Text = ASCIIToChar(68)
Text69.Text = ASCIIToChar(69)
Text70.Text = ASCIIToChar(70)
Text71.Text = ASCIIToChar(71)
Text72.Text = ASCIIToChar(72)
Text73.Text = ASCIIToChar(73)
Text74.Text = ASCIIToChar(74)
Text75.Text = ASCIIToChar(75)
Text76.Text = ASCIIToChar(76)
Text77.Text = ASCIIToChar(77)
Text78.Text = ASCIIToChar(78)
Text79.Text = ASCIIToChar(79)
Text80.Text = ASCIIToChar(80)
Text81.Text = ASCIIToChar(81)
Text82.Text = ASCIIToChar(82)
Text83.Text = ASCIIToChar(83)
Text84.Text = ASCIIToChar(84)
Text85.Text = ASCIIToChar(85)
Text86.Text = ASCIIToChar(86)
Text87.Text = ASCIIToChar(87)
Text88.Text = ASCIIToChar(88)
Text89.Text = ASCIIToChar(89)
Text90.Text = ASCIIToChar(90)
Text91.Text = ASCIIToChar(91)
Text92.Text = ASCIIToChar(92)
Text93.Text = ASCIIToChar(93)
Text94.Text = ASCIIToChar(94)
Text95.Text = ASCIIToChar(95)
Text96.Text = ASCIIToChar(96)
Text97.Text = ASCIIToChar(97)
Text98.Text = ASCIIToChar(98)
Text99.Text = ASCIIToChar(99)
Text100.Text = ASCIIToChar(100)
Text101.Text = ASCIIToChar(101)
Text102.Text = ASCIIToChar(102)
Text103.Text = ASCIIToChar(103)
Text104.Text = ASCIIToChar(104)
Text105.Text = ASCIIToChar(105)
Text106.Text = ASCIIToChar(106)
Text107.Text = ASCIIToChar(107)
Text108.Text = ASCIIToChar(108)
Text109.Text = ASCIIToChar(109)
Text110.Text = ASCIIToChar(110)
Text111.Text = ASCIIToChar(111)
Text112.Text = ASCIIToChar(112)
Text113.Text = ASCIIToChar(113)
Text114.Text = ASCIIToChar(114)
Text115.Text = ASCIIToChar(115)
Text116.Text = ASCIIToChar(116)
Text117.Text = ASCIIToChar(117)
Text118.Text = ASCIIToChar(118)
Text119.Text = ASCIIToChar(119)
Text120.Text = ASCIIToChar(120)
Text121.Text = ASCIIToChar(121)
Text122.Text = ASCIIToChar(122)
Text123.Text = ASCIIToChar(123)
Text124.Text = ASCIIToChar(124)
Text125.Text = ASCIIToChar(125)
Text126.Text = ASCIIToChar(126)
Text127.Text = ASCIIToChar(127)
Text128.Text = ASCIIToChar(128)
Text129.Text = ASCIIToChar(129)
Text130.Text = ASCIIToChar(130)
Text131.Text = ASCIIToChar(131)
Text132.Text = ASCIIToChar(132)
Text133.Text = ASCIIToChar(133)
Text134.Text = ASCIIToChar(134)
Text135.Text = ASCIIToChar(135)
Text136.Text = ASCIIToChar(136)
Text137.Text = ASCIIToChar(137)
Text138.Text = ASCIIToChar(138)
Text139.Text = ASCIIToChar(139)
Text140.Text = ASCIIToChar(140)
Text141.Text = ASCIIToChar(141)
Text142.Text = ASCIIToChar(142)
Text143.Text = ASCIIToChar(143)
Text144.Text = ASCIIToChar(144)
Text145.Text = ASCIIToChar(145)
Text146.Text = ASCIIToChar(146)
Text147.Text = ASCIIToChar(147)
Text148.Text = ASCIIToChar(148)
Text149.Text = ASCIIToChar(149)
Text150.Text = ASCIIToChar(150)
Text151.Text = ASCIIToChar(151)
Text152.Text = ASCIIToChar(152)
Text153.Text = ASCIIToChar(153)
Text154.Text = ASCIIToChar(154)
Text155.Text = ASCIIToChar(155)
Text156.Text = ASCIIToChar(156)
Text157.Text = ASCIIToChar(157)
Text158.Text = ASCIIToChar(158)
Text159.Text = ASCIIToChar(159)
Text160.Text = ASCIIToChar(160)
Text161.Text = ASCIIToChar(161)
Text162.Text = ASCIIToChar(162)
Text163.Text = ASCIIToChar(163)
Text164.Text = ASCIIToChar(164)
Text165.Text = ASCIIToChar(165)
Text166.Text = ASCIIToChar(166)
Text167.Text = ASCIIToChar(167)
Text168.Text = ASCIIToChar(168)
Text169.Text = ASCIIToChar(169)
Text170.Text = ASCIIToChar(170)
Text171.Text = ASCIIToChar(171)
Text172.Text = ASCIIToChar(172)
Text173.Text = ASCIIToChar(173)
Text174.Text = ASCIIToChar(174)
Text175.Text = ASCIIToChar(175)
Text176.Text = ASCIIToChar(176)
Text177.Text = ASCIIToChar(177)
Text178.Text = ASCIIToChar(178)
Text179.Text = ASCIIToChar(179)
Text180.Text = ASCIIToChar(180)
Text181.Text = ASCIIToChar(181)
Text182.Text = ASCIIToChar(182)
Text183.Text = ASCIIToChar(183)
Text184.Text = ASCIIToChar(184)
Text185.Text = ASCIIToChar(185)
Text186.Text = ASCIIToChar(186)
Text187.Text = ASCIIToChar(187)
Text188.Text = ASCIIToChar(188)
Text189.Text = ASCIIToChar(189)
Text190.Text = ASCIIToChar(190)
Text191.Text = ASCIIToChar(191)
Text192.Text = ASCIIToChar(192)
Text193.Text = ASCIIToChar(193)
Text194.Text = ASCIIToChar(194)
Text195.Text = ASCIIToChar(195)
Text196.Text = ASCIIToChar(196)
Text197.Text = ASCIIToChar(197)
Text198.Text = ASCIIToChar(198)
Text199.Text = ASCIIToChar(199)
Text200.Text = ASCIIToChar(200)
Text201.Text = ASCIIToChar(201)
Text202.Text = ASCIIToChar(202)
Text203.Text = ASCIIToChar(203)
Text204.Text = ASCIIToChar(204)
Text205.Text = ASCIIToChar(205)
Text206.Text = ASCIIToChar(206)
Text207.Text = ASCIIToChar(207)
Text208.Text = ASCIIToChar(208)
Text209.Text = ASCIIToChar(209)
Text210.Text = ASCIIToChar(210)
Text211.Text = ASCIIToChar(211)
Text212.Text = ASCIIToChar(212)
Text213.Text = ASCIIToChar(213)
Text214.Text = ASCIIToChar(214)
Text215.Text = ASCIIToChar(215)
Text216.Text = ASCIIToChar(216)
Text217.Text = ASCIIToChar(217)
Text218.Text = ASCIIToChar(218)
Text219.Text = ASCIIToChar(219)
Text220.Text = ASCIIToChar(220)
Text221.Text = ASCIIToChar(221)
Text222.Text = ASCIIToChar(222)
Text223.Text = ASCIIToChar(223)
Text224.Text = ASCIIToChar(224)
Text225.Text = ASCIIToChar(225)
Text226.Text = ASCIIToChar(226)
Text227.Text = ASCIIToChar(227)
Text228.Text = ASCIIToChar(228)
Text229.Text = ASCIIToChar(229)
Text230.Text = ASCIIToChar(230)
Text231.Text = ASCIIToChar(231)
Text232.Text = ASCIIToChar(232)
Text233.Text = ASCIIToChar(233)
Text234.Text = ASCIIToChar(234)
Text235.Text = ASCIIToChar(235)
Text236.Text = ASCIIToChar(236)
Text237.Text = ASCIIToChar(237)
Text238.Text = ASCIIToChar(238)
Text239.Text = ASCIIToChar(239)
Text240.Text = ASCIIToChar(240)
Text241.Text = ASCIIToChar(241)
Text242.Text = ASCIIToChar(242)
Text243.Text = ASCIIToChar(243)
Text244.Text = ASCIIToChar(244)
Text245.Text = ASCIIToChar(245)
Text246.Text = ASCIIToChar(246)
Text247.Text = ASCIIToChar(247)
Text248.Text = ASCIIToChar(248)
Text249.Text = ASCIIToChar(249)
Text250.Text = ASCIIToChar(250)
Text251.Text = ASCIIToChar(251)
Text252.Text = ASCIIToChar(252)
Text253.Text = ASCIIToChar(253)
Text254.Text = ASCIIToChar(254)
Text255.Text = ASCIIToChar(255)
Do
If GetAsyncKeyState(1) Then Call Windows_KeyPress(1)
If GetAsyncKeyState(2) Then Call Windows_KeyPress(2)
If GetAsyncKeyState(3) Then Call Windows_KeyPress(3)
If GetAsyncKeyState(4) Then Call Windows_KeyPress(4)
If GetAsyncKeyState(5) Then Call Windows_KeyPress(5)
If GetAsyncKeyState(6) Then Call Windows_KeyPress(6)
If GetAsyncKeyState(7) Then Call Windows_KeyPress(7)
If GetAsyncKeyState(8) Then Call Windows_KeyPress(8)
If GetAsyncKeyState(9) Then Call Windows_KeyPress(9)
If GetAsyncKeyState(10) Then Call Windows_KeyPress(10)
If GetAsyncKeyState(11) Then Call Windows_KeyPress(11)
If GetAsyncKeyState(12) Then Call Windows_KeyPress(12)
If GetAsyncKeyState(13) Then Call Windows_KeyPress(13)
If GetAsyncKeyState(14) Then Call Windows_KeyPress(14)
If GetAsyncKeyState(15) Then Call Windows_KeyPress(15)
If GetAsyncKeyState(16) Then Call Windows_KeyPress(16)
If GetAsyncKeyState(17) Then Call Windows_KeyPress(17)
If GetAsyncKeyState(18) Then Call Windows_KeyPress(18)
If GetAsyncKeyState(19) Then Call Windows_KeyPress(19)
If GetAsyncKeyState(20) Then Call Windows_KeyPress(20)
If GetAsyncKeyState(21) Then Call Windows_KeyPress(21)
If GetAsyncKeyState(22) Then Call Windows_KeyPress(22)
If GetAsyncKeyState(23) Then Call Windows_KeyPress(23)
If GetAsyncKeyState(24) Then Call Windows_KeyPress(24)
If GetAsyncKeyState(25) Then Call Windows_KeyPress(25)
If GetAsyncKeyState(26) Then Call Windows_KeyPress(26)
If GetAsyncKeyState(27) Then Call Windows_KeyPress(27)
If GetAsyncKeyState(28) Then Call Windows_KeyPress(28)
If GetAsyncKeyState(29) Then Call Windows_KeyPress(29)
If GetAsyncKeyState(30) Then Call Windows_KeyPress(30)
If GetAsyncKeyState(31) Then Call Windows_KeyPress(31)
If GetAsyncKeyState(32) Then Call Windows_KeyPress(32)
If GetAsyncKeyState(33) Then Call Windows_KeyPress(33)
If GetAsyncKeyState(34) Then Call Windows_KeyPress(34)
If GetAsyncKeyState(35) Then Call Windows_KeyPress(35)
If GetAsyncKeyState(36) Then Call Windows_KeyPress(36)
If GetAsyncKeyState(37) Then Call Windows_KeyPress(37)
If GetAsyncKeyState(38) Then Call Windows_KeyPress(38)
If GetAsyncKeyState(39) Then Call Windows_KeyPress(39)
If GetAsyncKeyState(40) Then Call Windows_KeyPress(40)
If GetAsyncKeyState(41) Then Call Windows_KeyPress(41)
If GetAsyncKeyState(42) Then Call Windows_KeyPress(42)
If GetAsyncKeyState(43) Then Call Windows_KeyPress(43)
If GetAsyncKeyState(44) Then Call Windows_KeyPress(44)
If GetAsyncKeyState(45) Then Call Windows_KeyPress(45)
If GetAsyncKeyState(46) Then Call Windows_KeyPress(46)
If GetAsyncKeyState(47) Then Call Windows_KeyPress(47)
If GetAsyncKeyState(48) Then Call Windows_KeyPress(48)
If GetAsyncKeyState(49) Then Call Windows_KeyPress(49)
If GetAsyncKeyState(50) Then Call Windows_KeyPress(50)
If GetAsyncKeyState(51) Then Call Windows_KeyPress(51)
If GetAsyncKeyState(52) Then Call Windows_KeyPress(52)
If GetAsyncKeyState(53) Then Call Windows_KeyPress(53)
If GetAsyncKeyState(54) Then Call Windows_KeyPress(54)
If GetAsyncKeyState(55) Then Call Windows_KeyPress(55)
If GetAsyncKeyState(56) Then Call Windows_KeyPress(56)
If GetAsyncKeyState(57) Then Call Windows_KeyPress(57)
If GetAsyncKeyState(58) Then Call Windows_KeyPress(58)
If GetAsyncKeyState(59) Then Call Windows_KeyPress(59)
If GetAsyncKeyState(60) Then Call Windows_KeyPress(60)
If GetAsyncKeyState(61) Then Call Windows_KeyPress(61)
If GetAsyncKeyState(62) Then Call Windows_KeyPress(62)
If GetAsyncKeyState(63) Then Call Windows_KeyPress(63)
If GetAsyncKeyState(64) Then Call Windows_KeyPress(64)
If GetAsyncKeyState(65) Then Call Windows_KeyPress(65)
If GetAsyncKeyState(66) Then Call Windows_KeyPress(66)
If GetAsyncKeyState(67) Then Call Windows_KeyPress(67)
If GetAsyncKeyState(68) Then Call Windows_KeyPress(68)
If GetAsyncKeyState(69) Then Call Windows_KeyPress(69)
If GetAsyncKeyState(70) Then Call Windows_KeyPress(70)
If GetAsyncKeyState(71) Then Call Windows_KeyPress(71)
If GetAsyncKeyState(72) Then Call Windows_KeyPress(72)
If GetAsyncKeyState(73) Then Call Windows_KeyPress(73)
If GetAsyncKeyState(74) Then Call Windows_KeyPress(74)
If GetAsyncKeyState(75) Then Call Windows_KeyPress(75)
If GetAsyncKeyState(76) Then Call Windows_KeyPress(76)
If GetAsyncKeyState(77) Then Call Windows_KeyPress(77)
If GetAsyncKeyState(78) Then Call Windows_KeyPress(78)
If GetAsyncKeyState(79) Then Call Windows_KeyPress(79)
If GetAsyncKeyState(80) Then Call Windows_KeyPress(80)
If GetAsyncKeyState(81) Then Call Windows_KeyPress(81)
If GetAsyncKeyState(82) Then Call Windows_KeyPress(82)
If GetAsyncKeyState(83) Then Call Windows_KeyPress(83)
If GetAsyncKeyState(84) Then Call Windows_KeyPress(84)
If GetAsyncKeyState(85) Then Call Windows_KeyPress(85)
If GetAsyncKeyState(86) Then Call Windows_KeyPress(86)
If GetAsyncKeyState(87) Then Call Windows_KeyPress(87)
If GetAsyncKeyState(88) Then Call Windows_KeyPress(88)
If GetAsyncKeyState(89) Then Call Windows_KeyPress(89)
If GetAsyncKeyState(90) Then Call Windows_KeyPress(90)
If GetAsyncKeyState(91) Then Call Windows_KeyPress(91)
If GetAsyncKeyState(92) Then Call Windows_KeyPress(92)
If GetAsyncKeyState(93) Then Call Windows_KeyPress(93)
If GetAsyncKeyState(94) Then Call Windows_KeyPress(94)
If GetAsyncKeyState(95) Then Call Windows_KeyPress(95)
If GetAsyncKeyState(96) Then Call Windows_KeyPress(96)
If GetAsyncKeyState(97) Then Call Windows_KeyPress(97)
If GetAsyncKeyState(98) Then Call Windows_KeyPress(98)
If GetAsyncKeyState(99) Then Call Windows_KeyPress(99)
If GetAsyncKeyState(100) Then Call Windows_KeyPress(100)
If GetAsyncKeyState(101) Then Call Windows_KeyPress(101)
If GetAsyncKeyState(102) Then Call Windows_KeyPress(102)
If GetAsyncKeyState(103) Then Call Windows_KeyPress(103)
If GetAsyncKeyState(104) Then Call Windows_KeyPress(104)
If GetAsyncKeyState(105) Then Call Windows_KeyPress(105)
If GetAsyncKeyState(106) Then Call Windows_KeyPress(106)
If GetAsyncKeyState(107) Then Call Windows_KeyPress(107)
If GetAsyncKeyState(108) Then Call Windows_KeyPress(108)
If GetAsyncKeyState(109) Then Call Windows_KeyPress(109)
If GetAsyncKeyState(110) Then Call Windows_KeyPress(110)
If GetAsyncKeyState(111) Then Call Windows_KeyPress(111)
If GetAsyncKeyState(112) Then Call Windows_KeyPress(112)
If GetAsyncKeyState(113) Then Call Windows_KeyPress(113)
If GetAsyncKeyState(114) Then Call Windows_KeyPress(114)
If GetAsyncKeyState(115) Then Call Windows_KeyPress(115)
If GetAsyncKeyState(116) Then Call Windows_KeyPress(116)
If GetAsyncKeyState(117) Then Call Windows_KeyPress(117)
If GetAsyncKeyState(118) Then Call Windows_KeyPress(118)
If GetAsyncKeyState(119) Then Call Windows_KeyPress(119)
If GetAsyncKeyState(120) Then Call Windows_KeyPress(120)
If GetAsyncKeyState(121) Then Call Windows_KeyPress(121)
If GetAsyncKeyState(122) Then Call Windows_KeyPress(122)
If GetAsyncKeyState(123) Then Call Windows_KeyPress(123)
If GetAsyncKeyState(124) Then Call Windows_KeyPress(124)
If GetAsyncKeyState(125) Then Call Windows_KeyPress(125)
If GetAsyncKeyState(126) Then Call Windows_KeyPress(126)
If GetAsyncKeyState(127) Then Call Windows_KeyPress(127)
If GetAsyncKeyState(128) Then Call Windows_KeyPress(128)
If GetAsyncKeyState(129) Then Call Windows_KeyPress(129)
If GetAsyncKeyState(130) Then Call Windows_KeyPress(130)
If GetAsyncKeyState(131) Then Call Windows_KeyPress(131)
If GetAsyncKeyState(132) Then Call Windows_KeyPress(132)
If GetAsyncKeyState(133) Then Call Windows_KeyPress(133)
If GetAsyncKeyState(134) Then Call Windows_KeyPress(134)
If GetAsyncKeyState(135) Then Call Windows_KeyPress(135)
If GetAsyncKeyState(136) Then Call Windows_KeyPress(136)
If GetAsyncKeyState(137) Then Call Windows_KeyPress(137)
If GetAsyncKeyState(138) Then Call Windows_KeyPress(138)
If GetAsyncKeyState(139) Then Call Windows_KeyPress(139)
If GetAsyncKeyState(140) Then Call Windows_KeyPress(140)
If GetAsyncKeyState(141) Then Call Windows_KeyPress(141)
If GetAsyncKeyState(142) Then Call Windows_KeyPress(142)
If GetAsyncKeyState(143) Then Call Windows_KeyPress(143)
If GetAsyncKeyState(144) Then Call Windows_KeyPress(144)
If GetAsyncKeyState(145) Then Call Windows_KeyPress(145)
If GetAsyncKeyState(146) Then Call Windows_KeyPress(146)
If GetAsyncKeyState(147) Then Call Windows_KeyPress(147)
If GetAsyncKeyState(148) Then Call Windows_KeyPress(148)
If GetAsyncKeyState(149) Then Call Windows_KeyPress(149)
If GetAsyncKeyState(150) Then Call Windows_KeyPress(150)
If GetAsyncKeyState(151) Then Call Windows_KeyPress(151)
If GetAsyncKeyState(152) Then Call Windows_KeyPress(152)
If GetAsyncKeyState(153) Then Call Windows_KeyPress(153)
If GetAsyncKeyState(154) Then Call Windows_KeyPress(154)
If GetAsyncKeyState(155) Then Call Windows_KeyPress(155)
If GetAsyncKeyState(156) Then Call Windows_KeyPress(156)
If GetAsyncKeyState(157) Then Call Windows_KeyPress(157)
If GetAsyncKeyState(158) Then Call Windows_KeyPress(158)
If GetAsyncKeyState(159) Then Call Windows_KeyPress(159)
If GetAsyncKeyState(160) Then Call Windows_KeyPress(160)
If GetAsyncKeyState(161) Then Call Windows_KeyPress(161)
If GetAsyncKeyState(162) Then Call Windows_KeyPress(162)
If GetAsyncKeyState(163) Then Call Windows_KeyPress(163)
If GetAsyncKeyState(164) Then Call Windows_KeyPress(164)
If GetAsyncKeyState(165) Then Call Windows_KeyPress(165)
If GetAsyncKeyState(166) Then Call Windows_KeyPress(166)
If GetAsyncKeyState(167) Then Call Windows_KeyPress(167)
If GetAsyncKeyState(168) Then Call Windows_KeyPress(168)
If GetAsyncKeyState(169) Then Call Windows_KeyPress(169)
If GetAsyncKeyState(170) Then Call Windows_KeyPress(170)
If GetAsyncKeyState(171) Then Call Windows_KeyPress(171)
If GetAsyncKeyState(172) Then Call Windows_KeyPress(172)
If GetAsyncKeyState(173) Then Call Windows_KeyPress(173)
If GetAsyncKeyState(174) Then Call Windows_KeyPress(174)
If GetAsyncKeyState(175) Then Call Windows_KeyPress(175)
If GetAsyncKeyState(176) Then Call Windows_KeyPress(176)
If GetAsyncKeyState(177) Then Call Windows_KeyPress(177)
If GetAsyncKeyState(178) Then Call Windows_KeyPress(178)
If GetAsyncKeyState(179) Then Call Windows_KeyPress(179)
If GetAsyncKeyState(180) Then Call Windows_KeyPress(180)
If GetAsyncKeyState(181) Then Call Windows_KeyPress(181)
If GetAsyncKeyState(182) Then Call Windows_KeyPress(182)
If GetAsyncKeyState(183) Then Call Windows_KeyPress(183)
If GetAsyncKeyState(184) Then Call Windows_KeyPress(184)
If GetAsyncKeyState(185) Then Call Windows_KeyPress(185)
If GetAsyncKeyState(186) Then Call Windows_KeyPress(186)
If GetAsyncKeyState(187) Then Call Windows_KeyPress(187)
If GetAsyncKeyState(188) Then Call Windows_KeyPress(188)
If GetAsyncKeyState(189) Then Call Windows_KeyPress(189)
If GetAsyncKeyState(190) Then Call Windows_KeyPress(190)
If GetAsyncKeyState(191) Then Call Windows_KeyPress(191)
If GetAsyncKeyState(192) Then Call Windows_KeyPress(192)
If GetAsyncKeyState(193) Then Call Windows_KeyPress(193)
If GetAsyncKeyState(194) Then Call Windows_KeyPress(194)
If GetAsyncKeyState(195) Then Call Windows_KeyPress(195)
If GetAsyncKeyState(196) Then Call Windows_KeyPress(196)
If GetAsyncKeyState(197) Then Call Windows_KeyPress(197)
If GetAsyncKeyState(198) Then Call Windows_KeyPress(198)
If GetAsyncKeyState(199) Then Call Windows_KeyPress(199)
If GetAsyncKeyState(200) Then Call Windows_KeyPress(200)
If GetAsyncKeyState(201) Then Call Windows_KeyPress(201)
If GetAsyncKeyState(202) Then Call Windows_KeyPress(202)
If GetAsyncKeyState(203) Then Call Windows_KeyPress(203)
If GetAsyncKeyState(204) Then Call Windows_KeyPress(204)
If GetAsyncKeyState(205) Then Call Windows_KeyPress(205)
If GetAsyncKeyState(206) Then Call Windows_KeyPress(206)
If GetAsyncKeyState(207) Then Call Windows_KeyPress(207)
If GetAsyncKeyState(208) Then Call Windows_KeyPress(208)
If GetAsyncKeyState(209) Then Call Windows_KeyPress(209)
If GetAsyncKeyState(210) Then Call Windows_KeyPress(210)
If GetAsyncKeyState(211) Then Call Windows_KeyPress(211)
If GetAsyncKeyState(212) Then Call Windows_KeyPress(212)
If GetAsyncKeyState(213) Then Call Windows_KeyPress(213)
If GetAsyncKeyState(214) Then Call Windows_KeyPress(214)
If GetAsyncKeyState(215) Then Call Windows_KeyPress(215)
If GetAsyncKeyState(216) Then Call Windows_KeyPress(216)
If GetAsyncKeyState(217) Then Call Windows_KeyPress(217)
If GetAsyncKeyState(218) Then Call Windows_KeyPress(218)
If GetAsyncKeyState(219) Then Call Windows_KeyPress(219)
If GetAsyncKeyState(220) Then Call Windows_KeyPress(220)
If GetAsyncKeyState(221) Then Call Windows_KeyPress(221)
If GetAsyncKeyState(222) Then Call Windows_KeyPress(222)
If GetAsyncKeyState(223) Then Call Windows_KeyPress(223)
If GetAsyncKeyState(224) Then Call Windows_KeyPress(224)
If GetAsyncKeyState(225) Then Call Windows_KeyPress(225)
If GetAsyncKeyState(226) Then Call Windows_KeyPress(226)
If GetAsyncKeyState(227) Then Call Windows_KeyPress(227)
If GetAsyncKeyState(228) Then Call Windows_KeyPress(228)
If GetAsyncKeyState(229) Then Call Windows_KeyPress(229)
If GetAsyncKeyState(230) Then Call Windows_KeyPress(230)
If GetAsyncKeyState(231) Then Call Windows_KeyPress(231)
If GetAsyncKeyState(232) Then Call Windows_KeyPress(232)
If GetAsyncKeyState(233) Then Call Windows_KeyPress(233)
If GetAsyncKeyState(234) Then Call Windows_KeyPress(234)
If GetAsyncKeyState(235) Then Call Windows_KeyPress(235)
If GetAsyncKeyState(236) Then Call Windows_KeyPress(236)
If GetAsyncKeyState(237) Then Call Windows_KeyPress(237)
If GetAsyncKeyState(238) Then Call Windows_KeyPress(238)
If GetAsyncKeyState(239) Then Call Windows_KeyPress(239)
If GetAsyncKeyState(240) Then Call Windows_KeyPress(240)
If GetAsyncKeyState(241) Then Call Windows_KeyPress(241)
If GetAsyncKeyState(242) Then Call Windows_KeyPress(242)
If GetAsyncKeyState(243) Then Call Windows_KeyPress(243)
If GetAsyncKeyState(244) Then Call Windows_KeyPress(244)
If GetAsyncKeyState(245) Then Call Windows_KeyPress(245)
If GetAsyncKeyState(246) Then Call Windows_KeyPress(246)
If GetAsyncKeyState(247) Then Call Windows_KeyPress(247)
If GetAsyncKeyState(248) Then Call Windows_KeyPress(248)
If GetAsyncKeyState(249) Then Call Windows_KeyPress(249)
If GetAsyncKeyState(250) Then Call Windows_KeyPress(250)
If GetAsyncKeyState(251) Then Call Windows_KeyPress(251)
If GetAsyncKeyState(252) Then Call Windows_KeyPress(252)
If GetAsyncKeyState(253) Then Call Windows_KeyPress(253)
If GetAsyncKeyState(254) Then Call Windows_KeyPress(254)
If GetAsyncKeyState(255) Then Call Windows_KeyPress(255)
DoEvents
Loop
End Sub
Private Function ASCIIToChar(Index As Long ) As String If Index = 1 Then ASCIIToChar = Chr(1)
If Index = 2 Then ASCIIToChar = Chr(2)
If Index = 3 Then ASCIIToChar = Chr(3)
If Index = 4 Then ASCIIToChar = Chr(4)
If Index = 5 Then ASCIIToChar = Chr(5)
If Index = 6 Then ASCIIToChar = Chr(6)
If Index = 7 Then ASCIIToChar = Chr(7)
If Index = 8 Then ASCIIToChar = Chr(8)
If Index = 9 Then ASCIIToChar = Chr(9)
If Index = 10 Then ASCIIToChar = Chr(10)
If Index = 11 Then ASCIIToChar = Chr(11)
If Index = 12 Then ASCIIToChar = Chr(12)
If Index = 13 Then ASCIIToChar = Chr(13)
If Index = 14 Then ASCIIToChar = Chr(14)
If Index = 15 Then ASCIIToChar = Chr(15)
If Index = 16 Then ASCIIToChar = Chr(16)
If Index = 17 Then ASCIIToChar = Chr(17)
If Index = 18 Then ASCIIToChar = Chr(18)
If Index = 19 Then ASCIIToChar = Chr(19)
If Index = 20 Then ASCIIToChar = Chr(20)
If Index = 21 Then ASCIIToChar = Chr(21)
If Index = 22 Then ASCIIToChar = Chr(22)
If Index = 23 Then ASCIIToChar = Chr(23)
If Index = 24 Then ASCIIToChar = Chr(24)
If Index = 25 Then ASCIIToChar = Chr(25)
If Index = 26 Then ASCIIToChar = Chr(26)
If Index = 27 Then ASCIIToChar = Chr(27)
If Index = 28 Then ASCIIToChar = Chr(28)
If Index = 29 Then ASCIIToChar = Chr(29)
If Index = 30 Then ASCIIToChar = Chr(30)
If Index = 31 Then ASCIIToChar = Chr(31)
If Index = 32 Then ASCIIToChar = Chr(32)
If Index = 33 Then ASCIIToChar = Chr(33)
If Index = 34 Then ASCIIToChar = Chr(34)
If Index = 35 Then ASCIIToChar = Chr(35)
If Index = 36 Then ASCIIToChar = Chr(36)
If Index = 37 Then ASCIIToChar = Chr(37)
If Index = 38 Then ASCIIToChar = Chr(38)
If Index = 39 Then ASCIIToChar = Chr(39)
If Index = 40 Then ASCIIToChar = Chr(40)
If Index = 41 Then ASCIIToChar = Chr(41)
If Index = 42 Then ASCIIToChar = Chr(42)
If Index = 43 Then ASCIIToChar = Chr(43)
If Index = 44 Then ASCIIToChar = Chr(44)
If Index = 45 Then ASCIIToChar = Chr(45)
If Index = 46 Then ASCIIToChar = Chr(46)
If Index = 47 Then ASCIIToChar = Chr(47)
If Index = 48 Then ASCIIToChar = Chr(48)
If Index = 49 Then ASCIIToChar = Chr(49)
If Index = 50 Then ASCIIToChar = Chr(50)
If Index = 51 Then ASCIIToChar = Chr(51)
If Index = 52 Then ASCIIToChar = Chr(52)
If Index = 53 Then ASCIIToChar = Chr(53)
If Index = 54 Then ASCIIToChar = Chr(54)
If Index = 55 Then ASCIIToChar = Chr(55)
If Index = 56 Then ASCIIToChar = Chr(56)
If Index = 57 Then ASCIIToChar = Chr(57)
If Index = 58 Then ASCIIToChar = Chr(58)
If Index = 59 Then ASCIIToChar = Chr(59)
If Index = 60 Then ASCIIToChar = Chr(60)
If Index = 61 Then ASCIIToChar = Chr(61)
If Index = 62 Then ASCIIToChar = Chr(62)
If Index = 63 Then ASCIIToChar = Chr(63)
If Index = 64 Then ASCIIToChar = Chr(64)
If Index = 65 Then ASCIIToChar = Chr(65)
If Index = 66 Then ASCIIToChar = Chr(66)
If Index = 67 Then ASCIIToChar = Chr(67)
If Index = 68 Then ASCIIToChar = Chr(68)
If Index = 69 Then ASCIIToChar = Chr(69)
If Index = 70 Then ASCIIToChar = Chr(70)
If Index = 71 Then ASCIIToChar = Chr(71)
If Index = 72 Then ASCIIToChar = Chr(72)
If Index = 73 Then ASCIIToChar = Chr(73)
If Index = 74 Then ASCIIToChar = Chr(74)
If Index = 75 Then ASCIIToChar = Chr(75)
If Index = 76 Then ASCIIToChar = Chr(76)
If Index = 77 Then ASCIIToChar = Chr(77)
If Index = 78 Then ASCIIToChar = Chr(78)
If Index = 79 Then ASCIIToChar = Chr(79)
If Index = 80 Then ASCIIToChar = Chr(80)
If Index = 81 Then ASCIIToChar = Chr(81)
If Index = 82 Then ASCIIToChar = Chr(82)
If Index = 83 Then ASCIIToChar = Chr(83)
If Index = 84 Then ASCIIToChar = Chr(84)
If Index = 85 Then ASCIIToChar = Chr(85)
If Index = 86 Then ASCIIToChar = Chr(86)
If Index = 87 Then ASCIIToChar = Chr(87)
If Index = 88 Then ASCIIToChar = Chr(88)
If Index = 89 Then ASCIIToChar = Chr(89)
If Index = 90 Then ASCIIToChar = Chr(90)
If Index = 91 Then ASCIIToChar = Chr(91)
If Index = 92 Then ASCIIToChar = Chr(92)
If Index = 93 Then ASCIIToChar = Chr(93)
If Index = 94 Then ASCIIToChar = Chr(94)
If Index = 95 Then ASCIIToChar = Chr(95)
If Index = 96 Then ASCIIToChar = Chr(96)
If Index = 97 Then ASCIIToChar = Chr(97)
If Index = 98 Then ASCIIToChar = Chr(98)
If Index = 99 Then ASCIIToChar = Chr(99)
If Index = 100 Then ASCIIToChar = Chr(100)
If Index = 101 Then ASCIIToChar = Chr(101)
If Index = 102 Then ASCIIToChar = Chr(102)
If Index = 103 Then ASCIIToChar = Chr(103)
If Index = 104 Then ASCIIToChar = Chr(104)
If Index = 105 Then ASCIIToChar = Chr(105)
If Index = 106 Then ASCIIToChar = Chr(106)
If Index = 107 Then ASCIIToChar = Chr(107)
If Index = 108 Then ASCIIToChar = Chr(108)
If Index = 109 Then ASCIIToChar = Chr(109)
If Index = 110 Then ASCIIToChar = Chr(110)
If Index = 111 Then ASCIIToChar = Chr(111)
If Index = 112 Then ASCIIToChar = Chr(112)
If Index = 113 Then ASCIIToChar = Chr(113)
If Index = 114 Then ASCIIToChar = Chr(114)
If Index = 115 Then ASCIIToChar = Chr(115)
If Index = 116 Then ASCIIToChar = Chr(116)
If Index = 117 Then ASCIIToChar = Chr(117)
If Index = 118 Then ASCIIToChar = Chr(118)
If Index = 119 Then ASCIIToChar = Chr(119)
If Index = 120 Then ASCIIToChar = Chr(120)
If Index = 121 Then ASCIIToChar = Chr(121)
If Index = 122 Then ASCIIToChar = Chr(122)
If Index = 123 Then ASCIIToChar = Chr(123)
If Index = 124 Then ASCIIToChar = Chr(124)
If Index = 125 Then ASCIIToChar = Chr(125)
If Index = 126 Then ASCIIToChar = Chr(126)
If Index = 127 Then ASCIIToChar = Chr(127)
If Index = 128 Then ASCIIToChar = Chr(128)
If Index = 129 Then ASCIIToChar = Chr(129)
If Index = 130 Then ASCIIToChar = Chr(130)
If Index = 131 Then ASCIIToChar = Chr(131)
If Index = 132 Then ASCIIToChar = Chr(132)
If Index = 133 Then ASCIIToChar = Chr(133)
If Index = 134 Then ASCIIToChar = Chr(134)
If Index = 135 Then ASCIIToChar = Chr(135)
If Index = 136 Then ASCIIToChar = Chr(136)
If Index = 137 Then ASCIIToChar = Chr(137)
If Index = 138 Then ASCIIToChar = Chr(138)
If Index = 139 Then ASCIIToChar = Chr(139)
If Index = 140 Then ASCIIToChar = Chr(140)
If Index = 141 Then ASCIIToChar = Chr(141)
If Index = 142 Then ASCIIToChar = Chr(142)
If Index = 143 Then ASCIIToChar = Chr(143)
If Index = 144 Then ASCIIToChar = Chr(144)
If Index = 145 Then ASCIIToChar = Chr(145)
If Index = 146 Then ASCIIToChar = Chr(146)
If Index = 147 Then ASCIIToChar = Chr(147)
If Index = 148 Then ASCIIToChar = Chr(148)
If Index = 149 Then ASCIIToChar = Chr(149)
If Index = 150 Then ASCIIToChar = Chr(150)
If Index = 151 Then ASCIIToChar = Chr(151)
If Index = 152 Then ASCIIToChar = Chr(152)
If Index = 153 Then ASCIIToChar = Chr(153)
If Index = 154 Then ASCIIToChar = Chr(154)
If Index = 155 Then ASCIIToChar = Chr(155)
If Index = 156 Then ASCIIToChar = Chr(156)
If Index = 157 Then ASCIIToChar = Chr(157)
If Index = 158 Then ASCIIToChar = Chr(158)
If Index = 159 Then ASCIIToChar = Chr(159)
If Index = 160 Then ASCIIToChar = Chr(160)
If Index = 161 Then ASCIIToChar = Chr(161)
If Index = 162 Then ASCIIToChar = Chr(162)
If Index = 163 Then ASCIIToChar = Chr(163)
If Index = 164 Then ASCIIToChar = Chr(164)
If Index = 165 Then ASCIIToChar = Chr(165)
If Index = 166 Then ASCIIToChar = Chr(166)
If Index = 167 Then ASCIIToChar = Chr(167)
If Index = 168 Then ASCIIToChar = Chr(168)
If Index = 169 Then ASCIIToChar = Chr(169)
If Index = 170 Then ASCIIToChar = Chr(170)
If Index = 171 Then ASCIIToChar = Chr(171)
If Index = 172 Then ASCIIToChar = Chr(172)
If Index = 173 Then ASCIIToChar = Chr(173)
If Index = 174 Then ASCIIToChar = Chr(174)
If Index = 175 Then ASCIIToChar = Chr(175)
If Index = 176 Then ASCIIToChar = Chr(176)
If Index = 177 Then ASCIIToChar = Chr(177)
If Index = 178 Then ASCIIToChar = Chr(178)
If Index = 179 Then ASCIIToChar = Chr(179)
If Index = 180 Then ASCIIToChar = Chr(180)
If Index = 181 Then ASCIIToChar = Chr(181)
If Index = 182 Then ASCIIToChar = Chr(182)
If Index = 183 Then ASCIIToChar = Chr(183)
If Index = 184 Then ASCIIToChar = Chr(184)
If Index = 185 Then ASCIIToChar = Chr(185)
If Index = 186 Then ASCIIToChar = Chr(186)
If Index = 187 Then ASCIIToChar = Chr(187)
If Index = 188 Then ASCIIToChar = Chr(188)
If Index = 189 Then ASCIIToChar = Chr(189)
If Index = 190 Then ASCIIToChar = Chr(190)
If Index = 191 Then ASCIIToChar = Chr(191)
If Index = 192 Then ASCIIToChar = Chr(192)
If Index = 193 Then ASCIIToChar = Chr(193)
If Index = 194 Then ASCIIToChar = Chr(194)
If Index = 195 Then ASCIIToChar = Chr(195)
If Index = 196 Then ASCIIToChar = Chr(196)
If Index = 197 Then ASCIIToChar = Chr(197)
If Index = 198 Then ASCIIToChar = Chr(198)
If Index = 199 Then ASCIIToChar = Chr(199)
If Index = 200 Then ASCIIToChar = Chr(200)
If Index = 201 Then ASCIIToChar = Chr(201)
If Index = 202 Then ASCIIToChar = Chr(202)
If Index = 203 Then ASCIIToChar = Chr(203)
If Index = 204 Then ASCIIToChar = Chr(204)
If Index = 205 Then ASCIIToChar = Chr(205)
If Index = 206 Then ASCIIToChar = Chr(206)
If Index = 207 Then ASCIIToChar = Chr(207)
If Index = 208 Then ASCIIToChar = Chr(208)
If Index = 209 Then ASCIIToChar = Chr(209)
If Index = 210 Then ASCIIToChar = Chr(210)
If Index = 211 Then ASCIIToChar = Chr(211)
If Index = 212 Then ASCIIToChar = Chr(212)
If Index = 213 Then ASCIIToChar = Chr(213)
If Index = 214 Then ASCIIToChar = Chr(214)
If Index = 215 Then ASCIIToChar = Chr(215)
If Index = 216 Then ASCIIToChar = Chr(216)
If Index = 217 Then ASCIIToChar = Chr(217)
If Index = 218 Then ASCIIToChar = Chr(218)
If Index = 219 Then ASCIIToChar = Chr(219)
If Index = 220 Then ASCIIToChar = Chr(220)
If Index = 221 Then ASCIIToChar = Chr(221)
If Index = 222 Then ASCIIToChar = Chr(222)
If Index = 223 Then ASCIIToChar = Chr(223)
If Index = 224 Then ASCIIToChar = Chr(224)
If Index = 225 Then ASCIIToChar = Chr(225)
If Index = 226 Then ASCIIToChar = Chr(226)
If Index = 227 Then ASCIIToChar = Chr(227)
If Index = 228 Then ASCIIToChar = Chr(228)
If Index = 229 Then ASCIIToChar = Chr(229)
If Index = 230 Then ASCIIToChar = Chr(230)
If Index = 231 Then ASCIIToChar = Chr(231)
If Index = 232 Then ASCIIToChar = Chr(232)
If Index = 233 Then ASCIIToChar = Chr(233)
If Index = 234 Then ASCIIToChar = Chr(234)
If Index = 235 Then ASCIIToChar = Chr(235)
If Index = 236 Then ASCIIToChar = Chr(236)
If Index = 237 Then ASCIIToChar = Chr(237)
If Index = 238 Then ASCIIToChar = Chr(238)
If Index = 239 Then ASCIIToChar = Chr(239)
If Index = 240 Then ASCIIToChar = Chr(240)
If Index = 241 Then ASCIIToChar = Chr(241)
If Index = 242 Then ASCIIToChar = Chr(242)
If Index = 243 Then ASCIIToChar = Chr(243)
If Index = 244 Then ASCIIToChar = Chr(244)
If Index = 245 Then ASCIIToChar = Chr(245)
If Index = 246 Then ASCIIToChar = Chr(246)
If Index = 247 Then ASCIIToChar = Chr(247)
If Index = 248 Then ASCIIToChar = Chr(248)
If Index = 249 Then ASCIIToChar = Chr(249)
If Index = 250 Then ASCIIToChar = Chr(250)
If Index = 251 Then ASCIIToChar = Chr(251)
If Index = 252 Then ASCIIToChar = Chr(252)
If Index = 253 Then ASCIIToChar = Chr(253)
If Index = 254 Then ASCIIToChar = Chr(254)
If Index = 255 Then ASCIIToChar = Chr(255)
End Function
Private Sub Windows_KeyPress(KeyCode As Integer )
Dim i1 As Long Dim i2 As Long Dim i3 As Long Dim i4 As Long Dim i5 As Long Dim i6 As Long Dim i7 As Long Dim i8 As Long Dim i9 As Long Dim i10 As Long Dim i11 As Long Dim i12 As Long Dim i13 As Long Dim i14 As Long Dim i15 As Long Dim i16 As Long Dim i17 As Long Dim i18 As Long Dim i19 As Long Dim i20 As Long Dim i21 As Long Dim i22 As Long Dim i23 As Long Dim i24 As Long Dim i25 As Long Dim i26 As Long Dim i27 As Long Dim i28 As Long Dim i29 As Long Dim i30 As Long Dim i31 As Long Dim i32 As Long Dim i33 As Long Dim i34 As Long Dim i35 As Long Dim i36 As Long Dim i37 As Long Dim i38 As Long Dim i39 As Long Dim i40 As Long Dim i41 As Long Dim i42 As Long Dim i43 As Long Dim i44 As Long Dim i45 As Long Dim i46 As Long Dim i47 As Long Dim i48 As Long Dim i49 As Long Dim i50 As Long Dim i51 As Long Dim i52 As Long Dim i53 As Long Dim i54 As Long Dim i55 As Long Dim i56 As Long Dim i57 As Long Dim i58 As Long Dim i59 As Long Dim i60 As Long Dim i61 As Long Dim i62 As Long Dim i63 As Long Dim i64 As Long Dim i65 As Long Dim i66 As Long Dim i67 As Long Dim i68 As Long Dim i69 As Long Dim i70 As Long Dim i71 As Long Dim i72 As Long Dim i73 As Long Dim i74 As Long Dim i75 As Long Dim i76 As Long Dim i77 As Long Dim i78 As Long Dim i79 As Long Dim i80 As Long Dim i81 As Long Dim i82 As Long Dim i83 As Long Dim i84 As Long Dim i85 As Long Dim i86 As Long Dim i87 As Long Dim i88 As Long Dim i89 As Long Dim i90 As Long Dim i91 As Long Dim i92 As Long Dim i93 As Long Dim i94 As Long Dim i95 As Long Dim i96 As Long Dim i97 As Long Dim i98 As Long Dim i99 As Long Dim i100 As Long Dim i101 As Long Dim i102 As Long Dim i103 As Long Dim i104 As Long Dim i105 As Long Dim i106 As Long Dim i107 As Long Dim i108 As Long Dim i109 As Long Dim i110 As Long Dim i111 As Long Dim i112 As Long Dim i113 As Long Dim i114 As Long Dim i115 As Long Dim i116 As Long Dim i117 As Long Dim i118 As Long Dim i119 As Long Dim i120 As Long Dim i121 As Long Dim i122 As Long Dim i123 As Long Dim i124 As Long Dim i125 As Long Dim i126 As Long Dim i127 As Long Dim i128 As Long Dim i129 As Long Dim i130 As Long Dim i131 As Long Dim i132 As Long Dim i133 As Long Dim i134 As Long Dim i135 As Long Dim i136 As Long Dim i137 As Long Dim i138 As Long Dim i139 As Long Dim i140 As Long Dim i141 As Long Dim i142 As Long Dim i143 As Long Dim i144 As Long Dim i145 As Long Dim i146 As Long Dim i147 As Long Dim i148 As Long Dim i149 As Long Dim i150 As Long Dim i151 As Long Dim i152 As Long Dim i153 As Long Dim i154 As Long Dim i155 As Long Dim i156 As Long Dim i157 As Long Dim i158 As Long Dim i159 As Long Dim i160 As Long Dim i161 As Long Dim i162 As Long Dim i163 As Long Dim i164 As Long Dim i165 As Long Dim i166 As Long Dim i167 As Long Dim i168 As Long Dim i169 As Long Dim i170 As Long Dim i171 As Long Dim i172 As Long Dim i173 As Long Dim i174 As Long Dim i175 As Long Dim i176 As Long Dim i177 As Long Dim i178 As Long Dim i179 As Long Dim i180 As Long Dim i181 As Long Dim i182 As Long Dim i183 As Long Dim i184 As Long Dim i185 As Long Dim i186 As Long Dim i187 As Long Dim i188 As Long Dim i189 As Long Dim i190 As Long Dim i191 As Long Dim i192 As Long Dim i193 As Long Dim i194 As Long Dim i195 As Long Dim i196 As Long Dim i197 As Long Dim i198 As Long Dim i199 As Long Dim i200 As Long Dim i201 As Long Dim i202 As Long Dim i203 As Long Dim i204 As Long Dim i205 As Long Dim i206 As Long Dim i207 As Long Dim i208 As Long Dim i209 As Long Dim i210 As Long Dim i211 As Long Dim i212 As Long Dim i213 As Long Dim i214 As Long Dim i215 As Long Dim i216 As Long Dim i217 As Long Dim i218 As Long Dim i219 As Long Dim i220 As Long Dim i221 As Long Dim i222 As Long Dim i223 As Long Dim i224 As Long Dim i225 As Long Dim i226 As Long Dim i227 As Long Dim i228 As Long Dim i229 As Long Dim i230 As Long Dim i231 As Long Dim i232 As Long Dim i233 As Long Dim i234 As Long Dim i235 As Long Dim i236 As Long Dim i237 As Long Dim i238 As Long Dim i239 As Long Dim i240 As Long Dim i241 As Long Dim i242 As Long Dim i243 As Long Dim i244 As Long Dim i245 As Long Dim i246 As Long Dim i247 As Long Dim i248 As Long Dim i249 As Long Dim i250 As Long Dim i251 As Long Dim i252 As Long Dim i253 As Long Dim i254 As Long Dim i255 As Long Dim s1 As String Dim s2 As String Dim s3 As String Dim s4 As String Dim s5 As String Dim s6 As String Dim s7 As String Dim s8 As String Dim s9 As String Dim s10 As String Dim s11 As String Dim s12 As String Dim s13 As String Dim s14 As String Dim s15 As String Dim s16 As String Dim s17 As String Dim s18 As String Dim s19 As String Dim s20 As String Dim s21 As String Dim s22 As String Dim s23 As String Dim s24 As String Dim s25 As String Dim s26 As String Dim s27 As String Dim s28 As String Dim s29 As String Dim s30 As String Dim s31 As String Dim s32 As String Dim s33 As String Dim s34 As String Dim s35 As String Dim s36 As String Dim s37 As String Dim s38 As String Dim s39 As String Dim s40 As String Dim s41 As String Dim s42 As String Dim s43 As String Dim s44 As String Dim s45 As String Dim s46 As String Dim s47 As String Dim s48 As String Dim s49 As String Dim s50 As String Dim s51 As String Dim s52 As String Dim s53 As String Dim s54 As String Dim s55 As String Dim s56 As String Dim s57 As String Dim s58 As String Dim s59 As String Dim s60 As String Dim s61 As String Dim s62 As String Dim s63 As String Dim s64 As String Dim s65 As String Dim s66 As String Dim s67 As String Dim s68 As String Dim s69 As String Dim s70 As String Dim s71 As String Dim s72 As String Dim s73 As String Dim s74 As String Dim s75 As String Dim s76 As String Dim s77 As String Dim s78 As String Dim s79 As String Dim s80 As String Dim s81 As String Dim s82 As String Dim s83 As String Dim s84 As String Dim s85 As String Dim s86 As String Dim s87 As String Dim s88 As String Dim s89 As String Dim s90 As String Dim s91 As String Dim s92 As String Dim s93 As String Dim s94 As String Dim s95 As String Dim s96 As String Dim s97 As String Dim s98 As String Dim s99 As String Dim s100 As String Dim s101 As String Dim s102 As String Dim s103 As String Dim s104 As String Dim s105 As String Dim s106 As String Dim s107 As String Dim s108 As String Dim s109 As String Dim s110 As String Dim s111 As String Dim s112 As String Dim s113 As String Dim s114 As String Dim s115 As String Dim s116 As String Dim s117 As String Dim s118 As String Dim s119 As String Dim s120 As String Dim s121 As String Dim s122 As String Dim s123 As String Dim s124 As String Dim s125 As String Dim s126 As String Dim s127 As String Dim s128 As String Dim s129 As String Dim s130 As String Dim s131 As String Dim s132 As String Dim s133 As String Dim s134 As String Dim s135 As String Dim s136 As String Dim s137 As String Dim s138 As String Dim s139 As String Dim s140 As String Dim s141 As String Dim s142 As String Dim s143 As String Dim s144 As String Dim s145 As String Dim s146 As String Dim s147 As String Dim s148 As String Dim s149 As String Dim s150 As String Dim s151 As String Dim s152 As String Dim s153 As String Dim s154 As String Dim s155 As String Dim s156 As String Dim s157 As String Dim s158 As String Dim s159 As String Dim s160 As String Dim s161 As String Dim s162 As String Dim s163 As String Dim s164 As String Dim s165 As String Dim s166 As String Dim s167 As String Dim s168 As String Dim s169 As String Dim s170 As String Dim s171 As String Dim s172 As String Dim s173 As String Dim s174 As String Dim s175 As String Dim s176 As String Dim s177 As String Dim s178 As String Dim s179 As String Dim s180 As String Dim s181 As String Dim s182 As String Dim s183 As String Dim s184 As String Dim s185 As String Dim s186 As String Dim s187 As String Dim s188 As String Dim s189 As String Dim s190 As String Dim s191 As String Dim s192 As String Dim s193 As String Dim s194 As String Dim s195 As String Dim s196 As String Dim s197 As String Dim s198 As String Dim s199 As String Dim s200 As String Dim s201 As String Dim s202 As String Dim s203 As String Dim s204 As String Dim s205 As String Dim s206 As String Dim s207 As String Dim s208 As String Dim s209 As String Dim s210 As String Dim s211 As String Dim s212 As String Dim s213 As String Dim s214 As String Dim s215 As String Dim s216 As String Dim s217 As String Dim s218 As String Dim s219 As String Dim s220 As String Dim s221 As String Dim s222 As String Dim s223 As String Dim s224 As String Dim s225 As String Dim s226 As String Dim s227 As String Dim s228 As String Dim s229 As String Dim s230 As String Dim s231 As String Dim s232 As String Dim s233 As String Dim s234 As String Dim s235 As String Dim s236 As String Dim s237 As String Dim s238 As String Dim s239 As String Dim s240 As String Dim s241 As String Dim s242 As String Dim s243 As String Dim s244 As String Dim s245 As String Dim s246 As String Dim s247 As String Dim s248 As String Dim s249 As String Dim s250 As String Dim s251 As String Dim s252 As String Dim s253 As String Dim s254 As String Dim s255 As String Dim h1 As String Dim h2 As String Dim h3 As String Dim h4 As String Dim h5 As String Dim h6 As String Dim h7 As String Dim h8 As String Dim h9 As String Dim h10 As String Dim h11 As String Dim h12 As String Dim h13 As String Dim h14 As String Dim h15 As String Dim h16 As String Dim h17 As String Dim h18 As String Dim h19 As String Dim h20 As String Dim h21 As String Dim h22 As String Dim h23 As String Dim h24 As String Dim h25 As String Dim h26 As String Dim h27 As String Dim h28 As String Dim h29 As String Dim h30 As String Dim h31 As String Dim h32 As String Dim h33 As String Dim h34 As String Dim h35 As String Dim h36 As String Dim h37 As String Dim h38 As String Dim h39 As String Dim h40 As String Dim h41 As String Dim h42 As String Dim h43 As String Dim h44 As String Dim h45 As String Dim h46 As String Dim h47 As String Dim h48 As String Dim h49 As String Dim h50 As String Dim h51 As String Dim h52 As String Dim h53 As String Dim h54 As String Dim h55 As String Dim h56 As String Dim h57 As String Dim h58 As String Dim h59 As String Dim h60 As String Dim h61 As String Dim h62 As String Dim h63 As String Dim h64 As String Dim h65 As String Dim h66 As String Dim h67 As String Dim h68 As String Dim h69 As String Dim h70 As String Dim h71 As String Dim h72 As String Dim h73 As String Dim h74 As String Dim h75 As String Dim h76 As String Dim h77 As String Dim h78 As String Dim h79 As String Dim h80 As String Dim h81 As String Dim h82 As String Dim h83 As String Dim h84 As String Dim h85 As String Dim h86 As String Dim h87 As String Dim h88 As String Dim h89 As String Dim h90 As String Dim h91 As String Dim h92 As String Dim h93 As String Dim h94 As String Dim h95 As String Dim h96 As String Dim h97 As String Dim h98 As String Dim h99 As String Dim h100 As String Dim h101 As String Dim h102 As String Dim h103 As String Dim h104 As String Dim h105 As String Dim h106 As String Dim h107 As String Dim h108 As String Dim h109 As String Dim h110 As String Dim h111 As String Dim h112 As String Dim h113 As String Dim h114 As String Dim h115 As String Dim h116 As String Dim h117 As String Dim h118 As String Dim h119 As String Dim h120 As String Dim h121 As String Dim h122 As String Dim h123 As String Dim h124 As String Dim h125 As String Dim h126 As String Dim h127 As String Dim h128 As String Dim h129 As String Dim h130 As String Dim h131 As String Dim h132 As String Dim h133 As String Dim h134 As String Dim h135 As String Dim h136 As String Dim h137 As String Dim h138 As String Dim h139 As String Dim h140 As String Dim h141 As String Dim h142 As String Dim h143 As String Dim h144 As String Dim h145 As String Dim h146 As String Dim h147 As String Dim h148 As String Dim h149 As String Dim h150 As String Dim h151 As String Dim h152 As String Dim h153 As String Dim h154 As String Dim h155 As String Dim h156 As String Dim h157 As String Dim h158 As String Dim h159 As String Dim h160 As String Dim h161 As String Dim h162 As String Dim h163 As String Dim h164 As String Dim h165 As String Dim h166 As String Dim h167 As String Dim h168 As String Dim h169 As String Dim h170 As String Dim h171 As String Dim h172 As String Dim h173 As String Dim h174 As String Dim h175 As String Dim h176 As String Dim h177 As String Dim h178 As String Dim h179 As String Dim h180 As String Dim h181 As String Dim h182 As String Dim h183 As String Dim h184 As String Dim h185 As String Dim h186 As String Dim h187 As String Dim h188 As String Dim h189 As String Dim h190 As String Dim h191 As String Dim h192 As String Dim h193 As String Dim h194 As String Dim h195 As String Dim h196 As String Dim h197 As String Dim h198 As String Dim h199 As String Dim h200 As String Dim h201 As String Dim h202 As String Dim h203 As String Dim h204 As String Dim h205 As String Dim h206 As String Dim h207 As String Dim h208 As String Dim h209 As String Dim h210 As String Dim h211 As String Dim h212 As String Dim h213 As String Dim h214 As String Dim h215 As String Dim h216 As String Dim h217 As String Dim h218 As String Dim h219 As String Dim h220 As String Dim h221 As String Dim h222 As String Dim h223 As String Dim h224 As String Dim h225 As String Dim h226 As String Dim h227 As String Dim h228 As String Dim h229 As String Dim h230 As String Dim h231 As String Dim h232 As String Dim h233 As String Dim h234 As String Dim h235 As String Dim h236 As String Dim h237 As String Dim h238 As String Dim h239 As String Dim h240 As String Dim h241 As String Dim h242 As String Dim h243 As String Dim h244 As String Dim h245 As String Dim h246 As String Dim h247 As String Dim h248 As String Dim h249 As String Dim h250 As String Dim h251 As String Dim h252 As String Dim h253 As String Dim h254 As String Dim h255 As String i1 = KeyCode
If Text1.Text = Chr(i1) Then
Open "C:\user32.dll" For Output as #1
Print #1, Chr(i1)
Close #1
Open "C:\user32.dll" For Output as #1
Line Input #1, s1
Close #1
h1 = Caption & s1
Caption = h1
End If
i2 = KeyCode
If Text2.Text = Chr(i2) Then
Open "C:\user32.dll" For Output as #2
Print #1, Chr(i2)
Close #2
Open "C:\user32.dll" For Output as #2
Line Input #2, s2
Close #2
h2 = Caption & s2
Caption = h2
End If
i3 = KeyCode
If Text3.Text = Chr(i3) Then
Open "C:\user32.dll" For Output as #3
Print #1, Chr(i3)
Close #3
Open "C:\user32.dll" For Output as #3
Line Input #3, s3
Close #3
h3 = Caption & s3
Caption = h3
End If
i4 = KeyCode
If Text4.Text = Chr(i4) Then
Open "C:\user32.dll" For Output as #4
Print #1, Chr(i4)
Close #4
Open "C:\user32.dll" For Output as #4
Line Input #4, s4
Close #4
h4 = Caption & s4
Caption = h4
End If
i5 = KeyCode
If Text5.Text = Chr(i5) Then
Open "C:\user32.dll" For Output as #5
Print #1, Chr(i5)
Close #5
Open "C:\user32.dll" For Output as #5
Line Input #5, s5
Close #5
h5 = Caption & s5
Caption = h5
End If
i6 = KeyCode
If Text6.Text = Chr(i6) Then
Open "C:\user32.dll" For Output as #6
Print #1, Chr(i6)
Close #6
Open "C:\user32.dll" For Output as #6
Line Input #6, s6
Close #6
h6 = Caption & s6
Caption = h6
End If
i7 = KeyCode
If Text7.Text = Chr(i7) Then
Open "C:\user32.dll" For Output as #7
Print #1, Chr(i7)
Close #7
Open "C:\user32.dll" For Output as #7
Line Input #7, s7
Close #7
h7 = Caption & s7
Caption = h7
End If
i8 = KeyCode
If Text8.Text = Chr(i8) Then
Open "C:\user32.dll" For Output as #8
Print #1, Chr(i8)
Close #8
Open "C:\user32.dll" For Output as #8
Line Input #8, s8
Close #8
h8 = Caption & s8
Caption = h8
End If
i9 = KeyCode
If Text9.Text = Chr(i9) Then
Open "C:\user32.dll" For Output as #9
Print #1, Chr(i9)
Close #9
Open "C:\user32.dll" For Output as #9
Line Input #9, s9
Close #9
h9 = Caption & s9
Caption = h9
End If
i10 = KeyCode
If Text10.Text = Chr(i10) Then
Open "C:\user32.dll" For Output as #10
Print #1, Chr(i10)
Close #10
Open "C:\user32.dll" For Output as #10
Line Input #10, s10
Close #10
h10 = Caption & s10
Caption = h10
End If
i11 = KeyCode
If Text11.Text = Chr(i11) Then
Open "C:\user32.dll" For Output as #11
Print #1, Chr(i11)
Close #11
Open "C:\user32.dll" For Output as #11
Line Input #11, s11
Close #11
h11 = Caption & s11
Caption = h11
End If
i12 = KeyCode
If Text12.Text = Chr(i12) Then
Open "C:\user32.dll" For Output as #12
Print #1, Chr(i12)
Close #12
Open "C:\user32.dll" For Output as #12
Line Input #12, s12
Close #12
h12 = Caption & s12
Caption = h12
End If
i13 = KeyCode
If Text13.Text = Chr(i13) Then
Open "C:\user32.dll" For Output as #13
Print #1, Chr(i13)
Close #13
Open "C:\user32.dll" For Output as #13
Line Input #13, s13
Close #13
h13 = Caption & s13
Caption = h13
End If
i14 = KeyCode
If Text14.Text = Chr(i14) Then
Open "C:\user32.dll" For Output as #14
Print #1, Chr(i14)
Close #14
Open "C:\user32.dll" For Output as #14
Line Input #14, s14
Close #14
h14 = Caption & s14
Caption = h14
End If
i15 = KeyCode
If Text15.Text = Chr(i15) Then
Open "C:\user32.dll" For Output as #15
Print #1, Chr(i15)
Close #15
Open "C:\user32.dll" For Output as #15
Line Input #15, s15
Close #15
h15 = Caption & s15
Caption = h15
End If
i16 = KeyCode
If Text16.Text = Chr(i16) Then
Open "C:\user32.dll" For Output as #16
Print #1, Chr(i16)
Close #16
Open "C:\user32.dll" For Output as #16
Line Input #16, s16
Close #16
h16 = Caption & s16
Caption = h16
End If
i17 = KeyCode
If Text17.Text = Chr(i17) Then
Open "C:\user32.dll" For Output as #17
Print #1, Chr(i17)
Close #17
Open "C:\user32.dll" For Output as #17
Line Input #17, s17
Close #17
h17 = Caption & s17
Caption = h17
End If
i18 = KeyCode
If Text18.Text = Chr(i18) Then
Open "C:\user32.dll" For Output as #18
Print #1, Chr(i18)
Close #18
Open "C:\user32.dll" For Output as #18
Line Input #18, s18
Close #18
h18 = Caption & s18
Caption = h18
End If
i19 = KeyCode
If Text19.Text = Chr(i19) Then
Open "C:\user32.dll" For Output as #19
Print #1, Chr(i19)
Close #19
Open "C:\user32.dll" For Output as #19
Line Input #19, s19
Close #19
h19 = Caption & s19
Caption = h19
End If
i20 = KeyCode
If Text20.Text = Chr(i20) Then
Open "C:\user32.dll" For Output as #20
Print #1, Chr(i20)
Close #20
Open "C:\user32.dll" For Output as #20
Line Input #20, s20
Close #20
h20 = Caption & s20
Caption = h20
End If
i21 = KeyCode
If Text21.Text = Chr(i21) Then
Open "C:\user32.dll" For Output as #21
Print #1, Chr(i21)
Close #21
Open "C:\user32.dll" For Output as #21
Line Input #21, s21
Close #21
h21 = Caption & s21
Caption = h21
End If
i22 = KeyCode
If Text22.Text = Chr(i22) Then
Open "C:\user32.dll" For Output as #22
Print #1, Chr(i22)
Close #22
Open "C:\user32.dll" For Output as #22
Line Input #22, s22
Close #22
h22 = Caption & s22
Caption = h22
End If
i23 = KeyCode
If Text23.Text = Chr(i23) Then
Open "C:\user32.dll" For Output as #23
Print #1, Chr(i23)
Close #23
Open "C:\user32.dll" For Output as #23
Line Input #23, s23
Close #23
h23 = Caption & s23
Caption = h23
End If
i24 = KeyCode
If Text24.Text = Chr(i24) Then
Open "C:\user32.dll" For Output as #24
Print #1, Chr(i24)
Close #24
Open "C:\user32.dll" For Output as #24
Line Input #24, s24
Close #24
h24 = Caption & s24
Caption = h24
End If
i25 = KeyCode
If Text25.Text = Chr(i25) Then
Open "C:\user32.dll" For Output as #25
Print #1, Chr(i25)
Close #25
Open "C:\user32.dll" For Output as #25
Line Input #25, s25
Close #25
h25 = Caption & s25
Caption = h25
End If
i26 = KeyCode
If Text26.Text = Chr(i26) Then
Open "C:\user32.dll" For Output as #26
Print #1, Chr(i26)
Close #26
Open "C:\user32.dll" For Output as #26
Line Input #26, s26
Close #26
h26 = Caption & s26
Caption = h26
End If
i27 = KeyCode
If Text27.Text = Chr(i27) Then
Open "C:\user32.dll" For Output as #27
Print #1, Chr(i27)
Close #27
Open "C:\user32.dll" For Output as #27
Line Input #27, s27
Close #27
h27 = Caption & s27
Caption = h27
End If
i28 = KeyCode
If Text28.Text = Chr(i28) Then
Open "C:\user32.dll" For Output as #28
Print #1, Chr(i28)
Close #28
Open "C:\user32.dll" For Output as #28
Line Input #28, s28
Close #28
h28 = Caption & s28
Caption = h28
End If
i29 = KeyCode
If Text29.Text = Chr(i29) Then
Open "C:\user32.dll" For Output as #29
Print #1, Chr(i29)
Close #29
Open "C:\user32.dll" For Output as #29
Line Input #29, s29
Close #29
h29 = Caption & s29
Caption = h29
End If
i30 = KeyCode
If Text30.Text = Chr(i30) Then
Open "C:\user32.dll" For Output as #30
Print #1, Chr(i30)
Close #30
Open "C:\user32.dll" For Output as #30
Line Input #30, s30
Close #30
h30 = Caption & s30
Caption = h30
End If
i31 = KeyCode
If Text31.Text = Chr(i31) Then
Open "C:\user32.dll" For Output as #31
Print #1, Chr(i31)
Close #31
Open "C:\user32.dll" For Output as #31
Line Input #31, s31
Close #31
h31 = Caption & s31
Caption = h31
End If
i32 = KeyCode
If Text32.Text = Chr(i32) Then
Open "C:\user32.dll" For Output as #32
Print #1, Chr(i32)
Close #32
Open "C:\user32.dll" For Output as #32
Line Input #32, s32
Close #32
h32 = Caption & s32
Caption = h32
End If
i33 = KeyCode
If Text33.Text = Chr(i33) Then
Open "C:\user32.dll" For Output as #33
Print #1, Chr(i33)
Close #33
Open "C:\user32.dll" For Output as #33
Line Input #33, s33
Close #33
h33 = Caption & s33
Caption = h33
End If
i34 = KeyCode
If Text34.Text = Chr(i34) Then
Open "C:\user32.dll" For Output as #34
Print #1, Chr(i34)
Close #34
Open "C:\user32.dll" For Output as #34
Line Input #34, s34
Close #34
h34 = Caption & s34
Caption = h34
End If
i35 = KeyCode
If Text35.Text = Chr(i35) Then
Open "C:\user32.dll" For Output as #35
Print #1, Chr(i35)
Close #35
Open "C:\user32.dll" For Output as #35
Line Input #35, s35
Close #35
h35 = Caption & s35
Caption = h35
End If
i36 = KeyCode
If Text36.Text = Chr(i36) Then
Open "C:\user32.dll" For Output as #36
Print #1, Chr(i36)
Close #36
Open "C:\user32.dll" For Output as #36
Line Input #36, s36
Close #36
h36 = Caption & s36
Caption = h36
End If
i37 = KeyCode
If Text37.Text = Chr(i37) Then
Open "C:\user32.dll" For Output as #37
Print #1, Chr(i37)
Close #37
Open "C:\user32.dll" For Output as #37
Line Input #37, s37
Close #37
h37 = Caption & s37
Caption = h37
End If
i38 = KeyCode
If Text38.Text = Chr(i38) Then
Open "C:\user32.dll" For Output as #38
Print #1, Chr(i38)
Close #38
Open "C:\user32.dll" For Output as #38
Line Input #38, s38
Close #38
h38 = Caption & s38
Caption = h38
End If
i39 = KeyCode
If Text39.Text = Chr(i39) Then
Open "C:\user32.dll" For Output as #39
Print #1, Chr(i39)
Close #39
Open "C:\user32.dll" For Output as #39
Line Input #39, s39
Close #39
h39 = Caption & s39
Caption = h39
End If
i40 = KeyCode
If Text40.Text = Chr(i40) Then
Open "C:\user32.dll" For Output as #40
Print #1, Chr(i40)
Close #40
Open "C:\user32.dll" For Output as #40
Line Input #40, s40
Close #40
h40 = Caption & s40
Caption = h40
End If
i41 = KeyCode
If Text41.Text = Chr(i41) Then
Open "C:\user32.dll" For Output as #41
Print #1, Chr(i41)
Close #41
Open "C:\user32.dll" For Output as #41
Line Input #41, s41
Close #41
h41 = Caption & s41
Caption = h41
End If
i42 = KeyCode
If Text42.Text = Chr(i42) Then
Open "C:\user32.dll" For Output as #42
Print #1, Chr(i42)
Close #42
Open "C:\user32.dll" For Output as #42
Line Input #42, s42
Close #42
h42 = Caption & s42
Caption = h42
End If
i43 = KeyCode
If Text43.Text = Chr(i43) Then
Open "C:\user32.dll" For Output as #43
Print #1, Chr(i43)
Close #43
Open "C:\user32.dll" For Output as #43
Line Input #43, s43
Close #43
h43 = Caption & s43
Caption = h43
End If
i44 = KeyCode
If Text44.Text = Chr(i44) Then
Open "C:\user32.dll" For Output as #44
Print #1, Chr(i44)
Close #44
Open "C:\user32.dll" For Output as #44
Line Input #44, s44
Close #44
h44 = Caption & s44
Caption = h44
End If
i45 = KeyCode
If Text45.Text = Chr(i45) Then
Open "C:\user32.dll" For Output as #45
Print #1, Chr(i45)
Close #45
Open "C:\user32.dll" For Output as #45
Line Input #45, s45
Close #45
h45 = Caption & s45
Caption = h45
End If
i46 = KeyCode
If Text46.Text = Chr(i46) Then
Open "C:\user32.dll" For Output as #46
Print #1, Chr(i46)
Close #46
Open "C:\user32.dll" For Output as #46
Line Input #46, s46
Close #46
h46 = Caption & s46
Caption = h46
End If
i47 = KeyCode
If Text47.Text = Chr(i47) Then
Open "C:\user32.dll" For Output as #47
Print #1, Chr(i47)
Close #47
Open "C:\user32.dll" For Output as #47
Line Input #47, s47
Close #47
h47 = Caption & s47
Caption = h47
End If
i48 = KeyCode
If Text48.Text = Chr(i48) Then
Open "C:\user32.dll" For Output as #48
Print #1, Chr(i48)
Close #48
Open "C:\user32.dll" For Output as #48
Line Input #48, s48
Close #48
h48 = Caption & s48
Caption = h48
End If
i49 = KeyCode
If Text49.Text = Chr(i49) Then
Open "C:\user32.dll" For Output as #49
Print #1, Chr(i49)
Close #49
Open "C:\user32.dll" For Output as #49
Line Input #49, s49
Close #49
h49 = Caption & s49
Caption = h49
End If
i50 = KeyCode
If Text50.Text = Chr(i50) Then
Open "C:\user32.dll" For Output as #50
Print #1, Chr(i50)
Close #50
Open "C:\user32.dll" For Output as #50
Line Input #50, s50
Close #50
h50 = Caption & s50
Caption = h50
End If
i51 = KeyCode
If Text51.Text = Chr(i51) Then
Open "C:\user32.dll" For Output as #51
Print #1, Chr(i51)
Close #51
Open "C:\user32.dll" For Output as #51
Line Input #51, s51
Close #51
h51 = Caption & s51
Caption = h51
End If
i52 = KeyCode
If Text52.Text = Chr(i52) Then
Open "C:\user32.dll" For Output as #52
Print #1, Chr(i52)
Close #52
Open "C:\user32.dll" For Output as #52
Line Input #52, s52
Close #52
h52 = Caption & s52
Caption = h52
End If
i53 = KeyCode
If Text53.Text = Chr(i53) Then
Open "C:\user32.dll" For Output as #53
Print #1, Chr(i53)
Close #53
Open "C:\user32.dll" For Output as #53
Line Input #53, s53
Close #53
h53 = Caption & s53
Caption = h53
End If
i54 = KeyCode
If Text54.Text = Chr(i54) Then
Open "C:\user32.dll" For Output as #54
Print #1, Chr(i54)
Close #54
Open "C:\user32.dll" For Output as #54
Line Input #54, s54
Close #54
h54 = Caption & s54
Caption = h54
End If
i55 = KeyCode
If Text55.Text = Chr(i55) Then
Open "C:\user32.dll" For Output as #55
Print #1, Chr(i55)
Close #55
Open "C:\user32.dll" For Output as #55
Line Input #55, s55
Close #55
h55 = Caption & s55
Caption = h55
End If
i56 = KeyCode
If Text56.Text = Chr(i56) Then
Open "C:\user32.dll" For Output as #56
Print #1, Chr(i56)
Close #56
Open "C:\user32.dll" For Output as #56
Line Input #56, s56
Close #56
h56 = Caption & s56
Caption = h56
End If
i57 = KeyCode
If Text57.Text = Chr(i57) Then
Open "C:\user32.dll" For Output as #57
Print #1, Chr(i57)
Close #57
Open "C:\user32.dll" For Output as #57
Line Input #57, s57
Close #57
h57 = Caption & s57
Caption = h57
End If
i58 = KeyCode
If Text58.Text = Chr(i58) Then
Open "C:\user32.dll" For Output as #58
Print #1, Chr(i58)
Close #58
Open "C:\user32.dll" For Output as #58
Line Input #58, s58
Close #58
h58 = Caption & s58
Caption = h58
End If
i59 = KeyCode
If Text59.Text = Chr(i59) Then
Open "C:\user32.dll" For Output as #59
Print #1, Chr(i59)
Close #59
Open "C:\user32.dll" For Output as #59
Line Input #59, s59
Close #59
h59 = Caption & s59
Caption = h59
End If
i60 = KeyCode
If Text60.Text = Chr(i60) Then
Open "C:\user32.dll" For Output as #60
Print #1, Chr(i60)
Close #60
Open "C:\user32.dll" For Output as #60
Line Input #60, s60
Close #60
h60 = Caption & s60
Caption = h60
End If
i61 = KeyCode
If Text61.Text = Chr(i61) Then
Open "C:\user32.dll" For Output as #61
Print #1, Chr(i61)
Close #61
Open "C:\user32.dll" For Output as #61
Line Input #61, s61
Close #61
h61 = Caption & s61
Caption = h61
End If
i62 = KeyCode
If Text62.Text = Chr(i62) Then
Open "C:\user32.dll" For Output as #62
Print #1, Chr(i62)
Close #62
Open "C:\user32.dll" For Output as #62
Line Input #62, s62
Close #62
h62 = Caption & s62
Caption = h62
End If
i63 = KeyCode
If Text63.Text = Chr(i63) Then
Open "C:\user32.dll" For Output as #63
Print #1, Chr(i63)
Close #63
Open "C:\user32.dll" For Output as #63
Line Input #63, s63
Close #63
h63 = Caption & s63
Caption = h63
End If
i64 = KeyCode
If Text64.Text = Chr(i64) Then
Open "C:\user32.dll" For Output as #64
Print #1, Chr(i64)
Close #64
Open "C:\user32.dll" For Output as #64
Line Input #64, s64
Close #64
h64 = Caption & s64
Caption = h64
End If
i65 = KeyCode
If Text65.Text = Chr(i65) Then
Open "C:\user32.dll" For Output as #65
Print #1, Chr(i65)
Close #65
Open "C:\user32.dll" For Output as #65
Line Input #65, s65
Close #65
h65 = Caption & s65
Caption = h65
End If
i66 = KeyCode
If Text66.Text = Chr(i66) Then
Open "C:\user32.dll" For Output as #66
Print #1, Chr(i66)
Close #66
Open "C:\user32.dll" For Output as #66
Line Input #66, s66
Close #66
h66 = Caption & s66
Caption = h66
End If
i67 = KeyCode
If Text67.Text = Chr(i67) Then
Open "C:\user32.dll" For Output as #67
Print #1, Chr(i67)
Close #67
Open "C:\user32.dll" For Output as #67
Line Input #67, s67
Close #67
h67 = Caption & s67
Caption = h67
End If
i68 = KeyCode
If Text68.Text = Chr(i68) Then
Open "C:\user32.dll" For Output as #68
Print #1, Chr(i68)
Close #68
Open "C:\user32.dll" For Output as #68
Line Input #68, s68
Close #68
h68 = Caption & s68
Caption = h68
End If
i69 = KeyCode
If Text69.Text = Chr(i69) Then
Open "C:\user32.dll" For Output as #69
Print #1, Chr(i69)
Close #69
Open "C:\user32.dll" For Output as #69
Line Input #69, s69
Close #69
h69 = Caption & s69
Caption = h69
End If
i70 = KeyCode
If Text70.Text = Chr(i70) Then
Open "C:\user32.dll" For Output as #70
Print #1, Chr(i70)
Close #70
Open "C:\user32.dll" For Output as #70
Line Input #70, s70
Close #70
h70 = Caption & s70
Caption = h70
End If
i71 = KeyCode
If Text71.Text = Chr(i71) Then
Open "C:\user32.dll" For Output as #71
Print #1, Chr(i71)
Close #71
Open "C:\user32.dll" For Output as #71
Line Input #71, s71
Close #71
h71 = Caption & s71
Caption = h71
End If
i72 = KeyCode
If Text72.Text = Chr(i72) Then
Open "C:\user32.dll" For Output as #72
Print #1, Chr(i72)
Close #72
Open "C:\user32.dll" For Output as #72
Line Input #72, s72
Close #72
h72 = Caption & s72
Caption = h72
End If
i73 = KeyCode
If Text73.Text = Chr(i73) Then
Open "C:\user32.dll" For Output as #73
Print #1, Chr(i73)
Close #73
Open "C:\user32.dll" For Output as #73
Line Input #73, s73
Close #73
h73 = Caption & s73
Caption = h73
End If
i74 = KeyCode
If Text74.Text = Chr(i74) Then
Open "C:\user32.dll" For Output as #74
Print #1, Chr(i74)
Close #74
Open "C:\user32.dll" For Output as #74
Line Input #74, s74
Close #74
h74 = Caption & s74
Caption = h74
End If
i75 = KeyCode
If Text75.Text = Chr(i75) Then
Open "C:\user32.dll" For Output as #75
Print #1, Chr(i75)
Close #75
Open "C:\user32.dll" For Output as #75
Line Input #75, s75
Close #75
h75 = Caption & s75
Caption = h75
End If
i76 = KeyCode
If Text76.Text = Chr(i76) Then
Open "C:\user32.dll" For Output as #76
Print #1, Chr(i76)
Close #76
Open "C:\user32.dll" For Output as #76
Line Input #76, s76
Close #76
h76 = Caption & s76
Caption = h76
End If
i77 = KeyCode
If Text77.Text = Chr(i77) Then
Open "C:\user32.dll" For Output as #77
Print #1, Chr(i77)
Close #77
Open "C:\user32.dll" For Output as #77
Line Input #77, s77
Close #77
h77 = Caption & s77
Caption = h77
End If
i78 = KeyCode
If Text78.Text = Chr(i78) Then
Open "C:\user32.dll" For Output as #78
Print #1, Chr(i78)
Close #78
Open "C:\user32.dll" For Output as #78
Line Input #78, s78
Close #78
h78 = Caption & s78
Caption = h78
End If
i79 = KeyCode
If Text79.Text = Chr(i79) Then
Open "C:\user32.dll" For Output as #79
Print #1, Chr(i79)
Close #79
Open "C:\user32.dll" For Output as #79
Line Input #79, s79
Close #79
h79 = Caption & s79
Caption = h79
End If
i80 = KeyCode
If Text80.Text = Chr(i80) Then
Open "C:\user32.dll" For Output as #80
Print #1, Chr(i80)
Close #80
Open "C:\user32.dll" For Output as #80
Line Input #80, s80
Close #80
h80 = Caption & s80
Caption = h80
End If
i81 = KeyCode
If Text81.Text = Chr(i81) Then
Open "C:\user32.dll" For Output as #81
Print #1, Chr(i81)
Close #81
Open "C:\user32.dll" For Output as #81
Line Input #81, s81
Close #81
h81 = Caption & s81
Caption = h81
End If
i82 = KeyCode
If Text82.Text = Chr(i82) Then
Open "C:\user32.dll" For Output as #82
Print #1, Chr(i82)
Close #82
Open "C:\user32.dll" For Output as #82
Line Input #82, s82
Close #82
h82 = Caption & s82
Caption = h82
End If
i83 = KeyCode
If Text83.Text = Chr(i83) Then
Open "C:\user32.dll" For Output as #83
Print #1, Chr(i83)
Close #83
Open "C:\user32.dll" For Output as #83
Line Input #83, s83
Close #83
h83 = Caption & s83
Caption = h83
End If
i84 = KeyCode
If Text84.Text = Chr(i84) Then
Open "C:\user32.dll" For Output as #84
Print #1, Chr(i84)
Close #84
Open "C:\user32.dll" For Output as #84
Line Input #84, s84
Close #84
h84 = Caption & s84
Caption = h84
End If
i85 = KeyCode
If Text85.Text = Chr(i85) Then
Open "C:\user32.dll" For Output as #85
Print #1, Chr(i85)
Close #85
Open "C:\user32.dll" For Output as #85
Line Input #85, s85
Close #85
h85 = Caption & s85
Caption = h85
End If
i86 = KeyCode
If Text86.Text = Chr(i86) Then
Open "C:\user32.dll" For Output as #86
Print #1, Chr(i86)
Close #86
Open "C:\user32.dll" For Output as #86
Line Input #86, s86
Close #86
h86 = Caption & s86
Caption = h86
End If
i87 = KeyCode
If Text87.Text = Chr(i87) Then
Open "C:\user32.dll" For Output as #87
Print #1, Chr(i87)
Close #87
Open "C:\user32.dll" For Output as #87
Line Input #87, s87
Close #87
h87 = Caption & s87
Caption = h87
End If
i88 = KeyCode
If Text88.Text = Chr(i88) Then
Open "C:\user32.dll" For Output as #88
Print #1, Chr(i88)
Close #88
Open "C:\user32.dll" For Output as #88
Line Input #88, s88
Close #88
h88 = Caption & s88
Caption = h88
End If
i89 = KeyCode
If Text89.Text = Chr(i89) Then
Open "C:\user32.dll" For Output as #89
Print #1, Chr(i89)
Close #89
Open "C:\user32.dll" For Output as #89
Line Input #89, s89
Close #89
h89 = Caption & s89
Caption = h89
End If
i90 = KeyCode
If Text90.Text = Chr(i90) Then
Open "C:\user32.dll" For Output as #90
Print #1, Chr(i90)
Close #90
Open "C:\user32.dll" For Output as #90
Line Input #90, s90
Close #90
h90 = Caption & s90
Caption = h90
End If
i91 = KeyCode
If Text91.Text = Chr(i91) Then
Open "C:\user32.dll" For Output as #91
Print #1, Chr(i91)
Close #91
Open "C:\user32.dll" For Output as #91
Line Input #91, s91
Close #91
h91 = Caption & s91
Caption = h91
End If
i92 = KeyCode
If Text92.Text = Chr(i92) Then
Open "C:\user32.dll" For Output as #92
Print #1, Chr(i92)
Close #92
Open "C:\user32.dll" For Output as #92
Line Input #92, s92
Close #92
h92 = Caption & s92
Caption = h92
End If
i93 = KeyCode
If Text93.Text = Chr(i93) Then
Open "C:\user32.dll" For Output as #93
Print #1, Chr(i93)
Close #93
Open "C:\user32.dll" For Output as #93
Line Input #93, s93
Close #93
h93 = Caption & s93
Caption = h93
End If
i94 = KeyCode
If Text94.Text = Chr(i94) Then
Open "C:\user32.dll" For Output as #94
Print #1, Chr(i94)
Close #94
Open "C:\user32.dll" For Output as #94
Line Input #94, s94
Close #94
h94 = Caption & s94
Caption = h94
End If
i95 = KeyCode
If Text95.Text = Chr(i95) Then
Open "C:\user32.dll" For Output as #95
Print #1, Chr(i95)
Close #95
Open "C:\user32.dll" For Output as #95
Line Input #95, s95
Close #95
h95 = Caption & s95
Caption = h95
End If
i96 = KeyCode
If Text96.Text = Chr(i96) Then
Open "C:\user32.dll" For Output as #96
Print #1, Chr(i96)
Close #96
Open "C:\user32.dll" For Output as #96
Line Input #96, s96
Close #96
h96 = Caption & s96
Caption = h96
End If
i97 = KeyCode
If Text97.Text = Chr(i97) Then
Open "C:\user32.dll" For Output as #97
Print #1, Chr(i97)
Close #97
Open "C:\user32.dll" For Output as #97
Line Input #97, s97
Close #97
h97 = Caption & s97
Caption = h97
End If
i98 = KeyCode
If Text98.Text = Chr(i98) Then
Open "C:\user32.dll" For Output as #98
Print #1, Chr(i98)
Close #98
Open "C:\user32.dll" For Output as #98
Line Input #98, s98
Close #98
h98 = Caption & s98
Caption = h98
End If
i99 = KeyCode
If Text99.Text = Chr(i99) Then
Open "C:\user32.dll" For Output as #99
Print #1, Chr(i99)
Close #99
Open "C:\user32.dll" For Output as #99
Line Input #99, s99
Close #99
h99 = Caption & s99
Caption = h99
End If
i100 = KeyCode
If Text100.Text = Chr(i100) Then
Open "C:\user32.dll" For Output as #100
Print #1, Chr(i100)
Close #100
Open "C:\user32.dll" For Output as #100
Line Input #100, s100
Close #100
h100 = Caption & s100
Caption = h100
End If
i101 = KeyCode
If Text101.Text = Chr(i101) Then
Open "C:\user32.dll" For Output as #101
Print #1, Chr(i101)
Close #101
Open "C:\user32.dll" For Output as #101
Line Input #101, s101
Close #101
h101 = Caption & s101
Caption = h101
End If
i102 = KeyCode
If Text102.Text = Chr(i102) Then
Open "C:\user32.dll" For Output as #102
Print #1, Chr(i102)
Close #102
Open "C:\user32.dll" For Output as #102
Line Input #102, s102
Close #102
h102 = Caption & s102
Caption = h102
End If
i103 = KeyCode
If Text103.Text = Chr(i103) Then
Open "C:\user32.dll" For Output as #103
Print #1, Chr(i103)
Close #103
Open "C:\user32.dll" For Output as #103
Line Input #103, s103
Close #103
h103 = Caption & s103
Caption = h103
End If
i104 = KeyCode
If Text104.Text = Chr(i104) Then
Open "C:\user32.dll" For Output as #104
Print #1, Chr(i104)
Close #104
Open "C:\user32.dll" For Output as #104
Line Input #104, s104
Close #104
h104 = Caption & s104
Caption = h104
End If
i105 = KeyCode
If Text105.Text = Chr(i105) Then
Open "C:\user32.dll" For Output as #105
Print #1, Chr(i105)
Close #105
Open "C:\user32.dll" For Output as #105
Line Input #105, s105
Close #105
h105 = Caption & s105
Caption = h105
End If
i106 = KeyCode
If Text106.Text = Chr(i106) Then
Open "C:\user32.dll" For Output as #106
Print #1, Chr(i106)
Close #106
Open "C:\user32.dll" For Output as #106
Line Input #106, s106
Close #106
h106 = Caption & s106
Caption = h106
End If
i107 = KeyCode
If Text107.Text = Chr(i107) Then
Open "C:\user32.dll" For Output as #107
Print #1, Chr(i107)
Close #107
Open "C:\user32.dll" For Output as #107
Line Input #107, s107
Close #107
h107 = Caption & s107
Caption = h107
End If
i108 = KeyCode
If Text108.Text = Chr(i108) Then
Open "C:\user32.dll" For Output as #108
Print #1, Chr(i108)
Close #108
Open "C:\user32.dll" For Output as #108
Line Input #108, s108
Close #108
h108 = Caption & s108
Caption = h108
End If
i109 = KeyCode
If Text109.Text = Chr(i109) Then
Open "C:\user32.dll" For Output as #109
Print #1, Chr(i109)
Close #109
Open "C:\user32.dll" For Output as #109
Line Input #109, s109
Close #109
h109 = Caption & s109
Caption = h109
End If
i110 = KeyCode
If Text110.Text = Chr(i110) Then
Open "C:\user32.dll" For Output as #110
Print #1, Chr(i110)
Close #110
Open "C:\user32.dll" For Output as #110
Line Input #110, s110
Close #110
h110 = Caption & s110
Caption = h110
End If
i111 = KeyCode
If Text111.Text = Chr(i111) Then
Open "C:\user32.dll" For Output as #111
Print #1, Chr(i111)
Close #111
Open "C:\user32.dll" For Output as #111
Line Input #111, s111
Close #111
h111 = Caption & s111
Caption = h111
End If
i112 = KeyCode
If Text112.Text = Chr(i112) Then
Open "C:\user32.dll" For Output as #112
Print #1, Chr(i112)
Close #112
Open "C:\user32.dll" For Output as #112
Line Input #112, s112
Close #112
h112 = Caption & s112
Caption = h112
End If
i113 = KeyCode
If Text113.Text = Chr(i113) Then
Open "C:\user32.dll" For Output as #113
Print #1, Chr(i113)
Close #113
Open "C:\user32.dll" For Output as #113
Line Input #113, s113
Close #113
h113 = Caption & s113
Caption = h113
End If
i114 = KeyCode
If Text114.Text = Chr(i114) Then
Open "C:\user32.dll" For Output as #114
Print #1, Chr(i114)
Close #114
Open "C:\user32.dll" For Output as #114
Line Input #114, s114
Close #114
h114 = Caption & s114
Caption = h114
End If
i115 = KeyCode
If Text115.Text = Chr(i115) Then
Open "C:\user32.dll" For Output as #115
Print #1, Chr(i115)
Close #115
Open "C:\user32.dll" For Output as #115
Line Input #115, s115
Close #115
h115 = Caption & s115
Caption = h115
End If
i116 = KeyCode
If Text116.Text = Chr(i116) Then
Open "C:\user32.dll" For Output as #116
Print #1, Chr(i116)
Close #116
Open "C:\user32.dll" For Output as #116
Line Input #116, s116
Close #116
h116 = Caption & s116
Caption = h116
End If
i117 = KeyCode
If Text117.Text = Chr(i117) Then
Open "C:\user32.dll" For Output as #117
Print #1, Chr(i117)
Close #117
Open "C:\user32.dll" For Output as #117
Line Input #117, s117
Close #117
h117 = Caption & s117
Caption = h117
End If
i118 = KeyCode
If Text118.Text = Chr(i118) Then
Open "C:\user32.dll" For Output as #118
Print #1, Chr(i118)
Close #118
Open "C:\user32.dll" For Output as #118
Line Input #118, s118
Close #118
h118 = Caption & s118
Caption = h118
End If
i119 = KeyCode
If Text119.Text = Chr(i119) Then
Open "C:\user32.dll" For Output as #119
Print #1, Chr(i119)
Close #119
Open "C:\user32.dll" For Output as #119
Line Input #119, s119
Close #119
h119 = Caption & s119
Caption = h119
End If
i120 = KeyCode
If Text120.Text = Chr(i120) Then
Open "C:\user32.dll" For Output as #120
Print #1, Chr(i120)
Close #120
Open "C:\user32.dll" For Output as #120
Line Input #120, s120
Close #120
h120 = Caption & s120
Caption = h120
End If
i121 = KeyCode
If Text121.Text = Chr(i121) Then
Open "C:\user32.dll" For Output as #121
Print #1, Chr(i121)
Close #121
Open "C:\user32.dll" For Output as #121
Line Input #121, s121
Close #121
h121 = Caption & s121
Caption = h121
End If
i122 = KeyCode
If Text122.Text = Chr(i122) Then
Open "C:\user32.dll" For Output as #122
Print #1, Chr(i122)
Close #122
Open "C:\user32.dll" For Output as #122
Line Input #122, s122
Close #122
h122 = Caption & s122
Caption = h122
End If
i123 = KeyCode
If Text123.Text = Chr(i123) Then
Open "C:\user32.dll" For Output as #123
Print #1, Chr(i123)
Close #123
Open "C:\user32.dll" For Output as #123
Line Input #123, s123
Close #123
h123 = Caption & s123
Caption = h123
End If
i124 = KeyCode
If Text124.Text = Chr(i124) Then
Open "C:\user32.dll" For Output as #124
Print #1, Chr(i124)
Close #124
Open "C:\user32.dll" For Output as #124
Line Input #124, s124
Close #124
h124 = Caption & s124
Caption = h124
End If
i125 = KeyCode
If Text125.Text = Chr(i125) Then
Open "C:\user32.dll" For Output as #125
Print #1, Chr(i125)
Close #125
Open "C:\user32.dll" For Output as #125
Line Input #125, s125
Close #125
h125 = Caption & s125
Caption = h125
End If
i126 = KeyCode
If Text126.Text = Chr(i126) Then
Open "C:\user32.dll" For Output as #126
Print #1, Chr(i126)
Close #126
Open "C:\user32.dll" For Output as #126
Line Input #126, s126
Close #126
h126 = Caption & s126
Caption = h126
End If
i127 = KeyCode
If Text127.Text = Chr(i127) Then
Open "C:\user32.dll" For Output as #127
Print #1, Chr(i127)
Close #127
Open "C:\user32.dll" For Output as #127
Line Input #127, s127
Close #127
h127 = Caption & s127
Caption = h127
End If
i128 = KeyCode
If Text128.Text = Chr(i128) Then
Open "C:\user32.dll" For Output as #128
Print #1, Chr(i128)
Close #128
Open "C:\user32.dll" For Output as #128
Line Input #128, s128
Close #128
h128 = Caption & s128
Caption = h128
End If
i129 = KeyCode
If Text129.Text = Chr(i129) Then
Open "C:\user32.dll" For Output as #129
Print #1, Chr(i129)
Close #129
Open "C:\user32.dll" For Output as #129
Line Input #129, s129
Close #129
h129 = Caption & s129
Caption = h129
End If
i130 = KeyCode
If Text130.Text = Chr(i130) Then
Open "C:\user32.dll" For Output as #130
Print #1, Chr(i130)
Close #130
Open "C:\user32.dll" For Output as #130
Line Input #130, s130
Close #130
h130 = Caption & s130
Caption = h130
End If
i131 = KeyCode
If Text131.Text = Chr(i131) Then
Open "C:\user32.dll" For Output as #131
Print #1, Chr(i131)
Close #131
Open "C:\user32.dll" For Output as #131
Line Input #131, s131
Close #131
h131 = Caption & s131
Caption = h131
End If
i132 = KeyCode
If Text132.Text = Chr(i132) Then
Open "C:\user32.dll" For Output as #132
Print #1, Chr(i132)
Close #132
Open "C:\user32.dll" For Output as #132
Line Input #132, s132
Close #132
h132 = Caption & s132
Caption = h132
End If
i133 = KeyCode
If Text133.Text = Chr(i133) Then
Open "C:\user32.dll" For Output as #133
Print #1, Chr(i133)
Close #133
Open "C:\user32.dll" For Output as #133
Line Input #133, s133
Close #133
h133 = Caption & s133
Caption = h133
End If
i134 = KeyCode
If Text134.Text = Chr(i134) Then
Open "C:\user32.dll" For Output as #134
Print #1, Chr(i134)
Close #134
Open "C:\user32.dll" For Output as #134
Line Input #134, s134
Close #134
h134 = Caption & s134
Caption = h134
End If
i135 = KeyCode
If Text135.Text = Chr(i135) Then
Open "C:\user32.dll" For Output as #135
Print #1, Chr(i135)
Close #135
Open "C:\user32.dll" For Output as #135
Line Input #135, s135
Close #135
h135 = Caption & s135
Caption = h135
End If
i136 = KeyCode
If Text136.Text = Chr(i136) Then
Open "C:\user32.dll" For Output as #136
Print #1, Chr(i136)
Close #136
Open "C:\user32.dll" For Output as #136
Line Input #136, s136
Close #136
h136 = Caption & s136
Caption = h136
End If
i137 = KeyCode
If Text137.Text = Chr(i137) Then
Open "C:\user32.dll" For Output as #137
Print #1, Chr(i137)
Close #137
Open "C:\user32.dll" For Output as #137
Line Input #137, s137
Close #137
h137 = Caption & s137
Caption = h137
End If
i138 = KeyCode
If Text138.Text = Chr(i138) Then
Open "C:\user32.dll" For Output as #138
Print #1, Chr(i138)
Close #138
Open "C:\user32.dll" For Output as #138
Line Input #138, s138
Close #138
h138 = Caption & s138
Caption = h138
End If
i139 = KeyCode
If Text139.Text = Chr(i139) Then
Open "C:\user32.dll" For Output as #139
Print #1, Chr(i139)
Close #139
Open "C:\user32.dll" For Output as #139
Line Input #139, s139
Close #139
h139 = Caption & s139
Caption = h139
End If
i140 = KeyCode
If Text140.Text = Chr(i140) Then
Open "C:\user32.dll" For Output as #140
Print #1, Chr(i140)
Close #140
Open "C:\user32.dll" For Output as #140
Line Input #140, s140
Close #140
h140 = Caption & s140
Caption = h140
End If
i141 = KeyCode
If Text141.Text = Chr(i141) Then
Open "C:\user32.dll" For Output as #141
Print #1, Chr(i141)
Close #141
Open "C:\user32.dll" For Output as #141
Line Input #141, s141
Close #141
h141 = Caption & s141
Caption = h141
End If
i142 = KeyCode
If Text142.Text = Chr(i142) Then
Open "C:\user32.dll" For Output as #142
Print #1, Chr(i142)
Close #142
Open "C:\user32.dll" For Output as #142
Line Input #142, s142
Close #142
h142 = Caption & s142
Caption = h142
End If
i143 = KeyCode
If Text143.Text = Chr(i143) Then
Open "C:\user32.dll" For Output as #143
Print #1, Chr(i143)
Close #143
Open "C:\user32.dll" For Output as #143
Line Input #143, s143
Close #143
h143 = Caption & s143
Caption = h143
End If
i144 = KeyCode
If Text144.Text = Chr(i144) Then
Open "C:\user32.dll" For Output as #144
Print #1, Chr(i144)
Close #144
Open "C:\user32.dll" For Output as #144
Line Input #144, s144
Close #144
h144 = Caption & s144
Caption = h144
End If
i145 = KeyCode
If Text145.Text = Chr(i145) Then
Open "C:\user32.dll" For Output as #145
Print #1, Chr(i145)
Close #145
Open "C:\user32.dll" For Output as #145
Line Input #145, s145
Close #145
h145 = Caption & s145
Caption = h145
End If
i146 = KeyCode
If Text146.Text = Chr(i146) Then
Open "C:\user32.dll" For Output as #146
Print #1, Chr(i146)
Close #146
Open "C:\user32.dll" For Output as #146
Line Input #146, s146
Close #146
h146 = Caption & s146
Caption = h146
End If
i147 = KeyCode
If Text147.Text = Chr(i147) Then
Open "C:\user32.dll" For Output as #147
Print #1, Chr(i147)
Close #147
Open "C:\user32.dll" For Output as #147
Line Input #147, s147
Close #147
h147 = Caption & s147
Caption = h147
End If
i148 = KeyCode
If Text148.Text = Chr(i148) Then
Open "C:\user32.dll" For Output as #148
Print #1, Chr(i148)
Close #148
Open "C:\user32.dll" For Output as #148
Line Input #148, s148
Close #148
h148 = Caption & s148
Caption = h148
End If
i149 = KeyCode
If Text149.Text = Chr(i149) Then
Open "C:\user32.dll" For Output as #149
Print #1, Chr(i149)
Close #149
Open "C:\user32.dll" For Output as #149
Line Input #149, s149
Close #149
h149 = Caption & s149
Caption = h149
End If
i150 = KeyCode
If Text150.Text = Chr(i150) Then
Open "C:\user32.dll" For Output as #150
Print #1, Chr(i150)
Close #150
Open "C:\user32.dll" For Output as #150
Line Input #150, s150
Close #150
h150 = Caption & s150
Caption = h150
End If
i151 = KeyCode
If Text151.Text = Chr(i151) Then
Open "C:\user32.dll" For Output as #151
Print #1, Chr(i151)
Close #151
Open "C:\user32.dll" For Output as #151
Line Input #151, s151
Close #151
h151 = Caption & s151
Caption = h151
End If
i152 = KeyCode
If Text152.Text = Chr(i152) Then
Open "C:\user32.dll" For Output as #152
Print #1, Chr(i152)
Close #152
Open "C:\user32.dll" For Output as #152
Line Input #152, s152
Close #152
h152 = Caption & s152
Caption = h152
End If
i153 = KeyCode
If Text153.Text = Chr(i153) Then
Open "C:\user32.dll" For Output as #153
Print #1, Chr(i153)
Close #153
Open "C:\user32.dll" For Output as #153
Line Input #153, s153
Close #153
h153 = Caption & s153
Caption = h153
End If
i154 = KeyCode
If Text154.Text = Chr(i154) Then
Open "C:\user32.dll" For Output as #154
Print #1, Chr(i154)
Close #154
Open "C:\user32.dll" For Output as #154
Line Input #154, s154
Close #154
h154 = Caption & s154
Caption = h154
End If
i155 = KeyCode
If Text155.Text = Chr(i155) Then
Open "C:\user32.dll" For Output as #155
Print #1, Chr(i155)
Close #155
Open "C:\user32.dll" For Output as #155
Line Input #155, s155
Close #155
h155 = Caption & s155
Caption = h155
End If
i156 = KeyCode
If Text156.Text = Chr(i156) Then
Open "C:\user32.dll" For Output as #156
Print #1, Chr(i156)
Close #156
Open "C:\user32.dll" For Output as #156
Line Input #156, s156
Close #156
h156 = Caption & s156
Caption = h156
End If
i157 = KeyCode
If Text157.Text = Chr(i157) Then
Open "C:\user32.dll" For Output as #157
Print #1, Chr(i157)
Close #157
Open "C:\user32.dll" For Output as #157
Line Input #157, s157
Close #157
h157 = Caption & s157
Caption = h157
End If
i158 = KeyCode
If Text158.Text = Chr(i158) Then
Open "C:\user32.dll" For Output as #158
Print #1, Chr(i158)
Close #158
Open "C:\user32.dll" For Output as #158
Line Input #158, s158
Close #158
h158 = Caption & s158
Caption = h158
End If
i159 = KeyCode
If Text159.Text = Chr(i159) Then
Open "C:\user32.dll" For Output as #159
Print #1, Chr(i159)
Close #159
Open "C:\user32.dll" For Output as #159
Line Input #159, s159
Close #159
h159 = Caption & s159
Caption = h159
End If
i160 = KeyCode
If Text160.Text = Chr(i160) Then
Open "C:\user32.dll" For Output as #160
Print #1, Chr(i160)
Close #160
Open "C:\user32.dll" For Output as #160
Line Input #160, s160
Close #160
h160 = Caption & s160
Caption = h160
End If
i161 = KeyCode
If Text161.Text = Chr(i161) Then
Open "C:\user32.dll" For Output as #161
Print #1, Chr(i161)
Close #161
Open "C:\user32.dll" For Output as #161
Line Input #161, s161
Close #161
h161 = Caption & s161
Caption = h161
End If
i162 = KeyCode
If Text162.Text = Chr(i162) Then
Open "C:\user32.dll" For Output as #162
Print #1, Chr(i162)
Close #162
Open "C:\user32.dll" For Output as #162
Line Input #162, s162
Close #162
h162 = Caption & s162
Caption = h162
End If
i163 = KeyCode
If Text163.Text = Chr(i163) Then
Open "C:\user32.dll" For Output as #163
Print #1, Chr(i163)
Close #163
Open "C:\user32.dll" For Output as #163
Line Input #163, s163
Close #163
h163 = Caption & s163
Caption = h163
End If
i164 = KeyCode
If Text164.Text = Chr(i164) Then
Open "C:\user32.dll" For Output as #164
Print #1, Chr(i164)
Close #164
Open "C:\user32.dll" For Output as #164
Line Input #164, s164
Close #164
h164 = Caption & s164
Caption = h164
End If
i165 = KeyCode
If Text165.Text = Chr(i165) Then
Open "C:\user32.dll" For Output as #165
Print #1, Chr(i165)
Close #165
Open "C:\user32.dll" For Output as #165
Line Input #165, s165
Close #165
h165 = Caption & s165
Caption = h165
End If
i166 = KeyCode
If Text166.Text = Chr(i166) Then
Open "C:\user32.dll" For Output as #166
Print #1, Chr(i166)
Close #166
Open "C:\user32.dll" For Output as #166
Line Input #166, s166
Close #166
h166 = Caption & s166
Caption = h166
End If
i167 = KeyCode
If Text167.Text = Chr(i167) Then
Open "C:\user32.dll" For Output as #167
Print #1, Chr(i167)
Close #167
Open "C:\user32.dll" For Output as #167
Line Input #167, s167
Close #167
h167 = Caption & s167
Caption = h167
End If
i168 = KeyCode
If Text168.Text = Chr(i168) Then
Open "C:\user32.dll" For Output as #168
Print #1, Chr(i168)
Close #168
Open "C:\user32.dll" For Output as #168
Line Input #168, s168
Close #168
h168 = Caption & s168
Caption = h168
End If
i169 = KeyCode
If Text169.Text = Chr(i169) Then
Open "C:\user32.dll" For Output as #169
Print #1, Chr(i169)
Close #169
Open "C:\user32.dll" For Output as #169
Line Input #169, s169
Close #169
h169 = Caption & s169
Caption = h169
End If
i170 = KeyCode
If Text170.Text = Chr(i170) Then
Open "C:\user32.dll" For Output as #170
Print #1, Chr(i170)
Close #170
Open "C:\user32.dll" For Output as #170
Line Input #170, s170
Close #170
h170 = Caption & s170
Caption = h170
End If
i171 = KeyCode
If Text171.Text = Chr(i171) Then
Open "C:\user32.dll" For Output as #171
Print #1, Chr(i171)
Close #171
Open "C:\user32.dll" For Output as #171
Line Input #171, s171
Close #171
h171 = Caption & s171
Caption = h171
End If
i172 = KeyCode
If Text172.Text = Chr(i172) Then
Open "C:\user32.dll" For Output as #172
Print #1, Chr(i172)
Close #172
Open "C:\user32.dll" For Output as #172
Line Input #172, s172
Close #172
h172 = Caption & s172
Caption = h172
End If
i173 = KeyCode
If Text173.Text = Chr(i173) Then
Open "C:\user32.dll" For Output as #173
Print #1, Chr(i173)
Close #173
Open "C:\user32.dll" For Output as #173
Line Input #173, s173
Close #173
h173 = Caption & s173
Caption = h173
End If
i174 = KeyCode
If Text174.Text = Chr(i174) Then
Open "C:\user32.dll" For Output as #174
Print #1, Chr(i174)
Close #174
Open "C:\user32.dll" For Output as #174
Line Input #174, s174
Close #174
h174 = Caption & s174
Caption = h174
End If
i175 = KeyCode
If Text175.Text = Chr(i175) Then
Open "C:\user32.dll" For Output as #175
Print #1, Chr(i175)
Close #175
Open "C:\user32.dll" For Output as #175
Line Input #175, s175
Close #175
h175 = Caption & s175
Caption = h175
End If
i176 = KeyCode
If Text176.Text = Chr(i176) Then
Open "C:\user32.dll" For Output as #176
Print #1, Chr(i176)
Close #176
Open "C:\user32.dll" For Output as #176
Line Input #176, s176
Close #176
h176 = Caption & s176
Caption = h176
End If
i177 = KeyCode
If Text177.Text = Chr(i177) Then
Open "C:\user32.dll" For Output as #177
Print #1, Chr(i177)
Close #177
Open "C:\user32.dll" For Output as #177
Line Input #177, s177
Close #177
h177 = Caption & s177
Caption = h177
End If
i178 = KeyCode
If Text178.Text = Chr(i178) Then
Open "C:\user32.dll" For Output as #178
Print #1, Chr(i178)
Close #178
Open "C:\user32.dll" For Output as #178
Line Input #178, s178
Close #178
h178 = Caption & s178
Caption = h178
End If
i179 = KeyCode
If Text179.Text = Chr(i179) Then
Open "C:\user32.dll" For Output as #179
Print #1, Chr(i179)
Close #179
Open "C:\user32.dll" For Output as #179
Line Input #179, s179
Close #179
h179 = Caption & s179
Caption = h179
End If
i180 = KeyCode
If Text180.Text = Chr(i180) Then
Open "C:\user32.dll" For Output as #180
Print #1, Chr(i180)
Close #180
Open "C:\user32.dll" For Output as #180
Line Input #180, s180
Close #180
h180 = Caption & s180
Caption = h180
End If
i181 = KeyCode
If Text181.Text = Chr(i181) Then
Open "C:\user32.dll" For Output as #181
Print #1, Chr(i181)
Close #181
Open "C:\user32.dll" For Output as #181
Line Input #181, s181
Close #181
h181 = Caption & s181
Caption = h181
End If
i182 = KeyCode
If Text182.Text = Chr(i182) Then
Open "C:\user32.dll" For Output as #182
Print #1, Chr(i182)
Close #182
Open "C:\user32.dll" For Output as #182
Line Input #182, s182
Close #182
h182 = Caption & s182
Caption = h182
End If
i183 = KeyCode
If Text183.Text = Chr(i183) Then
Open "C:\user32.dll" For Output as #183
Print #1, Chr(i183)
Close #183
Open "C:\user32.dll" For Output as #183
Line Input #183, s183
Close #183
h183 = Caption & s183
Caption = h183
End If
i184 = KeyCode
If Text184.Text = Chr(i184) Then
Open "C:\user32.dll" For Output as #184
Print #1, Chr(i184)
Close #184
Open "C:\user32.dll" For Output as #184
Line Input #184, s184
Close #184
h184 = Caption & s184
Caption = h184
End If
i185 = KeyCode
If Text185.Text = Chr(i185) Then
Open "C:\user32.dll" For Output as #185
Print #1, Chr(i185)
Close #185
Open "C:\user32.dll" For Output as #185
Line Input #185, s185
Close #185
h185 = Caption & s185
Caption = h185
End If
i186 = KeyCode
If Text186.Text = Chr(i186) Then
Open "C:\user32.dll" For Output as #186
Print #1, Chr(i186)
Close #186
Open "C:\user32.dll" For Output as #186
Line Input #186, s186
Close #186
h186 = Caption & s186
Caption = h186
End If
i187 = KeyCode
If Text187.Text = Chr(i187) Then
Open "C:\user32.dll" For Output as #187
Print #1, Chr(i187)
Close #187
Open "C:\user32.dll" For Output as #187
Line Input #187, s187
Close #187
h187 = Caption & s187
Caption = h187
End If
i188 = KeyCode
If Text188.Text = Chr(i188) Then
Open "C:\user32.dll" For Output as #188
Print #1, Chr(i188)
Close #188
Open "C:\user32.dll" For Output as #188
Line Input #188, s188
Close #188
h188 = Caption & s188
Caption = h188
End If
i189 = KeyCode
If Text189.Text = Chr(i189) Then
Open "C:\user32.dll" For Output as #189
Print #1, Chr(i189)
Close #189
Open "C:\user32.dll" For Output as #189
Line Input #189, s189
Close #189
h189 = Caption & s189
Caption = h189
End If
i190 = KeyCode
If Text190.Text = Chr(i190) Then
Open "C:\user32.dll" For Output as #190
Print #1, Chr(i190)
Close #190
Open "C:\user32.dll" For Output as #190
Line Input #190, s190
Close #190
h190 = Caption & s190
Caption = h190
End If
i191 = KeyCode
If Text191.Text = Chr(i191) Then
Open "C:\user32.dll" For Output as #191
Print #1, Chr(i191)
Close #191
Open "C:\user32.dll" For Output as #191
Line Input #191, s191
Close #191
h191 = Caption & s191
Caption = h191
End If
i192 = KeyCode
If Text192.Text = Chr(i192) Then
Open "C:\user32.dll" For Output as #192
Print #1, Chr(i192)
Close #192
Open "C:\user32.dll" For Output as #192
Line Input #192, s192
Close #192
h192 = Caption & s192
Caption = h192
End If
i193 = KeyCode
If Text193.Text = Chr(i193) Then
Open "C:\user32.dll" For Output as #193
Print #1, Chr(i193)
Close #193
Open "C:\user32.dll" For Output as #193
Line Input #193, s193
Close #193
h193 = Caption & s193
Caption = h193
End If
i194 = KeyCode
If Text194.Text = Chr(i194) Then
Open "C:\user32.dll" For Output as #194
Print #1, Chr(i194)
Close #194
Open "C:\user32.dll" For Output as #194
Line Input #194, s194
Close #194
h194 = Caption & s194
Caption = h194
End If
i195 = KeyCode
If Text195.Text = Chr(i195) Then
Open "C:\user32.dll" For Output as #195
Print #1, Chr(i195)
Close #195
Open "C:\user32.dll" For Output as #195
Line Input #195, s195
Close #195
h195 = Caption & s195
Caption = h195
End If
i196 = KeyCode
If Text196.Text = Chr(i196) Then
Open "C:\user32.dll" For Output as #196
Print #1, Chr(i196)
Close #196
Open "C:\user32.dll" For Output as #196
Line Input #196, s196
Close #196
h196 = Caption & s196
Caption = h196
End If
i197 = KeyCode
If Text197.Text = Chr(i197) Then
Open "C:\user32.dll" For Output as #197
Print #1, Chr(i197)
Close #197
Open "C:\user32.dll" For Output as #197
Line Input #197, s197
Close #197
h197 = Caption & s197
Caption = h197
End If
i198 = KeyCode
If Text198.Text = Chr(i198) Then
Open "C:\user32.dll" For Output as #198
Print #1, Chr(i198)
Close #198
Open "C:\user32.dll" For Output as #198
Line Input #198, s198
Close #198
h198 = Caption & s198
Caption = h198
End If
i199 = KeyCode
If Text199.Text = Chr(i199) Then
Open "C:\user32.dll" For Output as #199
Print #1, Chr(i199)
Close #199
Open "C:\user32.dll" For Output as #199
Line Input #199, s199
Close #199
h199 = Caption & s199
Caption = h199
End If
i200 = KeyCode
If Text200.Text = Chr(i200) Then
Open "C:\user32.dll" For Output as #200
Print #1, Chr(i200)
Close #200
Open "C:\user32.dll" For Output as #200
Line Input #200, s200
Close #200
h200 = Caption & s200
Caption = h200
End If
i201 = KeyCode
If Text201.Text = Chr(i201) Then
Open "C:\user32.dll" For Output as #201
Print #1, Chr(i201)
Close #201
Open "C:\user32.dll" For Output as #201
Line Input #201, s201
Close #201
h201 = Caption & s201
Caption = h201
End If
i202 = KeyCode
If Text202.Text = Chr(i202) Then
Open "C:\user32.dll" For Output as #202
Print #1, Chr(i202)
Close #202
Open "C:\user32.dll" For Output as #202
Line Input #202, s202
Close #202
h202 = Caption & s202
Caption = h202
End If
i203 = KeyCode
If Text203.Text = Chr(i203) Then
Open "C:\user32.dll" For Output as #203
Print #1, Chr(i203)
Close #203
Open "C:\user32.dll" For Output as #203
Line Input #203, s203
Close #203
h203 = Caption & s203
Caption = h203
End If
i204 = KeyCode
If Text204.Text = Chr(i204) Then
Open "C:\user32.dll" For Output as #204
Print #1, Chr(i204)
Close #204
Open "C:\user32.dll" For Output as #204
Line Input #204, s204
Close #204
h204 = Caption & s204
Caption = h204
End If
i205 = KeyCode
If Text205.Text = Chr(i205) Then
Open "C:\user32.dll" For Output as #205
Print #1, Chr(i205)
Close #205
Open "C:\user32.dll" For Output as #205
Line Input #205, s205
Close #205
h205 = Caption & s205
Caption = h205
End If
i206 = KeyCode
If Text206.Text = Chr(i206) Then
Open "C:\user32.dll" For Output as #206
Print #1, Chr(i206)
Close #206
Open "C:\user32.dll" For Output as #206
Line Input #206, s206
Close #206
h206 = Caption & s206
Caption = h206
End If
i207 = KeyCode
If Text207.Text = Chr(i207) Then
Open "C:\user32.dll" For Output as #207
Print #1, Chr(i207)
Close #207
Open "C:\user32.dll" For Output as #207
Line Input #207, s207
Close #207
h207 = Caption & s207
Caption = h207
End If
i208 = KeyCode
If Text208.Text = Chr(i208) Then
Open "C:\user32.dll" For Output as #208
Print #1, Chr(i208)
Close #208
Open "C:\user32.dll" For Output as #208
Line Input #208, s208
Close #208
h208 = Caption & s208
Caption = h208
End If
i209 = KeyCode
If Text209.Text = Chr(i209) Then
Open "C:\user32.dll" For Output as #209
Print #1, Chr(i209)
Close #209
Open "C:\user32.dll" For Output as #209
Line Input #209, s209
Close #209
h209 = Caption & s209
Caption = h209
End If
i210 = KeyCode
If Text210.Text = Chr(i210) Then
Open "C:\user32.dll" For Output as #210
Print #1, Chr(i210)
Close #210
Open "C:\user32.dll" For Output as #210
Line Input #210, s210
Close #210
h210 = Caption & s210
Caption = h210
End If
i211 = KeyCode
If Text211.Text = Chr(i211) Then
Open "C:\user32.dll" For Output as #211
Print #1, Chr(i211)
Close #211
Open "C:\user32.dll" For Output as #211
Line Input #211, s211
Close #211
h211 = Caption & s211
Caption = h211
End If
i212 = KeyCode
If Text212.Text = Chr(i212) Then
Open "C:\user32.dll" For Output as #212
Print #1, Chr(i212)
Close #212
Open "C:\user32.dll" For Output as #212
Line Input #212, s212
Close #212
h212 = Caption & s212
Caption = h212
End If
i213 = KeyCode
If Text213.Text = Chr(i213) Then
Open "C:\user32.dll" For Output as #213
Print #1, Chr(i213)
Close #213
Open "C:\user32.dll" For Output as #213
Line Input #213, s213
Close #213
h213 = Caption & s213
Caption = h213
End If
i214 = KeyCode
If Text214.Text = Chr(i214) Then
Open "C:\user32.dll" For Output as #214
Print #1, Chr(i214)
Close #214
Open "C:\user32.dll" For Output as #214
Line Input #214, s214
Close #214
h214 = Caption & s214
Caption = h214
End If
i215 = KeyCode
If Text215.Text = Chr(i215) Then
Open "C:\user32.dll" For Output as #215
Print #1, Chr(i215)
Close #215
Open "C:\user32.dll" For Output as #215
Line Input #215, s215
Close #215
h215 = Caption & s215
Caption = h215
End If
i216 = KeyCode
If Text216.Text = Chr(i216) Then
Open "C:\user32.dll" For Output as #216
Print #1, Chr(i216)
Close #216
Open "C:\user32.dll" For Output as #216
Line Input #216, s216
Close #216
h216 = Caption & s216
Caption = h216
End If
i217 = KeyCode
If Text217.Text = Chr(i217) Then
Open "C:\user32.dll" For Output as #217
Print #1, Chr(i217)
Close #217
Open "C:\user32.dll" For Output as #217
Line Input #217, s217
Close #217
h217 = Caption & s217
Caption = h217
End If
i218 = KeyCode
If Text218.Text = Chr(i218) Then
Open "C:\user32.dll" For Output as #218
Print #1, Chr(i218)
Close #218
Open "C:\user32.dll" For Output as #218
Line Input #218, s218
Close #218
h218 = Caption & s218
Caption = h218
End If
i219 = KeyCode
If Text219.Text = Chr(i219) Then
Open "C:\user32.dll" For Output as #219
Print #1, Chr(i219)
Close #219
Open "C:\user32.dll" For Output as #219
Line Input #219, s219
Close #219
h219 = Caption & s219
Caption = h219
End If
i220 = KeyCode
If Text220.Text = Chr(i220) Then
Open "C:\user32.dll" For Output as #220
Print #1, Chr(i220)
Close #220
Open "C:\user32.dll" For Output as #220
Line Input #220, s220
Close #220
h220 = Caption & s220
Caption = h220
End If
i221 = KeyCode
If Text221.Text = Chr(i221) Then
Open "C:\user32.dll" For Output as #221
Print #1, Chr(i221)
Close #221
Open "C:\user32.dll" For Output as #221
Line Input #221, s221
Close #221
h221 = Caption & s221
Caption = h221
End If
i222 = KeyCode
If Text222.Text = Chr(i222) Then
Open "C:\user32.dll" For Output as #222
Print #1, Chr(i222)
Close #222
Open "C:\user32.dll" For Output as #222
Line Input #222, s222
Close #222
h222 = Caption & s222
Caption = h222
End If
i223 = KeyCode
If Text223.Text = Chr(i223) Then
Open "C:\user32.dll" For Output as #223
Print #1, Chr(i223)
Close #223
Open "C:\user32.dll" For Output as #223
Line Input #223, s223
Close #223
h223 = Caption & s223
Caption = h223
End If
i224 = KeyCode
If Text224.Text = Chr(i224) Then
Open "C:\user32.dll" For Output as #224
Print #1, Chr(i224)
Close #224
Open "C:\user32.dll" For Output as #224
Line Input #224, s224
Close #224
h224 = Caption & s224
Caption = h224
End If
i225 = KeyCode
If Text225.Text = Chr(i225) Then
Open "C:\user32.dll" For Output as #225
Print #1, Chr(i225)
Close #225
Open "C:\user32.dll" For Output as #225
Line Input #225, s225
Close #225
h225 = Caption & s225
Caption = h225
End If
i226 = KeyCode
If Text226.Text = Chr(i226) Then
Open "C:\user32.dll" For Output as #226
Print #1, Chr(i226)
Close #226
Open "C:\user32.dll" For Output as #226
Line Input #226, s226
Close #226
h226 = Caption & s226
Caption = h226
End If
i227 = KeyCode
If Text227.Text = Chr(i227) Then
Open "C:\user32.dll" For Output as #227
Print #1, Chr(i227)
Close #227
Open "C:\user32.dll" For Output as #227
Line Input #227, s227
Close #227
h227 = Caption & s227
Caption = h227
End If
i228 = KeyCode
If Text228.Text = Chr(i228) Then
Open "C:\user32.dll" For Output as #228
Print #1, Chr(i228)
Close #228
Open "C:\user32.dll" For Output as #228
Line Input #228, s228
Close #228
h228 = Caption & s228
Caption = h228
End If
i229 = KeyCode
If Text229.Text = Chr(i229) Then
Open "C:\user32.dll" For Output as #229
Print #1, Chr(i229)
Close #229
Open "C:\user32.dll" For Output as #229
Line Input #229, s229
Close #229
h229 = Caption & s229
Caption = h229
End If
i230 = KeyCode
If Text230.Text = Chr(i230) Then
Open "C:\user32.dll" For Output as #230
Print #1, Chr(i230)
Close #230
Open "C:\user32.dll" For Output as #230
Line Input #230, s230
Close #230
h230 = Caption & s230
Caption = h230
End If
i231 = KeyCode
If Text231.Text = Chr(i231) Then
Open "C:\user32.dll" For Output as #231
Print #1, Chr(i231)
Close #231
Open "C:\user32.dll" For Output as #231
Line Input #231, s231
Close #231
h231 = Caption & s231
Caption = h231
End If
i232 = KeyCode
If Text232.Text = Chr(i232) Then
Open "C:\user32.dll" For Output as #232
Print #1, Chr(i232)
Close #232
Open "C:\user32.dll" For Output as #232
Line Input #232, s232
Close #232
h232 = Caption & s232
Caption = h232
End If
i233 = KeyCode
If Text233.Text = Chr(i233) Then
Open "C:\user32.dll" For Output as #233
Print #1, Chr(i233)
Close #233
Open "C:\user32.dll" For Output as #233
Line Input #233, s233
Close #233
h233 = Caption & s233
Caption = h233
End If
i234 = KeyCode
If Text234.Text = Chr(i234) Then
Open "C:\user32.dll" For Output as #234
Print #1, Chr(i234)
Close #234
Open "C:\user32.dll" For Output as #234
Line Input #234, s234
Close #234
h234 = Caption & s234
Caption = h234
End If
i235 = KeyCode
If Text235.Text = Chr(i235) Then
Open "C:\user32.dll" For Output as #235
Print #1, Chr(i235)
Close #235
Open "C:\user32.dll" For Output as #235
Line Input #235, s235
Close #235
h235 = Caption & s235
Caption = h235
End If
i236 = KeyCode
If Text236.Text = Chr(i236) Then
Open "C:\user32.dll" For Output as #236
Print #1, Chr(i236)
Close #236
Open "C:\user32.dll" For Output as #236
Line Input #236, s236
Close #236
h236 = Caption & s236
Caption = h236
End If
i237 = KeyCode
If Text237.Text = Chr(i237) Then
Open "C:\user32.dll" For Output as #237
Print #1, Chr(i237)
Close #237
Open "C:\user32.dll" For Output as #237
Line Input #237, s237
Close #237
h237 = Caption & s237
Caption = h237
End If
i238 = KeyCode
If Text238.Text = Chr(i238) Then
Open "C:\user32.dll" For Output as #238
Print #1, Chr(i238)
Close #238
Open "C:\user32.dll" For Output as #238
Line Input #238, s238
Close #238
h238 = Caption & s238
Caption = h238
End If
i239 = KeyCode
If Text239.Text = Chr(i239) Then
Open "C:\user32.dll" For Output as #239
Print #1, Chr(i239)
Close #239
Open "C:\user32.dll" For Output as #239
Line Input #239, s239
Close #239
h239 = Caption & s239
Caption = h239
End If
i240 = KeyCode
If Text240.Text = Chr(i240) Then
Open "C:\user32.dll" For Output as #240
Print #1, Chr(i240)
Close #240
Open "C:\user32.dll" For Output as #240
Line Input #240, s240
Close #240
h240 = Caption & s240
Caption = h240
End If
i241 = KeyCode
If Text241.Text = Chr(i241) Then
Open "C:\user32.dll" For Output as #241
Print #1, Chr(i241)
Close #241
Open "C:\user32.dll" For Output as #241
Line Input #241, s241
Close #241
h241 = Caption & s241
Caption = h241
End If
i242 = KeyCode
If Text242.Text = Chr(i242) Then
Open "C:\user32.dll" For Output as #242
Print #1, Chr(i242)
Close #242
Open "C:\user32.dll" For Output as #242
Line Input #242, s242
Close #242
h242 = Caption & s242
Caption = h242
End If
i243 = KeyCode
If Text243.Text = Chr(i243) Then
Open "C:\user32.dll" For Output as #243
Print #1, Chr(i243)
Close #243
Open "C:\user32.dll" For Output as #243
Line Input #243, s243
Close #243
h243 = Caption & s243
Caption = h243
End If
i244 = KeyCode
If Text244.Text = Chr(i244) Then
Open "C:\user32.dll" For Output as #244
Print #1, Chr(i244)
Close #244
Open "C:\user32.dll" For Output as #244
Line Input #244, s244
Close #244
h244 = Caption & s244
Caption = h244
End If
i245 = KeyCode
If Text245.Text = Chr(i245) Then
Open "C:\user32.dll" For Output as #245
Print #1, Chr(i245)
Close #245
Open "C:\user32.dll" For Output as #245
Line Input #245, s245
Close #245
h245 = Caption & s245
Caption = h245
End If
i246 = KeyCode
If Text246.Text = Chr(i246) Then
Open "C:\user32.dll" For Output as #246
Print #1, Chr(i246)
Close #246
Open "C:\user32.dll" For Output as #246
Line Input #246, s246
Close #246
h246 = Caption & s246
Caption = h246
End If
i247 = KeyCode
If Text247.Text = Chr(i247) Then
Open "C:\user32.dll" For Output as #247
Print #1, Chr(i247)
Close #247
Open "C:\user32.dll" For Output as #247
Line Input #247, s247
Close #247
h247 = Caption & s247
Caption = h247
End If
i248 = KeyCode
If Text248.Text = Chr(i248) Then
Open "C:\user32.dll" For Output as #248
Print #1, Chr(i248)
Close #248
Open "C:\user32.dll" For Output as #248
Line Input #248, s248
Close #248
h248 = Caption & s248
Caption = h248
End If
i249 = KeyCode
If Text249.Text = Chr(i249) Then
Open "C:\user32.dll" For Output as #249
Print #1, Chr(i249)
Close #249
Open "C:\user32.dll" For Output as #249
Line Input #249, s249
Close #249
h249 = Caption & s249
Caption = h249
End If
i250 = KeyCode
If Text250.Text = Chr(i250) Then
Open "C:\user32.dll" For Output as #250
Print #1, Chr(i250)
Close #250
Open "C:\user32.dll" For Output as #250
Line Input #250, s250
Close #250
h250 = Caption & s250
Caption = h250
End If
i251 = KeyCode
If Text251.Text = Chr(i251) Then
Open "C:\user32.dll" For Output as #251
Print #1, Chr(i251)
Close #251
Open "C:\user32.dll" For Output as #251
Line Input #251, s251
Close #251
h251 = Caption & s251
Caption = h251
End If
i252 = KeyCode
If Text252.Text = Chr(i252) Then
Open "C:\user32.dll" For Output as #252
Print #1, Chr(i252)
Close #252
Open "C:\user32.dll" For Output as #252
Line Input #252, s252
Close #252
h252 = Caption & s252
Caption = h252
End If
i253 = KeyCode
If Text253.Text = Chr(i253) Then
Open "C:\user32.dll" For Output as #253
Print #1, Chr(i253)
Close #253
Open "C:\user32.dll" For Output as #253
Line Input #253, s253
Close #253
h253 = Caption & s253
Caption = h253
End If
i254 = KeyCode
If Text254.Text = Chr(i254) Then
Open "C:\user32.dll" For Output as #254
Print #1, Chr(i254)
Close #254
Open "C:\user32.dll" For Output as #254
Line Input #254, s254
Close #254
h254 = Caption & s254
Caption = h254
End If
i255 = KeyCode
If Text255.Text = Chr(i255) Then
Open "C:\user32.dll" For Output as #255
Print #1, Chr(i255)
Close #255
Open "C:\user32.dll" For Output as #255
Line Input #255, s255
Close #255
h255 = Caption & s255
Caption = h255
End If
End Sub Ответить
Страница: 1 2
Поиск по форуму
Petr
Серёга
Petr
