mainform.frm

VB远程控制代码

         TabIndex        =   5
         Top             =   1440
         Width           =   2415
         _ExtentX        =   4260
         _ExtentY        =   873
         CaptionAreaLayout=   1
         Caption         =   "光驱控制"
         CaptionBackColor=   -2147483644
         ShowCaption     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Picture         =   "mainform.frx":2C32
         ShowPictureFixSize=   -1  'True
         PictureFixWidth =   40
      End
      Begin SmartXpButton.SmartNetXpButton xpbutton 
         Height          =   495
         Index           =   5
         Left            =   0
         TabIndex        =   6
         Top             =   1920
         Width           =   2415
         _ExtentX        =   4260
         _ExtentY        =   873
         CaptionAreaLayout=   1
         Caption         =   "关闭系统控制"
         ShowCaption     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Picture         =   "mainform.frx":350C
         ShowPictureFixSize=   -1  'True
         PictureFixWidth =   40
      End
      Begin SmartXpButton.SmartNetXpButton xpbutton 
         Height          =   495
         Index           =   6
         Left            =   0
         TabIndex        =   7
         Top             =   2400
         Width           =   2415
         _ExtentX        =   4260
         _ExtentY        =   873
         CaptionAreaLayout=   1
         Caption         =   "发送消息"
         CaptionBackColor=   -2147483644
         ShowCaption     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Picture         =   "mainform.frx":3DE6
         ShowPictureFixSize=   -1  'True
         PictureFixWidth =   40
      End
      Begin SmartXpButton.SmartNetXpButton xpbutton 
         Height          =   495
         Index           =   8
         Left            =   0
         TabIndex        =   8
         Top             =   3840
         Width           =   2415
         _ExtentX        =   4260
         _ExtentY        =   873
         CaptionAreaLayout=   1
         Caption         =   "断开并退出"
         ShowCaption     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Picture         =   "mainform.frx":46C0
         ShowPictureFixSize=   -1  'True
         PictureFixWidth =   40
      End
      Begin SmartXpButton.SmartNetXpButton xpbutton 
         Height          =   495
         Index           =   9
         Left            =   0
         TabIndex        =   18
         Top             =   3360
         Width           =   2415
         _ExtentX        =   4260
         _ExtentY        =   873
         CaptionAreaLayout=   1
         Caption         =   "强制浏览"
         CaptionBackColor=   -2147483644
         ShowCaption     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Picture         =   "mainform.frx":4F9A
         ShowPictureFixSize=   -1  'True
         PictureFixWidth =   40
      End
   End
End
Attribute VB_Name = "mainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public ips As String

Private Sub SysInfo1_ConfigChangeCancelled()

End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) \ 2
Me.Top = (Screen.Height - Me.Height) \ 2
'SetWindowPos hwnd, -1, 0, 0, 0, 0, 3

Timer1.Enabled = True
Text2.Text = scksever.LocalIP
Text3.Text = get_computername()
End Sub

Private Sub scksever_ConnectionRequest(ByVal requestID As Long)
If scksever.State <> 0 Then scksever.Close
scksever.Accept requestID

End Sub

Private Sub scksever_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Dim sdata As String

scksever.GetData strdata
sdata = Left$(strdata, 7)

Select Case sdata
'系统消息
Case "SYSINFO"
xtxx = Right$(strdata, Len(strdata) - 7)
'发送消息

Case "SENDINF"
sendxx = Right$(strdata, Len(strdata) - 7)

sendform.sendtxt.Text = sendxx
sendform.Show 1
'关闭服务端
Case "OUITMYF"
scksever.Close
scksever.Listen
Timer1.Enabled = True

Case "GETFXIF"
xtxx = Right$(strdata, Len(strdata) - 7)


End Select


End Sub

Private Sub Timer1_Timer()
Dim strz As String
Select Case scksever.State
Case 0
strz = "关闭"
Case 1
strz = "打开"
Case 3
strz = "挂起"
Case 6
strz = "正在连接"
Case 7
strz = "已连接"
Text1.Text = scksever.RemoteHostIP

Case 2
strz = "监听"

End Select
StatusBar1.Panels(2).Text = strz

End Sub

Private Sub xpbutton_Click(Index As Integer)
Select Case Index
Case 0
    If scksever.State = 7 Then
         jmform.Show 1
    Else
          MsgBox "没有连接，请查正后再试", vbInformation, "错误"
    End If

Case 1 '设主机
    scksever.LocalPort = 1007
    scksever.RemotePort = 1008
    scksever.Listen
    MsgBox "设本机为服务器成功！", vbInformation, "提示"
    xpbutton(1).Enabled = False
Case 2 '鼠标
    If scksever.State = 7 Then
        sbkz.Show 1
    Else
        MsgBox "没有连接，请查正后再试", vbInformation, "错误"
    End If
Case 3 '信息
    If scksever.State = 7 Then
      hxxform.Show 1
    Else
        MsgBox "没有连接，请查正后再试", vbInformation, "错误"
    End If

Case 4 '光驱
    If scksever.State = 7 Then
        gqform.Show 1
    Else
    
        MsgBox "没有连接，请查正后再试", vbInformation, "错误"
    End If


Case 5 '控制关机
    If scksever.State = 7 Then
        xtkzform.Show 1

    Else
        MsgBox "没有连接，请查正后再试", vbInformation, "错误"
    End If
    
Case 6 '发消息
    If scksever.State = 7 Then
        sendform.Show 1

    Else
        MsgBox "没有连接，请查正后再试", vbInformation, "错误"
    End If
Case 9
    If scksever.State = 7 Then
        ieform.Show 1
    Else
        MsgBox "没有连接，请查正后再试", vbInformation, "错误"
    End If
'退出
Case 8
    If scksever.State = 7 Then
        scksever.SendData "QUITKHD"
        Sleep 50
        scksever.Close
        End
    Else
        End
    End If
End Select

End Sub