ATM-TURBO 2 Он может делать все что угодно,. он может обрабатывать в этот момент событие от другого потока или нескольких потоков.Он НЕ ДОЛЖЕН делать все, что угодно. Он должен НЕМЕДЛЕННО отвечать на действия пользователя, а потоки подождут, они нервничать не умеют.
А обработка событий другого потока должна занимать считанные миллисекунды. Если время обработки сравнимо со временем работы потока, а не меньше на несколько порядков, то это говно, а не архитектура, и потоки тут не нужны.
ATM-TURBO 2Ну залогинится под админом это и есть проблема.А мужики-то не знают и пишут инсталляторы под админов.
ATM-TURBO 2 К тому же, как ты написал что для регистрации в ROT нужны права.К тому же я написал, что есть и другие способы, админских прав не требующие.
ATM-TURBO 2Это будет катастрофически медленноБудет. Значит не надо так делать в случаях, критических с точки зрения производительности.
ATM-TURBO 2В любом случае это медленней непосредственного обращения.Ой вей, вот это новости.
Это и есть непосредственное обращение. А с помощью CopyMemory еще более непосредственое. Непосредственней только rtlMoveMemory.
x = ObjPtr(obj) - > Set obj = ObjFromPtr(x) и у тебя ссылка на тот же самый объект, что в основном потоке, хотя для объектов этот финт ушами не нужен. Примерно такая же фигня с массивом: VarPtr(arr(0)) - указатель на начало массива, обратную операцию не помню, но суть та же.
А в случае с VB насчет "непосредственного" нужно говорить с очень большой осторожностью - чуть более чем половина операций идет через функции рантайма. С переменными типа Variant - вообще все. А вот эта невнятная телега:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
Option Explicit
Private Declare Function ArrPtr& Lib "msvbvm60.dll" Alias "VarPtr" (ptr() As Any)
Private Declare Sub RtlMoveMemory Lib "kernel32" (dst As Any, src As Any, ByVal nBytes&)
Private Header1(5) As Long
Private Header2(5) As Long
Private SafeArray1() As Long
Private SafeArray2() As Long
Private Sub Class_Initialize()
' Set up our template for looking at strings
Header1(0) = 1 ' Number of dimensions
Header1(1) = 4 ' Bytes per element (long = 4)
Header1(4) = &H7FFFFFFF ' Array size
' Force SafeArray1 to use Header1 as its own header
RtlMoveMemory ByVal ArrPtr(SafeArray1), VarPtr(Header1(0)), 4
' Set up our template for look at search text
Header2(0) = 1 ' Number of dimensions
Header2(1) = 4 ' Bytes per element (long = 4)
Header2(4) = &H7FFFFFFF ' Array size
' Force SafeArray1 to use Header1 as its own header
RtlMoveMemory ByVal ArrPtr(SafeArray2), VarPtr(Header2(0)), 4
End Sub
Private Sub Class_Terminate()
' Make SafeArray1 once again use its own header
' If this code doesn't run the IDE will crash
RtlMoveMemory ByVal ArrPtr(SafeArray1), 0&, 4
RtlMoveMemory ByVal ArrPtr(SafeArray2), 0&, 4
End Sub
Friend Function IsSameText03(String1 As String, String2 As String, Compare As VbCompareMethod) As Boolean
' By Chris Lucas, cdl1051@earthlink.net, 20011204
Dim i&, SLen&, tmp1&, tmp2&, tmp3&, tmp4&, alt&
SLen = LenB(String1)
If SLen <> LenB(String2) Then Exit Function
Header1(3) = StrPtr(String1): Header2(3) = StrPtr(String2)
If Compare = vbTextCompare Then
For i = 0 To SLen \ 4 - 1
tmp1 = SafeArray1(i)
tmp2 = (tmp1 And &HFFFF&)
tmp3 = SafeArray2(i)
tmp4 = (tmp3 And &HFFFF&)
Select Case tmp2
Case 97& To 122&: alt = tmp2 - 32
Case 65& To 90&: alt = tmp2 + 32
Case 49&: alt = 185
Case 50&: alt = 178
Case 51&: alt = 179
Case 138&: alt = 154
Case 140&: alt = 156
Case 142&: alt = 158
Case 154&: alt = 138
Case 156&: alt = 140
Case 158&: alt = 142
Case 159&: alt = 255
Case 178&: alt = 50
Case 179&: alt = 51
Case 185&: alt = 49
Case 192& To 214&: alt = tmp2 + 32
Case 216& To 222&: alt = tmp2 + 32
Case 224& To 246&: alt = tmp2 - 32
Case 248& To 254&: alt = tmp2 - 32
Case 255&: alt = 376
Case 338&: alt = 339
Case 339&: alt = 338
Case 352&: alt = 353
Case 353&: alt = 352
Case 376&: alt = 255
Case 381&: alt = 382
Case 382&: alt = 381
End Select
If alt <> tmp4 Then
If tmp2 <> tmp4 Then Exit Function
End If
tmp2 = (tmp1 And &HFFFF0000)
tmp4 = (tmp3 And &HFFFF0000)
Select Case tmp2
Case &H610000 To &H7A0000: alt = tmp2 - &H200000
Case &H410000 To &H5A0000: alt = tmp2 + &H200000
Case &H310000: alt = &HB90000
Case &H320000: alt = &HB20000
Case &H330000: alt = &HB30000
Case &H8A0000: alt = &H9A0000
Case &H8C0000: alt = &H9C0000
Case &H8E0000: alt = &H9E0000
Case &H9B0000: alt = &H8A0000
Case &H9C0000: alt = &H8C0000
Case &H9E0000: alt = &H8E0000
Case &H9F0000: alt = &HFF0000
Case &HB20000: alt = &H320000
Case &HB30000: alt = &H970000
Case &HB90000: alt = &H310000
Case &HC00000 To &HD60000: alt = tmp2 + &H200000
Case &HD80000 To &HDE0000: alt = tmp2 + &H200000
Case &HE00000 To &HF60000: alt = tmp2 - &H200000
Case &HF80000 To &HFE0000: alt = tmp2 - &H200000
Case &HFF0000: alt = &H1780000
Case &H1520000: alt = &H1530000
Case &H1530000: alt = &H1520000
Case &H1600000: alt = &H1610000
Case &H1610000: alt = &H1600000
Case &H1780000: alt = &HFF0000
Case &H17D0000: alt = &H17E0000
Case &H17E0000: alt = &H17D0000
End Select
If alt <> tmp4 Then
If tmp2 <> tmp4 Then Exit Function
End If
Next i
If (LenB(String1) \ 2 And 1) Then
tmp2 = (SafeArray1(i) And &HFFFF&)
tmp4 = (SafeArray2(i) And &HFFFF&)
Select Case tmp2
Case 97& To 122&: alt = tmp2 - 32
Case 65& To 90&: alt = tmp2 + 32
Case 49&: alt = 185
Case 50&: alt = 178
Case 51&: alt = 179
Case 138&: alt = 154
Case 140&: alt = 156
Case 142&: alt = 158
Case 154&: alt = 138
Case 156&: alt = 140
Case 158&: alt = 142
Case 159&: alt = 255
Case 178&: alt = 50
Case 179&: alt = 51
Case 185&: alt = 49
Case 192& To 214&: alt = tmp2 + 32
Case 216& To 222&: alt = tmp2 + 32
Case 224& To 246&: alt = tmp2 - 32
Case 248& To 254&: alt = tmp2 - 32
Case 255&: alt = 376
Case 338&: alt = 339
Case 339&: alt = 338
Case 352&: alt = 353
Case 353&: alt = 352
Case 376&: alt = 255
Case 381&: alt = 382
Case 382&: alt = 381
End Select
If tmp2 <> tmp4 Then
If alt <> tmp4 Then Exit Function
End If
End If
IsSameText03 = True
Else
For i = 0 To SLen \ 4 - 1
If SafeArray1(i) <> SafeArray2(i) Then Exit Function
Next i
If (LenB(String1) \ 2 And 1) Then
If (SafeArray1(i) And &HFFFF&) <> (SafeArray2(i) And &HFFFF&) Then Exit Function
End If
IsSameText03 = True
End If
End Function
Friend Function IsSameString02(String1 As String, String2 As String) As Boolean
' By Chris Lucas, cdl1051@earthlink.net, 20020607
Dim i&, Len1&, Len2&, tmp&
' Grab the string lengths
Len1 = LenB(String1) \ 2: Len2 = LenB(String2) \ 2
' Make an informed decision as to whether we should continue
If Len1 <> Len2 Then GoTo BailOut
' Compare the strings
Header1(3) = StrPtr(String1): Header2(3) = StrPtr(String2)
tmp = Len1 \ 2
' The first two characters come cheap
If SafeArray1(i) <> SafeArray2(i) Then GoTo BailOut Else i = i + 1
DoLoop:
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If SafeArray1(i) <> SafeArray2(i) Then GoTo NotEqual Else i = i + 1
If i <= tmp Then GoTo DoLoop
NotEqual:
' some characters don't match, but we need to check to
' see if it happened after the end of the string, a
' nasty side-effect of cascading ifs
If i > tmp Then IsSameString02 = True
BailOut:
' Lengths don't match, let's do absolutely nothing
End Function
быстрее StrComp от десятков до тысяч(!) раз в зависимости от параметров:
http://xbeat.net/vbspeed/c_IsSameText.htm
