说了一下HM，这么多吐槽，不知道什么心态，精彩多图

yidaoxiwei

我从来不卖自己写的软件，只给朋友用，因为我不是靠写软件维生的。
# Y0 n8 g( t: P4 @1.可以控制输赢的老虎机，我希望不会有人说这个落伍，所谓飞机，大炮老鹰都是表像，这些都是假象
. J4 s2 S8 i! Y& o! n$ a$ n我这个老虎机可以5个人同时玩，我希望吐槽的那些人明白，可以5个人一起玩的能写就可以写500个，5000个人一起玩的

" n7 W: D% T5 {( O7 w* \
2.JJ的斗地主记牌器，（要知道能写出JJ的记牌器，就能写出所有棋牌的记牌器，这话有点多余，不过吐槽的那些智商有限必须说明）


3.自己写的自己保存账号的小软件包括了对数据库的增删改查。（吐槽的那些或许SQL是什么都不知道，也不会知道什么增删改查）

贴这3张图是因为就这3个程序里的程序逻辑，一起UI设置，还有SQL数据库的操作以及足以写出HM了，（吐槽的不会问我什么TXT读取吧，这么弱智的问题我实在不想答了）

另外：这两天研究PS,WMZ,HM2用不同的JJ小号挂着打了几场比赛，平时我只打3W现金桌，平均每天给JJ的抽水不下50W金币（另外我JJ号不下20个）

1 Y5 I( J9 \7 U" t& Z6 |( ^
. N: k* B; m; A- @



2 K; P$ Z- }/ }$ z$ j; t我想问问那些吐槽人的心理到底是什么。
# }1 J; u- m% ]
我奉行的是欲取先予之道，实在不能我也要做到薄取厚予
6 N; v7 M0 M8 A8 V) I: F% Y

yidaoxiwei

- @' p5 h" N- t) O3 c
! @3 u  ^# N5 k; r看的人多，没人回
8 f7 O$ ]& \  s% ^& _3 Zhwnd = Plugin.window.Find(0, "德州扑克 ［ 德州扑克（0.5倍） ］")
/ K! o- g& S) \  T" a3 X4 U( a+ A3 W1 e       Call Plugin.window.Hide(hwnd)
- @" u% l, f' w
% k+ |$ v& S! j        Call Plugin.window.CloseEx(hwnd)
" u& y5 m  a5 V' I//-----------------   
* l" p8 L7 g- q/ V//    MoveTo 930, 680
//    LeftClick 1
//    Delay 200
//    KeyPress 89, 1
1 k7 u# ~7 M  e6 R//键盘点下Y后
//----------------
# V" K" l& p- {5 m1 o+ j
Dim BBZZ //下注数量
/ e9 ?! t6 a1 l3 uDim x   //延迟时间
Dim y   //小于2.5的时候按键次数
& `6 {% N- |: a  v% a3 D# X5 Zx=50
! n$ H* K( J+ j  TBBZZ = inputbox("请输入你要下注的数量")
BBZZ = cdbl(BBZZ)
MoveTo 423, 701
+ W3 T7 C: N' @. Z0 V' VDelay x
7 c) G/ W, I0 oLeftClick 1
BBZZ = BBZZ - 1
5 s- @* _9 G/ `! G# c2 y

