spass.bas

星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网,管理速度快,连接简单方便.注意:星子行连接可用 于带路由主机与带路由主机之间连接,非路由与非路由之间连接.带

Attribute VB_Name = "Spass"

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 RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
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
Public pass As String        '登陆密码
Public Sub out()
    Dim hKey As Long, SubKey As String, Exe As String

    SubKey = "SOFTWARE\远程控制"
    Exe = pass
    RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
    
    RegSetValueEx hKey, "pass", 0, REG_SZ, ByVal Exe, _
                  LenB(StrConv(Exe, vbFromUnicode)) + 1
    RegCloseKey hKey
    
End Sub

Public Sub del()
 Dim hKey As Long, SubKey As String, Exe As String
     SubKey = "SOFTWARE\远程控制"

     RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
     RegDeleteValue hKey, "pass"
     RegCloseKey hKey

 
End Sub

Public Sub read()

 Dim hKey As Long, SubKey As String, Exe As String, typeData As Long, lenData As Long
 Dim passA As String
     SubKey = "SOFTWARE\远程控制"
     RegOpenKey HKEY_LOCAL_MACHINE, SubKey, hKey
Dim keybool As Long
     keybool = RegQueryValueEx(hKey, "pass", 0, typeData, ByVal vbNullString, lenData)
     If (keybool <> 0) Then
     pass = "xuhuai"
     Call out
     Else
     passA = String(lenData, Chr(0))
     RegQueryValueEx hKey, "pass", 0, typeData, ByVal passA, lenData
            
                If typeData = REG_SZ Then
                    passA = left(passA, InStr(passA, Chr(0)) - 1)
                End If
    RegCloseKey hKey
    pass = passA
    End If
End Sub

Public Sub run()
    Dim hKey As Long, SubKey As String, Exe As String

    SubKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
  ''  MsgBox ddxx
    Exe = App.path & "\bei.exe"
    RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
    
    RegSetValueEx hKey, "xu-远程控制系统", 0, REG_SZ, ByVal Exe, _
                  LenB(StrConv(Exe, vbFromUnicode)) + 1
    RegCloseKey hKey
End Sub



Public Function regread(folder As String) As String



Dim hKey As Long, ret As Long, lenData As Long, typeData As Long
    
    RegOpenKey HKEY_CURRENT_USER, _
    "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", hKey
    ret = RegQueryValueEx(hKey, folder, 0, typeData, _
                          ByVal vbNullString, lenData)
    If ret <> 0 Then
        regread = ""
    Else
        Dim S As String
                    
        S = String(lenData, Chr(0))
        RegQueryValueEx hKey, folder, 0, typeData, ByVal S, lenData
        regread = left(S, InStr(S, Chr(0)) - 1)
    End If
    RegCloseKey hKey

End Function