按键精灵读取字符串

Question

比如 “64651321” “6541112321” “58441255877” “45478511” 我想读取页面（软件页面）上双引号内的字符串，并保存到.TXT中如何做？
字库我会弄，单独找字也是成功的，后面的就不会了？
代码如下
Call 注册
Sub 注册
PutAttachment "c:\test_game", "*.*"
PutAttachment "c:\test_game","dm.dll"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("c:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If ver <> 3.1233 Then
set dm = nothing// 先释放先前创建的dm
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 c:\test_game\dm.dll /s"
set ws=nothing
Delay 1500
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> 3.1233 then
messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
messagebox "请关闭程序,重新打开本程序再尝试"
end if
End If
End Sub
set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"11.txt")
dm_ret = dm.FindStr(0,0,556,500,"3","000000-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
Delay 1000
dm.MoveTo intX,intY
End If
后面的就不会了

Answer 1

直接键入文本SayString "dkfhuuh36h"可以么？

测试过了，这个方式可以
Dim str
str = "dkfhu--uh36h"
length=Len(str)
for i=1 to length
KeyPress mid(str,i,1),1
next

你的意思应该是只输出前面的和后面的，中间的“——”不输出对吧？
那可以这样：
Dim str
str = "dkfhuuh36h"
length=Len(str)
for i=1 to length
if mid(str,i,1)<>"-" then
KeyPress mid(str,i,1),1
end if
next追问

我是想把双引号中间的数字选出来，然后一行一行的保存到文本里面，比如上面的最后结果是：
64651321
6541112321
58441255877
45478511