Ok I opened a new project in vb6 a form opened up and I double clicked it and inserted the following code:
Private Sub Form_Load()
win.RemoteHost = "irc.rizon. net"
win.RemotePort = "6667"
win.Connect
End Sub
Private Sub win_connect()
win.SendData "NICK mouse1" & vbCrLf
win.SendData "USER aaaa aaaa aaaa aaaa aaaa" & vbCrLf
win.SendData "NICK mouse2" & vbCrLf
win.SendData "USER aaaa2 aaaa2 aaaa2 aaaa2 aaaa2" & vbCrLf
win.SendData "NICK mouse3" & vbCrLf
win.SendData "USER aaaa3 aaaa3 aaaa3 aaaa3 aaaa3" & vbCrLf
win.SendData "NICK mouse4" & vbCrLf
win.SendData "USER aaaa4 aaaa4 aaaa4 aaaa4 aaaa4" & vbCrLf
win.SendData "JOIN #whatever" & vbCrLf
win.SendData "MODE #whatever +k" & vbCrLf
End Sub
On line 2 : win.RemoteHost = "irc.rizon. net"
is where i get the runtime error. Why won't this code work?
Private Sub Form_Load()
win.RemoteHost = "irc.rizon. net"
win.RemotePort = "6667"
win.Connect
End Sub
Private Sub win_connect()
win.SendData "NICK mouse1" & vbCrLf
win.SendData "USER aaaa aaaa aaaa aaaa aaaa" & vbCrLf
win.SendData "NICK mouse2" & vbCrLf
win.SendData "USER aaaa2 aaaa2 aaaa2 aaaa2 aaaa2" & vbCrLf
win.SendData "NICK mouse3" & vbCrLf
win.SendData "USER aaaa3 aaaa3 aaaa3 aaaa3 aaaa3" & vbCrLf
win.SendData "NICK mouse4" & vbCrLf
win.SendData "USER aaaa4 aaaa4 aaaa4 aaaa4 aaaa4" & vbCrLf
win.SendData "JOIN #whatever" & vbCrLf
win.SendData "MODE #whatever +k" & vbCrLf
End Sub
On line 2 : win.RemoteHost = "irc.rizon. net"
is where i get the runtime error. Why won't this code work?
Comment