کپی کردن قسمتی از متن تکست باکس

برای این منظور شما باید قسمتی از متن رو جدا کنید. این کار توسط توابع Left، Right و Mid انجام میشه.

اگه باهاشون آشنایی ندارید، جستجو کنید. مثال های زیادی زده شده.

اگه ساختار متنتون ثابته و مطمئنید که همیشه آدرس بصورت کامل و همین شکل وارد میشه می تونید بصورت زیر عمل کنید.

کد:

    Dim s As Integer, e As Integer
    
    s = InStr(1, Text1.Text, "www.")
    s = s + 4
    e = InStr(1, Text1.Text, ".blogfa")
    
    Text2.Text = Mid(Text1.Text, s, e - s)

مشکل در وب بروس

برای اینکه روال کار دستتون بیاد، یکی از وبلاگ های مثلا سایت پرشین بلاگ رو ذخیره کنید و با یه ویرایشگر باز کنید.

به تگ های موجود در اون دقت کنید و ببینید تگ اصلی که پست ها رو در برمی گیره چیه.
هر پستی بالاش دو تا کد قرار داره، که اولی blogID و دومی postID هست.

کد:

<a title="Comments" onclick="s_comment(134384,2583197)" href="javascript:void(0)"> <img src="%DA%A9%D9%85%D9%88%D9%86_files/comment.gif" alt="Comments" width="16" height="16"> پیام های دیگران (<script language="javascript" type="text/javascript">document.write(get_cc(2583197))</script>1) </a>

برای پیدا کردن آخرین پست، از آخر جستجو کنید و اولین پست ( از آخر) رو پیدا کنید.

حالا به لینک نظرات دقت کنید. برای نمونه:

کد:

http://comments.persianblog.ir/?blogID=134384&postID=2583197&blogName=viraso

کافیه اعداد بدست اومده از مرحله قبل رو در آدرس بالا جایگذاری کنید تا لینک نظراتش بدست بیاد.

خب حالا سورس صفحه نظرات رو (html) بدست بیارید و غالبش رو بررسی کنید.
با کمی دقت به فرمتی که هر نظر داره، آشنا می شید.
حالا با کمی پردازش رشته می تونید نظرات و همه اطلاعات مربوط به اون رو استخراج کنید.

برای دسترسی به سورس هر صفحه از کد زیر استفاده کنید:

کد:

    Dim sTextHTML As String
    sTextHTML = WebBrowser1.Document.documentElement.outerHTML

پیدا کردن لیست یک سری وبلاگ

لیست وبلاگ های سایت هایی مثل بلاگفا و پرشین بلاگ رو می تونید با استفاده از کنترل Web Browser و با کد زیر بدست بیارید:

کد:

Private Sub Command1_Click()

    Dim i As Integer
    Dim str As String
    
    List1.Clear

    For i = 0 To WebBrowser1.Document.links.length - 1
        str = WebBrowser1.Document.links.Item(i)
        If Left$(LCase(str), 4) = "http" And InStr(1, LCase(str), ".persianblog.ir") > 0 Then
            List1.AddItem (WebBrowser1.Document.links.Item(i))
        End If
    Next i

    MsgBox "Process Completed"
    
End Sub

آدرس لیست وبلاگ های سایت پرشین بلاگ:

کد:

http://persianblog.ir/weblogs.aspx

در صورتی که صفحه موردنظر از تکنولوژی پویا استفاده کنه روش بالا جواب نمیده

اسم های تکراری در لیست باکس

یه فرم ، یه لیست باکس و یک دکمه درست کن.اینم کدش:

کد:

Private Sub Command1_Click()

Dim i As Long
Dim j As Long
    With List1
        For i = 0 To .ListCount - 1
            For j = .ListCount To (i + 1) Step -1
                If .List(j) = .List(i) Then
                    .RemoveItem j
                End If
            Next
        Next
    End With

End Sub


Private Sub Form_Load()
For i = 1 To 10
List1.AddItem "item " & i
List1.AddItem "item " & i + 1
Next

End Sub

قرار دادن بلاک مطالب تصادفی در سایت قالب دلتا لایف

قرار دادن بلاک مطالب تصادفی در سایت

---

این ماژول قرار دادن مطالب تصادفی در سایت است که براتون میذارم

