VB_Coder كتب :السلام عليكم
- طيب برنامج Image Shack Uploader الذي ذكرته كمثال خاص بموقع معين وهو موقع مصممي البرامج نفسه . لكن يجب أن تختار موقع معين لكي تعمل له برنامج للرفع ولكن بطريقة تختلف كليا عن طريقة عمل البرنامج الذي ذكرته أنت , حيث سيتم إستخدام مكتبة الـ MSHTML في عمل البرنامج .
- تحياتي .
اخي الكريم هل من الممكن شرح !!
البروجكت ده مش قادر اطلعة من دماغي
التعديل هيكون في 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
========================================'
السلام عليكم
- اعتقد ان هذا لن ينفع مع كل مواقع مراكز الرفع ، لذلك عطني رابط موقع الرفع الذي تريد عمل البرنامج له لنرى ماهي الطريقة المناسبه له .
- تحياتي .
VB_Coder كتب :السلام عليكم
- اعتقد ان هذا لن ينفع مع كل مواقع مراكز الرفع ، لذلك عطني رابط موقع الرفع الذي تريد عمل البرنامج له لنرى ماهي الطريقة المناسبه له .
- تحياتي .
أشكرك للتوضيح (y)
هذا مركز رفع صور لصديقي ...
مركز رفع صور
اشكرك جداً
طلبك في المرفقات
أرجواا الدعاء لي
لو عاوز الكود ده علي 2005
انا كتبتة كدا بس مشتغلش !!
WebBrowser1.Document.All("submitr").Click()
السلام عليكم
- هذا المثال الذي وضعته أنت في موضوعك . بعد التعديل عليه ليصبح برنامج جاهز .
- تحياتي .
جزاااااااك الله كل خيييير يا اخي
والله لو كنت اعرف اني هلاقي مثلك كان ما طلبت من الغرب
الله يكرمك آخي
السلام عليكم
- شكرا لك أخي العزيز , يعطيك العافيه .
-تحياتي لك .