我正在尝试编写一个使用Google语音来发送消息的vbscript .

我必须将代码保存到带有UTF8编码的 notepad ++中,而没有BOM和发音很好,但是消息框的显示不适合重音字符.如何解决这个问题呢 ？

谢谢!

Option Explicit
Call Ip_Publique()
'***********************************************************************************************************************************************************
Sub Ip_Publique()
    Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches,ip_public
    Dim Message,URLFR
    Message = "Vous êtes connecté à internet !" & VbCrlf & "Votre IP Publique est : "
    URLFR = "http://translate.google.com/translate_tts?ie=UTF-8&tl=fr&q=" & Message
    Titre = "Adresse Ip Publique !"
    URL = "http://monip.org"
    If OnLine("smtp.gmail.com") = True Then 
        Set ie = CreateObject("InternetExplorer.Application")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        ie.Navigate (URL)
        ie.Visible=False
        DO WHILE ie.busy
            Wscript.Sleep 100
        Loop
        Data = ie.document.documentElement.innertext
        Set …

我正在为( "vbs" ,"vbe" ,"wsf", "a3x")注册表中的某些已知病毒密钥编写清理程序.

我想用powershell在powershell中添加一个BalloonTip,但是有些错误!

我不知道如何从任务栏中删除图标以显示进度扫描？

这是一个草案.它还没有优化!

@echo off
Title Hackoo Virus Cleaner to delete virus key from registry by Hackoo 2016
Color 1A & Mode con cols=80 lines=8
Set Pattern="\.vbs"^
^ "\.vbe"^
^ "\.wsf"^
^ "\.a3x"^
^ "VBScript.Encode"^
^ "\winlogon\.bat"

Set Key="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"^
^ "HKCU\Software\Microsoft\Windows\CurrentVersion\Run"^
^ "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"^
^ "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options"

For %%P in (%Pattern%) Do (
        For %%K in (%Key%) Do (     
            Cls 
            echo(
            echo(
            Echo         ***************************** Scan *****************************
            echo             %%K
            Echo         **************************************************************** …

我想将文本文件的完整路径传递给其中一个函数.我使用以下命令将我的脚本和文本文件放在同一位置,我找到了我的脚本所在的文件夹路径

p = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

p 来了 C:\test

我的文件名是 xyz.txt

我想将参数传递给函数as C:\test\xyz.txt

我该如何组合路径和文件名

我尝试下面的代码

path =  p & "xyz.txt"

任何人都可以帮助我如何加入路径和文件名.

大家喜欢stackoverflow!

我正在寻找一种解决方法,如何使用保留名称删除此类文件:

(nul, aux, com1, prn, etc...)

所以,我得到输出错误:

文件名,目录或卷的语法不正确.

@echo off
echo hello world>\\?\"%temp%\nul:nul"
pause
more<"%temp%\nul:nul"
pause
set /p MyVar=<"\\?\%temp%\nul:nul"
echo %MyVar%
Pause
Del "\\?\%temp%\nul:nul" /F
pause

我正在使用这个技巧来存储如下面的代码所示的密码,所以,我可以将密码设置为此文件,并从中读取,但我无法删除它.

@echo off
Title %~n0 with colors by Hackoo
Mode 50,5 & Color 0E
Setlocal EnableDelayedExpansion
:CreatePassword
Call :InputPassword "Please choose your password" pass1
Call :InputPassword "Please confirm your password" pass2
If !pass1!==!pass2! ( Goto:Good ) Else ( Goto:Bad )
::***********************************
:InputPassword
Cls
echo.
echo.
set "psCommand=powershell -Command "$pword = read-host '%1' -AsSecureString …

我正在尝试创建一个 .bat 文件，运行该文件时，它将所有设备从设备管理器导出到 .txt 文件。

我发现的一切都还不清楚。

只是寻找有关执行此导出的命令的一些指导。谢谢

有没有办法用 Visual Basic 脚本播放声音文件（MP3）？

Set obj = CreateObject("WScript.Shell")
obj.run "C:/test.mp3" 

还有一些其他方法，如果尝试过，但没有奏效。

脚本运行时没有显示声音，但没有错误。

我想检查进程是否正在运行？如果进程没有运行,那么我执行它(在这个例子中我带了进程名称= calc.exe的计算器)我启动了批处理脚本,但我有一个语法问题我相信!

@echo off
Set MyProcess=calc.exe
echo %MyProcess%
pause
for /f "tokens=1" %%i In ('tasklist /NH /FI "imagename eq %MyProcess%"') do set ff=%%i
echo %ff%
If /i %ff%==%MyProcess% (Echo %ff% est en cours d^'execution) Else (Start %MyProcess%)
pause

我试图使用vbs脚本发送邮件,但它不起作用.我正在使用服务器smtp.gmail.com和端口587.我们的问题是,当我将端口更改为25时,这是有效的.以下是我使用的代码:

    SMTPMail "to", "cc", "TEST", "TEST"


Function SMTPMail(ByVal sTo, ByVal sCc, ByVal sSubject, ByVal sBody)


    Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
    Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

    Const cdoAnonymous = 0 'Do not authenticate 
    Const cdoBasic = 1 'basic (clear-text) authentication 
    Const cdoNTLM = 2 'NTLM

    Dim objMessage

    set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = sSubject
    objMessage.Sender = "sender"
    objMessage.From = "from"
    objMessage.To = sTo
    objMessage.CC …

我正在使用 matlab 并调用 CMD 来运行 winrar 以提取文件。我想在静默模式下进行提取过程 - 意味着看不到进度报告的弹出窗口（附图片）。有任何想法吗？

我尝试使用 -s 或 /s 开关，但没有帮助

谢谢

有问题的

\n

CHKDSK当我的机器重新启动时运行，并显示一些内容。\n 问题是我不知道它显示什么，因为它在完成后继续\n 重新启动机器。如何让它停止、暂停或以其他方式让我看看它做了什么？

\n\n

chkdsk 无法运行，因为该卷正被另一个进程使用意味着\n ?，CHKDSK 需要对磁盘\xe2\x80\x99s 进行独占访问，检查\xe2\x80\x99s\n 是否已被指示尝试修复或修复。如果该磁盘是您的 Windows 驱动器 (C:)，则 CHKDSK 可以具有独占访问权限，因为 Windows 仅使用该驱动器来运行您的系统。

\n

当我们重新启动时，CHKDSK 在 Windows 加载之前执行。

CHKDSK像平常一样运行，完成后，它会重新启动系统 \xe2\x80\x93，这当然会导致屏幕上可能显示的任何进度或结果消失。

为了创建一个有用的工具来维护我的硬盘，以检查、修复和修复它们的错误。

我做了这批

@echo off\nTitle Check Disk drives for errors and fix them by Hackoo 2016\nmode con cols=67 lines=5 & Color 0A\n:::::::::::::::::::::::::::::::::::::::::\n:: Automatically check & get admin rights\n:::::::::::::::::::::::::::::::::::::::::\nset "TmpLog=%Tmp%\\TmpLog.txt"\nset "Log=%~dp0%computername%_%~n0.txt"\nIf Exist "%TmpLog%" Del "%TmpLog%"\nIf exist "%Log%" Del "%Log%"\nREM  --> Check for permissions\nReg query "HKU\\S-1-5-19\\Environment" >nul …

如何删除意外创建的名称为“Call”的零字节文件？

我正面临这个问题，直到现在我才弄明白？

我尝试使用命令Del但没有机会。

@echo off
set "targetdir=C:\FolderDir"
for /f "delims=" %%a in ('dir/s/b/a-d "%targetdir%\*.*"') do ( if %%~Za equ 0 echo %%~na>>results.txt && del "%%~a" )

我还尝试删除包含此文件“Call”的目录

RD /S /Q [ParentFolder with file Call Inside]

我也尝试过使用 Powershell：

Get-ChildItem -Path "C:\MyFolderDir" -Recurse -Force | Where-Object { $_.PSIsContainer -eq $false -and $_.Length -eq 0 } | remove-item

编辑 ：

我在他的评论中执行@Compo 在下面提供的这个命令：

%SystemRoot%\System32\where.exe /T /F "C:\FolderDir":"*call*"

我得到了这样的结果：

 ? ? ? "C:\Users\Hackoo\Desktop\Scripting\Call "

我一直试图这样做,但已经在命令行中输入:

CHKDSK C: /f

我试图查找如何做到这一点,但我不是那么大的蝙蝠文件编程和更多,所以我只是一个小程序员学习java atm ...我想知道如何做到这一点,所以知道如何计算它.因为它可以长期帮助我,并在短期内帮助我.

非常感谢.:)