rat

打开百度搜索k.txt的第一行的批处理：

@set /p k=<k.txt
@start iexplore "http://www.baidu.cn/s?wd=%k%"
复制代码

rat

Option Explicit

OpenBaidu GetRandomLine("k.txt")



Sub OpenBaidu(sKey)
        Dim oShell
        Set oShell = CreateObject("WScript.Shell")
        oShell.Run "iexplore http://www.baidu.cn/s?wd=" + sKey
        Set oShell = Nothing
End Sub

Function GetRandomLine(sFile)
        Dim oFso, oFile, iLineNo
        Set oFso = CreateObject("Scripting.FileSystemObject")
        Set oFile = oFso.OpenTextFile(sFile)
        iLineNo = GetRandom(GetFileLineCount(sFile))
        Do Until oFile.AtEndOfLine
                If iLineNo = oFile.Line Then
                        GetRandomLine = oFile.ReadLine
                        Exit Do
                Else
                        oFile.SkipLine
                End If        
        Loop
        oFile.Close
        Set oFile = Nothing
        Set oFso = Nothing        
End Function

Function GetFileLineCount(sFile)
        Dim oFso, oFile
        Set oFso = CreateObject("Scripting.FileSystemObject")
        Set oFile = oFso.OpenTextFile(sFile)
        While Not oFile.AtEndOfLine
                oFile.SkipLine        
        Wend
        GetFileLineCount = oFile.Line
        oFile.Close
        Set oFile = Nothing
        Set oFso = Nothing
End Function

Function GetRandom(n)
        Randomize
        GetRandom = Int(Rnd * n + 1)
End Function
复制代码

[ 本帖最后由 rat 于 2008-11-23 15:40 编辑 ]

rat

我是想要个VBS 打开百度输入关键字 然后回车

关键字是从配置文件sf.ini中随机输入 一行为一个关键字 ，N行随机输入

原帖由 xtavvf 于 2008-11-23 22:59 发表
非常感谢 版主 虽然不是我想要的 但是还要 感谢你

……，写剪切板再Sendkeys？思路不好。我给出的代码是完全符合你的要求的。