gorg313
جمعه 31 مرداد 1393, 14:27 عصر
به نام خدا
دوستان لطفآ راهنمايي کنن اين موجودات و کدهاي مورده را زنده کنيم
خوب من از چند جا کمک گرفتم
سوال اصلي : من ميخوام يه ربات بسازم که وقتي کسي بهم پيام داد هر پيامي ( متغيير ) ربات برگرده به آي دي که پيام ارسال کرده يه پيام بده
کد اتصال به ياهو
Winsock1.Connect "login.yahoo.com", "80"
ارسال هدر بعد از اتصال به اکانت
Dim LoginYahoo As String
LoginYahoo = "GET http://login.yahoo.com/config/login?login=" & ID & "&passwd=" & password & " 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: login.yahoo.com" & vbCrLf
LoginYahoo = LoginYahoo & "Connection: Keep-Alive" & vbCrLf & vbCrLf
Winsock1.SendData LoginYahoo
خلاصه منبع اين مطلب اينجاس (http://www.forum.barnamenevisi.org/showthread.php?89-%DA%86%DA%AF%D9%88%D9%86%D9%87-%DB%8C%DA%A9-%D8%B1%D8%A8%D8%A7%D8%AA-%D8%A8%D8%A7%D8%B3%D8%AE%DA%AF%D9%88-%DB%8C%D8%A7%D9%87%D9%88-%D8%A8%D8%B3%D8%A7%D8%B2%DB%8C%D9%85%D8%9F!)
اما بعد از آپديت ياهو اين کد ها هم از کار افتادن تو انجمن هم گشتم دنبال چنين چيزي ولي چيز زيادي گيرم نيومد
ممنون ميشم بروبکس کمک کنن
هدف من دريافت ليست آي دي + فرستاد پيام به کسي که پيام ميده اونم با کنترل Winsock :لبخند:
دوستان لطفآ راهنمايي کنن اين موجودات و کدهاي مورده را زنده کنيم
خوب من از چند جا کمک گرفتم
سوال اصلي : من ميخوام يه ربات بسازم که وقتي کسي بهم پيام داد هر پيامي ( متغيير ) ربات برگرده به آي دي که پيام ارسال کرده يه پيام بده
کد اتصال به ياهو
Winsock1.Connect "login.yahoo.com", "80"
ارسال هدر بعد از اتصال به اکانت
Dim LoginYahoo As String
LoginYahoo = "GET http://login.yahoo.com/config/login?login=" & ID & "&passwd=" & password & " 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: login.yahoo.com" & vbCrLf
LoginYahoo = LoginYahoo & "Connection: Keep-Alive" & vbCrLf & vbCrLf
Winsock1.SendData LoginYahoo
خلاصه منبع اين مطلب اينجاس (http://www.forum.barnamenevisi.org/showthread.php?89-%DA%86%DA%AF%D9%88%D9%86%D9%87-%DB%8C%DA%A9-%D8%B1%D8%A8%D8%A7%D8%AA-%D8%A8%D8%A7%D8%B3%D8%AE%DA%AF%D9%88-%DB%8C%D8%A7%D9%87%D9%88-%D8%A8%D8%B3%D8%A7%D8%B2%DB%8C%D9%85%D8%9F!)
اما بعد از آپديت ياهو اين کد ها هم از کار افتادن تو انجمن هم گشتم دنبال چنين چيزي ولي چيز زيادي گيرم نيومد
ممنون ميشم بروبکس کمک کنن
هدف من دريافت ليست آي دي + فرستاد پيام به کسي که پيام ميده اونم با کنترل Winsock :لبخند: