module1.bas

完整的英语900句源码－采用顶条技术

Attribute VB_Name = "Module1"

'初始化全局变量
Public ce As Integer '控制英汉次序的变量(1 英汉 0 反)
Public n As Integer ' 控制播放次数的变量(1-12)
Public ctime As Integer '控制汉语停留时间的变量(3-15秒)
Public etime As Integer '控制英语停留时间的变量(5-15秒)
Public rd As Integer '控制随机\顺序方式的变量(0 随机 1 顺序)
Public psave As Integer '存储进度的变量(1 存 0 否)
Public ssave As Integer '存储设置的标志(1 存 0 否)
Public visi As Integer '控制是否缩小的变量(1 隐 0 否)
Public voice As Integer '控制语音有无的变量(1 发 0 否)
Public guage As Integer '分类变量(0-9)
Public guagen As Integer '具体位置数变量
Public red As Integer '烈焰红唇模式(1 开启 0 否)
Public mark As Integer '控制自启动的标志(1 自启动 0 否)
Public xxx As String  '判断非首次运行标志(为 1非首次运行)
Public softcode As Double '软件编号
Public sn As Double '软件注册号
Public left As Integer '窗口的左位置
Public oncetime As Integer '用来控制软件进入后显示欢迎使用信息的时间变量
Public sspeed As Integer '用来控制朗读速度（120-180，中速为150）
Public delaytime As Integer '用来计算延时时间
Public ntimes As Integer '用来统计播放次数
Public sstep As Integer '用来描述时序进行到哪一步
Public usetime As Integer  '用来记录软件使用总时间(单位为1500毫秒)



'添加删除自启动项目的API声明
Option Explicit

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006

Public Const REG_NONE = 0
Public Const REG_SZ = 1
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Const REG_DWORD_BIG_ENDIAN = 5
Public Const REG_MULTI_SZ = 7

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
'在注册表中添加删除自启动项目
Sub Main()
    
    Dim hKey As Long, SubKey As String, Exe As String
    
    Select Case mark
      Case 1
          'MsgBox " 程序已经被设定成 Windows 启动时自动被执行的程序！"
          SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
              If Right(App.Path, 1) = "\" Then               '取程序所在路径含程序名赋值给变量Exe
                  Exe = App.Path + App.EXEName + ".exe"
              Else: Exe = App.Path + "\" + App.EXEName + ".exe"
              End If
          RegCreateKey HKEY_CURRENT_USER, SubKey, hKey        '取得句柄
          RegSetValueEx hKey, "e900", 0, REG_SZ, ByVal Exe, _
                   LenB(StrConv(Exe, vbFromUnicode)) + 1      '写入键值
          RegCloseKey hKey                                    '关闭句柄
      Case 0
          'MsgBox "程序已经被卸载!"
          SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
          RegOpenKey HKEY_CURRENT_USER, SubKey, hKey          '取得句柄
          RegDeleteValue hKey, "e900"                         '删除键值
          RegCloseKey hKey                                    '关闭句柄
      
    End Select
End Sub