关键词采集 关键词采集工具

预览模式: 普通 | 列表

VB 文件未找到: 'C:\WINDOWS\system32\ieframe.dll\1'

作者:admin  日期:2012-06-30

原因：
可能是ie7或者ie8引起的。在WinXP SP2下，装完IE7，某些补丁安装后再用VB去插入WebBrowser控件就会提示无法打开"C:\WINDOWS\system32 \ieframe.dll\1"文件。IE7升级后把HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF- A7EB-0000C05BAE0B}\1.1\0\win32下面的默认键值修改成C:\WINDOWS\system32\ieframe.dll \1了,导致VB去找了一个不存在的文件。

解决方法：
（将下面存为一个REG文件，双击并导入，再试尝试打开工程，就没有问题了）：
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}]
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1]
@="Microsoft Internet Controls"
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0]
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0\win32]
@="C:\\WINDOWS\\system32\\ieframe.dll"

将其保存为.reg后缀的注册表文件，双击安装就OK啦！

Tags: vb

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2970

Php使用curl模拟浏览器采集网页

作者:admin  日期:2012-06-16

Php使用curl模拟浏览器采集网页

PHP代码
  1. <?php   
  2. set_time_limit(0);   
  3. function _rand() {   
  4. $length=26;   
  5. $chars = "0123456789abcdefghijklmnopqrstuvwxyz";   
  6. $max = strlen($chars) - 1;   
  7. mt_srand((double)microtime() * 1000000);   
  8. $string = '';   
  9. for($i = 0; $i < $length; $i++) {   
  10. $string .= $chars[mt_rand(0, $max)];   
  11. }   
  12. return $string;   
  13. }   
  14. $HTTP_SESSION=_rand();   
  15. $HTTP_SESSION;   
  16. $HTTP_Server="search.china.alibaba.com";   
  17. $HTTP_URL="/company/k-%CB%AE%CB%AE%CB%AE_n-y.html";   
  18. $ch = curl_init();   
  19. curl_setopt ($ch,CURLOPT_URL,"http://".$HTTP_Server.$HTTP_URL);   
  20. curl_setopt($ch,CURLOPT_RETURNTRANSFER,true);   
  21. curl_setopt($ch,CURLOPT_USERAGENT,"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)");   
  22. $res = curl_exec($ch);   
  23. curl_close ($ch);   
  24. print_r($res);   
  25. ?>   

Tags: php curl

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 4767

Asp判断字符串中是否包含连续的重复字符

作者:admin  日期:2012-06-14

不允许字符串中连续重复超过2次，可以在发布信息网站禁止标题中发布某些无意义的重复字符！

ASP/Visual Basic代码
  1. function checkrepeat(txt)  
  2.     checkrepeat=false  
  3.     initialtxt=""  
  4.     num=1  
  5.     for i=1 to len(txt)  
  6.         character=mid(txt,i,1)  
  7.         if character=initialtxt then  
  8.             num=num+1  
  9.         else  
  10.             num=1  
  11.         end if  
  12.         initialtxt=character  
  13.         if num>2 then  
  14.             checkrepeat=true    
  15.         end if  
  16.     next  
  17. end function  

调用方法：

ASP/Visual Basic代码
  1. text="www.jlist.cn"  
  2. if checkrepeat(text)=true then  
  3. response.Write("有重复超过2个的字符！")  
  4. else  
  5. response.Write("无重复超过2个的字符！")  
  6. end if  

原创代码，转载请注明出处！http://www.jlist.cn

查看更多...

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3466

Javascript分割字符

作者:admin  日期:2012-06-13

Javascript实现将一段文字用|分割成单个字符。

JavaScript代码
  1. var text='http://www.jlist.cn';  
  2. var newtext="";  
  3. for(i=0;i<url.length;i++){  
  4. if(i>0){  
  5. newurl=newurl + "|"  
  6. }  
  7. newurl=newurl + url.substr(i,1)  
  8. }  

查看更多...

Tags: javascript

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2206

Php不使用正则实现相对链接转绝对链接

作者:admin  日期:2012-06-08

调用方法：echo absolutepath(网页源码,网址);

PHP代码
  1. <?php  
  2. function absolutepath($html,$url){  
  3. //$url=current_url();  
  4. $url=strtolower($url);  
  5. $url=str_replace('http://','',$url);  
  6. $str=explode('/',$url);  
  7. $count=count($str);  
  8. $domain=$str[0];  
  9. for($i=1;$i<$count;$i++){  
  10.     $k=$count-$i;  
  11.     $path='';  
  12.     $absolutepath='';  
  13.     for($j=1;$j<$i;$j++){  
  14.         $absolutepath=$absolutepath.$str[$j].'/';  
  15.     }  
  16.     for($j=1;$j<$k;$j++){  
  17.         $path=$path.'../';  
  18.     }  
  19.     $html=str_replace('href="'.$path,'href="http://'.$domain.'/'.$absolutepath,$html);  
  20.     $html=str_replace('src="'.$path,'src="http://'.$domain.'/'.$absolutepath,$html);  
  21. }  
  22. $str=explode('href="',$html);  
  23. $count=count($str);  
  24. for($i=1;$i<$count;$i++){  
  25.     $str2=explode('"',$str[$i]);  
  26.     $url=$str2[0];  
  27.     if(strpos($url,'http://')>=0){  
  28.         $html=str_replace('href="'.$url,'href="'.$url,$html);  
  29.     }  
  30.     else{  
  31.         if(substr($url,0,1)=='/'){  
  32.             $url='http://'.$domain.$url;  
  33.         }  
  34.         else{  
  35.             $url='http://'.$domain.'/'.$url;  
  36.         }  
  37.         $html=str_replace('href="'.$url,'href="'.$url,$html);  
  38.     }  
  39. }  
  40. $str=explode('src="',$html);  
  41. $count=count($str);  
  42. for($i=1;$i<$count;$i++){  
  43.     $str2=explode('"',$str[$i]);  
  44.     $url=$str2[0];  
  45.     if(strpos($url,'http://')>=0){  
  46.         $html=str_replace('src="'.$url,'src="'.$url,$html);  
  47.     }  
  48.     else{  
  49.         if(substr($url,0,1)=='/'){  
  50.             $url='http://'.$domain.$url;  
  51.         }  
  52.         else{  
  53.             $url='http://'.$domain.'/'.$url;  
  54.         }  
  55.         $html=str_replace('src="'.$url,'src="'.$url,$html);  
  56.     }  
  57. }  
  58. return $html;  
  59. }  
  60. ?>  

