| : ? | : 11.01.06 15:36 |
:  Elkatib
|
| , textBox ... , VB , ?+\ b .. |
| : 8 |
|
: 1 :  [root] : 45 : 1212 |
Web-: | | #1 | : 11.01.06 15:58 |
|
:
48,57( ASCII ) .. . 1 textbox : Case 48 To 57 textbox : 048 - 0 049 - 1 050 - 2 051 - 3 052 - 4 053 - 5 054 - 6 055 - 7 056 - 8 057 - 9 Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 Case Else KeyAscii = 0 End Select End Sub ASCII Windows: Dec Hex 000 00 . NOP 001 01 . SOH 002 02 . STX 003 03 . ETX 004 04 . EOT 005 05 . ENQ 006 06 . ACK 007 07 . BEL 008 08 . BS 009 09 . 010 0A . LF (. ) 011 0B . VT 012 0C . FF 013 0D . CR ( ) 014 0E . SO 015 0F . SI 016 10 . DLE 017 11 . DC1 018 12 . DC2 019 13 . DC3 020 14 . DC4 021 15 . NAK 022 16 . SYN 023 17 . ETB 024 18 . CAN 025 19 . EM 026 1A . SUB 027 1B . ESC 028 1C . FS 029 1D . GS 030 1E . RS 031 1F . US 032 20 . SP () 033 21 ! 034 22 " 035 23 # 036 24 $ 037 25 % 038 26 & 039 27 ' 040 28 ( 041 29 ) 042 2A * 043 2B + 044 2C , 045 2D - 046 2E . 047 2F / 048 30 0 049 31 1 050 32 2 051 33 3 052 34 4 053 35 5 054 36 6 055 37 7 056 38 8 057 39 9 058 3A : 059 3B ; 060 3C < 061 3D = 062 3E > 063 3F ? 064 40 @ 065 41 A 066 42 B 067 43 C 068 44 D 069 45 E 070 46 F 071 47 G 072 48 H 073 49 I 074 4A J 075 4B K 076 4C L 077 4D M 078 4E N 079 4F O 080 50 P 081 51 Q 082 52 R 083 53 S 084 54 T 085 55 U 086 56 V 087 57 W 088 58 X 089 59 Y 090 5A Z 091 5B [ 092 5C \ 093 5D ] 094 5E ^ 095 5F _ 096 60 ` 097 61 a 098 62 b 099 63 c 100 64 d 101 65 e 102 66 f 103 67 g 104 68 h 105 69 i 106 6A j 107 6B k 108 6C l 109 6D m 110 6E n 111 6F o 112 70 p 113 71 q 114 72 r 115 73 s 116 74 t 117 75 u 118 76 v 119 77 w 120 78 x 121 79 y 122 7A z 123 7B { 124 7C | 125 7D } 126 7E ~ 127 7F  ec Hex
128 80 129 81 130 82 131 83 132 84 133 85 134 86 135 87 136 88 137 89 138 8A 139 8B 140 8C 141 8D 142 8E 143 8F 144 90 145 91 146 92 147 93 148 94 149 95 150 96 151 97 152 98 153 99 154 9A 155 9B 156 9C 157 9D 158 9E 159 9F 160 A0 161 A1 162 A2 163 A3 164 A4 165 A5 166 A6 167 A7 168 A8 169 A9 170 AA 171 AB 172 AC 173 AD 174 AE 175 AF 176 B0 177 B1 178 B2 179 B3 180 B4 181 B5 182 B6 183 B7 184 B8 185 B9 186 BA 187 BB 188 BC 189 BD 190 BE 191 BF 192 C0 193 C1 194 C2 195 C3 196 C4 197 C5 198 C6 199 C7 200 C8 201 C9 202 CA 203 CB 204 CC 205 CD 206 CE 207 CF 208 D0 209 D1 210 D2 211 D3 212 D4 213 D5 214 D6 215 D7 216 D8 217 D9 218 DA 219 DB 220 DC 221 DD 222 DE 223 DF 224 E0 225 E1 226 E2 227 E3 228 E4 229 E5 230 E6 231 E7 232 E8 233 E9 234 EA 235 EB 236 EC 237 ED 238 EE 239 EF 240 F0 241 F1 242 F2 243 F3 244 F4 245 F5 246 F6 247 F7 248 F8 249 F9 250 FA 251 FB 252 FC 253 FD 254 FE 255 FF |
||
|
: 2 : HACKEROffline Client : 236 : 8362 |
| | #2 | : 11.01.06 17:14 |
|
- ...
Private Sub Text1_Change()
Const s As String = "$!@#$%^&*>?[]" For i% = 1 To Len(s) Text1 = Replace(Text1, Mid(s, i%, 1), "" 
Next i% End Sub |
||
|
: 3 : [root]: 45 : 1212 |
Web-: | | #3 | : 11.01.06 18:51 |
|
:
Private Sub Text1_Change() Const s As String = "$!@#$%&*>?[]" For i% = 1 To Len(s) Text1 = Replace(Text1, Mid(s, i%, 1), ""
Next i% End Sub ? |
||
|
: 4 : Shark ICQ: 284036855 : 35 : 155 |
Web-: | | #4 | : 11.01.06 23:56 |
| , . . | ||
|
: 5 : [root]: 45 : 1212 |
Web-: | | #5 | : 12.01.06 00:15 |
|
!
... |
||
|
: 6 : [root]: 45 : 1212 |
Web-: | | #6 | : 12.01.06 00:22 |
|
i .
, : Const s As String = "+|\$!@#$%&*>?¿[]" . |
||
|
: 7 : HACKEROffline Client : 236 : 8362 |
| | #7 | : 13.01.06 16:47 |
|
i .
Option Explicit |
||
|
: 8 : [root]: 45 : 1212 |
Web-: | | #8 | : 13.01.06 17:16 |
|
|
||
: 1 |