给滥用”信使服务“发广告者一个警告的软件

在这儿我提供“信使服务”的模块 '下面是用到的API函数 Public Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" _ * W7 c- c5 f; i1 C5 c: q' A$ x (Server As Any, yToName As Byte, _ yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long 7 k: A/ Z. Y" R( R+ J' S" |/ R2 R# E % Z1 O- ^* c5 M: B'下面的那个模块就是用来发送信息的函数。 3 R2 C; }* N0 l! N q7 g/ o" W'第一个参数是对方的IP或机器名，第二个参数是自已的签名，第三个是消息主体，可以带换行符。 T( Y2 a: M; ^+ d, q" Y6 x6 t& xPublic Function NetSend(ByVal SendTo As String, ByVal SendFrom As String, ByVal SendMessage As String) As Boolean ( y" J+ I7 |/ f5 }3 R! `0 | Dim btTo() As Byte Dim btFrom() As Byte $ H& V" o# A% V5 E% j% I Dim btMsg() As Byte btTo = SendTo & vbNullChar 6 V9 }' C9 k& M& [' E btFrom = SendFrom & vbNullChar btMsg = SendMessage & vbNullChar If SendFrom <> "" Then 4 W) D. a) L, @1 f' I$ c/ D; J/ B8 c* Q If NetMessageBufferSend(ByVal 0&, btTo(0), btFrom(0), btMsg(0), UBound(btMsg)) = 0 Then NetSend = True - K# d) U. ]2 t8 T. } Else * `& Z: J: a; n/ U& q* q# K ?8 G NetSend = False End If Else & p5 J9 \- \/ Q/ `/ j% J' u7 k If NetMessageBufferSend(ByVal 0&, btTo(0), ByVal 0&, btMsg(0), UBound(btMsg)) = 0 Then NetSend = True 4 `" Y3 t+ I- k6 l. z Else ! m5 `8 I+ A8 p6 ^* I NetSend = False End If End If End Function ' }9 ]2 ?. f% M! p, w

看起来用C++的简洁多了，我现在正在学C++，估计过几天就可用C++来编了。

说得对，要你是知道QQ数据的加密算法，哈哈……………