czjt1234

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("D:\test.txt", 8, True)
'这里的8代表追加文件内容，要清空原有文件内容换成2
objTextStream.WriteLine "111"
objTextStream.WriteLine "222"
objTextStream.Close
复制代码

czjt1234

Set objTextStream = objFSO.OpenTextFile("D:\test.txt",1|2|8,True|False,-2|-1|0)
'打开文件，返回 TextStream 对象
'可以读写文件内容，不能使用文件属性，不可以复制、移动、删除文件
'True表示文件不存在时自动新建文件，False为不新建(缺省值)
  Const ForReading         = 1   '只读(缺省值)
  Const ForWriting         = 2   '清空文件，覆盖写入
  Const ForAppending       = 8   '在文件末尾追加写入
  Const TristateUseDefault = -2  '以系统默认格式打开文件
  Const TristateTrue       = -1  '以 Unicode 格式打开文件
  Const TristateFalse      = 0   '以 ASCII 格式打开文件(缺省值)

objTextStream.Skip(3)
'在读取数据时，跳过3个字符，光标位置移到3个字符之后
'每行末尾的回车换行算2个字符
'要求打开方式为只读

objTextStream.SkipLine
'在读取数据时，跳过一行，光标位置移到下一行行首
'要求打开方式为只读

strRead = objTextStream.Read(3)
'从光标位置读取3个字符，光标移到3个字符之后
'要求打开方式为只读

strRead = objTextStream.ReadLine
'从光标位置读取一行，光标移到下一行行首
'要求打开方式为只读

strRead = objTextStream.ReadAll
'从光标位置读取文件所有内容，光标移到文末
'要求打开方式为只读

blnYN = objTextStream.AtEndOfLine
'判断光标位置是否在某一行末尾，返回True|False
'要求打开方式为只读

blnYN = objTextStream.AtEndOfStream
'判断光标位置是否在文末，返回True|False
'要求打开方式为只读

objTextStream.Write "test"
'从光标位置插入字符串

objTextStream.WriteLine "test"
'从光标位置插入字符串，并回车换行

objTextStream.WriteBlankLines 5
'从光标位置插入5个空行

strRead = objTextStream.Line
'返回当前光标所在行号

strRead = objTextStream.Column
'返回当前光标所在列号

objTextStream.Close
'关闭文件对象，立刻保存到磁盘

czjt1234

后台发送按键，SendKeys不行

可以考虑调用api

vbs调用api，一个是用第三方软件dynwrap.dll
一个是用Excel，如果你装了Excel

还有你的后台不知道是什么意思

如果你可以在屏幕上看到该窗口，并且该窗口是活动窗口
那么也可以用SendKeys

objwsh.SendKeys strRead    '向当前活动窗口发送按键
'下面是操作键的发送代码
退格键             {BACKSPACE}、{BS} 或 {BKSP}
BREAK              {BREAK}
CAPS LOCK          {CAPSLOCK}
DEL 或 DELETE      {DELETE} 或 {DEL}
向下键             {DOWN}
END                {END}
ENTER              {ENTER} 或 ~
ESC                {ESC}
HELP               {HELP}
HOME               {HOME}
INS 或 INSERT      {INSERT} 或 {INS}
向左键             {LEFT}
NUM LOCK           {NUMLOCK}
PAGE DOWN          {PGDN}
PAGE UP            {PGUP}
向右键             {RIGHT}
SCROLL LOCK        {SCROLLLOCK}
TAB                {TAB}
向上键             {UP}
F1 至 F12          {F1} 至 {F12}
SHIFT              +
CTRL               ^
ALT                %
+ { 等修饰符       {+} {{} {^} {}} {%}
'如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 +(ec)
'可发送一个键的重复键击。如10次x，为{x 10}，但不可发送10次组合键，如Ctrl+x
'不能发送 PRINT SCREEN 键 {PRTSC}
'常用 Wscript.Sleep 来延时若干毫秒发送按键，避免程序来不及响应

比如你的代码可以用vbs这么写

Set objWsh = CreateObject("WScript.Shell")
objWsh.AppActivate "t - 记事本"
objwsh.SendKeys "it"
Wsctipt.Sleep 100
objwsh.SendKeys " " 
Wsctipt.Sleep 100
objwsh.SendKeys "is"
Wsctipt.Sleep 100
objwsh.SendKeys " 9"
Wsctipt.Sleep 100
objwsh.SendKeys "{Enter}"
复制代码

czjt1234

6楼的vbs也是前台的，不行

按键精灵我没用过，不过看9楼的代码，用到了句柄，那就是调用了api

我找了个vbs调用api的例子，你研究下，需要用到dynwrap.dll文件

有2个版本，一个36K，一个44K，都可以用

czjt1234

Declare Function keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

发送按键用这个api

这里有api原型和vbs调用的格式

Dim UserWrap,hWnd

Set UserWrap = CreateObject("DynamicWrapper")

'Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

UserWrap.Register "USER32.DLL", "FindWindow", "I=ss", "f=s", "R=l"

'Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

UserWrap.Register "USER32.DLL", "SetWindowPos", "I=Hllllll", "f=s", "R=l"

hWnd = UserWrap.FindWindow(vbNullString, "计算器")

UserWrap.SetWindowPos hWnd, -1, 0, 0, 0, 0, 3

MsgBox "现在将鼠标移到左上角！"

'Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

UserWrap.Register "USER32.DLL", "SetCursorPos", "I=ll", "f=s", "R=l"

UserWrap.SetCursorPos 0,0
复制代码

czjt1234

REM i: (Argument Type)
REM 'a', sizeof(IDispatch*), VT_DISPATCH}        // a IDispatch*
REM 'c', sizeof(unsigned char), VT_I4}                // c signed char
REM 'd', sizeof(double), VT_R8}                        // d 8 byte real
REM 'f', sizeof(float), VT_R4}                        // f 4 byte real
REM 'k', sizeof(IUnknown*), VT_UNKNOWN}                // k IUnknown*
REM 'h', sizeof(long), VT_I4}                        // h HANDLE
REM 'l', sizeof(long), VT_I4}                        // l long
REM 'p', sizeof(void*), VT_PTR}                        // p pointer
REM 's', sizeof(BSTR), VT_LPSTR}                // s string
REM 't', sizeof(short), VT_I2}                        // t short
REM 'u', sizeof(UINT), VT_UINT}                        // u unsigned int
REM 'w', sizeof(BSTR), VT_LPWSTR}                // w wide string

