股票自動交易按鍵精靈腳本

1. Excel 用VBA能向股票交易系統發送指令嗎

可以嘗試，這種建議用按鍵精靈。excel控制其它軟體的功能非常弱，一般是用sendkeys命令，但這個命令很容易被其它軟體屏蔽。相比之下按鍵精靈模擬人工鍵盤滑鼠操作還是很強大的。excel和按鍵精靈，兩個軟體結合起來就能完成很多事情，我最近剛幫人完成了一個生產上自動控制的軟體，就是這樣做的。

2. 魔域自動交易（按鍵精靈腳本）

沒有物品寶寶存倉庫,有的可以自己增加一下.
VBS dim tp(16),a,x,y,linex,liney,bx,by,s,i,jsq
VBS jsjg,jsjiage,jyjg,jyjiage,zdljg,zdljiage,mhjg,mhjiage,hmjg,hmjiage
VBS jszjg,jszjiage,jyzjg,jyzjiage,zdlzjg,zdlzjiage,mhzxjg,mhzxjiage,hmzxjg,hmzxjiage
VBS lhjg,lhjiage,ojg,ojiage,gxjg,gxjiage,sxjg,sxjiage,fzjg,fzjiage
VBS zzjg,zzjiage,cjqsjg,cjqsjiage,zongjiage
//聲明變數
UserVar jsjg=1 減傷害低級的價格
UserVar jyjg=1 經驗低級的價格
UserVar zdljg=5 戰鬥力低級的價格
UserVar mhjg=3 魔魂的價格
UserVar hmjg=7 幻魔的價格
UserVar jszjg=15 減傷害中級的價格
UserVar jyzjg=15 經驗中級的價格
UserVar zdlzjg=60 戰鬥力中級的價格
UserVar mhzxjg=90 魔魂之心的價格
UserVar hmzxjg=120 幻魔之心的價格
UserVar lhjg=60 靈魂的價格
UserVar ojg=20 O型寶寶的價格
UserVar gxjg=6 孤星的價格
UserVar sxjg=6 雙星的價格
UserVar fzjg=15 法豬的價格
UserVar zzjg=15 戰豬的價格
UserVar cjqsjg=7 莎菲的價格
VBS tp(0)="1js1":tp(1)="2jyx1":tp(2)="3zdx5":tp(3)="4mh4":tp(4)="5hm8":tp(5)="6jsz15"
VBS tp(6)="7jyz15":tp(7)="8zdz60":tp(8)="9mhzx100":tp(9)="10hmzx120":tp(10)="11lh70":tp(11)="12o20"
VBS tp(12)="13gx5":tp(13)="14sx5":tp(14)="15fz14":tp(15)="16zz14":tp(16)="17cjqs7"
//初始化變數，x是區域左邊、y是區域左邊、bx是區域下邊、by是區域下邊，s是圖片數量
UserVar str1="收裁決騎士莎菲7 雙防22 豬18 雙孤星8 戰鬥力+1/5" 請輸入自動叫喊的第1句話
UserVar str2="人在【一】號攤位旁邊賣的速度,不收的東西放上去價格全部不計" 請輸入自動叫喊的第2句話
UserVar str3="收裁決騎士莎菲7 雙防22 豬18 雙孤星8 戰鬥力+1/5" 請輸入自動叫喊的第3句話
UserVar str4="請速度放上東西,時間不等人,不收的東西放上去價格全部不計" 請輸入自動叫喊的第4句話
UserVar str5="這是自動喊的第5句話" 請輸入自動叫喊的第5句話
UserVar Yanshi=5000 兩句喊話之間的等待時間，1秒鍾是1000
//****************設置結束*****************
Delay 4000
Rem 開始喊話
KeyPress 13 1
Delay 300
SayExpression str1
KeyPress 13 1
Delay Yanshi
Gosub 檢查有沒有交易
KeyPress 13 1
Delay 300
SayExpression str2
KeyPress 13 1
Gosub 檢查有沒有交易
Delay Yanshi
KeyPress 13 1
Delay 300
SayExpression str3
KeyPress 13 1
Gosub 檢查有沒有交易
Delay DaYanshi
Rem 等待半分鍾後，進行下一輪叫賣
Goto 開始喊話
EndScript
Sub 程序開始
Gosub 計算物品數量
Delay 100
Gosub 輸入價錢
Delay 100
Gosub 交易等待
Return 程序開始
Sub 檢查有沒有交易
VBSCall findpic(0,0,1024,768,"..myphoto商貿.bmp",0.9,x,y)
If x>=0 and y>=0
Delay 300
MoveTo 443,446
Delay 500
LeftClick 1
Delay 2000
Gosub 檢測放物品
Delay 500
Gosub 程序開始
EndIf
EndIf
Return 檢查有沒有交易
Sub 檢測放物品
VBS i=0
VBS a = 0 : x = 51 : y = 264
VBS s=0
For 12
Rem 開始檢測放物品
If i>=6
Goto 檢測放物品結束
EndIf
IfColor x,y,80808,2
Delay 2000
VBS i=i+1
Goto 開始檢測放物品
Else
VBS x=x+34
VBS i=0
VBS a=a+1
If a=5
VBS x = 51 : y = 264+34
EndIf
EndIf
EndFor
Rem 檢測放物品結束
Return 檢測放物品
Sub 檢測交易有沒有被提前結束
IfColor 125,144,896c6,2
IfColor 149,141,896c6,2
Goto 交易沒被結束
Else
Goto 開始喊話
EndIf
Else
Goto 開始喊話
EndIf
Rem 交易沒被結束
Return 檢測交易有沒有被提前結束
Sub 計算物品數量
VBS i=0
Gosub 檢測交易有沒有被提前結束
For 17
VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347
VBS s=0
Delay 100
While a = 0
//如果變數a等於0，則循環執行下面命令
Delay 10
VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,x,y)
//區域找圖
If x>=0 and y>=0
//Delay 1000
//MoveTo x,y
//Delay 1000
//MoveTo 247,294
//Delay 3000
x = x + 34 : by = y + 34
//區域左邊加1。這里的34指的是圖片的寬度，自改
s = s + 1
//如果找到圖片在數量上加1
Rem line
Delay 10
VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,linex,liney)
//這是是在同一行再查找
If linex>=0 and liney>=0
//Delay 1000
//MoveTo linex,liney
//Delay 1000
//MoveTo 247,294
//Delay 3000
x = linex + 34
//區域左邊加1
s = s + 1
//數量加1
Goto line
//返回同一行再查找
Else
//否則
x = 34 : y = y + 34 : by = 347
//左邊初始為0，上邊加1，初始化區域下邊
EndIf
Else
//如果沒有找到圖片
a = 1
//變數a為1（退出循環）
EndIf
EndWhile
Gosub 計算價格
// VBSCall messagebox("共找到 " & s & " 個"&"tp("&i&") "&"相同圖片" & tp(i) & " ")
VBS i=i+1
//彈出結果
EndFor
Return 計算物品數量
Sub 計算價格
//《計算價格》
If i=0
Ri="減傷害低級石頭"
VBS jsjiage=(jsjg*s)
//VBSCall messagebox("合計 " & jsjiage & " MS")
ElseIf i=1
Ri="經驗低級石頭"
VBS jyjiage=jyjg*s
//VBSCall messagebox("合計 " & jyjiage & " MS")
ElseIf i=2
Ri="戰鬥力低級石頭"
VBS zdljiage=zdljg*s
//VBSCall messagebox("合計 " & zdljiage & " MS")
ElseIf i=3
Ri="魔魂"
VBS mhjiage=mhjg*s
//VBSCall messagebox("合計 " & mhjiage & " MS")
ElseIf i=4
Ri="幻魔"
VBS hmjiage=(hmjg*s)
//VBSCall messagebox("合計 " & hmjiage & " MS")
ElseIf i=5
Ri="減傷害中級石頭"
VBS jszjiage=jszjg*s
ElseIf i=6
Ri="經驗中級石頭"
VBS jyzjiage=jyzjg*s
ElseIf i=7
Ri="戰鬥力中級石頭"
VBS zdlzjiage=zdlzjg*s
ElseIf i=8
Ri="魔魂之心"
VBS mhzxjiage=mhzxjg*s
ElseIf i=9
Ri="幻魔之心"
VBS hmzxjiage=hmzxjg*s
ElseIf i=10
Ri="靈魂"
VBS lhjiage=lhjg*s
//VBSCall messagebox("合計 " & lhjiage & " MS")
ElseIf i=11
Ri="O型寶寶"
VBS ojiage=ojg*s
ElseIf i=12
Ri="孤星"
VBS gxjiage=gxjg*s
ElseIf i=13
Ri="雙星"
VBS sxjiage=sxjg*s
ElseIf i=14
Ri="法豬"
VBS fzjiage=fzjg*s
ElseIf i=15
Ri="戰豬"
VBS zzjiage=zzjg*s
ElseIf i=16
Ri="莎菲"
VBS cjqsjiage=cjqsjg*s
VBS zongjiage=0
VBS zongjiage=(jsjiage+jyjiage+zdljiage+mhjiage+hmjiage+jszjiage+jyzjiage+zdlzjiage+mhzxjiage+hmzxjiage+lhjiage+ojiage+gxjiage+sxjiage+fzjiage+zzjiage+cjqsjiage)
//VBSCall messagebox("合計 " & zongjiage & " MS")
Else
VBS zongjiage=0
EndIf
Return 計算價格
Sub 輸入價錢
MoveTo 200,410
Delay 1000
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 100
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 1000
SayString zongjiage
Delay 1000
Rem 輸入ms
MoveTo 263,415
Delay 1000
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 100
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 500
IfColor 263,415,8ccfde,2
Goto 輸入ms
Else
MoveTo 136,513
Delay 500
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 300
EndIf
Return 輸入價錢
Sub 交易等待
jsq=0
Rem 等待交易
If jsq>=20
MoveTo 205,515
Delay 1000
Gosub 檢測交易有沒有被提前結束
LeftClick 1
Delay 300
Goto 對方不交易
EndIf
IfColor 233,494,a5f62,2
Delay 1000
jsq=jsq+1
Goto 等待交易
Else
EndIf
Rem 對方不交易
Return 交易等待

3. 用按鍵精靈可以自動交易股票嗎

按鍵精靈不放心。

隨著國家放開私募量化，目前股票自動化交易逐漸普及。

目前我了解的國內最好的自動交易軟體應該是：迅動股票

目前我了解的是可以自動做高拋低吸，設置條件自動買進賣出，自動止盈止損，自動打新股，自動逆回購

4. 今天上上午，我打開筆記本炒股的時候，在那個炒股軟體中有個，按鍵精靈，自動連續輸入一個字母

應該是Q鍵連電了~ 清理一下試試~ 用風機吹吹~