找回密码
 加入
搜索
查看: 1429|回复: 3

高手帮我写个代码

[复制链接]
发表于 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 要搜的在中间的该怎么弄
望高手帮做一个了
发表于 2009-1-17 10:27:38 | 显示全部楼层
#include <IE.au3>
Switch $CmdLine[1]
        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
 楼主| 发表于 2009-1-17 21:14:15 | 显示全部楼层
非常感谢楼上的施主
再问一下要是指定浏览器改怎么弄呢
这个是我以前的代码 不过不是访问剪贴板内容的
Global $s
If $CmdLineRaw = "" Then
        Exit
Else
        Switch $cmdline[1]
                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, "^[a-z] (.*)", 3)
        If @Error <> 1 Then
                Run("E:软件TheWorld 2.0TheWorld.exe " & $url & $s[0])
        Else
                Exit
        EndIf
EndFunc
这个访问剪贴板内容的改怎么写呢
发表于 2009-1-17 22:53:36 | 显示全部楼层
看来一些基础的东西你还没有懂
建议你去看 中文资料 区的教程 他们说的比我好
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-23 09:25 , Processed in 0.071071 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表