ابتدا فایل ضمیمه را دانلود کنید و آن را در مسیر مورد نظر آپلود نمایید یعنی فایل rand_news.php را در مسیر engine/modules/ آپلود نمایید

سپس فایل index.php در روت اصلی را باز کنید . و دنیال کد زیر در آن بگردید

کد:

require_once ROOT_DIR.'/engine/init.php';

بعد از این کد این کد را در زیرش قرار دهید

کد:

require_once ROOT_DIR.'/engine/modules/rand_news.php';

سپس دنبال این کد بگردید

کد:

$tpl->set('{info}', "<span id='dle-info'>".$tpl->result['info']."</span>");

این کد را در زیرش قرار دهید

کد:

$tpl-> set ('{rand_news}', $rand_news);

سپس به مدیریت قالب بروید و از انجا در قالب سایتتون در قسمت main.tpl یک قالب جدید اضافه کنید به نام {rand_news}

کار تمام شد
منبع : ParsaDL

فایل های پیوست شده

Random News[wWw.ParsaDL.Com].zip (1.3 کیلو بایت, 0 نمایش)

ماژول ثبت نام سریع برای دیتالایف

---

این ماژول ثبت نام سریع برای دیتالایف است.

کد زیر را در قالب اصلی سایت در main.tpl در زیر هر بلاک یا قسمتی که دوست داشتید ثبت نام سریع قرار بگیره قرار دهید

کد:

[group=5]
<form  method="post" name="registration" id="registration" action="?do=register">
          
                             Username:
                             <br>
                             <input type="text" name="name" id='name' style="width:108; height:21" class="f_input" />
                             <BR>
                              <input style="height:18px; font-family:tahoma; font-size:11px; border:1px solid #DFDFDF; background: #FFFFFF" title="Checking 

Availablity" onclick="CheckLogin(); return false;" type="button" value="Check Name" /><div id='result-registration'></div>
                             <BR> 
                             Password:
                             <BR>
                             <input type="password" name="password1" class="f_input" />
                             <BR>
                            Confirm Password:  
                             <BR>                          
                             <input type="password" name="password2" class="f_input" />
                             <BR>
                             <BR>
                             E-Mail:<BR>
                            <input type="text" name="email" class="f_input" />
                             <BR>
                             Safety Code:
                             <BR>
                            <img src="/engine/modules/antibot.php" alt="Please Write This Code in The Box Below" border="0">
                            <BR>
                            Enter Here:
                            <BR>
                            <input type="text" name="sec_code" style="width:115px" class="f_input" />
                            <BR>
                          <input type="image" style="width:80px; height:20px" src="/templates/Default/images/dlet_bttn_submit.gif" name="submit" alt="Submit" />
                          <input name="submit_reg" type="hidden" id="submit_reg" value="submit_reg">
</form>
[/group]

به همین راحتی .

نمایش عکس تصادفی در سایت برای قالب دلتا لایف

---

با نصب این ماژ.ل میتوانید کنار سایتتون عکس تصادفی از مطالب سایت قرار دهید.

ابتدا فایل ضمیمه را دانلود کنید و فایل dle_img.php را در مسیر گفته شده یعنی در پوشه Engine/Modules/ آپلود نمایید

سپس فایل index.php در روت اصلی را باز کنید و دنبال عبارت زیر بگردید

کد:

$tpl->set('{topnews}',$topnews);

به زیر آن این کد را اضافه کنید

کد:

$tpl->set('{dle_img}',$dle_img);

در مسیر engine/init.php فایل init.php را باز کنید و دنبال کد زیر در آن بگردید:

کد:

require_once ENGINE_DIR.'/modules/calendar.php';

این د را زیر کد بالایی اضافه کنید

کد:

require_once ENGINE_DIR.'/modules/dle_img.php';

حال برای نشان دادن کافی است به قالب main.tpl قالب {dle_img} را اضاف کنید ( از قسمت مدیریت سایت ویرایش قالب )

کار تمام شد
موفق باشید

فایل های پیوست شده

Random Image(wWw.ParsaDL.Com).zip (1.4 کیلو بایت, 1 نمایش)

گذاشتن منوی موضوعات درختی برای قالب سایت دلتا لایف

---

ابتدا فایل ضمیمه را دانلود کنید
فایل های مورد نظر را در پوشه های گفته شده آپلود نمایید.

