求一个软件，愿意出300元

Question

求一个软件，愿意出300元，最好是在上海的朋友写的（不是地域歧视，其他地方不方便），要求如下：1、软件要求点击F10 就可以执行CTRL+P的动作，延时500毫秒后，执行按回车的动作，健值如下KeyDown 17,1         按住ctrl
KeyPress 80,1        按下p键
KeyUp 17,1           弹起ctrl
Delay 500            延时500毫秒
KeyPress 13,1        按回车键2、如果当前界面焦点是word，按下F10后，执行打印动作。
3、开机后，加载在右下角。目前用的是按键精灵做的，带广告，超级不行。上面的是软件精灵的源程序。
我不会编程，希望有人帮我。其实就是问了方便打印。

Answer 1

这个需要键盘钩子,用windows钩子实现

Answer 2

用AutoHotKey很轻松就可以搞定的。

Answer 3

Option ExplicitDim WithEvents objHK As cHotKey       '热键类Private Sub Form_Load()
    Set objHK = New cHotKey
    
    With objHK
        .frmHwnd = Me.hwnd
        .AddHotKey vbKeyF12, True     'CTRL+F12触发一次模拟键盘动作
        .StartHotKeys Timer1
    End With
End SubPrivate Sub Form_Unload(Cancel As Integer)
    objHK.ClsAllHotKey
    
    Set objHK = Nothing
End SubPrivate Sub Text1_GotFocus()
    Text1.SelLength = 9999
End SubPrivate Sub objHK_HotKeyPress(ByVal HotKeyIndex As Long, ByVal HotKey As Long, ByVal hCtrl As Boolean, ByVal hAlt As Boolean, ByVal hShift As Boolean)
    Select Case HotKey
        Case vbKeyF12
            If hCtrl Then
                Timer2.Enabled = True   '按下热键后,定时器在0.5秒后触发模拟键盘动作
            End If
    End Select
End SubPrivate Sub Timer2_Timer()
    Dim I As Long, J() As String
    
    Timer2.Enabled = False      '0.5秒了,先停止定时器,再开始模拟键盘.
    
    J() = Split(Text1.Text, vbCrLf)   '按行分开
    For I = 0 To UBound(J)
        Call SendKey(vbKeyReturn, 0)   '星际要先回车打开消息状态....
        Sleep 50
        Call SendKey(vbKeyReturn, 1)
        
        Call SendStr(J(I))             '输入作弊码.
        
        Call SendKey(vbKeyReturn, 0)   '再次回车确认...
        Sleep 50
        Call SendKey(vbKeyReturn, 1)
    Next
End Sub以上是我自己经常用的一个简单外挂....功能是按照TEXT1中的内容模拟键盘,一行一个.因为我有时打星际,再因为水平越来越低,再再因为要输入作弊码打电脑,所以,所以,所以我要用这个小东东输入以下内容:show me the money
show me the money
show me the money
operation cwal
food for thought
power overwhelming           <------这个都用上了,哇哈哈哈哈
the gathering
something for nothing
something for nothing
something for nothing

Answer 4

show me the money
好经典啊！想当年1打7要show好几次的。

Answer 5

show me the money当年最后无赖到12个采矿兵一组,
无数组出去PK人家.

Answer 6

发展速度应该虫族最快吧.只要有钱.........再说了,要是T VS Z,你出大和是划不来的,嘿嘿嘿嘿....

Answer 7

速战虫子是最快，中间一段时间虫子很脆弱，持久战，油井不多的话，虫子必输无疑，似乎虫子都是喝油的- -。
人族机枪加堡垒+矿兵+护士+坦克，那叫一个爽啊。即使是没有堡垒，有机枪兵+护士+坦克也很牛叉了，曾经步步为营杀的大学同学很郁闷，哈哈。话说人族的航母不是一般的抗揍啊。神族吗，第一个步兵的强大令人佩服，和小狗打架，2V5没问题，这似乎也是通常速战的关键啊，呵呵。最喜欢神族的那个放电的兵，丫太强悍了- -。神族还有个可以另航母隐形的魔法舰很是喜欢，这个家伙可以误导敌人只打航母放出的小飞机，而忽略了航母的本身。在CS刚出来的时候，俺那个郁闷啊，想找个玩星际的，发现很多都跑去CS了- -。