; You need to start mIRC and connect it to a server first.
; Then minimize mIRC and run this script.
; Or maximize mIRC, run the script and then switch to another program while script is running.
; The script only works if mIRC is maximized and user doesn't switch program.
; Solution?
Opt("SendKeyDelay", 1)
Dim $controlID = 32921
Sleep(5000)
sendMessages()
Func sendMessages()
sendMessageToChannels("0")
sendMessageToChannels("1")
sendMessageToChannels("2")
sendMessageToChannels("3")
sendMessageToChannels("4")
sendMessageToChannels("5")
sendMessageToChannels("6")
sendMessageToChannels("7")
sendMessageToChannels("8")
sendMessageToChannels("9")
EndFunc
Func sendMessageToChannels($message)
ControlFocus("", "", $controlID)
ControlSend("", "", $controlID, "/join -x {#}alpha11{ENTER}")
sendMessage($message)
ControlFocus("", "", $controlID)
ControlSend("", "", $controlID, "/join -x {#}beta22{ENTER}")
sendMessage($message)
EndFunc
Func sendMessage($message)
Sleep(100)
ControlFocus("", "", $controlID)
ControlSend("", "", $controlID, $message & "{ENTER}")
EndFunc