تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في تصميم برنامج رفع صور
#11
VB_Coder كتب :السلام عليكم

- طيب برنامج Image Shack Uploader الذي ذكرته كمثال خاص بموقع معين وهو موقع مصممي البرامج نفسه . لكن يجب أن تختار موقع معين لكي تعمل له برنامج للرفع ولكن بطريقة تختلف كليا عن طريقة عمل البرنامج الذي ذكرته أنت , حيث سيتم إستخدام مكتبة الـ MSHTML في عمل البرنامج .

- تحياتي .

اخي الكريم هل من الممكن شرح !!

البروجكت ده مش قادر اطلعة من دماغي Sad
الرد }}}
تم الشكر بواسطة:
#12
التعديل هيكون في Module ده
ووانا حاولت كتير فية بس فشلت
غيرت name=""userfile"" باسم الزر في المركز وفشل
وطبعاً مع تغيير رابط المركز
بس بردو مقدرتش علية
وطلبت في موقع دريم إن كود حاسس انهم بيزلوني عشان الكود اسغفر الله العظيم

========================================'
Public Function UploadImage(Winsock As Winsock, ByVal ImageName As String) As Boolean
Dim ImagePath$, Header$, Footer$, ConnectHead$
Dim ImageBinary() As Byte
ImagePath = MainForm.Text1
Open ImagePath For Binary Access Read As #1
ReDim ImageBinary(LOF(1))
Get #1, , ImageBinary
Close #1
Header = "-----------------------------junche421e05d2" & vbCrLf & _
"Content-Disposition: form-data;
name=""userfile""; filename=""" & ImageName & ".jpg""" & vbCrLf & _
"Content-Type: ""image/png""" & vbCrLf & vbCrLf
Footer = vbCrLf & "-----------------------------junche421e05d2--" & vbCrLf
Winsock.Close
Winsock.Connect
"upload.krkrkrkr.kr", 80
Do
DoEvents: Sleep 1
Loop While Winsock.State <> sckConnected
ConnectHead = "POST /ajaxUpload_ok.php HTTP/1.0" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf & _
"Content-Type: multipart/form-data, boundary=---------------------------junche421e05d2" & vbCrLf & _
"Host:
upload.krkrkrkr.kr" & vbCrLf & _
"Cache-Control: no-cache" & vbCrLf & _
"Content-Length: " & CLng(Len(Header) + Len(Footer) + FileLen(ImagePath)) & vbCrLf & _
vbCrLf & Header
Winsock.SendData ConnectHead: Winsock.SendData ImageBinary: Winsock.SendData Footer
Do
DoEvents: Sleep 1
Loop While Winsock.State = sckConnected
If InStr(PacketBuffer, "error") Then: Exit Function
PacketBuffer = Replace$(PacketBuffer, """", ""): PacketBuffer = Replace$(PacketBuffer, "\", ""): PacketBuffer = Replace$(PacketBuffer, "}", "")
PacketBuffer = Mid$(PacketBuffer, InStr(PacketBuffer, "filename:") + Len("filename:"))
UploadImage = True
End Function
========================================'
الرد }}}
تم الشكر بواسطة:
#13
السلام عليكم

- اعتقد ان هذا لن ينفع مع كل مواقع مراكز الرفع ، لذلك عطني رابط موقع الرفع الذي تريد عمل البرنامج له لنرى ماهي الطريقة المناسبه له .
- تحياتي .
الرد }}}
تم الشكر بواسطة:
#14
VB_Coder كتب :السلام عليكم

- اعتقد ان هذا لن ينفع مع كل مواقع مراكز الرفع ، لذلك عطني رابط موقع الرفع الذي تريد عمل البرنامج له لنرى ماهي الطريقة المناسبه له .
- تحياتي .

أشكرك للتوضيح (y)

هذا مركز رفع صور لصديقي ...

مركز رفع صور

اشكرك جداً
الرد }}}
تم الشكر بواسطة:
#15
طلبك في المرفقات

أرجواا الدعاء لي


الملفات المرفقة
.rar   رفع.rar (الحجم : 1.88 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة:
#16
عاشق الفيجوال كتب :طلبك في المرفقات

أرجواا الدعاء لي

ما شاء الله عليك يا اخي فكرة جميلة جدا ما شاء الله

بس ما بيجلب الرابط إلا من الصفحة نفسها !!

وربنا يبارك فيك يا اخي
الرد }}}
تم الشكر بواسطة:
#17
لو عاوز الكود ده علي 2005
انا كتبتة كدا بس مشتغلش !!

WebBrowser1.Document.All("submitr").Click()
الرد }}}
تم الشكر بواسطة:
#18
السلام عليكم

- هذا المثال الذي وضعته أنت في موضوعك . بعد التعديل عليه ليصبح برنامج جاهز .
- تحياتي .


الملفات المرفقة
.rar   Image_Uploader.rar (الحجم : 4.22 ك ب / التحميلات : 34)
الرد }}}
تم الشكر بواسطة:
#19
جزاااااااك الله كل خيييير يا اخي

والله لو كنت اعرف اني هلاقي مثلك كان ما طلبت من الغرب

الله يكرمك آخي
الرد }}}
تم الشكر بواسطة:
#20
السلام عليكم

- شكرا لك أخي العزيز , يعطيك العافيه .
-تحياتي لك .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تغيير حجم الفورم حسب دقة عرض الشاشة amazonette 3 588 30-03-23, 02:47 PM
آخر رد: amazonette
  [سؤال] مساعدة فى برنامج الاجازات aboezzat84 1 683 26-03-23, 03:56 PM
آخر رد: sanyor77
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 16 12,130 31-10-22, 11:50 PM
آخر رد: Ibrahimxp
  برنامج تعبئة الرصيد للثلاث متعاملين في الجزائر AHMED213 3 2,980 04-10-22, 10:11 PM
آخر رد: Taha Okla
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 866 07-09-22, 10:05 PM
آخر رد: Taha Okla
  [سؤال] اريد مساعدة donia hamdan 2 971 03-09-22, 10:23 AM
آخر رد: سعود
  برنامج مترجم قوقل مفتوح المصدر samee119485r 23 11,219 20-12-21, 12:44 AM
آخر رد: marmarmar
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  برنامج جديد benali17 2 1,662 27-01-21, 11:27 PM
آخر رد: benali17

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم