ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 5 از 5
  1. #1
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197

    Red face سورس لاگین شدن به یاهو باwinsock

    اینم اموزشی که درست کردم گفتم بزارم همه داشته باشن بدرد میخوره فقط کپی رایتو رعایت کنین

    اموزش دهنده : vahid4251

    یاهو چندین پروتکل داره که فکر کنم ساده تر از همش 102 باشه که از سرعت بالایی هم برخورداره

    شما به 2 تا وینسوک نیاز دارید البته با یک وینسوک هم میشه اما چون اولشه با 2تا راحت هستی
    با وینسوک 1 به یاهو کانکت میشی

    کد:
    Winsock1.Connect "login.yahoo.com", "80"
    وقتی که کانکت شدی باید هدر و بقرستی که ایدی و پسورد هم شاملش میشه

    کد زیر رو وقتی که کانکت شدی با وینسوک ارسال کد

    کد:
    Dim LoginYahoo As String
     LoginYahoo = "GET http://login.yahoo.com/config/login?login="  &<b> ID</b> & "&passwd=" & <b>password  </b>& " HTTP/1.1" & vbCrLf
     LoginYahoo = LoginYahoo & "Accept-Language: en-us" & vbCrLf
     LoginYahoo = LoginYahoo & "User-Agent: Mozilla/5.0 (compatible;  MSIE 8.0; Windows NT 5.1; Expulsion-Creations)" & vbCrLf
     LoginYahoo = LoginYahoo & "Accept: */*" & vbCrLf
     LoginYahoo = LoginYahoo & "Host: <b>login.yahoo.com</b>" & vbCrLf
     LoginYahoo = LoginYahoo & "Connection: Keep-Alive" & vbCrLf & vbCrLf
     Winsock1.SendData LoginYahoo
    وقتی هدر رو ارسال کردی کوکی ها رو دریافت کنی

    کد:
    On Error Resume Next
        Dim Data As String
        Winsock1.GetData Data
        If InStr(Data, "Yahoo! - 400 Bad Request") Then
            Winsock1.Close
            Debug.Print "Yahoo! - 400 Bad Request"
        Exit Sub
        Else:
        If InStr(Data, "302 Found") Then
            <b>StrYcook</b> = Split(Data, "Y=")(1)
            <b>StrYcook</b> = Split(<b>StrYcook</b>, "np=1")(0)
            <b>StrYcook</b> = "Y=" & <b>StrYcook</b> & "np=1;"
            <b>StrTcook</b> = Split(Data, "T=")(1)
            <b>StrTcook</b> = Split(<b>StrTcook</b>, ";")(0)
            <b>StrTcook </b>= "T=" & <b>StrTcook</b>
            Debug.Print "connect to port 80"
            Winsock1.Close
            Winsock2.Close
            Winsock2.Connect "mcs.msg.yahoo.com", 5050
        Else:
     msgbox "Error!!"
        Exit Sub
        End If
        End If
    خوب اگه آیدی درست باشه کوکی دریافت میشه و با وینسوک 2 به سرور یاهو وصل میشید برای ارسال پکت ها

    واسه ارسال پکت نیاز به یه هدر درست و حسابی داریم! هدرهای زیادی وجود دارن که بعضی از اونا کامل نیستن و تو دریافت پکت مشکل دارن اینی که قرار میدم تقریبا کامله من خودم حتی فایل هم از طریق یاهو باش دریافت کردم

    کد:
    'header
    Public Function Header(YMSGPacketData As String, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String
    Dim YMSGVendor As Long
    Dim YMSGVersion As Integer
    YMSGVendor = 0
    YMSGVersion = 17
    Header = "YMSG" & Chr(Int(YMSGVersion / 256)) &  Chr(Int(YMSGVersion Mod 256)) & Chr(Int(YMSGVendor / 256)) &  Chr(Int(YMSGVendor Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256))  & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand /  256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4)  & Mid(YMSGKey, 1, 4) & YMSGPacketData
    End Function

    و حالا یه پکت برای ارسال کوکی و لاگین شدن

    کد:
    ' Send Login
    Public Function Login(YahooID As String, YCookie As String, TCookie As String)
        On Error Resume Next
        Dim InVType As String
            InVType = Chr(0)
        Login = Header("0" & YahooID & "2" & YahooID &  "1" & YahooID & "244" & "0" & "6" &  YCookie & " " & TCookie & "98us", String(3, Chr(0))  & InVType, String(3, Chr(0)) & InVType, 550)
    End Function
    خوب الان ما همه چیرو آماده داریم واسه لاگین شده میتونیم تا Winsock2 کانکت شد باش پکت لاگین رو ارسال کنیم

    کد:
    Winsock2.SendData Login(<b>ID</b>, <b>StrYcook</b>, <b>StrTcook</b>)
    الان اگه اطلاعات درست باشن آیدی لاگین میشه

    تو قسمت Winsock2_DataArrival پکت ها دریافت میشن
    هر پکت یه شماره مخصوص داره میتونید از شماره پکت ها مشخص کنید پکت دریافتی چه پکتی هست

    کد:
    Dim Data as string
    Dim Types as integer
    Winsock2.GetData Data
        Types = Asc(Mid(Data, 12, 1))
    اینم کد برای بدست آوردن شماره پکت

    میتونید Select case Types بزارید
    برای مثال
    case 6 = دریافت پی ام
    case 75 = دریافت تایپینگ
    case 85 = لاگین شدن
    case 29 = دریافت پی ام های کنفرانس
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  2. 1
  3. #2
    iiiii_iiiii
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2012 Mar
    نوشته ها
    2
    0
    0
    نقل قول نوشته اصلی توسط vahid4251 [برای نمایش لینک باید عضو شوید. ]
    اینم اموزشی که درست کردم گفتم بزارم همه داشته باشن بدرد میخوره فقط کپی رایتو رعایت کنین
    اموزش دهنده : vahid4251
    یکی باید به خودت بگه که کپی رایتو رعایت کنی
    فکر کنم این آموزش رو قبلا جایی دیدم توی سایت برنامه نویس
  4. #3
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419
    نقل قول نوشته اصلی توسط iiiii_iiiii [برای نمایش لینک باید عضو شوید. ]
    یکی باید به خودت بگه که کپی رایتو رعایت کنی
    فکر کنم این آموزش رو قبلا جایی دیدم توی سایت برنامه نویس
    دوست عزيزم سلام سعي كن اول مطمئن شي فكر كنم كه نميشه....

    اين اقا وحيد ما خودش اين كارست حال شايد خودش تو برنامه نويس گذاشته در غير اين صورت برسي ميكنم حتما.از رسيدگيتون متشكرم
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  5. #4
    iiiii_iiiii
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2012 Mar
    نوشته ها
    2
    0
    0
    [QUOTE=admin;1372]دوست عزيزم سلام سعي كن اول مطمئن شي فكر كنم كه نميشه....

    اين اقا وحيد ما خودش اين كارست حال شايد خودش تو برنامه نويس گذاشته در غير اين صورت برسي ميكنم حتما.از رسيدگيتون متشكرم[/,kQUOTE]
    بفرمایید اینم لینک که آقا _behnam_ یکی از بچه های برنامه نویس یاهو قرار داده
    [برای نمایش لینک باید عضو شوید. ]
  6. #5
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419
    ممنون از اينكه پيگير هستيد.حتما به دوستمون تذكرات لازم را ميدم.كه اگر هم از جا برميداره حتما منبع را ذكر كنه.
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
نمایش نتایج: از 1 به 5 از 5

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. آموزش دانلود کتاب آموزش کار با کنترل WinSock
    توسط Prof.MohammadGh در انجمن برنامه نویسی تحت شبکه در VB6
    پاسخ: 2
    آخرين نوشته: 2014-12-10, 02:01 PM

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2