جلوگیری از اجرای یک سایت با ویژوال بیسیک

[dadeBaran]

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

کسی جوابشو بلده راهنماییم کنه (سورس میخواما)...
تشکر

[reza13812]

دلم میخواست راهنماییت کنم اما از اونجایی که نوشتی سورس میخوای اصلا خوشم نیومد
از راهنمایی کردنتم منصرف شدم

[dadeBaran]

ممنون ، خوب راهنماییمون کن ...
(یادمه یکی میگفت هرکی خواست بهم پیام بده و هرسوالی در خصوص وی بی داشت بپرسته جواب بدم بهش چون از هرکی خواستم بهم یاد نداد) حالا فهمیدم که همه اینا حرفه، ما خودمون حرفی میگیم و پاش وانمیستیم.....
تشکر از جنابعالی که قابل دونستی و یه جوابی دادی...

[gorg313]

دلم میخواست راهنماییت کنم اما از اونجایی که نوشتی سورس میخوای اصلا خوشم نیومد
از راهنمایی کردنتم منصرف شدم


از دست تو رضا :قهقهه:




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

کسی جوابشو بلده راهنماییم کنه (سورس میخواما)...
تشکر


سلام مشتي

منم چند وقت پيش دنبال اين بودم يه سورس پيدا کردم ولي نميدونم کار ميکنه يا نه

تستش کن وقتي تست کردي سيستمت را خاموش و روشن کن(فکر کنم با باز و بسته کردن مرورگر هم اعمال بشه)

خبرشو بده به من حتمآ

دانلود سورس بلوکه کردن سايت (http://s1.picofile.com/file/7474758381/sourse.rar.html)

در ضمن اول يه جستجو تو انجمن بزن :لبخند:

[gorg313]

تشکر از شما خودش بود... ممنون

سلام شما بايد خودتون هم يه زحمتي بکشيد

اين کد واسه بلوکه کردن سايت روي کنترل بروزر فرم هستش يعني مرورگر که تو فرم استفاده کرديم


Dim MyURL As String

Private Sub Command1_Click()
MyURL = "http://www.website.com"
WebBrowser1.Navigate2 MyURL
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If Instr(URL, MyURL) > 0 Then
Cancel = True ' اجازه نميده سايت باز بشه
End If
End Sub



اينم يه کد واسه بلوکه کردن در مسير ويندوز و مرورگر اينترنت اکسپلورر هستش (فکر کنم تو تموم مرورگرها عمل کنه)


Dim intMsg As String
Dim Block As String
Open "C:\Windows\System32\drivers\etc\hosts" For Append As #1
Block = "127.0.0.1" & Text1.Text & ""
Print #1, Block
intMsg = MsgBox("Writing: " & Block & " to Hosts")
Close #1
intMsg = MsgBox("File closed and saved!")


منبع مطلب : http://www.dreamincode.net/forums/topic/170047-website-blocker/

اينم يه کد که درون بانک اطلاعاتي سيو ميکنه همون چيزي که تقريبآ خودت ميخواي فقط تو فايل VBS بايد سيوش کني

اسم فايلتم گفته بذار websiteblocker.vbs واسه ساختنشم يه نُت پد باز کن به جاي فرمت .TXT از .VBS استفاده کن :لبخند:

'websiteblocker.vbs'
Set IEObject=Wscript.CreateObject("InternetExplorer.Application", "IEObject_")
IEObject.Visable = True
IEObject.Navigage "http://google.com"

Do While IEObject.Visable
WScript.Sleep 100
Loop
Sub IEObject_BeforeNavigate2(pDISP, URL, Flags, TargetFramedName, PostData, Headers, Cancel)
Set CN = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.RecordSet")
CN.Open "Provider = Microsoft.JetOLEDB80; Data source = blocker.mdb"
RS.CurserLocation = 3
RS.IOeb "Select * for sitelist", CN
do while RS.EoF = False
WS = RS("URL")
if InStr(URL,WS) then
Cancel = True
MsgBox ("Page Blocked - Going Back To Google.com")
IEObject.Navigate2 "http://google.com"
end if
RS.MoveNext
Loop
RS.Close
CN.Close
Set CN = nothing
Set RS = nothing

Cancel = False
End Sub




منبع مطلب : http://www.dreamincode.net/forums/topic/114619-website-blocker/


اميدوارم بتوني تمومش کني

موفق باشي :قلب: