红客防线（10年品牌）官方开源网

Function GetFile(FileName As String) As String
Dim i As Integer, s As String, BB() As Byte
If Dir(FileName) = "" Then Exit Function
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #i
Get #i, , BB
Close #i
s = StrConv(BB, vbUnicode)
GetFile = s
End Function

阅读全文

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory
As String, ByVal nShowCmd As Long) As Long

Private Sub web_Click() '这里是按钮名称web
  ShellExecute 0, "open", "http://www.hkfx.net", 0, 0, 1
End Sub

Private Sub Command1_Click()  '这是按钮1名称
    add_item = InputBox("在此处输入一个英文软件包名", "增加软件")
    If add_item <> "" Then
    List1.AddItem add_item
    End If
End Sub

Private Sub list1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'List1为组件名称
If Button And vbRightButton Then   '弹菜单,判断名称
    PopupMenu list '弹出（添加）菜单栏的名称,必须有子菜单才能正确使用
    End If
End Sub 

Private Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA"
 (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA

Private Sub Form_Load()
    t.cbSize = Len(t)
    t.hWnd = Pic.hWnd
    t.uId = 1&
    t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    t.ucallbackMessage = WM_MOUSEMOVE
    t.hIcon = Pic.Picture
    t.szTip = "红防安全吧" & Chr$(0) 
    Shell_NotifyIcon NIM_ADD, t
End Sub

 '清理图标
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    t.cbSize = Len(t)
    t.hWnd = Pic.hWnd
    t.uId = 1&
    Shell_NotifyIcon NIM_DELETE, t
End Sub

'弹出菜单
Private Sub pic_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Hex(x) = "1E3C" Then
        Me.PopupMenu Popup
    End If
End Sub