Skip to content

Added English Translation #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
132 changes: 66 additions & 66 deletions scripts/Auxiliary/download.vbs → Chinese/scripts/Auxiliary/download.vbs
100755 → 100644
Original file line number Diff line number Diff line change
@@ -1,67 +1,67 @@
dim url
dim file
Set objArgs = WScript.Arguments
if objArgs.Count < 2 then
msgbox("Invalid param count! should be: url pathfilename")
Else
url = objArgs(0)
file = objArgs(1)
GetHttpResult url, "UTF-8", file
end if
function GetHttpResult(url, charset, file)
dim http
set http = Createobject("Msxml2.ServerXMLHTTP")
Http.setTimeouts 10000, 10000, 10000, 10000 '���ó�ʱʱ��
'Sub setTimeouts(ByVal resolveTimeout As Long, ByVal connectTimeout As Long, ByVal sendTimeout As Long, ByVal receiveTimeout As Long)
http.Open "GET", url, False
'Sub open(ByVal bstrMethod As String, ByVal bstrUrl As String, [ByVal varAsync], [ByVal bstrUser], [ByVal bstrPassword])
http.Send()
If http.readystate = 4 Then
GetHttpResult = SaveToFile(http.ResponseBody, charset, file)
End If
end function
Function SaveToFile(str, charset, file)
Dim objStream
Set objStream = CreateObject("Adodb.Stream")
objStream.Type = 1
'Const adTypeBinary = 1
'Const adTypeText = 2
objStream.Mode = 3
'Const adModeRead = 1
'Const adModeReadWrite = 3
'Const adModeRecursive = 4194304
'Const adModeShareDenyNone = 16
'Const adModeShareDenyRead = 4
'Const adModeShareDenyWrite = 8
'Const adModeShareExclusive = 12
'Const adModeUnknown = 0
'Const adModeWrite = 2
objStream.Open
objStream.Write str
objStream.Position = 0
objStream.Type = 2
'adTypeBinary = 1
'adTypeText = 2
objStream.Charset = charset
' BytesToStr = objStream.ReadText
objStream.SaveToFile file, 2
'adSaveCreateNotExist = 1
'adSaveCreateOverWrite = 2
objStream.Close
Set objStream = Nothing
dim url
dim file
Set objArgs = WScript.Arguments
if objArgs.Count < 2 then
msgbox("Invalid param count! should be: url pathfilename")
Else
url = objArgs(0)
file = objArgs(1)
GetHttpResult url, "UTF-8", file
end if


function GetHttpResult(url, charset, file)
dim http
set http = Createobject("Msxml2.ServerXMLHTTP")
Http.setTimeouts 10000, 10000, 10000, 10000 '���ó�ʱʱ��
'Sub setTimeouts(ByVal resolveTimeout As Long, ByVal connectTimeout As Long, ByVal sendTimeout As Long, ByVal receiveTimeout As Long)

http.Open "GET", url, False
'Sub open(ByVal bstrMethod As String, ByVal bstrUrl As String, [ByVal varAsync], [ByVal bstrUser], [ByVal bstrPassword])

http.Send()

If http.readystate = 4 Then
GetHttpResult = SaveToFile(http.ResponseBody, charset, file)
End If

end function

Function SaveToFile(str, charset, file)
Dim objStream
Set objStream = CreateObject("Adodb.Stream")

objStream.Type = 1
'Const adTypeBinary = 1
'Const adTypeText = 2

objStream.Mode = 3
'Const adModeRead = 1
'Const adModeReadWrite = 3
'Const adModeRecursive = 4194304
'Const adModeShareDenyNone = 16
'Const adModeShareDenyRead = 4
'Const adModeShareDenyWrite = 8
'Const adModeShareExclusive = 12
'Const adModeUnknown = 0
'Const adModeWrite = 2


objStream.Open
objStream.Write str
objStream.Position = 0

objStream.Type = 2
'adTypeBinary = 1
'adTypeText = 2

objStream.Charset = charset
' BytesToStr = objStream.ReadText

objStream.SaveToFile file, 2
'adSaveCreateNotExist = 1
'adSaveCreateOverWrite = 2

objStream.Close
Set objStream = Nothing
End Function
File renamed without changes.
26 changes: 13 additions & 13 deletions scripts/Grab password/lock-screen.ps1 → ...ese/scripts/Grab password/lock-screen.ps1
100755 → 100644
Original file line number Diff line number Diff line change
@@ -1,14 +1,14 @@
Function Lock-WorkStation {
$signature = @"
[DllImport("user32.dll", SetLastError = true)]
public static extern bool LockWorkStation();
"@
$LockWorkStation = Add-Type -memberDefinition $signature -name "Win32LockWorkStation" -namespace Win32Functions -passthru
$LockWorkStation::LockWorkStation() | Out-Null
}
Function Lock-WorkStation {

$signature = @"
[DllImport("user32.dll", SetLastError = true)]
public static extern bool LockWorkStation();
"@

$LockWorkStation = Add-Type -memberDefinition $signature -name "Win32LockWorkStation" -namespace Win32Functions -passthru

$LockWorkStation::LockWorkStation() | Out-Null

}

Lock-WorkStation
File renamed without changes.
Loading