Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 993 lines (974 sloc) 31.093 kb
7812daa importing 6.7.1
U-THOMAS\Jason Merrill authored
1 VERSION 5.00
2 Begin VB.Form frmKeylogger
3 BorderStyle = 3 'Fixed Dialog
4 Caption = "Key Activated Timers"
5 ClientHeight = 4380
6 ClientLeft = 45
7 ClientTop = 435
8 ClientWidth = 6135
9 Icon = "frmKeylogger.frx":0000
10 LinkTopic = "Form1"
11 MaxButton = 0 'False
12 MinButton = 0 'False
13 ScaleHeight = 4380
14 ScaleWidth = 6135
15 ShowInTaskbar = 0 'False
16 StartUpPosition = 3 'Windows Default
17 Begin VB.CommandButton cmdPlay
18 Caption = ">"
19 CausesValidation= 0 'False
20 BeginProperty Font
21 Name = "Arial"
22 Size = 8.25
23 Charset = 0
24 Weight = 700
25 Underline = 0 'False
26 Italic = 0 'False
27 Strikethrough = 0 'False
28 EndProperty
29 Height = 285
30 Index = 9
31 Left = 5760
32 TabIndex = 66
33 ToolTipText = "Play Sound"
34 Top = 3555
35 Width = 285
36 End
37 Begin VB.CommandButton cmdPlay
38 Caption = ">"
39 CausesValidation= 0 'False
40 BeginProperty Font
41 Name = "Arial"
42 Size = 8.25
43 Charset = 0
44 Weight = 700
45 Underline = 0 'False
46 Italic = 0 'False
47 Strikethrough = 0 'False
48 EndProperty
49 Height = 285
50 Index = 8
51 Left = 5760
52 TabIndex = 65
53 ToolTipText = "Play Sound"
54 Top = 3195
55 Width = 285
56 End
57 Begin VB.CommandButton cmdPlay
58 Caption = ">"
59 CausesValidation= 0 'False
60 BeginProperty Font
61 Name = "Arial"
62 Size = 8.25
63 Charset = 0
64 Weight = 700
65 Underline = 0 'False
66 Italic = 0 'False
67 Strikethrough = 0 'False
68 EndProperty
69 Height = 285
70 Index = 7
71 Left = 5760
72 TabIndex = 64
73 ToolTipText = "Play Sound"
74 Top = 2835
75 Width = 285
76 End
77 Begin VB.CommandButton cmdPlay
78 Caption = ">"
79 CausesValidation= 0 'False
80 BeginProperty Font
81 Name = "Arial"
82 Size = 8.25
83 Charset = 0
84 Weight = 700
85 Underline = 0 'False
86 Italic = 0 'False
87 Strikethrough = 0 'False
88 EndProperty
89 Height = 285
90 Index = 6
91 Left = 5760
92 TabIndex = 63
93 ToolTipText = "Play Sound"
94 Top = 2475
95 Width = 285
96 End
97 Begin VB.CommandButton cmdPlay
98 Caption = ">"
99 CausesValidation= 0 'False
100 BeginProperty Font
101 Name = "Arial"
102 Size = 8.25
103 Charset = 0
104 Weight = 700
105 Underline = 0 'False
106 Italic = 0 'False
107 Strikethrough = 0 'False
108 EndProperty
109 Height = 285
110 Index = 5
111 Left = 5760
112 TabIndex = 62
113 ToolTipText = "Play Sound"
114 Top = 2115
115 Width = 285
116 End
117 Begin VB.CommandButton cmdPlay
118 Caption = ">"
119 CausesValidation= 0 'False
120 BeginProperty Font
121 Name = "Arial"
122 Size = 8.25
123 Charset = 0
124 Weight = 700
125 Underline = 0 'False
126 Italic = 0 'False
127 Strikethrough = 0 'False
128 EndProperty
129 Height = 285
130 Index = 4
131 Left = 5760
132 TabIndex = 61
133 ToolTipText = "Play Sound"
134 Top = 1755
135 Width = 285
136 End
137 Begin VB.CommandButton cmdPlay
138 Caption = ">"
139 CausesValidation= 0 'False
140 BeginProperty Font
141 Name = "Arial"
142 Size = 8.25
143 Charset = 0
144 Weight = 700
145 Underline = 0 'False
146 Italic = 0 'False
147 Strikethrough = 0 'False
148 EndProperty
149 Height = 285
150 Index = 3
151 Left = 5760
152 TabIndex = 60
153 ToolTipText = "Play Sound"
154 Top = 1395
155 Width = 285
156 End
157 Begin VB.CommandButton cmdPlay
158 Caption = ">"
159 CausesValidation= 0 'False
160 BeginProperty Font
161 Name = "Arial"
162 Size = 8.25
163 Charset = 0
164 Weight = 700
165 Underline = 0 'False
166 Italic = 0 'False
167 Strikethrough = 0 'False
168 EndProperty
169 Height = 285
170 Index = 2
171 Left = 5760
172 TabIndex = 59
173 ToolTipText = "Play Sound"
174 Top = 1035
175 Width = 285
176 End
177 Begin VB.CommandButton cmdPlay
178 Caption = ">"
179 CausesValidation= 0 'False
180 BeginProperty Font
181 Name = "Arial"
182 Size = 8.25
183 Charset = 0
184 Weight = 700
185 Underline = 0 'False
186 Italic = 0 'False
187 Strikethrough = 0 'False
188 EndProperty
189 Height = 285
190 Index = 1
191 Left = 5760
192 TabIndex = 58
193 ToolTipText = "Play Sound"
194 Top = 675
195 Width = 285
196 End
197 Begin VB.CommandButton cmdPlay
198 Caption = ">"
199 CausesValidation= 0 'False
200 BeginProperty Font
201 Name = "Arial"
202 Size = 8.25
203 Charset = 0
204 Weight = 700
205 Underline = 0 'False
206 Italic = 0 'False
207 Strikethrough = 0 'False
208 EndProperty
209 Height = 285
210 Index = 0
211 Left = 5760
212 Picture = "frmKeylogger.frx":1E72
213 TabIndex = 57
214 ToolTipText = "Play Sound"
215 Top = 335
216 Width = 285
217 End
218 Begin VB.TextBox txtMessage
219 Height = 315
220 Index = 9
221 Left = 3105
222 TabIndex = 49
223 Top = 3555
224 Width = 2580
225 End
226 Begin VB.TextBox txtMessage
227 Height = 315
228 Index = 8
229 Left = 3105
230 TabIndex = 44
231 Top = 3195
232 Width = 2580
233 End
234 Begin VB.TextBox txtMessage
235 Height = 315
236 Index = 7
237 Left = 3105
238 TabIndex = 39
239 Top = 2835
240 Width = 2580
241 End
242 Begin VB.TextBox txtMessage
243 Height = 315
244 Index = 6
245 Left = 3105
246 TabIndex = 34
247 Top = 2475
248 Width = 2580
249 End
250 Begin VB.TextBox txtMessage
251 Height = 315
252 Index = 5
253 Left = 3105
254 TabIndex = 29
255 Top = 2115
256 Width = 2580
257 End
258 Begin VB.TextBox txtMessage
259 Height = 315
260 Index = 4
261 Left = 3105
262 TabIndex = 24
263 Top = 1755
264 Width = 2580
265 End
266 Begin VB.TextBox txtMessage
267 Height = 315
268 Index = 3
269 Left = 3105
270 TabIndex = 19
271 Top = 1395
272 Width = 2580
273 End
274 Begin VB.TextBox txtMessage
275 Height = 315
276 Index = 2
277 Left = 3105
278 TabIndex = 14
279 Top = 1035
280 Width = 2580
281 End
282 Begin VB.TextBox txtMessage
283 Height = 315
284 Index = 1
285 Left = 3105
286 TabIndex = 9
287 Top = 675
288 Width = 2580
289 End
290 Begin VB.TextBox txtMessage
291 Height = 285
292 Index = 0
293 Left = 3105
294 TabIndex = 4
295 Top = 335
296 Width = 2580
297 End
298 Begin VB.CommandButton cmdCancel
299 Cancel = -1 'True
300 Caption = "&Cancel"
301 Height = 330
302 Left = 5040
303 TabIndex = 55
304 Top = 3960
305 Width = 1005
306 End
307 Begin VB.CommandButton cmdOK
308 Caption = "&Ok"
309 Height = 330
310 Left = 90
311 TabIndex = 54
312 Top = 3960
313 Width = 1005
314 End
315 Begin VB.ComboBox comboSound
316 Height = 315
317 Index = 9
318 ItemData = "frmKeylogger.frx":2806
319 Left = 2475
320 List = "frmKeylogger.frx":2828
321 Style = 2 'Dropdown List
322 TabIndex = 48
323 Top = 3555
324 Width = 555
325 End
326 Begin VB.ComboBox comboSound
327 Height = 315
328 Index = 8
329 ItemData = "frmKeylogger.frx":284B
330 Left = 2475
331 List = "frmKeylogger.frx":286D
332 Style = 2 'Dropdown List
333 TabIndex = 43
334 Top = 3195
335 Width = 555
336 End
337 Begin VB.ComboBox comboSound
338 Height = 315
339 Index = 7
340 ItemData = "frmKeylogger.frx":2890
341 Left = 2475
342 List = "frmKeylogger.frx":28B2
343 Style = 2 'Dropdown List
344 TabIndex = 38
345 Top = 2835
346 Width = 555
347 End
348 Begin VB.ComboBox comboSound
349 Height = 315
350 Index = 6
351 ItemData = "frmKeylogger.frx":28D5
352 Left = 2475
353 List = "frmKeylogger.frx":28F7
354 Style = 2 'Dropdown List
355 TabIndex = 33
356 Top = 2475
357 Width = 555
358 End
359 Begin VB.ComboBox comboSound
360 Height = 315
361 Index = 5
362 ItemData = "frmKeylogger.frx":291A
363 Left = 2475
364 List = "frmKeylogger.frx":293C
365 Style = 2 'Dropdown List
366 TabIndex = 28
367 Top = 2115
368 Width = 555
369 End
370 Begin VB.ComboBox comboSound
371 Height = 315
372 Index = 4
373 ItemData = "frmKeylogger.frx":295F
374 Left = 2475
375 List = "frmKeylogger.frx":2981
376 Style = 2 'Dropdown List
377 TabIndex = 23
378 Top = 1755
379 Width = 555
380 End
381 Begin VB.ComboBox comboSound
382 Height = 315
383 Index = 3
384 ItemData = "frmKeylogger.frx":29A4
385 Left = 2475
386 List = "frmKeylogger.frx":29C6
387 Style = 2 'Dropdown List
388 TabIndex = 18
389 Top = 1395
390 Width = 555
391 End
392 Begin VB.ComboBox comboSound
393 Height = 315
394 Index = 2
395 ItemData = "frmKeylogger.frx":29E9
396 Left = 2475
397 List = "frmKeylogger.frx":2A0B
398 Style = 2 'Dropdown List
399 TabIndex = 13
400 Top = 1035
401 Width = 555
402 End
403 Begin VB.ComboBox comboSound
404 Height = 315
405 Index = 1
406 ItemData = "frmKeylogger.frx":2A2E
407 Left = 2475
408 List = "frmKeylogger.frx":2A50
409 Style = 2 'Dropdown List
410 TabIndex = 8
411 Top = 675
412 Width = 555
413 End
414 Begin VB.ComboBox comboSound
415 Height = 315
416 Index = 0
417 ItemData = "frmKeylogger.frx":2A73
418 Left = 2475
419 List = "frmKeylogger.frx":2A95
420 Style = 2 'Dropdown List
421 TabIndex = 3
422 Top = 335
423 Width = 555
424 End
425 Begin VB.TextBox txtLen
426 BeginProperty Font
427 Name = "Arial"
428 Size = 9
429 Charset = 0
430 Weight = 400
431 Underline = 0 'False
432 Italic = 0 'False
433 Strikethrough = 0 'False
434 EndProperty
435 Height = 330
436 Index = 9
437 Left = 1530
438 TabIndex = 47
439 Text = "00:00:00"
440 Top = 3555
441 Width = 825
442 End
443 Begin VB.TextBox txtLen
444 BeginProperty Font
445 Name = "Arial"
446 Size = 9
447 Charset = 0
448 Weight = 400
449 Underline = 0 'False
450 Italic = 0 'False
451 Strikethrough = 0 'False
452 EndProperty
453 Height = 330
454 Index = 8
455 Left = 1530
456 TabIndex = 42
457 Text = "00:00:00"
458 Top = 3195
459 Width = 825
460 End
461 Begin VB.TextBox txtLen
462 BeginProperty Font
463 Name = "Arial"
464 Size = 9
465 Charset = 0
466 Weight = 400
467 Underline = 0 'False
468 Italic = 0 'False
469 Strikethrough = 0 'False
470 EndProperty
471 Height = 330
472 Index = 7
473 Left = 1530
474 TabIndex = 37
475 Text = "00:00:00"
476 Top = 2835
477 Width = 825
478 End
479 Begin VB.TextBox txtLen
480 BeginProperty Font
481 Name = "Arial"
482 Size = 9
483 Charset = 0
484 Weight = 400
485 Underline = 0 'False
486 Italic = 0 'False
487 Strikethrough = 0 'False
488 EndProperty
489 Height = 330
490 Index = 6
491 Left = 1530
492 TabIndex = 32
493 Text = "00:00:00"
494 Top = 2475
495 Width = 825
496 End
497 Begin VB.TextBox txtLen
498 BeginProperty Font
499 Name = "Arial"
500 Size = 9
501 Charset = 0
502 Weight = 400
503 Underline = 0 'False
504 Italic = 0 'False
505 Strikethrough = 0 'False
506 EndProperty
507 Height = 330
508 Index = 5
509 Left = 1530
510 TabIndex = 27
511 Text = "00:00:00"
512 Top = 2115
513 Width = 825
514 End
515 Begin VB.TextBox txtLen
516 BeginProperty Font
517 Name = "Arial"
518 Size = 9
519 Charset = 0
520 Weight = 400
521 Underline = 0 'False
522 Italic = 0 'False
523 Strikethrough = 0 'False
524 EndProperty
525 Height = 330
526 Index = 4
527 Left = 1530
528 TabIndex = 22
529 Text = "00:00:00"
530 Top = 1755
531 Width = 825
532 End
533 Begin VB.TextBox txtLen
534 BeginProperty Font
535 Name = "Arial"
536 Size = 9
537 Charset = 0
538 Weight = 400
539 Underline = 0 'False
540 Italic = 0 'False
541 Strikethrough = 0 'False
542 EndProperty
543 Height = 330
544 Index = 3
545 Left = 1530
546 TabIndex = 17
547 Text = "00:00:00"
548 Top = 1395
549 Width = 825
550 End
551 Begin VB.TextBox txtLen
552 BeginProperty Font
553 Name = "Arial"
554 Size = 9
555 Charset = 0
556 Weight = 400
557 Underline = 0 'False
558 Italic = 0 'False
559 Strikethrough = 0 'False
560 EndProperty
561 Height = 330
562 Index = 2
563 Left = 1530
564 TabIndex = 12
565 Text = "00:00:00"
566 Top = 1035
567 Width = 825
568 End
569 Begin VB.TextBox txtLen
570 BeginProperty Font
571 Name = "Arial"
572 Size = 9
573 Charset = 0
574 Weight = 400
575 Underline = 0 'False
576 Italic = 0 'False
577 Strikethrough = 0 'False
578 EndProperty
579 Height = 330
580 Index = 1
581 Left = 1530
582 TabIndex = 7
583 Text = "00:00:00"
584 Top = 675
585 Width = 825
586 End
587 Begin VB.TextBox txtLen
588 BeginProperty Font
589 Name = "Arial"
590 Size = 9
591 Charset = 0
592 Weight = 400
593 Underline = 0 'False
594 Italic = 0 'False
595 Strikethrough = 0 'False
596 EndProperty
597 Height = 330
598 Index = 0
599 Left = 1530
600 TabIndex = 2
601 Text = "00:00:00"
602 Top = 335
603 Width = 825
604 End
605 Begin VB.TextBox txtKey
606 Alignment = 2 'Center
607 Height = 315
608 Index = 9
609 Left = 1035
610 MaxLength = 1
611 TabIndex = 46
612 Top = 3555
613 Width = 330
614 End
615 Begin VB.TextBox txtKey
616 Alignment = 2 'Center
617 Height = 315
618 Index = 8
619 Left = 1035
620 MaxLength = 1
621 TabIndex = 41
622 Top = 3195
623 Width = 330
624 End
625 Begin VB.TextBox txtKey
626 Alignment = 2 'Center
627 Height = 315
628 Index = 7
629 Left = 1035
630 MaxLength = 1
631 TabIndex = 36
632 Top = 2835
633 Width = 330
634 End
635 Begin VB.TextBox txtKey
636 Alignment = 2 'Center
637 Height = 315
638 Index = 6
639 Left = 1035
640 MaxLength = 1
641 TabIndex = 31
642 Top = 2475
643 Width = 330
644 End
645 Begin VB.TextBox txtKey
646 Alignment = 2 'Center
647 Height = 315
648 Index = 5
649 Left = 1035
650 MaxLength = 1
651 TabIndex = 26
652 Top = 2115
653 Width = 330
654 End
655 Begin VB.TextBox txtKey
656 Alignment = 2 'Center
657 Height = 315
658 Index = 4
659 Left = 1035
660 MaxLength = 1
661 TabIndex = 21
662 Top = 1755
663 Width = 330
664 End
665 Begin VB.TextBox txtKey
666 Alignment = 2 'Center
667 Height = 315
668 Index = 3
669 Left = 1035
670 MaxLength = 1
671 TabIndex = 16
672 Top = 1395
673 Width = 330
674 End
675 Begin VB.TextBox txtKey
676 Alignment = 2 'Center
677 Height = 315
678 Index = 2
679 Left = 1035
680 MaxLength = 1
681 TabIndex = 11
682 Top = 1035
683 Width = 330
684 End
685 Begin VB.TextBox txtKey
686 Alignment = 2 'Center
687 Height = 315
688 Index = 1
689 Left = 1035
690 MaxLength = 1
691 TabIndex = 6
692 Top = 675
693 Width = 330
694 End
695 Begin VB.TextBox txtKey
696 Alignment = 2 'Center
697 Height = 285
698 Index = 0
699 Left = 1035
700 MaxLength = 1
701 TabIndex = 1
702 Top = 335
703 Width = 330
704 End
705 Begin VB.ComboBox comboType
706 Height = 315
707 Index = 9
708 ItemData = "frmKeylogger.frx":2AB8
709 Left = 90
710 List = "frmKeylogger.frx":2AC5
711 Style = 2 'Dropdown List
712 TabIndex = 45
713 Top = 3555
714 Width = 825
715 End
716 Begin VB.ComboBox comboType
717 Height = 315
718 Index = 8
719 ItemData = "frmKeylogger.frx":2ADB
720 Left = 90
721 List = "frmKeylogger.frx":2AE8
722 Style = 2 'Dropdown List
723 TabIndex = 40
724 Top = 3195
725 Width = 825
726 End
727 Begin VB.ComboBox comboType
728 Height = 315
729 Index = 7
730 ItemData = "frmKeylogger.frx":2AFE
731 Left = 90
732 List = "frmKeylogger.frx":2B0B
733 Style = 2 'Dropdown List
734 TabIndex = 35
735 Top = 2835
736 Width = 825
737 End
738 Begin VB.ComboBox comboType
739 Height = 315
740 Index = 6
741 ItemData = "frmKeylogger.frx":2B21
742 Left = 90
743 List = "frmKeylogger.frx":2B2E
744 Style = 2 'Dropdown List
745 TabIndex = 30
746 Top = 2475
747 Width = 825
748 End
749 Begin VB.ComboBox comboType
750 Height = 315
751 Index = 5
752 ItemData = "frmKeylogger.frx":2B44
753 Left = 90
754 List = "frmKeylogger.frx":2B51
755 Style = 2 'Dropdown List
756 TabIndex = 25
757 Top = 2115
758 Width = 825
759 End
760 Begin VB.ComboBox comboType
761 Height = 315
762 Index = 4
763 ItemData = "frmKeylogger.frx":2B67
764 Left = 90
765 List = "frmKeylogger.frx":2B74
766 Style = 2 'Dropdown List
767 TabIndex = 20
768 Top = 1755
769 Width = 825
770 End
771 Begin VB.ComboBox comboType
772 Height = 315
773 Index = 3
774 ItemData = "frmKeylogger.frx":2B8A
775 Left = 90
776 List = "frmKeylogger.frx":2B97
777 Style = 2 'Dropdown List
778 TabIndex = 15
779 Top = 1395
780 Width = 825
781 End
782 Begin VB.ComboBox comboType
783 Height = 315
784 Index = 2
785 ItemData = "frmKeylogger.frx":2BAD
786 Left = 90
787 List = "frmKeylogger.frx":2BBA
788 Style = 2 'Dropdown List
789 TabIndex = 10
790 Top = 1035
791 Width = 825
792 End
793 Begin VB.ComboBox comboType
794 Height = 315
795 Index = 1
796 ItemData = "frmKeylogger.frx":2BD0
797 Left = 90
798 List = "frmKeylogger.frx":2BDD
799 Style = 2 'Dropdown List
800 TabIndex = 5
801 Top = 675
802 Width = 825
803 End
804 Begin VB.ComboBox comboType
805 Height = 315
806 Index = 0
807 ItemData = "frmKeylogger.frx":2BF3
808 Left = 90
809 List = "frmKeylogger.frx":2C00
810 Style = 2 'Dropdown List
811 TabIndex = 0
812 Top = 335
813 Width = 825
814 End
815 Begin VB.Label lblHeader
816 Caption = "Description"
817 Height = 240
818 Index = 4
819 Left = 3105
820 TabIndex = 56
821 Top = 90
822 Width = 1545
823 End
824 Begin VB.Label lblHeader
825 Caption = "Sound"
826 BeginProperty Font
827 Name = "MS Sans Serif"
828 Size = 8.25
829 Charset = 0
830 Weight = 400
831 Underline = -1 'True
832 Italic = 0 'False
833 Strikethrough = 0 'False
834 EndProperty
835 ForeColor = &H00FF0000&
836 Height = 240
837 Index = 3
838 Left = 2475
839 MousePointer = 10 'Up Arrow
840 TabIndex = 53
841 Top = 90
842 Width = 555
843 End
844 Begin VB.Label lblHeader
845 Caption = "Duration"
846 Height = 240
847 Index = 2
848 Left = 1530
849 TabIndex = 52
850 Top = 90
851 Width = 780
852 End
853 Begin VB.Label lblHeader
854 Caption = "Key"
855 Height = 240
856 Index = 1
857 Left = 1035
858 TabIndex = 51
859 Top = 90
860 Width = 330
861 End
862 Begin VB.Label lblHeader
863 Caption = "Type"
864 Height = 240
865 Index = 0
866 Left = 90
867 TabIndex = 50
868 Top = 90
869 Width = 780
870 End
871 End
872 Attribute VB_Name = "frmKeylogger"
873 Attribute VB_GlobalNameSpace = False
874 Attribute VB_Creatable = False
875 Attribute VB_PredeclaredId = True
876 Attribute VB_Exposed = False
877 Private Sub cmdCancel_Click()
878 Unload Me
879 End Sub
880
881 Private Sub cmdOK_Click()
882 Dim i As Integer
883 For i = 0 To UBound(KeyLogs)
884 If txtKey(i).Text <> "" Then
885 KeyLogs(i, 0) = comboType(i) & "-" & txtKey(i).Text
886 KeyLogs(i, 1) = txtLen(i).Text
887 KeyLogs(i, 2) = comboSound(i).Text
888 KeyLogs(i, 3) = txtMessage(i).Text
889 SaveSetting App.Title, "Keylogs", "Type/Key-" & i, KeyLogs(i, 0)
890 SaveSetting App.Title, "Keylogs", "Duration-" & i, KeyLogs(i, 1)
891 SaveSetting App.Title, "Keylogs", "Sound-" & i, KeyLogs(i, 2)
892 SaveSetting App.Title, "Keylogs", "Message-" & i, KeyLogs(i, 3)
893 End If
894 Next
895 Unload Me
896 End Sub
897
898
899 Private Sub cmdPlay_Click(Index As Integer)
900 PlaySound BeepSounds(comboSound(Index).ListIndex), 0&, SND_FILENAME Or SND_ASYNC
901 End Sub
902
903 Private Sub comboType_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
904 Dim ShiftDown, AltDown, CtrlDown
905 ShiftDown = (Shift And vbShiftMask) > 0
906 AltDown = (Shift And vbAltMask) > 0
907 CtrlDown = (Shift And vbCtrlMask) > 0
908 If CtrlDown Then
909 comboType(Index).ListIndex = 0
910 KeyCode = 0
911 ElseIf AltDown Then
912 comboType(Index).ListIndex = 1
913 KeyCode = 0
914 ElseIf ShiftDown Then
915 comboType(Index).ListIndex = 2
916 KeyCode = 0
917 End If
918 End Sub
919
920
921 Private Sub Form_Load()
922 frmRead.Enabled = False
923 Me.Left = frmRead.Left + 100
924 Me.Top = frmRead.Top + 100
925 Dim i As Integer, MyPos As Integer
926 For i = 0 To UBound(KeyLogs)
927 comboSound(i).ListIndex = 0
928 comboType(i).ListIndex = 0
929 Next
930 For i = 0 To UBound(KeyLogs)
931 If KeyLogs(i, 0) <> "" Then
932 MyPos = InStr(1, KeyLogs(i, 0), "-")
b32c4ee fix counters, mobs with numbers and periods, alliance members, blu misse...
U-THOMAS\Jason Merrill authored
933 If Left$(KeyLogs(i, 0), MyPos - 1) = "CTRL" Or Left$(KeyLogs(i, 0), MyPos - 1) = "ALT" Or Left$(KeyLogs(i, 0), MyPos - 1) = "SHIFT" Then
934 comboType(i).Text = Left$(KeyLogs(i, 0), MyPos - 1)
7812daa importing 6.7.1
U-THOMAS\Jason Merrill authored
935 End If
b32c4ee fix counters, mobs with numbers and periods, alliance members, blu misse...
U-THOMAS\Jason Merrill authored
936 If Right$(KeyLogs(i, 0), 1) <> "-" Then
937 txtKey(i).Text = Right$(KeyLogs(i, 0), 1)
7812daa importing 6.7.1
U-THOMAS\Jason Merrill authored
938 End If
939 txtLen(i).Text = KeyLogs(i, 1)
940 If KeyLogs(i, 2) <> "" Then
941 comboSound(i).Text = KeyLogs(i, 2)
942 End If
943 txtMessage(i).Text = KeyLogs(i, 3)
944 End If
945 Next
946 End Sub
947
948
949 Private Sub Form_Unload(Cancel As Integer)
950 frmRead.Enabled = True
951 End Sub
952
953
954 Private Sub lblHeader_Click(Index As Integer)
955 frmBeep.Show
956 End Sub
957
958 Private Sub txtKey_Validate(Index As Integer, Cancel As Boolean)
959 txtKey(Index).Text = UCase(txtKey(Index).Text)
960 End Sub
961
962
963 Private Sub txtLen_GotFocus(Index As Integer)
964 txtLen(Index).SelStart = 0
965 txtLen(Index).SelLength = Len(txtLen(Index).Text)
966 End Sub
967
968 Private Sub txtLen_KeyPress(Index As Integer, KeyAscii As Integer)
969 If IsNumeric(CStr(Chr(KeyAscii))) = False And KeyAscii <> vbKeyBack Then
970 KeyAscii = 0
971 Exit Sub
972 End If
973 If KeyAscii <> vbKeyBack Then
974 If Len(txtLen(Index)) = 2 Then
975 txtLen(Index).Text = txtLen(Index).Text & ":"
976 txtLen(Index).SelStart = Len(txtLen(Index).Text)
977 ElseIf Len(txtLen(Index)) = 5 Then
978 txtLen(Index).Text = txtLen(Index).Text & ":"
979 txtLen(Index).SelStart = Len(txtLen(Index).Text)
980 End If
981 End If
982 End Sub
983
984
985 Private Sub txtLen_Validate(Index As Integer, Cancel As Boolean)
986 On Error Resume Next
987 If IsDate(Date & " " & txtLen(Index)) = False Then
988 MsgBox "Invalid format, please use: " & vbNewLine & vbNewLine & "##:##:##", vbInformation, "Error"
989 End If
990 End Sub
991
992
Something went wrong with that request. Please try again.