به نقل از techmix :
:blink: ايولا ! بابا تو ديگه كي هستي !
آقا سورس رو اتچ كردم ، فقط اگه ميشه ، يه تريپ بررسيش هم بكنيد كه ببينيم مشكلاتش چيه و يه راه حلي براش بيانديشيم ...
خيلي عاليه ، همين طوري پيش بريم ، يه چيز توپ از توش در مياد ...
راستي ، نظرت چيه از اين بعد Ncode كامپايل كنم ؟ چون مثل اينكه گفتي پي كد باعث سختي كرك ميشه ! ولي هدف ما كه عذاب دادن شما كركرا نيست ، ما مي خواييم يه قفل قدرت مند بنويسيم ... لطفا نظرت رو بگو
همين ديگه ، قفط ممكن ، يه خورده دير به دير سر بزنم ، چون امتحاناي نيم ترمم شروع شده :wacko:
اولا وقتي دانلودش نكردي چه طوري نظر دادي
بعد چشم حتما وقت كنم فعلا يه پروژه كاري وقتمو گرفته
اره اگه ncode باشه بهتره
پي كد بودن باعث سختي كرك نميشه طولا نيش ميكنه يعني وقت بره چون مستقيما به چيزي توي پي كد اشاره نميشه
بزار يه مثال بزنم:
توي انكد تابع X فرا خوانده ميشه و يه متغير هم بايد به تابع پاس بشه به نام Y كدش ميشه :
lea eax,[var_Y]
push eax
lea eax,[address of Function X]
call eax
اما توي پي كد خط دستور ميشه :
FLdRfVar ::lea var_10C
ImpAdCallFPR4 ::call ext_40100C(arg_1
همونطور كه ميبيني راحتر شده اما :
توي حالت ان كد توي قسمتي كه متغيير رو پوش ميكرد اگه اون ادرس رو چك كني متغيرت رو ميبيني يا حداقل ادرس اي كه به اون اشاره ميكنه رو ميبيني ( يعني شما يه اشاره گر رو داريد به تابع ميفرستيد)
اما توي پي كد وي بي
درست متغيير يه راست توي حافظه ميره اما به اين صورت نيست كه اگه خواستي متغيير رو ببيني اون حافظه رو چك كني نه
1- بايد ببني توي اين حافظه چه عددي هست
2- به همون مقدار ( به واحد بايت)از مكاني كه هستي بري جلو
3-ادرسي كه توي اون حافظه هست رو بخوني
4- حالا اگه اين حافظه رو چك كني متغيير رو ميبيني
يه ذره پيچ تو پيچه نه ؟؟؟ خوب حالا فكركنم ميفهمي چرا پي كد كندتره اين پيچ تو پيچ كردنشباعث ايجاد پروسه الكي ميشه كه سرعت رو كند ميكنه خيلي هم كند ميكنه مثلا براي تست اگه برنامه زير رو هم به حالت ان كد كد كني و هم پي كد ميبيني خيلي تفاوت ايجاد ميشه
Private Sub Form_Load()
Dim Timer_val As Double, Cnt As Double, y%, x%, z As Long, Str_val$
Str_val = "this is test string for checking"
Timer_val = Timer
For i = 1 To 10 ^ 5
DoEvents
x = i / 10 ^ 4
y = x + 10.5
z = x * y
x = z + 2.2
y = z - 2.1
z = x * z + 10
For x = 1 To Len(Str_val)
y = (Asc(Mid(Str_val, x, 1)) + 5) Mod 255
If y = 0 Then y = 255
Str_val = Left(Str_val, x - 1) + Chr
+ Right(Str_val, Len(Str_val) - x)
Next
Next
Timer_val = Timer - Timer_val
MsgBox Timer_val
End Sub
نتيجش رو دستگاه من اين شده اتچش كردم:wacko:
