红客防线--官网(攻防创新实验室)

调用声明

设置时长

时钟控件

窗口一个按钮，一个文本，简洁代码短少，无需API长篇大论。。

一、快速读取txt，空白内容则会出错。
1、建立模版

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

1、这里介绍vb打开网站问题，用最简单的方式打开杀毒一般都拦截，例如


2、其中shell函数调用执行一个可执行文件explorer.exe所以这种最方便的打开方式会被提示拦截询问，下面代码可以直接打开不提示，相对可靠些。

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