HackerJLY's Blog

一、邮件群发器(prjSendMail)

    1、功能介绍：

            高效邮件群发器

            支持群发。

            支持附件。你可以把附件拖放到窗体上，以：添加附件。

            支持多语言（中文简体、中文繁体、英文），可根据操作系统版本语言自定软件语言，也可任意设置，并提供保存
            绿色软件，只有一个文件
            支持置顶，可设置，并保存
            支持：点击窗体任意位置拖动窗体
            可保存用户邮箱配置信息
            可保存程序结束时的窗体位置及大小
            提供对邮件内容的保存和加载，可以根据个人需要设置，提供保存

            标题支持后缀附件名，可以根据个人需要设置，提供保存
            支持：超长文本发送

            支持背景色、前景色设置，并提供保存！
            支持：是否保存收件人
            支持：是否点击发送按钮后，窗口最小化，发送完毕，退出。
            添加了通讯录功能
            添加了：使用签名功能

 

            Mail Sender.

            Support Multi-Receiver.

            Support Attachment.You can drag files to the form for add attachment.

            Support Multi-Language,e.g. English\Chinese Simplified\Chinese Traditional.

            Green software,only one file.

            Support topmost.

            Support Click anywhere of the form drag the form.

            Support save the user's configration information.

            Support save the form' status.e.g. position /size when it's terminated.

            Support save the mail title and content  when it's terminated.

            Support so long content send.

            Support background and foreground color set and save it.
      
            Support save receiver
      
            Support minimize the window after click the send button,and quit after the mail is sended
      
            The address list function is added.
      
            Support Signature function.

    2、Download：http://community.kingdee.com/images/blogs/files/8329/CSDNBlogDownload/Program_HackerJLY/VC6/prjSendMail.rar

    3、图片御览：

            

二、进程管理器(prjProcessManager)

    1、功能介绍：

            高效获取/结束进程
            支持多语言（中文简体、中文繁体、英文），可根据操作系统版本语言自定软件语言，也可任意设置，并提供保存
            绿色软件，只有一个文件
            批量结束任务（进程支持多选）
            进程以：打开先后顺序排列
            快捷键：回车：获取进程列表；Esc：结束进程
            支持窗体置顶，可设置，并保存
            点住窗体任意位置可拖动窗体
            显示：进程所有技术信息。
            程序结束时，保存其位置和大小

            支持背景色、前景色设置，并提供保存！

 

            Process Manager

            Get and Terminate the process.

            Support Multi-Language,e.g. English\Chinese Simplified\Chinese Traditional.

            Green software,only one file.

            Support terminate multi-process once.(process support multi-selected)

            The process order by it's start time.

            Support Short cut key: Enter :Get Process List ; Esc : Terminate the process that you select.

            Support topmost.

            Support Click anywhere of the form drag the form.

            Display all the process's technology parameters.

            Support save the form' status.e.g. position /size when it's terminated.

            Support background and foreground color set and save it.

    2、Download：http://community.kingdee.com/images/blogs/files/8329/CSDNBlogDownload/Program_HackerJLY/VC6/prjProcessManager.rar

    3、图片御览：

            

Option Explicit

Private Sub Form_Load()
    With wb
        .AddressBar = True
        .StatusBar = True
        .Navigate "http://favorites.live.com/messenger.aspx"
       
    End With
   
    With Me
        .Left = 0
        .Top = 0
        .Height = Screen.Height - 500
        .Width = 4500
       
    End With
   
    '窗体置顶
   
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, Screen.Width / 60, Screen.Height / 15.4, SWP_SHOWWINDOW
   
    InstallHook
   
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If bHooking = False Then
        Me.Top = -100
        InstallHook
    End If

End Sub

Private Sub Form_Resize()
    On Error Resume Next
    With wb
        .Left = 0
        .Width = Me.ScaleWidth
        .Top = txtURL.Height + 200
        .Height = Me.ScaleHeight - .Top - 100
    End With
    With txtURL
        .Width = Me.ScaleWidth - lblURL.Width
        .Left = lblURL.Width
       
       
       
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim rtn As Integer
    rtn = MsgBox("确定要关闭吗？", vbYesNo + vbDefaultButton2 + vbInformation, "Browser")
    If rtn <> vbYes Then
        Cancel = 1
    Else
        If bHooking = True Then
            RemoveHook
        End If
    End If
End Sub

Private Sub mnuReFresh_Click()
    wb.Refresh
End Sub

Private Sub mnuStop_Click()
    wb.Stop
End Sub

Private Sub txtURL_DblClick()
    txtURL_GotFocus
End Sub

Private Sub txtURL_GotFocus()
    txtURL.SelStart = 0
    txtURL.SelLength = Len(txtURL.Text)
End Sub

Private Sub txtURL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then wb.Navigate txtURL.Text
End Sub

Private Sub wb_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    txtURL.Text = URL
End Sub

Private Sub wb_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Me.Caption = wb.LocationName & " - Browser"
End Sub
2、modAPI Moudle:

