icqbas.bas

vb中如何进行网络编程的示例,包括:UDP聊天,TCP聊天,UDP,TCP flood攻击等 非常棒

Attribute VB_Name = "ICQBAS"
'Copyright (C) 2000 DIGITAL VAMPIRE
'[e-mail] - ICQ 14996057

'www.ic-crypt.org.uk



Declare Function SetLicenseKey Lib "icqmapi.dll" Alias "ICQAPICall_SetLicenseKey" (ByVal pszName As String, ByVal pszPassword As String, ByVal pszLicense As String) As Boolean
Declare Function SetOwnerState Lib "icqmapi.dll" Alias "ICQAPICall_SetOwnerState" (ByVal iState As Long) As Boolean

Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Declare Sub RtlMoveMemory Lib "kernel32" (Dest As Any, Src As Any, ByVal cb&)

Global iCQversion As Long
Global iCQowner As Long
Global iCQownerNick As String

Global recentcount As Long

Declare Function SendMessage Lib "icqmapi.dll" Alias _
     "ICQAPICall_SendMessage" (ByVal iUIN As Long, _
                               ByVal pszMessage As String) As Boolean
                              
Declare Function SendExternal Lib "icqmapi.dll" Alias _
     "ICQAPICall_SendExternal" (ByVal iUIN As Long, _
                                ByVal pszExternal As String, _
                                ByVal pszMessage As String, _
                                ByVal bAutoSend As Long) As Boolean

Declare Function SendURL Lib "icqmapi.dll" Alias _
     "ICQAPICall_SendURL" (ByVal iUIN As Long, _
                           ByVal pszURL As String) As Boolean



Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)

Global Const BICQAPI_USER_STATE_ONLINE = 0
Global Const BICQAPI_USER_STATE_CHAT = 1
Global Const BICQAPI_USER_STATE_AWAY = 2
Global Const BICQAPI_USER_STATE_NA = 3
Global Const BICQAPI_USER_STATE_OCCUPIED = 4
Global Const BICQAPI_USER_STATE_DND = 5
Global Const BICQAPI_USER_STATE_INVISIBLE = 6
Global Const BICQAPI_USER_STATE_OFFLINE = 7

Global Const SHLength = 512
Global Const SL1 = 20
Global Const SL2 = 100
Global Const SL3 = 50

Public Type BSICQAPI_User
    m_iUIN As Long                   'the user抯 ICQ #.
    m_hFloatWindow As Long           'the handle of the 揊loat