hi all i have made a 1 bot login with a message packet for yahoo on there 102 protocol
just add a socket to your form gb.net put your id and pass in the script
if you wont to receive a pm from this script change the whoto to the id ya want to send to
maybe change the message ya wont to send
and click play in Gambas
if you ha filled out the everything right then it should login for you and send a message
PUBLIC id AS String pass AS String
PUBLIC ycookie AS String tcookie AS String
PUBLIC whoto AS String msg AS String
PUBLIC pck AS String
PUBLIC SUB Form_Open()
id = "put you id here" 'id to login with
pass = "put your password here" ' password for id
whoto = "user to send the message to in here" ' the user id ya wanna send the private message to
msg = "Hellow There" ' the message text ya wanna send to the whoto id
Socket1.Connect("login.yahoo.com", 80)
END
PUBLIC SUB Socket1_Ready()
DIM x AS Integer
IF Len(ycookie) < 1 THEN
pck = "GET http://login.yahoo.com/config/login?.src=bl&login=" & id & "&passwd=" & pass & " HTTP/1.0" & Chr(13) & Chr(10)
pck = pck & "Connection: Keep-Alive" & Chr(13) & Chr(10)
pck = pck & "Accept: */*" & Chr(13) & Chr(10)
pck = pck & "Accept-Language: en" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
IF socket1.Status = Net.Connected THEN WRITE #Socket1, PCK, Len(PCK)
END IF
IF Len(ycookie) > 1 THEN
pck = ""
pck = "YMSG" & Chr(0) & Chr(&66) & Chr(0) & Chr(&01) & String(3, Chr(0)) & Chr(&4c) & String(8, Chr(0))
IF socket1.Status = Net.Connected THEN WRITE #Socket1, PCK, Len(PCK)
WAIT 1
pck = ""
x = 59 + Len(id) + Len(id) + Len(id) + Len(ycookie) + Len(tcookie)
pck = pck & "YMSG" & Chr(&00) & Chr(&66) & Chr(0) & String(2, Chr(&01)) & Chr(Int(x MOD 256)) & Chr(&02) & Chr(&26) & Chr(&5a) & Chr(&55) & Chr(&aa)
pck = pck & Chr(&55) & String(4, Chr(0)) & Chr(&30) & Chr(&C0) & Chr(&80) & id & Chr(&C0) & Chr(&80) & "2" & Chr(&C0) & Chr(&80) & id
pck = pck & Chr(&C0) & Chr(&80) & "1" & Chr(&C0) & Chr(&80) & id & Chr(&C0) & Chr(&80) & "244" & Chr(&C0) & Chr(&80) & "16277215"
pck = pck & Chr(&C0) & Chr(&80) & "2" & Chr(&C0) & Chr(&80) & Chr(&C0) & Chr(&80) & "6" & Chr(&C0) & Chr(&80) & ycookie & ";" & Chr(&20) & tcookie & Chr(&26) & "lang=en;" & Chr(&C0) & Chr(&80)
pck = pck & "98" & Chr(&C0) & Chr(&80) & "us" & Chr(&C0) & Chr(&80)
IF socket1.Status = Net.Connected THEN WRITE #Socket1, PCK, Len(PCK)
END IF
END
PUBLIC SUB Socket1_Read()
DIM S AS String
DIM x AS Integer
READ #Socket1, S, Lof(Socket1)
IF Len(ycookie) < 1 THEN
ycookie = Mid(s, InStr(s, "Y="), InStr(s, "1;") - InStr(s, "Y=") + 2)
tcookie = Mid(s, InStr(s, "T="), InStr(s, "--;") - InStr(s, "T=") + 3)
socket1.Close
Socket1.Connect("98.136.48.79", 8002)
END IF
PRINT s
IF Len(s) > 780 THEN
'IF the packet = more than 780 we send the pm
pck = ""
x = 87 + Len(whoto) + Len(id) + Len(msg)
pck = pck & "YMSG" & Chr(&00) & Chr(&66) & Chr(0) & Chr(&01) & Chr(0) & Chr(Int(x MOD 256)) & Chr(0) & Chr(&06) & Chr(&5a) & Chr(&55) & Chr(&aa) & Chr(&56)
pck = pck & Chr(0) & Chr(&4a) & Chr(&de) & Chr(&5C) & Chr(&31) & Chr(&C0) & Chr(&80) & id
pck = pck & Chr(&C0) & Chr(&80) & "5" & Chr(&C0) & Chr(&80) & whoto & Chr(&C0) & Chr(&80) & "14" & Chr(&C0) & Chr(&80) & Chr(&1b)
pck = pck & "[#000000m<font face=" & Chr(&22) & "Arial" & Chr(&22) & " size=" & Chr(&22) & "12" & Chr(&22) & ">" & msg
pck = pck & Chr(&20) & Chr(&C0) & Chr(&80) & "97" & Chr(&C0) & Chr(&80) & "0" & Chr(&C0) & Chr(&80) & "63" & Chr(&C0) & Chr(&80)
pck = pck & ";0" & Chr(&C0) & Chr(&80) & "64" & Chr(&C0) & Chr(&80) & "0" & Chr(&C0) & Chr(&80) & "1002" & Chr(&C0) & Chr(&80) & "1" & Chr(&C0) & Chr(&80)
IF socket1.Status = Net.Connected THEN WRITE #Socket1, PCK, Len(PCK)
END IF
END
have fun all hope it works for you all
Poll