amodule.bas

来自「星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V」· BAS 代码 · 共 306 行

Attribute VB_Name = "Amodule"

Public Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long '主机锋呜
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public i As Integer
Public Sac() As Boolean
Public pubot As Boolean

Public Conhosn As String '远程连接的主机IP

Public Puport1 As Integer '公用端口

Public Rcname As String '远程连接的主机名


Public Sub Sendinfor(Getinfor As String)

On Error Resume Next

If Conhosn <> "" Then

For i = 1 To UBound(Sac)
     If Not i = index Then
     If Sac(i) Then
     
        If Main.Scmnet1(i).RemoteHostIP = Conhosn Then
        
        Main.Scmnet1(i).SendData Getinfor
        
         End If
         
       DoEvents
      End If
     End If
   Next i
   
   End If
   
End Sub

Public Sub Scmsend(Scmget As String)
'
End Sub

Public Sub Ywt_t()

On Error Resume Next

Dim w As String

Select Case Weekday(Now)

Case "1"

w = "星期日"

Case "2"

w = "星期一"

Case "3"

w = "星期二"

Case "4"

w = "星期三"

Case "5"

w = "星期四"

Case "6"

w = "星期五"

Case "7"

w = "星期六"

End Select

Main.Ywtlb.Caption = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日" & vbCrLf & vbCrLf & "     " & w & vbCrLf & "  " & Hour(Now) & "时" & Minute(Now) & "分" & Second(Now) & "秒"

End Sub

Public Sub Combo_x()

On Error Resume Next

Dim Commsgs As String

Select Case Main.Combo1.Text

  Case "确定"
  Commsgs = 0

  Case "确定 取消"
  Commsgs = 1

  Case "终止 重试 忽略"
  Commsgs = 2

  Case "是 否 取消"
  Commsgs = 3

  Case "是 否"
  Commsgs = 4

  Case "重试 取消"
  Commsgs = 5
  ''''''''''''''''''''''''''''''''''''
  
  Case "错误"
  Commsgs = 16
  
  Case "错误 确定 取消"
  Commsgs = 17
  
  Case "错误 终止 重试 忽略"
  Commsgs = 18
  
  Case "错误 是 否 取消"
  Commsgs = 19
  
  Case "错误 是 否"
  Commsgs = 20
  
  Case "错误 重试 取消"
  Commsgs = 21
  '''''''''''''''''''''''''''''''''
  
  Case "问号"
  Commsgs = 32
  
  Case "问号 确定 取消"
  Commsgs = 33
  
  Case "问号 终止 重试 忽略"
  Commsgs = 34
  
  Case "问号 是 否 取消"
  Commsgs = 35
  
  Case "问号 是 否"
  Commsgs = 36
  
  Case "问号 是 重试 取消"
  Commsgs = 37
  '''''''''''''''''''''''''''''
  
  Case "叹号"
  Commsgs = 48
  
  Case "叹号 确定 取消"
  Commsgs = 49
  
  Case "叹号 终止 重试 忽略"
  Commsgs = 50
  
  Case "叹号 是 否 取消"
  Commsgs = 51
  
  Case "叹号 是 否"
  Commsgs = 52
  
  Case "叹号 是 重试 取消"
  Commsgs = 53
  '''''''''''''''''''''''''''''''
  
  Case "消息"
  Commsgs = 64
  
  Case "消息 确定 取消"
  Commsgs = 65
  
  Case "消息 终止 重试 忽略"
  Commsgs = 66
  
  Case "消息 是 否 取消"
  Commsgs = 67
  
  Case "消息 是 否"
  Commsgs = 68
  
  Case "消息 是 重试 取消"
  Commsgs = 69

End Select

Call Sendinfor("Msgbox3" & Commsgs)

End Sub


Public Sub Combo_m()

On Error Resume Next

Dim Commsgs As String

Select Case Main.Combo1.Text

  Case "确定"
  Commsgs = 0

  Case "确定 取消"
  Commsgs = 1

  Case "终止 重试 忽略"
  Commsgs = 2

  Case "是 否 取消"
  Commsgs = 3

  Case "是 否"
  Commsgs = 4

  Case "重试 取消"
  Commsgs = 5
  ''''''''''''''''''''''''''''''''''''''''''
  
  Case "错误"
  Commsgs = 16
  
  Case "错误 确定 取消"
  Commsgs = 17
  
  Case "错误 终止 重试 忽略"
  Commsgs = 18
  
  Case "错误 是 否 取消"
  Commsgs = 19
  
  Case "错误 是 否"
  Commsgs = 20
  
  Case "错误 重试 取消"
  Commsgs = 21
  '''''''''''''''''''''''''''''''''
  
  Case "问号"
  Commsgs = 32
  
  Case "问号 确定 取消"
  Commsgs = 33
  
  Case "问号 终止 重试 忽略"
  Commsgs = 34
  
  Case "问号 是 否 取消"
  Commsgs = 35
  
  Case "问号 是 否"
  Commsgs = 36
  
  Case "问号 是 重试 取消"
  Commsgs = 37
  '''''''''''''''''''''''''''''
  
  Case "叹号"
  Commsgs = 48
  
  Case "叹号 确定 取消"
  Commsgs = 49
  
  Case "叹号 终止 重试 忽略"
  Commsgs = 50
  
  Case "叹号 是 否 取消"
  Commsgs = 51
  
  Case "叹号 是 否"
  Commsgs = 52
  
  Case "叹号 是 重试 取消"
  Commsgs = 53
  '''''''''''''''''''''''''''''''
  
  Case "消息"
  Commsgs = 64
  
  Case "消息 确定 取消"
  Commsgs = 65
  
  Case "消息 终止 重试 忽略"
  Commsgs = 66
  
  Case "消息 是 否 取消"
  Commsgs = 67
  
  Case "消息 是 否"
  Commsgs = 68
  
  Case "消息 是 重试 取消"
  Commsgs = 69
  
  
  
End Select
 
  MsgBox Main.Text2.Text, Commsgs, Main.Text1.Text

End Sub