原创代码，转载请注明出处www.jlist.cn！

查看更多...

Tags: php

分类:技术文章 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3080

Php获取当前网址URL

作者:admin  日期:2012-06-07

 

PHP代码
  1. function current_url(){  
  2.     $sys_protocal = isset($_SERVER['SERVER_PORT']) && $_SERVER['SERVER_PORT'] == '443' ? 'https://' : 'http://';  
  3.     $php_self = $_SERVER['PHP_SELF'] ? $_SERVER['PHP_SELF'] : $_SERVER['SCRIPT_NAME'];  
  4.     $path_info = isset($_SERVER['PATH_INFO']) ? $_SERVER['PATH_INFO'] : '';  
  5.     $relate_url = isset($_SERVER['REQUEST_URI']) ? $_SERVER['REQUEST_URI'] : $php_self . (isset($_SERVER['QUERY_STRING']) ? '?' . $_SERVER['QUERY_STRING'] : $path_info);  
  6.     return $sys_protocal . (isset($_SERVER['HTTP_HOST']) ? $_SERVER['HTTP_HOST'] : '') . $relate_url;  
  7. }  

代码来源：http://www.oschina.net/code/snippet_554077_10423

Tags: php

分类:技术文章 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 3417

discuz论坛顶帖机 论坛灌水专用软件

作者:admin  日期:2012-06-04

 无验证码识别功能，不支持回复带验证码的论坛；无自动注册功能，需要手动注册用户。可以输入多个回复内容，用{@_@}隔开，以随机或顺序方式发布回贴。可以设置每次发帖间隔时间。玩玩可以，切勿捣乱，帐号被封后果自负！

下载地址：点击下载此文件

软件截图：

Tags: discuz

分类:我的作品 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3164

挖掘鸡7.2最新版根本就是骗人的！

作者:admin  日期:2012-06-03

 所谓的挖掘鸡7.2最新版根本就不存在，官网已经打不开了，软件应该已经停止更新！连CSDN上提供的下载都是骗积分的。。。其它网站还有病毒，提醒大家小心！！！期待原作者能尽快出新版本，或者只能有时间我自己做一个类似的替代品！~

百度搜索：挖掘鸡7.2，第一个有病毒，其他的看下载评论就知道基本是拿老版本骗人的。目前已知的最新版本是7.1，已经由于搜索引擎更新而基本无法使用了！

 

分类:业界文摘 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 6610

不允许百度保存其快照

作者:admin  日期:2012-06-03

 快照不被百度缓存：
<meta name="Baiduspider" content="noarchive">
不被所有搜索引擎缓存：
<meta name="ROBOTS" content="noarchive">

Tags: html 百度

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2172

VB右键选定listview控件中的某一行

作者:admin  日期:2012-06-02

ASP/Visual Basic代码
  1. Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)  
  2. If Button = 2 then  
  3. ListView1.SelectedItem = ListView1.HitTest(x,y)  
  4. End If  
  5. End Sub  

右键点击空白不弹出菜单

ASP/Visual Basic代码
  1. If ( Button = 2) and (not ListView1.SelectedItem is nothing) then  
  2. popupmenu menu...  
  3. end if   

Tags: vb

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2538

VB中HitTest的用法

作者:admin  日期:2012-06-02

 ListView控件和TreeView控件都提供了HitTest方法。这个方法返回对位于x和 y 坐标的 ListItem 对象或 Node 对象的引用。通常与拖放操作或鼠标移动操作一 起使用，来确定鼠标下的目标项在当前位置是否可用。
其语法为：
object.HitTest (x As Single, y As Single)

ASP/Visual Basic代码
  1. Private Sub Form_Load()  
  2. ListView1.ListItems.Add , , "VB程序测试"  
  3. ListView1.ListItems.Add , , "HitTest测试"  
  4. ListView1.ListItems.Add , , "Http://www.jlist.cn"  
  5. End Sub  
  6. Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)  
  7. Dim iItem As ListItem  
  8. Set iItem = ListView1.HitTest(x, y)  
  9. If iItem Is Nothing Then Exit Sub  
  10. ListView1.ToolTipText = iItem.Text  
  11. End Sub  

查看更多...

Tags: vb

分类:技术文章 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3374

 广告位

↑返回顶部↑