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