Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'QIRCbot V1.01beta.
- 'This program has been written by James Marvin - WolfSpirit
- 'You are free to use this code as you wish, make any alterations
- 'and additions as you see fit just as long as you give me
- 'credit for the many hours of hard work I have put into this.
- 'Do NOT plagerise my work and call it your own, as you will
- 'likely put yourself in a very actionable position and I will
- 'use all legal and civil options available to me to seek
- 'recompense.
- 'DISCLAIMER:
- 'This program code is provided 'as is' and I take no responsibility for
- 'any damage, loss of data or any loss of income that the use of this program
- 'causes.
- 'I also take NO responsibility if this program is used for illegal purposes
- 'including but not limited to, spamming, flooding, or any unacceptable and
- 'illegal practices on any or all IRC networks and servers. To do so may
- 'cause you to be liable to prosecution, and to have your service cancelled
- 'by your ISP.
- 'If you wish to contact me, i can be contacted by email at:
- 'wolven_spirit@gawab.com
- 'james.marvin@dcemail.com
- Public Function addLog(Message As String)
- 'outstr = Split(Message, Chr$(13), -1, 1)
- ' For lp = 0 To UBound(outstr) - 1
- ' Prntline (outstr(lp))
- ' Next lp
- End Function
- Private Sub Command1_Click()
- Dim ServerInput As String
- ServerInput = InputBox("IRC Server site", "Select a server", "Gideon.GeekShed.net")
- wskIRC.RemoteHost = ServerInput
- wskIRC.RemotePort = 6667
- addLog "Connecting to " & wskIRC.RemoteHost & " port " & wskIRC.RemotePort & "…"
- wskIRC.Connect
- End Sub
- Private Sub Command2_Click()
- wskIRC.Close
- End Sub
- Private Sub Command3_Click()
- wskIRC.SendData "PRIVMSG #UltraHal :HAL v6.2 hybrid onthecuttingedge - CyberJedi & LifeTimeGamer our A.I Team Thanks for all your hard work in getting this out and putting up with me in times of need." & vbCrLf
- End Sub
- Private Sub Command4_Click()
- wskIRC.SendData "WHO #UltraHal" & vbCrLf
- End Sub
- Private Sub txtLOG_Change()
- End Sub
- Private Sub Command7_Click()
- Dim lp As Integer
- For lp = 0 To 4
- Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(0, lp) + vbCrLf
- Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(1, lp) + vbCrLf
- Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(2, lp) + vbCrLf
- Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(3, lp) + vbCrLf
- Next lp
- End Sub
- Private Sub Command8_Click()
- 'Prntline "Testing One Two" + Str$(t)
- t = t + 1
- End Sub
- Private Sub Command5_Click()
- Form1.wskIRC.SendData "PRIVMSG " + Channel + " :" + Form1.OutTXT + vbCrLf
- Prntline "<" + BotName + "> " + Form1.OutTXT, vbGreen
- Form1.OutTXT.Text = ""
- End Sub
- Private Sub Form_Load()
- Dim lp As Integer
- Dim tmpstring As String
- lp = 0
- On Error GoTo ero:
- Open "seenusers.ini" For Input As #1
- Do While Not EOF(1)
- Input #1, tmpstring
- ndta = Split(tmpstring)
- seen_users(lp, 0) = ndta(0)
- seen_users(lp, 1) = ndta(1)
- seen_users(lp, 2) = ndta(2)
- lp = lp + 1
- Loop
- Close #1
- seen_users(lp, 0) = "EOL"
- Form1.List1.Clear
- lp = 0
- Form2.Visible = True
- sntflag = True
- Exit Sub
- ero:
- seen_users(0, 0) = "EOL"
- Form2.Visible = True
- sntflag = True
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Dim lp As Integer
- Open "seenusers.ini" For Output As #1
- While seen_users(lp, 0) <> "EOL"
- DoEvents
- Print #1, seen_users(lp, 0) & " " & seen_users(lp, 1) & " " & seen_users(lp, 2)
- lp = lp + 1
- Wend
- Close #1
- End Sub
- Private Sub OutTXT_KeyPress(KeyAscii As Integer)
- Dim tmstrng As Integer
- If KeyAscii = 13 Then
- If Form1.OutTXT <> "" Then
- tmstring = "PRIVMSG " + Channel + " :" + Form1.OutTXT
- snd_data (tmstring)
- Prntline "<" + BotName + "> " + Form1.OutTXT, vbCyan
- Form1.OutTXT.Text = ""
- End If
- End If
- End Sub
- Private Sub wskIRC_Connect()
- Dim rmthst As String
- addLog "Connected!"
- Dim Random As Integer
- Randomize
- Random = Rnd * 1000
- Dim ChannelIn As String
- Dim BotID As String
- Dim BotName As String
- Dim GetPassWord As String
- '________________________Select Bot Name and IRC Channel and password______________________________________
- 'edge was here.
- BotID = InputBox("Bot Name", "Select a Bot name", "Candy")
- ChannelIn = InputBox("IRC Channel", "Select a Channel", "#UltraHal")
- BotName = BotID
- GetPassWord = InputBox("IRC Password", "Select a password", "Sunsword1")
- addLog "Username: " & Name
- wskIRC.SendData "NICK " & BotName & vbCrLf
- wskIRC.SendData "USER candy candy candy candy" & vbCrLf
- Channel = ChannelIn
- wskIRC.SendData "JOIN " & Channel & " " & GetPassWord & vbCrLf
- End Sub
- Private Sub wskIRC_DataArrival(ByVal bytesTotal As Long)
- Dim Data As String
- wskIRC.GetData Data
- InDta (Data)
- 'Lets now process the data
- prc_data (0)
- End Sub
- Private Sub wskIRC_SendComplete()
- sntflag = True
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement