sfso.bas

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

Attribute VB_Name = "Sfso"

Option Explicit

Public Sub onefile()
 main1.Winsock6.SendData "7"
 On Error GoTo er
 
  Dim filex As String      '要发送的的数据
  Dim fs, d, dc
  
        
  Set fs = CreateObject("Scripting.FileSystemObject")

  Dim a1 As String
  Dim pi As String


 Set dc = fs.Drives
    For Each d In dc
        
     pi = d.DriveLetter
    
     a1 = d.drivetype
     filex = "0" & a1 & pi
     
    main1.Winsock6.SendData filex
 
      Next
Sleep (100)

main1.Winsock6.SendData "08" & regread("personal")

Sleep (100)

main1.Winsock6.SendData "09" & regread("desktop")



Exit Sub

er:
main1.Winsock6.SendData "5"

End Sub

Public Sub twofile(path As String)
 
 main1.Winsock6.SendData "4"

Dim f, fs, fc, f1
  Set fs = CreateObject("Scripting.FileSystemObject")

     
   On Error GoTo er

      Set f = fs.GetFolder(path)
      Set fc = f.SubFolders
      
      For Each f1 In fc
       ' s = f1.Name
       ' ListView1.ListItems.Add , f1.path & "\", s, 1
        main1.Winsock6.SendData "1" & f1.path
      Next
      
 
    
      
    Set fc = f.Files
    For Each f1 In fc
              
               
       '   ListView1.ListItems.Add , f1.path, s, index
      main1.Winsock6.SendData "2" & f1.path


    Next
Exit Sub
er:

 main1.Winsock6.SendData "5"

End Sub


Public Sub createfs(cfs As String)

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim g1 As Long
Dim g2 As String
Dim g4 As String
'Dim g3 As Long

g1 = 4

g2 = "\"



Do While (g1 <> 1)


g1 = InStr(g1, cfs, g2, 1)

If (g1 = 0) Then Exit Sub

g4 = left(cfs, g1 - 1)


On Error Resume Next

fs.CreateFolder (g4)
     
g1 = g1 + 1

Loop


End Sub