mshta http://bathome.net/s/hta "web('http://www.baidu.com/link?url=Wu73A5XbmmXbZhGlXCtulGo9VW6nUhnXwxMI4cjO5_j9mVXde7r9LcP5h1GF0qR1&wd=&eqid=8f503133000038ff0000000257c655f0=====').match(/URL='([^']+)'/)[1]"
复制代码

from selenium import webdriver

driver = webdriver.Chrome()

driver.get('https://www.baidu.com/link?url=qjLLUDJLIlOx0TUSg_xpz-Zcjnos1TprMc6_3H0XyXcD0OQD5RSeaPwKMtkzDUC1_G2uXfkzF2bos7uoPclSda&wd=&eqid=be17ee7a0000a04e0000000657c68765')

print (driver.title)
print(driver.current_url)
input("暂停")
driver.quit()
复制代码

jQuery页面滚动图片等元素动态加载实现 jquery.scrollLoading.js的运用-天云网络
[url]http://www.itiyun.com/jquery-scrollloading-js.html[/url]
复制代码

from ghost import Ghost
ghost = Ghost()

with ghost.start() as session:
    page, extra_resources = session.open("http://jeanphix.me")
    assert page.http_status == 200 and 'jeanphix' in page.content
复制代码

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $res;
my $url = "http://www.baidu.com/link?url=Wu73A5XbmmXbZhGlXCtulGo9VW6nUhnXwxMI4cjO5_j9mVXde7r9LcP5h1GF0qR1&wd=";

$res = $ua->get($url) or warn "$!";
$res->content() =~ /\("(.*)"\)/;
print $1;
复制代码

use LWP::Simple;
my $content;
my $url = "http://www.baidu.com/link?url=Wu73A5XbmmXbZhGlXCtulGo9VW6nUhnXwxMI4cjO5_j9mVXde7r9LcP5h1GF0qR1&wd=";

$content = get($url) or warn "$!";
$content =~ /\("(.*)"\)/;
print $1;
复制代码

Rem 下一个
读第1行 = Lib.文件.读取指定行文本内容("C:\Users\wcc\Desktop\要读取的原始链接.txt", 1)
Delay 100
Call Lib.文件.删除指定行文本内容("C:\Users\wcc\Desktop\要读取的原始链接.txt", 1)
Call Plugin.File.DeleteFile("C:\Users\wcc\Desktop\test.cmd")   

MessageBox 读第1行
批处理 = "mshta http://bathome.net/s/hta " & """web('"&读第1行&"').match(/URL='([^']+)'/)[1]"" " & ">C:\Users\wcc\Desktop\转换后的要读取的.txt"
MessageBox 批处理

Call Plugin.File.WriteFileEx("C:\Users\wcc\Desktop\test.cmd", 批处理)
Delay 1000
RunApp "C:\Users\wcc\Desktop\test.cmd"






/////////////////////


Text = Plugin.File.ReadFileEx("C:\Users\wcc\Desktop\转换后的要读取的.txt")
MessageBox Text
///////////////////////
Rem 判断是否生成转换后的要读取的文本
IsFile = Plugin.File.IsFileExit("C:\Users\wcc\Desktop\转换后的要读取的.txt")
If IsFile = True Then 
    Delay 100
    goto 写入文件
Else 
    Delay 100
    Goto 判断是否生成转换后的要读取的文本
End If

Rem 写入文件

Call Plugin.File.WriteFileEx("C:\Users\wcc\Desktop\转换后的要读取的.txt", 内容)
RunApp "F:\PowerPro_4.9n7\配置文件夹\nircmd.exe clipboard addfile C:\Users\wcc\Desktop\转换后的要读取的.txt"
Goto 下一个
复制代码

//&cls&cscript -nologo -e:jscript "%~f0"&pause&exit

var keyword = 'bbflash 破解版';  //指定搜索关键字
var n=10;  //指定需获取搜索结果的总页数
for(var i=0;i<(n*10);i+=10)GetURL(i, keyword);

function GetURL(page, str){
    var url = 'https://www.baidu.com/s?pn='+page+'&ie=utf-8&wd='+encodeURIComponent(str);
    try{var http = new ActiveXObject('MSXML2.XMLHTTP')}
    catch(e){var http = new ActiveXObject('WinHttp.WinHttpRequest.5.1')}
    http.open('GET', url, false);
    http.send();
    var htmltext = http.ResponseText;
    var reg = new RegExp('<h3\\s?[^<]*?>[\\s\\S]*?<a\\s?[^<]*?(data-click=[^<]+?)?href\\s*?=\\s*?"([^"]+)"[^<]+?>([\\s\\S]+?)<\\/a>', 'ig');
    var result='', m=0, t=page/10+1;
    WSH.echo('-----------------------第'+t+'页搜索结果-----------------------');
    while((result = reg.exec(htmltext)) != null){
        m++;
        WSH.echo(t+'-'+m+'、'+result[3].replace(/<\/?em>/ig, '')+'\r\n百度加密链接:'+result[2]);
        http.open('GET', result[2]+'&wd=', false);
        http.send();
        WSH.echo('原链接:'+http.ResponseText.match(/URL='([^']+)'/)[1]+'\r\n');
    }
    http=null;
}
复制代码