+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة في تصميم برنامج رفع صور (/showthread.php?tid=8941)
الصفحات:
1
2
مساعدة في تصميم برنامج رفع صور - Hassan Khamees - 25-05-13
VB_Coder كتب :السلام عليكم
- طيب برنامج Image Shack Uploader الذي ذكرته كمثال خاص بموقع معين وهو موقع مصممي البرامج نفسه . لكن يجب أن تختار موقع معين لكي تعمل له برنامج للرفع ولكن بطريقة تختلف كليا عن طريقة عمل البرنامج الذي ذكرته أنت , حيث سيتم إستخدام مكتبة الـ MSHTML في عمل البرنامج .
- تحياتي .
اخي الكريم هل من الممكن شرح !!
البروجكت ده مش قادر اطلعة من دماغي
مساعدة في تصميم برنامج رفع صور - Hassan Khamees - 25-05-13
التعديل هيكون في 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
========================================'
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
========================================'
مساعدة في تصميم برنامج رفع صور - VB_Coder - 25-05-13
السلام عليكم
- اعتقد ان هذا لن ينفع مع كل مواقع مراكز الرفع ، لذلك عطني رابط موقع الرفع الذي تريد عمل البرنامج له لنرى ماهي الطريقة المناسبه له .
- تحياتي .
مساعدة في تصميم برنامج رفع صور - Hassan Khamees - 25-05-13
VB_Coder كتب :السلام عليكم
- اعتقد ان هذا لن ينفع مع كل مواقع مراكز الرفع ، لذلك عطني رابط موقع الرفع الذي تريد عمل البرنامج له لنرى ماهي الطريقة المناسبه له .
- تحياتي .
أشكرك للتوضيح (y)
هذا مركز رفع صور لصديقي ...
مركز رفع صور
اشكرك جداً
مساعدة في تصميم برنامج رفع صور - عاشق الفيجوال - 25-05-13
طلبك في المرفقات
أرجواا الدعاء لي
مساعدة في تصميم برنامج رفع صور - Hassan Khamees - 25-05-13
عاشق الفيجوال كتب :طلبك في المرفقات
أرجواا الدعاء لي
ما شاء الله عليك يا اخي فكرة جميلة جدا ما شاء الله
بس ما بيجلب الرابط إلا من الصفحة نفسها !!
وربنا يبارك فيك يا اخي
مساعدة في تصميم برنامج رفع صور - Hassan Khamees - 25-05-13
لو عاوز الكود ده علي 2005
انا كتبتة كدا بس مشتغلش !!
WebBrowser1.Document.All("submitr").Click()
مساعدة في تصميم برنامج رفع صور - VB_Coder - 26-05-13
السلام عليكم
- هذا المثال الذي وضعته أنت في موضوعك . بعد التعديل عليه ليصبح برنامج جاهز .
- تحياتي .
مساعدة في تصميم برنامج رفع صور - Hassan Khamees - 26-05-13
جزاااااااك الله كل خيييير يا اخي
والله لو كنت اعرف اني هلاقي مثلك كان ما طلبت من الغرب
الله يكرمك آخي
مساعدة في تصميم برنامج رفع صور - VB_Coder - 26-05-13
السلام عليكم
- شكرا لك أخي العزيز , يعطيك العافيه .
-تحياتي لك .