فایل index.php که در روت اصلی است را باز کنید و دنیال کد زیر بگردید

کد:

require_once ROOT_DIR.'/engine/init.php';

بعد از این کد زیر را زیر کد بالایی اضافه کنید

کد:

require_once ROOT_DIR.'/engine/modules/treemenu.php';

دنبال کد زیر در همان فایل بگردید

کد:

$tpl->set('{login}',$login_panel);

این کد را زیر آن اضافه کنید

کد:

$tpl->set('{treemenu}', $treemenu);
$tpl->set('{title}', $title_tag);

فایل index.php را ذخیره کنید و از آن خارج شوید

سپس به مدیریت قالب بروید و از انجا در قالب سایتتون در قسمت main.tpl یک قالب جدید اضافه کنید به نام {treemenu}

کار تمام شد

فایل های پیوست شده

TreeMenu(wWw.ParsaDL.Com).zip (15.0 کیلو بایت, 4 نمایش)

ماژول بلوک آب و هوا برای قالب سایت دلتا لایف

---

توضیح: این یک ماژول ساده برای ایجاد یک بلوک آب و هوا توسط gismeteo می باشد.

شروع نصب:

اول از همه فایل دانلودی را دانلود کنید و همانطور که گفته شده آپلود کنید.

سپس main.tpl را باز کنید و کد زیر را در یک جای خوب قرار دهید:

کد:

{pogoda_almaty}

engine\engine.php را باز کنید:

بدنبال متن زیر بگردید:

کد:

if($titl_e) $metatags['title'] = $titl_e.' » '.$config['home_title'];

در زیر آن متن زیر را قرار دهید:

کد:

include_once ENGINE_DIR."/modules/pogoda_almaty.php";

index.php را باز کنید و دنبال متن زیر بگردید:

کد:

$tpl->set('{info}',$tpl->result['info']);

در زیر آن متن زیر را قرار دهید:

کد:

$tpl->set('{pogoda_almaty}',  $pogoda_almaty);

نکته: برای نمایش شهر های دیگه در فایل می بایست در pogoda_almaty.php بدنبال متن زیر بگردید و سپس آدرس وارد شده را با آدرس مورد نظر خود عوض کنید:

کد:

$text = file_get_contents("http://informer.gismeteo.ru/xml/36870_1.xml");

فایل های پیوست شده

modules_2_pogoda.zip (291.6 کیلو بایت, 1 نمایش)

__________________

ماژول لوگوی دوستان برای سایت دلتا لایف

---

1- فایل زیر رو دانلود کنید و فایل های درون آن را به جاهای مشخص شده کپی کنید:
دانلود کنید

2- به آدرس زیر بروید تا Sql ها در دیتابیس وارد شوند:

http://yoursite.ir/linklogo_install.php

بعد از نصب ماژول فایل linklogo_install.php را از روی هاست پاک کنید.

3- فایل index.php رو باز کنید و به دنبال کد زیر بگردید:

کد:

require_once ROOT_DIR.'/engine/init.php';

بعد از کد بالا , کد زیر رو قرار دهید:

کد:

require_once ROOT_DIR.'/engine/modules/linklogo.php';

4- در همان index.php به دنبال کد زیر بگردید:

کد:

$tpl->load_template('main.tpl');

5- فایل Admin.php رو باز کنید و کد زیر را پیدا کنید:

کد:

'editnews'     => 'user',

بعد از کدی که پیدا کردید , کد زیر رو قرار بدید:

کد:

'linklogo'       => 'admin',

6- فایل Engine/Inc/Options.php رو باز کنید و کد زیر را پیدا کنید:

کد:

$options['others'] = array(

بعد از آن , کد زیر را قرار دهید:

کد:

array(
'name'       => "لوگوی دوستان",
'url'        => "$PHP_SELF?mod=linklogo",
'descr'      => "اضافه , حذف و ویرایش کردن لوگوی دوستان",
'image'         => "linklogo.png",
'access'     => "1",
),

حالا با قرار دادن تگ {linklogo} در بلوک مورد نظر خود در main.tpl میتونید این ماژول رو به نمایش در بیارید.

با تشکر از گروه دیتالایف انجین فارسی

فایل های پیوست شده

Friends-Logo.zip (16.9 کیلو بایت, 0 نمایش)