479764663 发表于 2009-1-17 00:40:33

高手帮我写个代码

我想用搜索串搜索剪贴板的文本
然后自定义a 是搜索百度http://www.baidu.com/baidu?word=(剪贴板)
b谷歌http://www.google.cn/search?hl=zh-CN&q=(剪贴板)
编译完以后重命名成 搜索.exe
然后在运行框里输入 搜索.exe a 就是用百度搜 搜索.exe b 就是谷歌搜
再问一下就是像这种搜索串
http://www.youdao.com/search?q=要搜的内容&ue=gbk&keyfrom=163index 要搜的在中间的该怎么弄
望高手帮做一个了

sxd 发表于 2009-1-17 10:27:38

#include <IE.au3>
Switch $CmdLine
        Case "a"
                _IECreate("http://www.baidu.com/baidu?word=" & ClipGet())
        Case "b"
                _IECreate("http://www.google.cn/search?hl=zh-CN&q=" & ClipGet())
        Case "c"
                _IECreate("http://www.youdao.com/search?q=" & ClipGet() & "&ue=gbk&keyfrom=163index ")
EndSwitch

479764663 发表于 2009-1-17 21:14:15

非常感谢楼上的施主
再问一下要是指定浏览器改怎么弄呢
这个是我以前的代码 不过不是访问剪贴板内容的
Global $s
If $CmdLineRaw = "" Then
        Exit
Else
        Switch $cmdline
                Case "a"
                        _iez("http://translate.google.cn/translate_t?hl=zh-CN#en|zh-CN|")
                Case "b"
                        _ie("http://translate.google.cn/translate_t#zh-CN|en|")
                Case "c"
                        _ie("http://translate.google.cn/translate_t?hl=zh-CN#auto|zh-CN|")
        EndSwitch
EndIf
Func _ie($url)
        $s = StringRegExp($CmdLineRaw, "^ (.*)", 3)
        If @Error <> 1 Then
                Run("E:软件TheWorld 2.0TheWorld.exe " & $url & $s)
        Else
                Exit
        EndIf
EndFunc
这个访问剪贴板内容的改怎么写呢

sxd 发表于 2009-1-17 22:53:36

看来一些基础的东西你还没有懂
建议你去看 中文资料 区的教程 他们说的比我好
页: [1]
查看完整版本: 高手帮我写个代码