新手请教~

名剑风流

[角色位置定位]
1
[鼠标移动延时]
100
[鼠标点击延时]
100
[使用回车开关]
1
[初始提示开关]
1
[放置窗口开关]
3
**************************************
上面是刷商人小精灵的设置文本，请教一下，怎么样才可以把小精灵里的参数放到一个文本里设置呢？又怎么样才能把这个文本放到与小精灵在同文件夹呢？前辈们，可以发一个简单的例子出来看看吗？

SzAngel

这个涉及VBS读文本的方法比较复杂,要引用一些对象!

名剑风流

SZ老大不负责任哦！~
//sub 写文本
px_1="xxx=(2) 2是参数用来作为XX功能"
VBS set file=CreateObject("Scripting.FileSystemObject")
VBS const forwriting=2
VBS const forreading=1
//假如配置文本存在，则自动创建文本并写入，假如存在，则自动读取括号内的参数
If file.FileExists("d:\配置文本.txt")=0
    VBS set file=CreateObject("Scripting.FileSystemObject")
//创建文本的位置
    VBS set myfile=file.createtextfile("d:\配置文本.txt")
//写入文本的位置
    VBS set myfile=file.opentextfile("d:\配置文本.txt",forwriting)
//写文本的内容
    VBS myfile.writeline(px_1)
    VBS myfile.Close
    Gosub 读文本
Else
    Gosub 读文本
EndIf
//sub 写文本

Sub 读文本
    VBS set file=CreateObject("Scripting.FileSystemObject")
    VBS Set myfile=file.OpenTextFile("d:\配置文本.txt",ForReading)
   //读第一行
   //px1
    VBS nw=myfile.ReadLine
   //取字符串，读取（）内的参数
       use_len=instr(nw,"(")
    use_len_1=instr(nw,")")
    use_0=mid(nw,use_len+1,use_len_1-use_len-1)
   //读取出来的值赋给脚本中需要使用到的变量   
   px_1=use_0
   //px_1=cint(px_1)   读出来的是字符，需要用到数字的话请把变量转为整型
   VBS myfile.Close
Sub 读文本



上面的例子中，
    VBS set myfile=file.createtextfile("d:\配置文本.txt")
这句是创建文本的吧？但是，我想把("d:\配置文本.txt")这个路径改为跟精灵在一起，应该怎么写？（因为解压时，精灵不一定在D：呀）

SzAngel

精灵里面不要用地址,直接用文件名!

名剑风流

谢谢Sz老大的指点!~果然高手!~
还想请教下,SaveMousePos 这个命令,是把鼠标锁定在屏幕固定位置还是把鼠标锁定在游戏地图的某一固定[x,y]坐标上?

SzAngel

精灵基本读不了游戏坐标,除非自己读内存!

名剑风流

BB

断泪

看不懂额````要学习勒````

a5940331

还是晕乎乎。 。
  好想学习。