ايران ويج

من vb را تازه شروع كردم

من جديدا" سورس يك اسپمر ايدي را از دوستم گرفتم كه خيلي كارش معركه بود
وبا يك ايدي لاگين ميشد ولي جديدا" لاگين نمي كنه و مي دونم مشكل از سيستم نيست مثل اينكه از پروتوكلهاي ياهو كه حديدا" عوض كرده

من نميدونم اين چيه و چي كار بايد بكنم؟؟؟؟؟

اين هم كد لاگين شده ايدي

On Error Resume Next
Username = User.Text
If Command1.Caption = "Log In" Then
Winsock1.Close
Winsock1.RemoteHost = Servers.List(Servers.ListIndex)
Winsock1.RemotePort = 5050
Winsock1.Connect
User.Enabled = False
Pass.Enabled = False
Command1.Enabled = False
Else
Winsock1.SendData ExitRoom
Pause 0.5
Winsock1.Close
Command1.Caption = "Log In"
User.Enabled = True
Pass.Enabled = True
Command2.Enabled = False
Command10.Enabled = False
Command6.Enabled = False
YStat.Enabled = False
List1.Clear
Room.Text = ""
Me.Caption = "Lxxx [Not Connected]"
End If
End Sub

چي كار بايد كرد

به جای winsock1.remotehost = servers.list(servers.listindex) اين رو بزار احتمالاً درست ميشه

winsock1.remotehost = "cs101.msg.mud.yahoo.com"

crazyfull نوشته است:به جای winsock1.remotehost = servers.list(servers.listindex) اين رو بزار احتمالاً درست ميشه

winsock1.remotehost = "cs101.msg.mud.yahoo.com"

دست شما درد نكنه ولي متاسفانه جواب نداد
اگر بي ادبي خدمت شما نباشه
يكي برام كفت شايد ياهو سروررهاش را عوض كرده
در اين برنامه از دو سرور زير استفاده ميشه

cs1.msg.dcn.yahoo.com

va

scs.msg.yahoo.com

چه جوري سرورهاي فعال ياهو را كه بشه ايدي را لاگين كرد ميشه پيدا كرد؟؟؟
ايا مشكل لاگين نشدن اين اسپمر همينه؟؟؟

مشگل شما هم ميتونه از ورژن قديمی پروتکل ياهو باشه که بايد به روز بشه

سرور scs.msg.yahoo.com همچنان فعال هست.
سروهای جديد هم
cs101.msg.mud.yahoo.com
تا
cs127.msg.mud.yahoo.com
هست