|
Registrieren
Login
Autor
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
[B] IRC-Bot inkl. Builder + Source
Verfasst am: 06.08.2007, 18:40
Was soll ich groß zu schreiben, schaut ihn euch an und lernt draus:
http://rapidshare.com/files/47358957/IRC-Bot.rar
_________________
Knucki_
Newbie
Anmeldedatum: 04.08.2007
Beiträge: 15
Verfasst am: 06.08.2007, 18:46
Bei mir kommt 'ne Fehlermeldung wenn ich es öffne :S
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
Verfasst am: 06.08.2007, 18:48
Kannst du mir auch sagen was drin steht?
Meine Glaskugel ist leider gerade in Reperatur ...
Knucki_
Newbie
Anmeldedatum: 04.08.2007
Beiträge: 15
Verfasst am: 06.08.2007, 18:51
lol
Also wenn ichs entpacken will, steht das Dateien fehlen..
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
Verfasst am: 06.08.2007, 18:58
Lads einfach mal neu runter.
TheCoder_
Überflieger
Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen
Verfasst am: 06.08.2007, 19:00
Also das teil ist in Ordnung. Den Fehler kann ich jetzt auch nicht bestätigen.
Danke enco das sieht sehr interessant aus. Woher haste den Source?
EDIT:// Aso k. Naja danke werd mir mal anschauen wozu man den gebrauchen kann
Zuletzt bearbeitet von TheCoder_ am 06.08.2007, 19:03, insgesamt 2-mal bearbeitet
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
Verfasst am: 06.08.2007, 19:02
Weis ich nicht mehr, hab den noch auf meiner Platte gefunden und den Builder dazu geschrieben, ausserdem waren viele Fehler drin die ich beseitigt habe.
benni456_
Newbie
Anmeldedatum: 31.07.2007
Beiträge: 10
Verfasst am: 06.08.2007, 20:55
hi was bringt das ding denn und wens son irc bot für botnet is dann würde ich gerne die befehle wissen danke
BONETHUGS333_
Tutorial Leser
Anmeldedatum: 26.10.2007
Beiträge: 26
Verfasst am: 04.11.2007, 19:41
Ich krieg echt noch das Kotzen hier
Zitat: Was soll ich groß zu schreiben, schaut ihn euch an und lernt draus:
Mhm...
Zitat: hi was bringt das ding denn
MHM...!?!?
ich erklärs mal so, wenn man etwas lernt versucht man es zu verstehen und zu merken. Und wenn du mal selber mit einflüsse auf irc arbeiten willst kann so ein WISSEN schon weiterhelfen
Edit: Ah sry nicht aufs Datum geschaut aber es können ja auch andere aus meiner logik lernen =)
_________________
Zuletzt bearbeitet von BONETHUGS333_ am 04.11.2007, 20:50, insgesamt einmal bearbeitet
r4z3r_
« Webmaster »
Anmeldedatum: 06.02.2007
Beiträge: 252
Verfasst am: 04.11.2007, 20:03
Und du glaubst ernsthaft das der hier noch reinschaut nachdem er 3 Monate nicht einmal etwas gepostet hat??-.-
Diesen Thread bitte nurnoch für Fragen zum Thema verwenden und nicht um Bemerkungen zu uralten Posts zu machen...
_________________
regenz11_
Coder
Anmeldedatum: 29.07.2007
Beiträge: 77
Verfasst am: 09.03.2008, 13:29
Danke für den Sourcecode, Enco !
Bei mir funktioniert er zwar nicht, ist aber auch egal, den brauch ich net...
Hat mich nur mal interessiert wie son IRC Bot aufgebaut ist...
_________________
Nik
Newbie
Anmeldedatum: 01.02.2009
Beiträge: 4
Verfasst am: 14.03.2009, 20:38
Habe ihn mir auch mal runtergeladen, da das Original bei mir leider nicht ging habe ich den Source dann ein bisschen umgestellt. Leider kommt immer "Register first" wenn ich den Bot starte.
Meine Controlls:
-Winsock: Internet
-Textbox: txtHistory
-Button: cmdConnect
-Button: cmdChannel
Code: Dim Server As String
Dim Channel As String
Dim Port As String
Dim Computer As String
Dim Username As String
Public Sub Form_Load()
Server = "XXX"
Channel = "#XXX"
Port = "XXX"
Computer = Environ("Computername")
Username = Environ("Username")
End Sub
Public Sub cmdConnect_Click()
Internet.Close
Internet.Connect Server, Port
End Sub
Public Sub cmdChannel_Click()
Internet.SendData "JOIN " & Channel & vbCrLf
End Sub
Private Sub Form_Unload(Cancel As Integer)
DoEvents
Internet.Close
txtHistory.Text = ""
End Sub
Private Sub Internet_Close()
Me.Caption = "Bot - Closed"
End Sub
Private Sub Internet_Connect()
Internet.SendData "USER " & Computer & " " & Internet.LocalIP & " " & Internet.LocalHostName & " :" & "BOT" & vbCrLf
Internet.SendData "NICK " & Computer & vbCrLf
Me.Caption = "Bot - Connected"
End Sub
Private Sub Internet_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Internet.Close
Me.Caption = "Bot - Error"
End Sub
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Wie kann ich mich bei euch anmelden??
796
20.05.2002, 00:28
Eine kleine Frage an euch..
906
30.09.2007, 08:57
Mit VB in Registery schreiben?
579
26.03.2007, 16:44
Daten in einen Ordner schreiben
808
25.03.2007, 13:12
Mit Dateien arbeiten: Lehrzeile in Datei schreiben
533
19.03.2007, 15:45
