2011/08/15

[GM腳本]無名廣告阻擋

轉貼本文請附上原文網址...

// ==UserScript==
// @name           Wretch.cc Ads Blocker
// @namespace      Wretch
// @include        http://www.wretch.cc/*
// ==/UserScript==

/*
 *
 *  無名廣告阻擋腳本V1.0
 *
 *  本腳本由Inndy撰寫
 *  Inndy分享於http://inndyxd.blogspot.com/2011/08/gm.html
 *
 */

function BlockAd(id)
{
 var Obj = document.getElementById(id);
 if (Obj)
 {
  Obj.parentNode.removeChild(Obj);
 }
}
function BlockLink(inurl)
{
 var i = 0;
 var Objs = document.getElementsByTagName("a");
 while(i < Objs.length)
 {
  if (Objs[i].href.indexOf(inurl) > -1)
  {
   Objs[i].style.display = "none";
   Objs[i].innerHTML = "";
  }
  i++;
 }
}
function StartBlock()
{
 //All
 BlockLink("bill.wretch.cc"); //檔掉賭爛的升級連結...
 
 //Album
 BlockAd("ad_banner");
 BlockAd("ad_button");
 BlockAd("ad_word");
 
 //Blog
 BlockAd("Wretch-ysm");
 
 //GuestBook
 BlockAd("ad_gbook");
 BlockAd("ad_lrec");
 
 //Video
 BlockAd("adbn_swf_N");
 BlockAd("iAmAD");
}
StartBlock();

2011/08/07

【已無法使用】Youtube影片下載器

已無法使用

按我下載

[源碼]Xun6下載器

說明:當你人在電腦前...要下載Xun6時...就可以使用本軟體...
本軟體功能尚未完全...已經可以記錄儲存資料夾...其餘資料一概不紀錄...
PS:包括你的下載清單也不紀錄 ,本程式無法自動判別驗證碼

預覽圖:


源碼下載:

按我下載

2011/08/04

VB取得ListBox選取項目的值、勾取項目的值

選取項目:
VB2008:
If ListBox1.SelectedIndex = -1 Then
    Exit Sub
End If
MsgBox (ListBox1.Items(ListBox1.SelectedIndex))
VB6:
If List1.ListIndex = -1 Then
    Exit Sub
End If
MsgBox List1.List(List1.ListIndex)
勾取項目:
VB2008:
If CheckedListBox1.CheckedItems.Count = 0 Then
    Exit Sub
End If
For i = 0 To CheckedListBox1.CheckedItems.Count - 1
    MsgBox(CheckedListBox1.CheckedItems.Item(i))
Next

2011/08/03

Xun6的下載之路

取得驗證圖片?
<img class="captcha_image" id="dynimg" src="http://www.xun6.com/captcha.php?rand=71&key=c5faf7340d3abb0" alt="驗證碼有誤" title="點擊圖片可以刷新驗證碼" onclick="document.getElementById('dynimg').src='http://www.xun6.com/captcha.php?rand='+Math.round((Math.random()*98)+1)+'&key=c5faf7340d3abb0';" />
後面有個key=c5faf7340d3abb0,看起來很恐怖齁?
<form id="verify_form" name="myform" action="http://www.xun6.net/file/a7e2371d2/MSGhost+Pro+V135.1.rar.html" method="post" onsubmit="popunder();">
<input name="captchakey" type="hidden" value="c5faf7340d3abb0" />
怎麼送出得到下載頁面?
<a href="#" class="submit_button" title="確認驗證碼與密碼正確後才點擊提交!如果不通過驗證,你需要重新輸入!" tabindex="4" onclick="dl_verify();" ><img src="http://www.xun6.com/skin/beta/images/dl/yes.gif" /> 提交驗證</a>
dl_verify();?這是尛?
<script type="text/javascript">
function dl_verify() {

popunder();
document.getElementById("verify_form").submit();
}
function popunder() {
popwindow1a=window.open("http://www.xun6.net/popunder_tw1.php", "popunder1a", "width=1000, height=600, top=0, left=0, status=yes, toolbar=yes, menubar=yes, location=yes, scrollbars=yes");
window.focus();
}
</script>
先來看一段從原始碼裡面擷取的Code吧!
<script type="text/javascript">
var timeout="12";

var protocol = "http";
var domain = "s002bg.xun6.com";
var dirname = "/file/downloads/A7E2371D2/504cb129937a";
var basename = "MSGhost+Pro+V135.1.rar";

var $countdown = "12";
var $nextrandom = "6";

function start_dl() {
popwindow1b=window.open("http://www.xun6.net/popunder_tw1.php", "popunder1b", "width=1000, height=600, top=0, left=0, status=yes, toolbar=yes, menubar=yes, location=yes, scrollbars=yes");
window.focus();

window.location = protocol+"://"+domain+dirname+"/"+basename;
}


function countdown()
{
if (timeout<=0)
{
document.getElementById("readylink").style.display="none";
document.getElementById("downloadlink").style.display="block";
}
if (timeout>0)
{
$countdown -= 1;
document.getElementById("readylink").innerHTML='正在從資料倉取得文件 請稍等<b>'+timeout+'</b>秒後下載地址就會出現';
setTimeout("countdown()",1000);
}
timeout--;
}
countdown();


function download() {
if(timeout>0) {
alert('請稍等,服務器正在取得相關資源!');
}
}
</script>

是不是很明瞭了?
timeout變數儲存的是等待的秒數,
"http://"+domain+dirname+"/"+basename
則是下載位址。

你還在看嗎?使用你喜歡的語言開發一個屬於你的Xun6下載器吧!