redhatping 发表于 2009-8-8 03:34:17

一个快捷键发信息的源程序求助(第三次求解）

本帖最后由 redhatping 于 2009-8-9 16:24 编辑

源代码：

include<ACN_String.au3>
hotkeyset("^0","sendm1")
Func speedsend($x)
blockiNput(1)
clipPut("$x")             ==》问题出现在多了双引号
$b=clipget()
sendx("$b",0)   ==》问题出现在多了双引号
blockiNput(0)
EndFunc

Func sendm1()
        speedsend("你好！")
        EndFunc

While 1
    Sleep(100)
WEnd

思路很简单，通过快捷键ctrl+0 ，可以在浏览器，或者任意文本文档，粘贴存储在程序中的文本内容。
错误： 程序可以执行，但是 sendm1的函数参数,您好，并没有传递到函数中去。

程序的本义是，定义一段字符串，在文本，或者浏览器可以快捷键来快速输入定义好的字符串。

solox 发表于 2009-8-8 03:49:00

发送中文用sendX()

iftodo 发表于 2009-8-8 08:47:23

这个是脚本的全部代码吧?
那就是没加 while运行一遍就退出了,所以快捷键无效了


:face (31):

redhatping 发表于 2009-8-8 12:00:09

回答sendx ，函数未定义

afan 发表于 2009-8-8 12:15:18

本帖最后由 afan 于 2009-8-8 17:05 编辑

#Include <ACN_String.au3>
HotKeySet("^5", "sendm1") ;Ctrl+5
Func speedsend($x)
        ClipPut($x)
        BlockInput(1)
        $b = ClipGet()
        SendX($b, 0)
        BlockInput(0)
EndFunc   ;==>speedsend

Func sendm1()
        speedsend("你好")
EndFunc   ;==>sendm1

While 1
        Sleep(100)
WEnd

redhatping 发表于 2009-8-8 16:42:03

感谢楼上的各位，谢谢。

afan 发表于 2009-8-8 16:57:04

你试试我5#的代码，如果你又改回1#的，当然不会有输出。
页: [1]
查看完整版本: 一个快捷键发信息的源程序求助(第三次求解）