module1.bas

一个可以自动播放的软件

Attribute VB_Name = "Module1"
Public SongName As String
Public TaskNumber As Integer
Public Task_Str As String
Public Add_SongName As String

Public TaskOption As Boolean
Public OP_SongName As String
Public OP_Num As Integer

Type Tasktype
    TaskName As String
    TaskTime As String
    TaskReplay As Integer
    TaskPlan As Integer
End Type

Public SongTask As Tasktype
Public Add_SongTask As Tasktype
Public OP_task As Tasktype
Public TaskArr(100) As String

Public CloseTime As Date

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

'声明:
'Global Const EWX_LOGOFF = 0
'Global Const EWX_REBOOT = 2
'Global Const EWX_SHUTDOWN = 1

''Public Const EW_REBOOTSYSTEM = &H43
'
''Public Const EW_RESTARTWINDOWS = &H42
'
'
''Declare Function ExitWindows Lib "User32" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer

'Declare Function ExitWindows Lib "User32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
'使用:
'lresult = ExitWindowsEx(EWX_SHUTDOWN, 0&) '关闭计算机
'lresult = ExitWindowsEx(EWX_REBOOT, 0&) '重新启动计算机



Public Function Str_SongTask(str_task As String)

    sss1 = InStr(str_task, "(")
    sss2 = InStr(str_task, "#")
    sss3 = InStr(str_task, "@")
    SongTask.TaskName = Mid(str_task, 1, sss1 - 1)
    SongTask.TaskPlan = Mid(str_task, sss1 + 1, sss2 - sss1 - 1)
    SongTask.TaskTime = Mid(str_task, sss2 + 1, sss3 - sss2 - 1)
    SongTask.TaskReplay = Mid(str_task, sss3 + 1)
    
End Function

Public Function GetIniS(ByVal SectionName As String, ByVal Keyword As String, ByVal DefString As String, ByVal INIfile As String) As String
    Dim ResultString As String * 256, Temp As Integer
    Dim s As String, i As Integer
    Temp = GetPrivateProfileString(SectionName, Keyword, "", ResultString, 256, INIfile)
    '
    If Temp > 0 Then
    s = ""
    For i = 1 To 256
    If Asc(Mid$(ResultString, i, 1)) = 0 Then
    Exit For
    Else
    s = s & Mid$(ResultString, i, 1)
    End If
    Next
    Else
    Temp = WritePrivateProfileString(SectionName, Keyword, DefString, INIfile)
    '
    s = DefString
    End If
    GetIniS = s
End Function

Public Function GetIniN(ByVal SectionName As String, ByVal Keyword As String, ByVal DefInt1 As Integer, ByVal INIfile As String) As Integer
    Dim Temp As Long
    Dim s%, i As Integer
    Dim tmpS As String
    Temp = GetPrivateProfileInt(SectionName, Keyword, 0, INIfile)
    '
    If Temp > 0 Then
    s = Temp
    Else
    '
    tmpS = Str(DefInt1)
    Temp = WritePrivateProfileString(SectionName, Keyword, tmpS, INIfile)
    s = DefInt1
    End If
    GetIniN = s
End Function

Public Sub SetIniS(ByVal SectionName As String, ByVal Keyword As String, ByVal ValStr As String, ByVal INIfile As String)
    Dim res%
    res% = WritePrivateProfileString(SectionName, Keyword, ValStr, INIfile)
End Sub

Public Sub SetIniN(ByVal SectionName As String, ByVal Keyword As String, ByVal ValInt As Integer, ByVal INIfile As String)
    Dim res%, s$
    s$ = Str$(ValInt)
    res% = WritePrivateProfileString(SectionName, Keyword, s$, INIfile)
End Sub