Jump to content

Script Blocker


Guest AX5
 Share

Recommended Posts

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]
Link to comment
Share on other sites

i whant the program to block websites like the file

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

Then use the hosts file. See the link I gave you to know what to write.
Link to comment
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

Link to comment
Share on other sites

  • Developers

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!

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to comment
Share on other sites

Thats Rude ;)

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.
Link to comment
Share on other sites

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
Link to comment
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....

Link to comment
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 ?

Link to comment
Share on other sites

  • Developers

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

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to comment
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:)

Link to comment
Share on other sites

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
Link to comment
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)
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...