$ L5 A  Y& m) [//msgbox BBZZ
- A6 O* U. A. Y& s$ m, C
- Y( ~9 {, b2 A: ]; c3 B
If BBZZ > 10 Then
    Do Until BBZZ < 10
  k( y/ S0 O, K. e        MoveTo 666, 606
1 i, |2 H" f" ]- y, o* X        Delay x
        LeftClick 1
9 `( g3 `, Z" `8 \$ ^        BBZZ = BBZZ - 10

/ j: Z( @- U+ e# C! u    Loop
. a3 i0 y( q  X; t5 S' E8 aEnd If
7 b8 h5 I  A1 R; h' z4 I
BBZZ = BBZZ + 0
6 F. R6 a7 c( L3 b/ y; j+ n
//msgbox BBZZ
: E9 ~" S2 L* R' b: w
Delay x
If BBZZ > 5 Then
    MoveTo 755, 570
! Q. U7 m5 U4 B' d5 C    Delay x
+ J, @1 y  ?4 g0 q! c    LeftClick 1
# p' ?9 ?/ C7 A. W- u    BBZZ = BBZZ - 5

End If

# M8 i% x& L; f2 o& iBBZZ = BBZZ + 0
( W; M* c. Y3 V4 `' ?


2 ?+ i( T- M% }0 a//msgbox BBZZ
, D' k" S5 {3 y- C
% _- ]3 h6 U6 q$ f# ODelay x

If BBZZ > 2.5 Then
8 |4 w* C: z( P    MoveTo 666, 570
; v- s- r$ M) i, l, J7 G. ~; N3 V  k    Delay 50
    LeftClick 1
    BBZZ = BBZZ - 2.5
6 U7 D* a, u  {* q
End If
1 X5 y* Y# E& h# N: k7 c
BBZZ = BBZZ + 0

1 j# w" }2 k' W0 }2 D1 z
6 C+ o! n' w0 `/ T//msgbox BBZZ
; Y: r" Y8 a( N
Delay x

If BBZZ = 0.5 Then
    MoveTo 666, 535
    Delay x
    LeftClick 1
. s- R" v7 V' \$ `' f  @' ~Else
4 S) V* L! W7 k) j$ ^! A5 L   Do Until BBZZ =0
2 W2 j1 j+ S8 I! m. T# M* A- S        MoveTo 666, 535
        Delay x
3 H0 V) h& O: l3 v        LeftClick 1
        BBZZ = BBZZ - 0.5
" N. D+ q, \4 s# A) X2 x1 \. k
    Loop
End If

//msgbox BBZZ

Delay x

% t0 L& s3 i1 M# SMoveTo 423, 701
$ I3 J* Z0 y' g6 @' c7 kDelay x
" k6 b; `2 u5 c! a, H2 X. HLeftClick 1

6 e' J% I8 \& ?( O

1. Dim BBZZ //下注数量
   # f# h# i# Z' ?  a# G
2. Dim x   //延迟时间
   $ F( `2 t- }  U. E2 S! J
3. Dim y   //小于2.5的时候按键次数
   
4. x=50
   1 Z2 H) S: X( I5 K4 J, x% Y$ f  `# C
5. BBZZ = inputbox("请输入你要下注的数量")
   * [2 v6 t) }7 E9 u- k; |: Z
6. BBZZ = cdbl(BBZZ)
   6 D5 o' R% O5 \! g1 v& w+ W5 D4 o
7. MoveTo 423, 701
   2 {* W5 t" Q7 ]0 x$ K) ~- S( N' _
8. Delay x
   
9. LeftClick 1
   
10. BBZZ = BBZZ - 1
    & l$ A# ~+ v$ f9 B" O7 d' O; |
11. 
    
12. 
    
13. //msgbox BBZZ
    & e0 N$ d. H# O8 V+ ?( T- `
14. 
    2 E) f' h4 t' H0 B1 R5 I( b
15. 
    / u" n# q; ]9 }( d
16. If BBZZ > 10 Then
    ; U+ y8 j7 K8 |
17.     Do Until BBZZ < 10
    ! l: z; F, P( X7 f2 L+ z
18.         MoveTo 666, 606
    
19.         Delay x
    ; @% x, l6 o) ]  }$ V$ }# ~; v
20.         LeftClick 1
    
21.         BBZZ = BBZZ - 10
    6 s& k5 |3 w" V6 N: T" j3 r5 C; c
22. 
    
23.     Loop
    6 D* n* i4 o1 v: Z
24. End If
    2 a0 B1 M, e& N1 H4 K. ]% y1 ?$ ]
25. 
    0 S" u; w7 _. T/ r
26. BBZZ = BBZZ + 0
    6 b7 @* {; i6 d/ {+ Q* R) @- T. L2 Y
27. 
    ' m' T+ l- v) Q# T$ U7 C
28. //msgbox BBZZ
    9 U6 F0 q$ t1 s( q  x' e
29. 
    0 t' i# F0 a. ^3 R4 e5 k
30. Delay x
    
31. If BBZZ > 5 Then
    + u2 b0 H# |1 X, z) l6 j
32.     MoveTo 755, 570
    
33.     Delay x
    
34.     LeftClick 1
    , }) y' k# a2 x2 p/ w
35.     BBZZ = BBZZ - 5
    ! y' z6 B' K* {$ J3 y& E0 @, z
36. 
    
37. End If
    2 I% i' ?' x) d- g
38. 
    9 c; f6 s* X* N  k! t9 f
39. BBZZ = BBZZ + 0
    
40. 
    7 A; r3 W0 M/ }' D. R
41. 
    8 q& @- P" |! h* N3 f. A8 r! ~
42. 
    7 Q2 Q1 w, p0 F# a; [2 B
43. //msgbox BBZZ
    0 y( ?- i' B) W) k/ r! Y
44. 
    9 A9 `( D+ s$ \
45. Delay x
    
46. 
    
47. If BBZZ > 2.5 Then
    , |5 R0 }: i; S- J/ U
48.     MoveTo 666, 570
    0 H5 X, U& T' ~; d9 c
49.     Delay 50
    
50.     LeftClick 1
    / W1 B# w- h" T( F
51.     BBZZ = BBZZ - 2.5
    , k2 D+ S" T( Y# Q: G6 a
52. 
    
53. End If
    
54. 
    
55. BBZZ = BBZZ + 0
    + X7 t7 x( |* w$ w: |
56. 
    
57. 
    
58. //msgbox BBZZ
    2 b( \5 P8 B0 B. K/ ^% E/ \
59. 
    7 R, u- p  N) r3 ]$ g9 N
60. Delay x
    6 B( a2 @  _% q+ r( S6 D
61. 
    4 ?. N; T0 ~+ Z- s! B/ A4 m& N
62. If BBZZ = 0.5 Then
    ( g7 [/ G4 g- K3 k7 `
63.     MoveTo 666, 535
    
64.     Delay x
    
65.     LeftClick 1
    
66. Else
    
67.    Do Until BBZZ =0
    2 L" V! y& e6 q8 K5 r/ o% [
68.         MoveTo 666, 535
    
69.         Delay x
    1 E1 e" U: l2 [* D
70.         LeftClick 1
    
71.         BBZZ = BBZZ - 0.5
    " u, M! s; G3 O  M( n2 m6 @
72. 
    * L: m! B& h. z5 R" q
73.     Loop
    
74. End If
    
75. 
    
76. //msgbox BBZZ
    
77. 
    
78. Delay x
    
79. 
    
80. MoveTo 423, 701
    
81. Delay x
    
82. LeftClick 1

复制代码

: m0 C  Y; Q% {/ z

% _! b: c. [3 u/ x* q1 F
/ s! F& [& L! P/ s& z

soho418

真心佩服 ，