config.bas

来自「Usb Key loock vb soucrse code. ocx not f」· BAS 代码 · 共 42 行

Attribute VB_Name = "Config"
Global UpdateTime As Integer

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

  Public Const conSwNormal = 1

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Const WM_CLOSE = &H10
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long


'ini 颇老勤甸
'ini 颇老版肺 佬扁(Update.config)
Public Function Readini(Section, Key)
    Dim RetVal As String, AppName As String, Worked As Integer
    AppName = App.Path & "\USB_CONFIG.SYS"
    RetVal = String(255, 0)
    Worked = GetPrivateProfileString(UCase(Section), UCase(Key), "", RetVal, Len(RetVal), AppName)
    Readini = Replace(Left(RetVal, Worked), Chr(0), "")
End Function

'ini 颇老版肺 静扁(Update.config)
Public Sub Writeini(Section, Key, W_KEY)
    Dim Worked  As Integer
    Dim AppName As String
    AppName = App.Path & "\USB_CONFIG.SYS"
    Worked = WritePrivateProfileString(UCase(Section), UCase(Key), W_KEY, AppName)
End Sub