startup.bas

来自「本书源码主要针对目前流行的FTP、HTTP、E-mail、Telnet、ICMP」· BAS 代码 · 共 54 行

Attribute VB_Name = "startup"
Option Explicit

'
' 启动程序Main
'
'    该程序在主窗体载入前执行，主要是让用户选择是启动服务器程序还是客户端程序
'
Sub Main()
    Dim dwRet As Long
    dwRet = MsgBox("单击""是""启动服务器进程, 单击""否""启动客户端程序。", vbYesNo)
    If dwRet = vbYes Then
        Load myserver
        myserver.Show
    Else
        Load myclient
        myclient.Show
    End If
End Sub

'
' 子程序VBntoaVers
'
' 程序说明：
'    该函数是获取winsock版本
'
Function VBntoaVers(ByVal vers As Long) As String
    Dim szVers As String
    szVers = String(5, 0)
    szVers = (vers And &HFF) & "." & ((vers And &HFF00) / 256)
    VBntoaVers = szVers
End Function

'
' 子程序hibyte
'
'程序说明：
'    该函数返回一个整数地高位字节
'
Function hibyte(ByVal wParam As Integer)
   hibyte = wParam \ &H100 And &HFF&
End Function

'
' 字函数lobyte
'
' 程序说明：
'    该函数返回一个整数地低位字节
'
Function lobyte(ByVal wParam As Integer)
   lobyte = wParam And &HFF&
End Function