ICQ SMS Bomb

About Author

Little Sun completed a handbook of ICQ in 1997 for a well-known magazine while he studied his bachelor degree in City University of Hong Kong. His latest work at CitySkyWallpaper.com is to provide the up-to-dated trend and gimmicks for ICQ 2003/5.0. He is also the editor-in-chief for ICQ channel. Click here to visit his work at the ICQ channels.





The simplest way to set up ICQ SMS Bomb is to send out massive amount of SMS messages to ICQ users' cellular phones. ICQ SMS Bomber is a powerful tool and it is used to bomb cellphones.

Sending multiple SMS messages using Visual Basic

For programmers' viewpoint, SMS bomb is only treated as sending multiple SMS messages. This part is only for academic purpose. You can use the codes for broadcast purpose and use it in right way for development business. But you must not use the codes for bomb cell phones. All cellular phone users should be agreeded to receive such SMS messages.





Analyzing ICQ SMS messages in depth

First you have to login to the server and when your UIN and password
is correct the server gives you a unique ID called "KarmaLogin". Once your Logged in you are able to send 75(!) SMS-messages a day with one UIN.

Explaining the Functions using the OCX in a Project

1. Set the UIN:

IcqSms1.UIN = "12345678"

2. Set the Password:

IcqSms1.Password = "mypassword"

3. Login to the server (check UIN and Password):

IcqSms1.Login

4. Send a SMS-message (1):

IcqSms1.SendSMS "CountryCode", "PhoneNumber", "Message"

i.e. IcqSms1.SendSMS "+31", "612345678", "This message is sent by the IcqSms ActiveX"

5. Send multiple SMS-messages (2)

IcqSms1.SendSMSBomb "CountryCode", "PhoneNumber", "Bomb Message", 10

i.e. the value 10 is the number of messages that will be send to a cellphone

6. Stop sending:

IcqSms1.CancelSending
(the connection will be closed and it stops sending messages)

7. Logout:

IcqSms1.LogOut
if you want to send messages with another UIN call this function
and the start with point 1

Explaining the Subs using the OCX in a Project

Private Sub IcqSms1_LoggedIn(SuccesFull As Boolean)
Debug.Print "LoggedIn = " & SuccesFull
End Sub

Private Sub IcqSms1_LoggedOut(SuccesFull As Boolean)
Debug.Print "LoggedOut = " & SuccesFull
End Sub

Private Sub IcqSms1_SMSError(Number As Integer, Description As String)
MsgBox "Error: " & Number% & " - " & Description$, vbCritical, "ICQ SMS Error"
End Sub

Private Sub IcqSms1_SMSSent(TotalMessages As Integer)
Debug.Print "TotalMessages: " & TotalMessages%
End Sub

Private Sub IcqSms1_Status(SMSOutput As ICQ_SMS.SMSStatus)

Select Case SMSOutput
Case Connected
Debug.Print "Status = Connected"
Case Connecting
Debug.Print "Status = Connecting"
Case Disconnected
Debug.Print "Status = Disconnected"
Case LoggedIn
Debug.Print "Status = LoggedIn"
Case LoggedOut
Debug.Print "Status = LoggedOut"
Case SendingCanceled
Debug.Print "Status = SendingCanceled"
Case SendingSMS
Debug.Print "Status = SendingSMS"
Case SMSSent
Debug.Print "Status = SMSSent"
Case TimeOut
Debug.Print "Status = TimeOut"
Case Else
Debug.Print "Status = Unknow SMS Status"
End Select

End Sub

Private Sub IcqSms1_TimeOut(Action As String)
Debug.Print Action$
End Sub