REM f: (Call Method)
REM 'm' - DC_MICROSOFT 0x0000, Default
REM 'b' - DC_BORLAND 0x0001, Borland compat
REM 's' - DC_CALL_STD 0x0020, __stdcall
REM 'c' - DC_CALL_CDECL 0x0010, __cdecl
REM '4' - DC_RETVAL_MATH4 0x0100, Return value in ST
REM '8' - DC_RETVAL_MATH8 0x0200, Return value in ST

REM r: (Return Type)
REM Same as i

上面是"I=ss", "f=s", "R=l"参数
I是输入，s代表一个String类型的参数，
f=s不用管，照抄
R是输出

但是这种调用办法有很多局限，比如指针类型的参数就不行，自定义类型的参数也不行

用excel调用，格式方面比较简单

下面是个例子

Option Explicit
Dim WshShell, oExcel, strRegKey, strCode, x, y

Set oExcel = CreateObject("Excel.Application")
set WshShell = CreateObject("wscript.Shell")

strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
strRegKey = Replace(strRegKey, "$", oExcel.Version)
'生成注册表路径，oExcel.Version 是当前版本号
WshShell.RegWrite strRegKey, 1, "REG_DWORD"
'写如注册表，1表示设置安全级别为低，这样添加宏就不会有安全提示了

strCode = _
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf & _
                                                                                                    vbCrLf & _
"Private Type POINTAPI"                                                                           & vbCrLf & _
    "X As Long"                                                                                   & vbCrLf & _
    "Y As Long"                                                                                   & vbCrLf & _
"End Type"                                                                                        & vbCrLf & _
                                                                                                    vbCrLf & _
"Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long"              & vbCrLf & _
                                                                                                    vbCrLf & _
"Sub SetCursor(x as Long, y as Long)"                                                             & vbCrLf & _
    "SetCursorPos x, y"                                                                           & vbCrLf & _
"End Sub"                                                                                         & vbCrLf & _
                                                                                                    vbCrLf & _
"Public Function GetXCursorPos() As Long"                                                         & vbCrLf & _
    "Dim pt As POINTAPI"                                                                          & vbCrLf & _
    "GetCursorPos pt"                                                                             & vbCrLf & _
    "GetXCursorPos = pt.X"                                                                        & vbCrLf & _
"End Function"                                                                                    & vbCrLf & _
                                                                                                    vbCrLf & _
"Public Function GetYCursorPos() As Long"                                                         & vbCrLf & _
    "Dim pt As POINTAPI"                                                                          & vbCrLf & _
    "GetCursorPos pt"                                                                             & vbCrLf & _
    "GetYCursorPos = pt.Y"                                                                        & vbCrLf & _
"End Function"

oExcel.Workbooks.Add.VBProject.VBComponents.Add(1).CodeModule.AddFromString strCode

x = oExcel.Run("GetXCursorPos")
y = oExcel.Run("GetYCursorPos")
WScript.Echo x, y

oExcel.Run "SetCursor", 1024, 768

oExcel.DisplayAlerts = False
oExcel.Workbooks.Add.Close
oExcel.Quit
复制代码

czjt1234

按键精灵屏蔽了具体的api，给你固定格式直接调用，很方便

看它代码，应该是先获取句柄，再向指定句柄发送按键，不知道是哪个api

正好我也想研究“向指定句柄发送按键”，我们一起交流交流

czjt1234

注册10楼的dll文件先