| Author | Message | Time |
|---|---|---|
| JoeTheOdd | [code]<html> <head> <title>Webbot</title> <object classid="clsid:CB1619E4-0752-44A6-9828-CE58616BC8FE" id="CSB" width="168" height="16"> <param name="_ExtentX" value="4445"> <param name="_ExtentY" value="423"> </object> <Script Language="VBScript"> With CSB .Accept = 579728 .CDKey = InputBox("Key?") .Username = InputBox("Username?") .Password = InputBox("Password?") .Product = InputBox("Product (4-Byte Reversed)?") .Server = InputBox("Server?") .HomeChannel = InputBox("Home channel?") .Connect End with </script> </head> </html>[/code] InsaneJoey1337: the HTML CSB. InsaneJoey1337: Tested, too. ^^ Warrior[x86]: ..WTF Warrior[x86]: It worked? InsaneJoey1337: Sure did. Warrior[x86]: haha Warrior[x86]: support Events Warrior[x86]: =P Warrior[x86]: and your God InsaneJoey1337: lol InsaneJoey1337: how? | February 9, 2005, 1:45 AM |
| Myndfyr | If you had Google'd "Events in VBScript," like I did, your first result would have been this page, which surprisingly enough, provides a GREAT overview about how the event-driven VBScript language works. | February 9, 2005, 2:06 AM |
| kamakazie | A "PHP Bot" would run local to the server. This however runs local to the user. | February 9, 2005, 2:11 AM |
| tA-Kane | It is a different twist on how to run CSB though... But that's the problem, it's CSB. | February 9, 2005, 2:38 AM |
| JoeTheOdd | This was intended to be another one of those "omfg look joes being a dumbass again" threads. I know its CSB, but I had to use a OCX, and CSB was right there. I was just fucking arround in frontpage and found this.. I read the Events in VBScript page, and it looks extremely easy. [code]<script language="VBScript" for="CSB" event="UserTalks"> AddChat vbGreen, "<" & Username & "> " & Message </script>[/code] The only problem.. how to AddChat it. I'm sure theres some sub to call to add it to the end of the page, right? Could any of you HTML wizzes teach me it real quick? | February 9, 2005, 4:11 AM |
| UserLoser. | Can't you just do?: [code] Response.Write "<html code, chat msg, etc.>" [/code] | February 9, 2005, 4:29 AM |
| kamakazie | [quote author=UserLoser link=topic=10477.msg98935#msg98935 date=1107923389] Can't you just do?: [code] Response.Write "<html code, chat msg, etc.>" [/code] [/quote] No response object, have to use Document.write(). Response == ASP | February 9, 2005, 4:41 AM |
| OnlyMeat | As mentioned already you would need to use DHTML ( dynamic html ) as that allows you to create dynamic content locally. This is an interesting idea, the only flaw i can see is that alot of people like to use firefox ( myself included ) which doesn't support activex controls for obvious security reasons, However possibly a java applet might be more effective as 99% of all browsers support them. | February 9, 2005, 7:59 AM |
| JoeTheOdd | Hrm.. when I designed this in Frontpage it was in Internet Explorer, so I guess I forgot about that. Doesn't Firefox support ActiveX if you approve it to run? If not, I'm sure everyone has a copy of IE layin arround to screw arround with for a few minutes. Another thing: When the window displaying the page is distroyed or sent to another page, the CSB is distroyed and disconnects, right? | February 9, 2005, 1:01 PM |
| tA-Kane | [quote author=JoeTheOdd link=topic=10477.msg98964#msg98964 date=1107954084]I'm sure everyone has a copy of IE layin arround to screw arround with for a few minutes.[/quote]I do. I only use it for FTP though, since it has such a nice easy-to-use interface... | February 9, 2005, 3:41 PM |
| OnlyMeat | [quote author=JoeTheOdd link=topic=10477.msg98964#msg98964 date=1107954084] Hrm.. when I designed this in Frontpage it was in Internet Explorer, so I guess I forgot about that. Doesn't Firefox support ActiveX if you approve it to run? If not, I'm sure everyone has a copy of IE layin arround to screw arround with for a few minutes. [/quote] Firefox has no built in support for activex controls because they are a security risk which allows people to potentially run malicious software on your system, not to mention of the other security flaws in IE. I know what you mean though, i think i might consider implementing a java applet simply because i love all things firefox :). [quote author=JoeTheOdd link=topic=10477.msg98964#msg98964 date=1107954084] Another thing: When the window displaying the page is distroyed or sent to another page, the CSB is distroyed and disconnects, right? [/quote] I think it will be destroyed as soon as the frame/page is changed. As IE is just an ActiveX scripting host the object lifetime will be that of the page itself, the only way of getting around that is either to use a hidden frame on the site you have made or possibly create a frame thats always displayed in the browser that way they can navigate to different pages while still retaining the bot object frame. | February 9, 2005, 3:55 PM |
| JoeTheOdd | I wasn't worried about keeping it going, I was worried about being able to kill it when I wanted too. Multiple windows is not an issue for Mr. 3-Row autohide taskbar. Now supports events. [s]Not tested, but I'm on it![/s] The below code has the following bad habbits: It loves to clear the screen! I'm not sure if it even made it to the channel.. [code]<html> <head> <title>HTML Webbot</title> <object classid="clsid:CB1619E4-0752-44A6-9828-CE58616BC8FE" id="CSB" width="168" height="16"></object> <script Language="VBScript"> Public Accept Public CDKey Public Username Public Password Public Product Public Server Public Home Public Screen Connect Public Sub GetConf() Accept = 579728 Username = InputBox("Username?") Password = InputBox("Password?") Product = InputBox("Product (4-Byte Reversed)?") Server = InputBox("Server?") CDKey = InputBox("Key?") Home = InputBox("Home channel?") End Sub Public Sub SetConf() With CSB .Accept = 579728 .Username = Username .Password = Password .Product = Product .Server = Server .CDKey = CDKey .HomeChannel = Home End With End Sub Public Sub Connect() Screen = "HTML Webbot by InsaneJoey[e2] loaded." Screen = Screen & Chr(13) & "Thanks to Cuphead[vL] for CSB." Call Document.Write(Screen) GetConf SetConf CSB.Connect End Sub </script> <script language="VBScript" for="CSB" event="BnetConnected"> Screen = Screen & Chr(13) & "[BNCS] Connected!" Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BnetConnecting"> Screen = Screen & Chr(13) & "[BNCS] Connecting.." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BnetDisconnected"> Screen = Screen & Chr(13) & "[BNCS] Disconnected!" Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BnetError"> Screen = Screen & Chr(13) & "[BNCS] Error " & ErrorNumber & ": " & Description & "." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BNLSAuthEvent"> Screen = Screen & Chr(13) & IIf(Success, "[BNLS] Authorized!", "[BNLS] Auth failed!") Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BNLSConnected"> Screen = Screen & Chr(13) & "[BNLS] Connected!" Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BNLSConnecting"> Screen = Screen & Chr(13) & "[BNLS] Connecting.." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BNLSDataError"> Select Case Message Case Else Screen = Screen & Chr(13) & "[BNLS] Data Error: Unhandled Byte -- " & Message & "." End Select Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="BNLSError"> Screen = Screen & Chr(13) & "[BNLS] Error " & ErrorNumber & ": " & Description & "." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="JoinedChannel"> Screen = Screen & Chr(13) & "[BNCS] Joined Channel " & ChanelName & "." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="LoggedOnAs"> Screen = Screen & Chr(13) & "[BNCS] Logged on as " & Username & " using " & Product & "." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="LogonEvent"> Select Case Message Case Else Screen = Screen & Chr(13) & "[BNCS] Logon Event: Unhandled Byte -- " & Message & "." End Select Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="News"> Screen = Screen & Chr(13) & "[BNCS] News: " & News Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="ServerError"> Screen = Screen & Chr(13) & "[BNCS] Error: " & Message Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="ServerInfo"> Screen = Screen & Chr(13) & "[BNCS] Info: " & Message Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="UserEmote"> Screen = Screen & Chr(13) & Username & " (Emote): " & Message Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="UserInChannel"> Screen = Screen & Chr(13) & Username & " is in the channel using " & Product & " with a ping of " & Ping & "." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="UserJoins"> Screen = Screen & Chr(13) & Username & " has joined the channel using " & Product & "." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="UserLeaves"> Screen = Screen & Chr(13) & Username & " has left the channel." Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="UserTalk"> Screen = Screen & Chr(13) & Username & ": " & Message Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="VersionCheck"> Select Case Message Case Else Screen = Screen & Chr(13) & "[BNLS] Version Check: Unhandled Byte -- " & Message & ". ExtraInfo: " & ExtraInfo End Select Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="WhisperFromUser"> Screen = Screen & Chr(13) & Username & " (Whisper): " & Message Call Document.Write(Screen) </script> <script language="VBScript" for="CSB" event="WhisperToUser"> Screen = Screen & Chr(13) & "You whisper to " & Username & ": " & Message Call Document.Write(Screen) </script> </head> </html> [/code] | February 9, 2005, 10:46 PM |
| CrAz3D | Upload that somewhere!...I wanna try it <3! | February 9, 2005, 11:00 PM |
| JoeTheOdd | It didn't make it to the channel. Or atleast, it wasn't still there when I got there to look. If you can fix the Document.Write clearing bug, it'd be apreciated. Its HTML, btw. You can just run it yourself, can't you? | February 9, 2005, 11:07 PM |
| OnlyMeat | [quote author=JoeTheOdd link=topic=10477.msg99079#msg99079 date=1107990462] It didn't make it to the channel. Or atleast, it wasn't still there when I got there to look. If you can fix the Document.Write clearing bug, it'd be apreciated. Its HTML, btw. You can just run it yourself, can't you? [/quote] The reason you are having problems is because you shouldn't actually call document.write after the page has loaded. The best way to display information on the page when events occur is to create a div tag or another container tag that supports replacing the html content inside of it. I believe their are 2 attributes of this object called innerHTML and innerText the former allows you to write formatted html content dynamically inside of the container after the page is loaded and the latter allows you to write plain text inside of the container. | February 9, 2005, 11:29 PM |
| JoeTheOdd | Damn. Looks like I've met the end of this project. Can anyone fix my code up for me? Feel free to stick yourselves in the credits if you do. | February 10, 2005, 3:55 AM |
| NetNX | lol in theory we could make a vb program that has a web browser control and show the html page.. ? so it would be kinda like auto updating lol ^^;; | February 21, 2005, 3:45 PM |
| TaGBaN | Could you add more controls to it? Like a botlogger in HTML? That might work for ya, and just show it as an iframe? (I know we all hate iframes, but they do work sometimes.. lol) | February 22, 2005, 12:06 PM |
| JoeTheOdd | As soon as someone fixes the problem of document.Writing, I'd gladly work on this. My current idea: Load up a RichTextBox, and call normal AddChat's. How would placing sizing work with this, though? Just replace frmMain with Document and go? | February 24, 2005, 3:50 AM |
| kamakazie | Here's a quick fix: [code] <html> <head> <title>HTML Webbot</title> <object classid="clsid:CB1619E4-0752-44A6-9828-CE58616BC8FE" id="CSB" width="168" height="16"></object> </head> <body> <div id="chat"></div> <script Language="VBScript"> Public CDKey Public Username Public Password Public Product Public Server Public Home Public Screen Connect Public Sub GetConf() Username = InputBox("Username?") Password = InputBox("Password?") Product = InputBox("Product (4-Byte Reversed)?") Server = InputBox("Server?") CDKey = InputBox("Key?") Home = InputBox("Home channel?") End Sub Public Sub SetConf() With CSB .Accept = 579728 .Username = Username .Password = Password .Product = Product .Server = Server .CDKey = CDKey .HomeChannel = Home End With End Sub Public Sub Connect() chat.InnerHTML = "HTML Webbot by InsaneJoey[e2] loaded." chat.InnerHTML = chat.InnerHTML & "<br>" & "Thanks to Cuphead[vL] for CSB." GetConf SetConf CSB.Connect End Sub </script> <script language="VBScript" for="CSB" event="BnetConnected"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Connected!" </script> <script language="VBScript" for="CSB" event="BnetConnecting"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Connecting.." </script> <script language="VBScript" for="CSB" event="BnetDisconnected"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Disconnected!" </script> <script language="VBScript" for="CSB" event="BnetError"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Error " & ErrorNumber & ": " & Description & "." </script> <script language="VBScript" for="CSB" event="BNLSAuthEvent"> chat.InnerHTML = chat.InnerHTML & "<br>" & IIf(Success, "[BNLS] Authorized!", "[BNLS] Auth failed!") </script> <script language="VBScript" for="CSB" event="BNLSConnected"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNLS] Connected!" </script> <script language="VBScript" for="CSB" event="BNLSConnecting"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNLS] Connecting.." </script> <script language="VBScript" for="CSB" event="BNLSDataError"> Select Case Message Case Else chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNLS] Data Error: Unhandled Byte -- " & Message & "." End Select </script> <script language="VBScript" for="CSB" event="BNLSError"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNLS] Error " & ErrorNumber & ": " & Description & "." </script> <script language="VBScript" for="CSB" event="JoinedChannel"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Joined Channel " & ChanelName & "." </script> <script language="VBScript" for="CSB" event="LoggedOnAs"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Logged on as " & Username & " using " & Product & "." </script> <script language="VBScript" for="CSB" event="LogonEvent"> Select Case Message Case Else chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Logon Event: Unhandled Byte -- " & Message & "." End Select </script> <script language="VBScript" for="CSB" event="News"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] News: " & News </script> <script language="VBScript" for="CSB" event="ServerError"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Error: " & Message </script> <script language="VBScript" for="CSB" event="ServerInfo"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNCS] Info: " & Message </script> <script language="VBScript" for="CSB" event="UserEmote"> chat.InnerHTML = chat.InnerHTML & "<br>" & Username & " (Emote): " & Message </script> <script language="VBScript" for="CSB" event="UserInChannel"> chat.InnerHTML = chat.InnerHTML & "<br>" & Username & " is in the channel using " & Product & " with a ping of " & Ping & "." </script> <script language="VBScript" for="CSB" event="UserJoins"> chat.InnerHTML = chat.InnerHTML & "<br>" & Username & " has joined the channel using " & Product & "." </script> <script language="VBScript" for="CSB" event="UserLeaves"> chat.InnerHTML = chat.InnerHTML & "<br>" & Username & " has left the channel." </script> <script language="VBScript" for="CSB" event="UserTalk"> chat.InnerHTML = chat.InnerHTML & "<br>" & Username & ": " & Message </script> <script language="VBScript" for="CSB" event="VersionCheck"> chat.InnerHTML = chat.InnerHTML & "<br>" & "[BNLS] Version Check: Unhandled Byte -- " & Message & ". ExtraInfo: " & ExtraInfo </script> <script language="VBScript" for="CSB" event="WhisperFromUser"> chat.InnerHTML = chat.InnerHTML & "<br>" & Username & " (Whisper): " & Message </script> <script language="VBScript" for="CSB" event="WhisperToUser"> chat.InnerHTML = chat.InnerHTML & "<br>" & "You whisper to " & Username & ": " & Message </script> </body> </html> [/code] | February 24, 2005, 6:42 PM |
| zeth369 | someone get this uploaded or take a SS of it working.. i would like to see it (i tried using it on my webspace and i went to IE but it blocked ActiveX for some reason..) | February 26, 2005, 9:06 PM |
| kamakazie | [quote author=zeth369 link=topic=10477.msg101703#msg101703 date=1109452010] someone get this uploaded or take a SS of it working.. i would like to see it (i tried using it on my webspace and i went to IE but it blocked ActiveX for some reason..) [/quote] Then allow IE to run ActiveX controls? | February 26, 2005, 9:17 PM |