Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lp

　　今天偶尔看到一个留言版，是个人用的。我就给他留了个言。留完言闲的没事做。就想在他的留言版上灌水。　　怎么灌呢？我想了想，拿出了Wsockexpert软件，然后来到那个人的留言版，在Wsockexpert软件中选择留言版的那个页面，点“open”。在留言版上填上姓名、标题和留言内容都添空格，点“确定发表”。然后看到Wsockexpert软件抓到了很多包！！！然后找到POST的那个。选中它！你会看

    我今天用了www.cn90.net原创的一个刷QQ等级的工具。感觉这样软件它的编写很无聊，也不难，因此我就试着用VB也编写一个吧！========================================================Option ExplicitPrivate Declare Function TerminateProcess Lib "kernel32" (

        获取自身所在路径有两种方法。        第一种方法使用App.Path和App.EXEName来完成。代码如下：        strpath = IIf(Right(App.Path, 1) = "/", App.Path, App.Path & "/") & App.EXEName & ".exe"这样看起来是不是比较乱？没事，改写成这样就比较清楚了。代码如下：