游侠在我看来已变成一款单机游戏了

设定好价格，买卖全自动化了，赚不赚钱就看系统盘和主力了，呵呵。

min = 13.8　　　 //低于该价进行买入
max = 14.1　　　 // 高于该价进行卖出　
amin = 350
amax = 500　　　//每笔买卖笔数设定在350-500手
Call zs()　　　 //调用昨日收盘价格子程序
Rem aaa
MoveTo 574, 136
Delay 1000
LeftClick 1
Delay 2000
Call pd()　　　 //调用现价与设定价格的判定
dtj = Round(zsjg * 0.9, 2)
ztj = Round(zsjg * 1.1, 2)　　 //涨跌停价禁止买卖，由于能力有限还没弄好
　　If xj < min Then
    Call buy()　　　　　　　　 //现价低于最高买入价，调用买入子程序
　　ElseIf xj > max Then
    Call sell()　　　　　　　　//现价高于最低卖出价，调用卖出子程序
　　Else　　　　　　　　　　　 //现价趋于两者之间，就等待，过一段时间再判定
　　MoveTo 830, 574
　　Delay 1000
　　LeftClick 1
　　Delay 1000
　　End If
Delay 30000
Goto aaa





Sub pd()　　　　　　//判定子程序
ux = 523
uy = 346
xj = 0　　　　　　 //好像专业术语叫点正式读数
For 6    
code = ""
y = uy
for 9
x = ux
For 5
getcolor　= GetPixelColor(x, y)
If getcolor = "2EA3FF" Then
    i = "1"
    Else
    i = "0"
End If
    code = code & i
    x=x+1    
Next
y = y + 1
Next
no1 = "001000110000100001000010000100001000010001110"
no2 = "011101000110001000010001000100010001000011111"
no3 = "011101000100001001100000100001000011000101110"
no4 = "000100011001010100101001000010111100001000111"
no5 = "111111000010000111101000100001100011000101110"
no6 = "001110100110000101101100110001100011000101110"
no7 = "111111001000010000100010000100001000010000100"
no8 = "011101000110001010100111010001100011000101110"
no9 = "011101000110001100011001101101000011001011100"
no0 = "011101000110001100011000110001100011000101110"
no11 = "000000000000000000000000000000000001100011000"
If code = no0
zf = "0"
ElseIf code = no1
zf = "1"
ElseIf code = no2
zf = "2"
ElseIf code = no3
zf = "3"
ElseIf code = no4
zf = "4"
ElseIf code = no5
zf = "5"
ElseIf code = no6
zf = "6"
ElseIf code = no7
zf = "7"
ElseIf code = no8
zf = "8"
ElseIf code = no9
zf = "9"
ElseIf code = no11
zf = "."
Else zf = ""
End If
ux = ux + 7
If zf = "."　
    xj = xj
    ElseIf zf = ""
    xj = xj　　　　　　　　
Else xj=xj*10+int(zf)
End If
Next
xj = xj / 100　　　　　 //读出来的字符串转化成现价
End Sub

Sub zs()　　　　　　//昨日收盘价子程序
mx = 180
my = 369
zsjg = 0
For 6    
code = ""　　　　 //点正式读数
y = my
for 8
x = mx
For 5
getcolor　= GetPixelColor(x, y)
If getcolor = "FFFFFF" Then
    i = "1"
    Else
    i = "0"
End If
    code = code & i
    x=x+1    
Next
y = y + 1
Next
no1 = "0010001100101000010000100001000010011111"
no2 = "0111010001000010001000100010001000011111"
no3 = "0111010001000010011000001000011000101110"
no4 = "0001000110010101001010010111110001000010"
no5 = "1111110000111101000100001000011000101110"
no6 = "0011101000100001111010001100011000101110"
no7 = "1111100001000100001000100001000100001000"
no8 = "0111010001100010111010001100011000101110"
no9 = "0111010001100011000101111000010001011100"
no0 = "0010001010100011000110001100010101000100"
no11 = "0000000000000000000000000000000011000110"
If code = no0
zs = "0"
ElseIf code = no1
zs = "1"
ElseIf code = no2
zs = "2"
ElseIf code = no3
zs = "3"
ElseIf code = no4
zs = "4"
ElseIf code = no5
zs = "5"
ElseIf code = no6
zs = "6"
ElseIf code = no7
zs = "7"
ElseIf code = no8
zs = "8"
ElseIf code = no9
zs = "9"
ElseIf code = no11
zs = "."
Else zs = ""
End If
mx = mx + 6
If zf = "." Then
    zsjg = zsjg
Else zsjg=zsjg*10+int(zs)
End If
Next
zsjg = zsjg / 100　　　　 //字符串转化为昨日收盘价格
End Sub


Sub buy()　　　　　　 //买入子程序
MoveTo 830, 574
Delay 1000
LeftClick 1
Delay 1000
MoveTo 574, 136
Delay 1000
LeftClick 1
Delay 2000
MoveTo 761, 351
Delay 1000
LeftClick 1
Delay 2000
MoveTo 570, 377
LeftClick 2
Delay 2000
Call zs()
Call zj()
VBS Randomize
bsj = Int(((amax - amin)*(0.8+abs(xj-zsjg)*2/zsjg)) * Rnd + amin)
SayString bsj　　　　　　//每笔买入数量随机数和涨跌比例进行挂钩，涨跌多，买卖数量就多
Delay 2000
KeyDown "Enter", 1
KeyUp "Enter", 1
Delay 2000
KeyDown "Enter", 1
KeyUp "Enter", 1
Delay 2000
MoveTo 841, 276
Delay 1000
LeftClick 1
Delay 2000
MoveTo 830, 574
Delay 1000
LeftClick 1
Delay 1000
VBS Randomize
VBS c = Int((10000 * Rnd) + 7000)　　 //等待时间随机数，基本控制在每分钟成交1笔
Delay c
End Sub


Sub sell()　　　　　 //卖出子程序，和买入子程序基本一样
MoveTo 830, 574
Delay 1000
LeftClick 1
Delay 1000
MoveTo 610, 136
Delay 1000
LeftClick 1
Delay 2000
MoveTo 761, 394
Delay 1000
LeftClick 1
Delay 2000
MoveTo 576, 324
LeftClick 2
Delay 2000
Call zs()
Call zj()
VBS Randomize
ssj = Int(((amax - amin)*(0.8+abs(xj-zsjg)*2/zsjg)) * Rnd + amin)
SayString ssj
Delay 2000
KeyDown "Enter", 1
KeyUp "Enter", 1
Delay 2000
KeyDown "Enter", 1
KeyUp "Enter", 1
Delay 2000
MoveTo 841, 276
Delay 1000
LeftClick 1
Delay 2000
MoveTo 830, 574
Delay 1000
LeftClick 1
Delay 1000
VBS Randomize
VBS d = Int((10000 * Rnd) + 7000)
Delay d
End Sub

原本想设计个带界面的，由于能力有限，还在自学中，所以只能在编辑器里修改价格和数量。

感谢游侠，让我娱乐的同时还能自学点东西。
望能得到大大大人的帮助，同时大大可以考虑推出vip会员增值服务——游侠股市操盘软件

[ 本帖最后由 杰哥哥 于 2012-1-15 23:41 编辑 ]

由于看好该股并做长线投资，所以设定买入该股最高价格较高

我是手动的弄 过几分钟想起来就买点　
怪不得这几天北车的系统盘这么给力……

慢是慢了点不过是个好牛 10天 利润还不错
800181 中国北车 8.61 9.82 ↓0.31% 50000 0.49亿 603.08万 14.00％