

    This file is for Visual Basic Programmers only!

	IcqSms.OCX (2001) by:

	 ~ : . Jeff 'Capes' . : ~
	http://start.at/iseekyou

	+ ------------------------------ +
	+	Explaining the Subs	 +
	+ ------------------------------ +



A few months ago I uploaded "ICQ SMS OCX", everything
just went well till a few months ago...
I noticed that the ocx didn't work anymore due a notification by
an icq administrator that they had to rebuild the sms webpages.
This because they saw and tried my ocx and it worked, now they
had to close the holes in the webpages... dammit ;[
 
Last Sunday reopened the project and I figured out how they let
webbrowser communicate with eachother through java scripts
and post headers...


	+ ------------------------------ +
	+	Explaining the OCX	 +
	+ ------------------------------ +


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".
This is a long, decrypted string that I didn't figure out yet.
(If you can figure out that decrypted string, please contact me at
jeff@hoomark.com)

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 a SMS-message (2) Bomb a celphone:

    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






