Sign in to follow this  
Followers 0
Guest AX5

Script Blocker

21 posts in this topic

Hi

Im looking for a script or something to make a script to block websites on the computer some one that can help me ?

Share this post


Link to post
Share on other sites



i whant the program to block websites like the file

C:\WINDOWS\system32\drivers\etc\hosts

Share this post


Link to post
Share on other sites

I have only one idea spoof site on your machine:Here is:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=Form1.kxf\Form1.kxf
$Form1 = GUICreate("Form1", 596, 447, 310, 152)
$url = GUICtrlCreateInput("somesite.com", 176, 96, 225, 21)
$Label1 = GUICtrlCreateLabel("     enter site url", 192, 24, 76, 17)
$Button1 = GUICtrlCreateButton("OK", 248, 248, 81, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            FileWrite("C:\WINDOWS\system32\drivers\etc\hosts", "74.125.87.103   " &  GUICtrlRead($url) & @CRLF)
            
            MsgBox(64, "Spoofed!", GUICtrlRead($url) & " was spoofed to=>" & "74.125.87.103")

    EndSwitch
WEnd

[size="5"] [/size]

Share this post


Link to post
Share on other sites

I have only one idea spoof site on your machine:Here is:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=Form1.kxf\Form1.kxf
$Form1 = GUICreate("Form1", 596, 447, 310, 152)
$url = GUICtrlCreateInput("somesite.com", 176, 96, 225, 21)
$Label1 = GUICtrlCreateLabel("     enter site url", 192, 24, 76, 17)
$Button1 = GUICtrlCreateButton("OK", 248, 248, 81, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            FileWrite("C:\WINDOWS\system32\drivers\etc\hosts", "74.125.87.103   " &  GUICtrlRead($url) & @CRLF)
            
            MsgBox(64, "Spoofed!", GUICtrlRead($url) & " was spoofed to=>" & "74.125.87.103")

    EndSwitch
WEnd

Thx man that i was after

Share this post


Link to post
Share on other sites

Now i have another problem i made a design for my script in KODA FROM DESIGN and have do i make it work whit my script ?

Share this post


Link to post
Share on other sites

Now i have another problem i made a design for my script in KODA FROM DESIGN and have do i make it work whit my script ?

so ?

Go and do it!


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

You need to understand that this forum is about learning, but so far you have only asked for free code. It's time you try to do something yourself now.

yes im sorry but whit the free codes i learn very fast. i dont learn buy reading 100 pageis whit 10000000 lines of text i learn whit codes and hove the codes work (Im sorry but this is the way i work ^^)

Edited by AX5

Share this post


Link to post
Share on other sites

From this thread, you are implying you are very inpatient and demand much from others. You would starve in the wild. Now, saying this, would you rather just keep being a beggar ( and annoy the crap our of folks real fast ) or learn how to fish and take care of yourself? If you want to learn, trust me when I say this: You can learn the basics of AutoIt in about an hour or so. Do this, and you will be well on your way of coming up with neat stuff that is EASY to do. (such as what you are asking for)

Take AutoIt 1 2 3.

Yes it is that simple. Takes a hour or so, and you will understand the basics. If this is too much of a demand of your time, then you will be simply re-enforcing the first statement I made about inpatients and being demanding of others.

Give it a try. It is easy, and you will have fun doing it.

Oh, and before you say "Well, if it is so easy, then why won't you just tell me" - let me answer that - It is simple. Read the above again...and read it again...and again. Keep doing this until you figure out what I'm trying to tell you. We like to teach folks to fish. Not to beg for fish....

Share this post


Link to post
Share on other sites

Thanks for you post Volly i will take an hour or 2 on this and Thanks agen very motch

Share this post


Link to post
Share on other sites

OK i have a smolle Problem i want to add a file to a specific place on the pc and i want only a button to say restore old settings have can i build that ?

Share this post


Link to post
Share on other sites

OK i have a smolle Problem i want to add a file to a specific place on the pc and i want only a button to say restore old settings have can i build that ?

You thought I was rude to you..right? ;)

You gotta be kidding... anyways, to answer your question: Yes you can do that but you will have to invest the time to learn.

enjoy studying,

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

You thought I was rude to you..right? ;)

You gotta be kidding... anyways, to answer your question: Yes you can do that but you will have to invest the time to learn.

enjoy studying,

Jos

ok:)

Share this post


Link to post
Share on other sites

#17 ·  Posted (edited)

Why does Button 2 dont oppen norpad ?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Website Blocker V0.35.1", 307, 195, 192, 124)
$Button1 = GUICtrlCreateButton("Block Website", 160, 120, 110, 30, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Default Setter", 40, 120, 110, 30, $WS_GROUP)
$url = GUICtrlCreateInput("  www.website here.com", 96, 72, 129, 21)
$Label1 = GUICtrlCreateLabel("Enter a website to block", 104, 50, 118, 17)
$ww = GUICtrlCreateLabel(" www.nexxoz.com", 218, 176, 208, 17)
$Pic1 = GUICtrlCreatePic("img/1.jpg", 0, 0, 307, 195, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            FileWrite("C:\WINDOWS\system32\drivers\etc\hosts", "74.125.87.103   " &  GUICtrlRead($url) & @CRLF)

            MsgBox(64, "Added!", GUICtrlRead($url) & " was added whit ip =>" & "74.125.87.103")

  case $Button2

            Run("notepad.exe" &  GUICtrlRead($Button2) & @CRLF)


    EndSwitch
WEnd
Edited by AX5

Share this post


Link to post
Share on other sites

Maybe because you aren't telling him to start notepad? ;)

Show the string in a MsgBox or ToolTip and you'll see the problem:

MsgBox(0, "", "notepad.exe" &  GUICtrlRead($Button2) & @CRLF)

Share this post


Link to post
Share on other sites

#20 ·  Posted (edited)

Have do i tell it to start when i press button 2 ?

case $Button2

            MsgBox(0, "", "notepad.exe" &  GUICtrlRead($Button2) & @CRLF)
            Run("notepad.exe" &  GUICtrlRead($Button2) & @CRLF)
Edited by AX5

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0