mainmodule.bas

一个同学用VB编写的局域网通讯程序

Attribute VB_Name = "MainModule"
Public Const LIST_DRIVES As String = 0
Public Const LIST_FOLDERS As String = 1
Public Const LIST_FILES As String = 2
Public Const SHELL_EXECUTE As String = 3
Public Const LIST_OPEN_PROCESSES As String = 4
Public Const RECEIVE_FILE As String = 5
Public Const OPEN_CD_DOOR As String = 6
Public Const CLOSE_CD_DOOR As String = 7
Public Const KILL_FILE As String = 8
Public Const PROP_FILE As String = 9
Public Const SHOW_SCREEN As String = 10
Public Const MOUSE_MOVEMENT As String = 11

Public Const SEPERATOR As String = ";"
Public DataRecv As Boolean, intfile As Integer
Public FileName As String, FileToSave As String, FileToSend As String
Public strData As String, Receiving As Boolean, Sending As Boolean

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public cmd1, cmd2 As String, Connected As Boolean, okToCloseScr As Boolean

Public Sub Pause(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    
    Do
      u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub