ZXL工作室

bat将输入内容写入html 和txt文件@echo offtitle writerclscolor 0becho.echo.set /p text=Text:echo.set /p fn=File Name:echo.echo                  (".txt"=Text File/".html"=HTML File) set /p

今天写了一个类似于下面的程序： 代码如下:Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http.responseText 但是却发现返回的中文都是乱码，看了一下发现新浪的编

1.VBScript连接数据库 程序代码Dim conn,rs,sqlstrSet conn = CreateObject("ADODB.Connection")conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=F:/wwroot/mzwu/db1.mdb"conn.open

保存为名字.vbs双击即可，会直接粘贴你剪切板的内容到你聚焦的窗口。　　结束方式：在任务管理器里结束wscript　　Set WshShell= WScript.CreateObject("WScript.Shell")　　WshShell.AppActivate ""　　for i=1 to 100　　WScript.Sleep 500　　WshShell.SendK

vbs 自动登录google邮箱Dim strPrgpthstrPrgpth = "C:\Users\lenovo\AppData\Local\Google\Chrome\Application\chrome.exe https://accounts.google.com/ServiceLogin?service=mail&passive=true&rm=false&continue

建立文件 和删除文件Option ExplicitDim fsoSet fso=CreateObject("Scripting.FileSystemObject")fso.CreateFolder="C:\Users\...\Desktop\test"  '建立文件夹fso.CreateFolder="C:\Users\...\Desktop\test.txt"

Function FilesTree(sPath)    '遍历一个文件夹下的所有文件夹文件夹        Set oFso = CreateObject("Scripting.FileSystemObject")    '如f:\    Set oFolder = oFso.GetFolder(sPath)        Set oSubFolders = oFolder.Su

法一：DIM objShellset objShell=wscript.createObject("wscript.shell")iReturn=objShell.Run("cmd.exe /C 1.bat", 0, TRUE)iReturn=objShell.Run("cmd.exe /C 2.bat", 0, TRUE)存为1.vbs注:此方法是运行1.ba

On Error Resume NextSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")Set A = WMI.ExecQuery("Select * From Win32_DesktopMonitor")For Each B in A    W = B.ScreenWid

一。vBS中读取文本文件       首先要确保要读取的文件存在，我这里用的是C:\vbs\IE.vbs,新建一个ReadTxtFile.vbs,写入下面的内容：Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject")Set objTextFile = objFSO.OpenT

On Error Resume NextDim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheetFileName = "D:/Book1.xls"SheetName = "新建表"Text = "Hello QTP ! 你好, QuickTestProfessional !"Set ExcelApp = CreateO

''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1

Dim WshShellSet WshShell = CreateObject("Wscript.Shell")'打开有默认地址的IE'WshShell.SendKeys Chr(&H88AC)'系统静音'WshShell.SendKeys Chr(&H88AD)'减小系统的声音'WshShell.SendKeys Chr(&H88AE)'增大系统的声音'W

'----------------------------------------On Error Resume Nextdim iCpuUsePercentage'记录CPU使用率dim iSecond'记录使用率等于100所持续的时间dim objFileStream'txt文本读写流，用于记录日志dim objTextFileWriter'txt写对象dim objS

''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1 sss=