Announcements/Updates

[Blade_360]

How do you a vb bot to get announcments from servers like in Raibot or Stealth Bot? Thanks

[Banana fanna fo fanna]

Pull em from a webpage using internet transfer ocx.

[Atom]

Yeah thats the easiest way, but i use a winsock control cuz it makes it one less file to be included with your bot. Heres the code..

Code Select Expand

Private Sub sckHttp_Connect()
On Error Resume Next
With sckHttp
    .SendData "GET " & "/news.txt" & " HTTP/1.1" & vbCrLf
    .SendData "Accept: text/plain" & vbCrLf
    .SendData "Accept-Language: en-us" & vbCrLf
    .SendData "Accept-Encoding: gzip, deflate" & vbCrLf
    .SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)" & vbCrLf
    .SendData "Host: " & "www.hostnamehere.com" & vbCrLf
    .SendData "Connection: Keep-Alive" & vbCrLf & vbCrLf
End With
End Sub
Somebody really needs to fix the font size of the code!

[Crypticflare]

that would be the msinet.ocx control right? In my Clan Profile Organizer, I did somthing like that, except I wanted to have more complex, for pulling profiles off of a server, or perhaps a roster for events or activities

[Blade_360]

k thanks
no kidding about the code font size

[iago]

I like Spht's method; he does it over Botnet

[Spht]

I like Spht's method; he does it over Botnet

Yes, with my method, can post messages to all users using EternalChat at any time. Also, broadcasts that are sent by BNLS are received and displayed by all running EternalChat bots for notifications of server restarting, game updates, etc.

[Banana fanna fo fanna]

Wow, stop making life so hard!

Code Select Expand

Private Sub sckHttp_Connect()
On Error Resume Next
With sckHttp
  .SendData "GET " & "/news.txt" & " HTTP/1.1" & vbCrLf & vbCrLf
End With
End Sub


[Arta]

Code Select Expand

Private Sub sckHttp_Connect()
On Error Resume Next
With sckHttp
    .SendData "GET " & "/news.txt" & " HTTP/1.1" & vbCrLf
    .SendData "Accept: text/plain" & vbCrLf
    .SendData "Accept-Language: en-us" & vbCrLf
    .SendData "Accept-Encoding: gzip, deflate" & vbCrLf
    .SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)" & vbCrLf
    .SendData "Host: " & "www.hostnamehere.com" & vbCrLf
    .SendData "Connection: Keep-Alive" & vbCrLf & vbCrLf
End With
End Sub


What on earth is the point in sending all those headers when half of them will be wrong anyway?

[Skywing]

link=board=bot;num=1044313938;start=0#8 date=02/04/03 at 03:59:22]

What on earth is the point in sending all those headers when half of them will be wrong anyway?

Yes.  Especially accepting compressed data - why would you do that if you don't support compression?

[iago]

I would imagine that he sniffed a http packet and it just imitating it exactly

[Skywing]

Wow, stop making life so hard!

Code Select Expand

Private Sub sckHttp_Connect()
On Error Resume Next
With sckHttp
  .SendData "GET " & "/news.txt" & " HTTP/1.1" & vbCrLf & vbCrLf
End With
End Sub


Yes, I suppose sending completely invalid requests will really make life easier.  A "Host:" header is required for HTTP 1.1, btw.  Suggest you check the protocol specification first next time

     - Both clients and servers MUST support the Host request-header.

      - A client that sends an HTTP/1.1 request MUST send a Host header.

      - Servers MUST report a 400 (Bad Request) error if an HTTP/1.1
        request does not include a Host request-header.

[Blade_360]

Not to be rude or anything   but we don't all have access to botnet  :-/
Oh and congrats on joining [vL] I'm not really that jealous

[Noodlez]

actually, we do all have the ability to access botnet.

[Blade_360]

ok then I don't know how to access botnet