vbs 버전 음악 플레이어
vbs 버전 음악 플레이어
기능:
1. 파일 드래그를 지원하며 오디오 파일을 스크립트에 드래그할 수 있습니다.
2. 스크립트를 두 번 클릭하면 파일 선택 대화 상자가 열립니다.
PS: 플레이어 자체는 기술적 함량이 없고 wmplayer만 호출하고 있습니다.ocx 객체순전히 오락이다!
PSS: 팟캐스터는 UI 인터페이스가 없으며 백그라운드에서 오디오 파일을 재생합니다.스크립트가 실행되면 wscript를 생성합니다.exe/cscript.exe 또는 mshta.exe 두 프로세스를 닫으려면 수동으로 끝내야 합니다.
코드: (다음 코드를 수첩에 복사하여 확장자 vbs 파일로 저장하십시오)Call Main()
4
Sub Main()
Dim objArgs, objwmp, strFilePath, nArgsCount
Set objArgs = WScript.Arguments
nArgsCount = objArgs.Count '
Set objwmp = CreateObject("wmplayer.ocx")
objwmp.settings.volume = 50
objwmp.uiMode = "Invisible"
Select Case nArgsCount
Case 0: <span style="white-space:pre"> </span>' ，
strFilePath = LoadFile()
objwmp.URL = strFilePath '
Do Until objwmp.playState = 1 <span style="white-space:pre"> </span>'
WScript.Sleep 1000
Loop
Case 1: '
strFilePath = objArgs(0)
objwmp.URL = strFilePath
Do Until objwmp.playState = 1
WScript.Sleep 1000
Loop
Case Else:
MsgBox " ， ", vbYes + vbError, " "
WScript.Quit
End Select
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' :
' :
' :LoadFile
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function LoadFile()
Dim shell : Set shell = CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
Dim tempName : tempName = fso.GetTempName()
Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
tempFile.Write _
"<html>" & _
"<head>" & _
"<title>Browse</title>" & _
"</head>" & _
"<body>" & _
"<input type='file' id='f' />" & _
"<script type='text/javascript'>" & _
"var f = document.getElementById('f');" & _
"f.click();" & _
"var shell = new ActiveXObject('WScript.Shell');" & _
"shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
"window.close();" & _
"</script>" & _
"</body>" & _
"</html>"
tempFile.Close
shell.Run tempFolder & "\" & tempName & ".hta", 0, True
LoadFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function
종료 프로세스 코드(
다음 코드를 메모장에 복사하고 확장자 vbs 파일로 저장하십시오.' Terminate a Process
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'wscript.exe' Or Name = 'mshta' Or Name = 'cscript'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
순전히 오락이다!!!
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSON
JSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다.
그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다.
저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
Call Main()
Sub Main()
Dim objArgs, objwmp, strFilePath, nArgsCount
Set objArgs = WScript.Arguments
nArgsCount = objArgs.Count '
Set objwmp = CreateObject("wmplayer.ocx")
objwmp.settings.volume = 50
objwmp.uiMode = "Invisible"
Select Case nArgsCount
Case 0: <span style="white-space:pre"> </span>' ，
strFilePath = LoadFile()
objwmp.URL = strFilePath '
Do Until objwmp.playState = 1 <span style="white-space:pre"> </span>'
WScript.Sleep 1000
Loop
Case 1: '
strFilePath = objArgs(0)
objwmp.URL = strFilePath
Do Until objwmp.playState = 1
WScript.Sleep 1000
Loop
Case Else:
MsgBox " ， ", vbYes + vbError, " "
WScript.Quit
End Select
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' :
' :
' :LoadFile
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function LoadFile()
Dim shell : Set shell = CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
Dim tempName : tempName = fso.GetTempName()
Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
tempFile.Write _
"<html>" & _
"<head>" & _
"<title>Browse</title>" & _
"</head>" & _
"<body>" & _
"<input type='file' id='f' />" & _
"<script type='text/javascript'>" & _
"var f = document.getElementById('f');" & _
"f.click();" & _
"var shell = new ActiveXObject('WScript.Shell');" & _
"shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
"window.close();" & _
"</script>" & _
"</body>" & _
"</html>"
tempFile.Close
shell.Run tempFolder & "\" & tempName & ".hta", 0, True
LoadFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function
' Terminate a Process
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'wscript.exe' Or Name = 'mshta' Or Name = 'cscript'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
