谁能帮我写个用默认浏览器打开的搜索引擎的代码

ipxf

像这样的代码
#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
只能用于IE内核的浏览器 而且不指明路径的话打开网页还会有延迟
如果用Opera的话 只能搜索英文 搜索中文的话就是乱码 请高手帮写个直接用默认浏览器访问而不是要指明路径的代码

sxd

换成ShellExecute

ipxf

我是新手 不太懂哦 换哪里

ipxf

谢谢指教 我懂了

ipxf

这个怎么弄呢 我改了 但是显示错误
#include <IE.au3>
Global $s
If $CmdLineRaw = "" Then
        Exit
Else
        Switch $cmdline[1]
                Case "a"
                        _ie("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
                _IECreate($url & $s[0], 0, 1, 0)
        Else
                Exit
        EndIf
EndFunc
Func _iex($url, $url2 = "")
        $s = StringRegExp($CmdLineRaw, "^[a-z] (.*)", 3)
        If @error <> 1 Then
                _IECreate($url & $s[0] & $url2, 0, 1, 0)
        Else
                Exit
        EndIf
EndFunc

sxd

$s 是@error 1  匹配不到
编译后 $CmdLineRaw 只显示参数

[ 本帖最后由 sxd 于 2009-1-30 18:14 编辑 ]

ipxf

要怎么改啊

sxd

你是想做
a.exe a 中文翻译英文

这样的意思?

ipxf

yes 就是这个意思

ipxf

但是要用默认浏览器 不需要指定路径 Opera也能用的

sxd

If $CmdLineRaw = "" Then
        Exit
Else
        Switch $cmdline[1]
                Case "a"
                        ShellExecute("http://translate.google.cn/translate_t?hl=zh-CN#en|zh-CN|" & $cmdline[2])
                Case "b"
                        ShellExecute("http://translate.google.cn/translate_t#zh-CN|en|" & $cmdline[2])
                Case "c"
                        ShellExecute("http://translate.google.cn/translate_t?hl=zh-CN#auto|zh-CN|" & $cmdline[2])
        EndSwitch
EndIf

ipxf

我试试 再问下你这个是怎么弄上去的 我打出来的代码怎么没有这个颜色

ipxf

试了一下 搜索的内容不能有空格

sxd

[au3][/au3]

Dim $I, $str
If $CmdLineRaw = "" Then
        Exit
Else
        $CmdNub = StringSplit($CmdLineRaw, " ")
        Switch $cmdline[1]
                Case "a"
                        For $I = 2 To $CmdNub[0]
                                $str &= $cmdline[$I] & " "
                        Next
                        ShellExecute("http://translate.google.cn/translate_t?hl=zh-CN#en|zh-CN|" & $str)
                Case "b"
                        For $I = 2 To $CmdNub[0]
                                $str &= $cmdline[$I] & " "
                        Next
                        ShellExecute("http://translate.google.cn/translate_t#zh-CN|en|" & $str)
                Case "c"
                        For $I = 2 To $CmdNub[0]
                                $str &= $cmdline[$I] & " "
                        Next
                        ShellExecute("http://translate.google.cn/translate_t?hl=zh-CN#auto|zh-CN|" & $str)
        EndSwitch
EndIf

[ 本帖最后由 sxd 于 2009-1-30 19:45 编辑 ]

ipxf

非常感谢 还有一个小问题就是用IE做默认浏览器的话就会弹出一个框框 用其他浏览器都没问题了 不过也不碍事