Option Explicit
'###################################################################################################################

'设置窗体位置
Public Declare Function SetWindowPos Lib "user32" _
    ( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long _
    ) As Long
   
'--------------------------------------------------------------------------------------------------------
'hWndInsertAfter Parameter Value
Public Const HWND_BOTTOM = 1
Public Const HWND_BROADCAST = &HFFFF&
Public Const HWND_DESKTOP = 0
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOP = 0
Public Const HWND_TOPMOST = -1

'--------------------------------------------------------------------------------------------------------
'wFlags Paramter Value
Public Const SWP_FRAMECHANGED = &H20        '  The frame changed: send WM_NCCALCSIZE
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOCOPYBITS = &H100
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOOWNERZORDER = &H200      '  Don't do owner Z ordering
Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Public Const SWP_NOZORDER = &H4
Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
'###################################################################################################################

'类似QQ，窗体自动上浮API

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Type POINTAPI
    X As Long
    Y As Long
End Type

Public Type MSLLHOOKSTRUCT
     pt As POINTAPI
     mouseData As Long
     Flags As Long
     time As Long
     dwExtraInfo As Long
End Type

Public Const WH_MOUSE_LL As Long = 14

Public Const WM_MOUSEMOVE = &H200

Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

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

Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Option Explicit

Public hSetWindowsHookEx As Long
Public bHooking As Boolean

Public Function RemoveHook()
    UnhookWindowsHookEx hSetWindowsHookEx
    bHooking = False
End Function

Public Function InstallHook()
    hSetWindowsHookEx = SetWindowsHookEx(WH_MOUSE_LL, AddressOf LowLevelMouseProc, App.hInstance, 0)
    bHooking = True
   
End Function

Public Function LowLevelMouseProc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim typMHS As MSLLHOOKSTRUCT
    Dim pt As POINTAPI
    Dim rectWindowPosSize As RECT
   
    If ncode < 0 Then
        LowLevelMouseProc = CallNextHookEx(hSetWindowsHookEx, ncode, wParam, lParam)
        Exit Function
    End If
   
    If wParam = WM_MOUSEMOVE Then
        Call CopyMemory(typMHS, ByVal lParam, LenB(typMHS))
        pt = typMHS.pt
'        With frmMain
'            .txtX = pt.X
'            .txtY = pt.Y
'        End With

        GetWindowRect frmMain.hwnd, rectWindowPosSize
        If (pt.X < rectWindowPosSize.Left Or pt.X > rectWindowPosSize.Right Or _
           pt.Y < rectWindowPosSize.Top Or pt.Y > rectWindowPosSize.Bottom) And _
           frmMain.Top <= 0 And frmMain.WindowState = 0 Then
            frmMain.Top = 100 - frmMain.Height
            RemoveHook
        End If
    End If
   
End Function

 

 

 

 

1） 不会英语：CS源于美国，重量级的文档都是英文的。不会英语，那么你只能忍受拙劣的翻译和大延迟的文档（翻译出来的文档几乎都是很久以前出版的东西）。

2） 急于求成：什么都没学习就开始编程是最大的机会。写C++程序语法都能错，数据结构连线性表都不知道，数据库不知道关系模型，TCP编程不知道socket，还是先坐下来学习几年再说（如果说工作急需，我只能说：早干嘛去了）

3） 过于好问：勤学好问是一种很好的品质，但是如果把勤学丢了，只留下好问，就是一个恶劣的素质了。事无巨细都去请教别人，一则会让人厌烦，二则由于没有系统学习过程，也是不可能学习好的。

4） 只会艳羡别人和说别人不该拿那么多钱，而自己却收入微薄：老实说，绝大多数情况下，收入的高低和你的水平是有正相关关系的。不是否认有关系的存在，但是绝对不会10个人中9个人有关系而独独你没有。少抱怨一些多学习一些，提升自己才是最重要的。

5） 过于不求甚解和过于求甚解。了解为什么是很重要的，但是要学习的东西很多，如果什么都弄明白，那么估计头发白了还没有找到所有答案。当然如果什么都不想细致了解，那么只能去做蓝领了。

6） 过分崇拜他人：我想信很多人都是很厉害的，值得大家崇拜，但是如果过于崇拜，把他们的话当成圣经就没有必要了。你需要突破他们，而不是崇拜他们。

7） 不想吃苦：IT业高收入和高竞争是联系在一起的。没有付出永远别想进步

Public Function GetData() As ADODB.Recordset
    Dim rs As ADODB.Recordset
    Dim conn As ADODB.Connection
   
    Dim strSql As String
   
    strSql = "select FirstName from dbo.Employees"
   
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
   
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=127.0.0.1"
    conn.Open
   
    With rs
        .CursorLocation = adUseClient
        .CursorType = adOpenForwardOnly
        .LockType = adLockReadOnly
        .ActiveConnection = conn
        .Open strSql
    End With
   
    Set GetData = rs
   
    Set conn = Nothing
    Set rs = Nothing
   
End Function