Sign in to follow this  
Followers 0
denysrom

HELP PLS !!

12 posts in this topic

I want to make a View Source pls help :(

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

$Form1 = GUICreate("Viewe Source", 425, 476, 192, 124)
GUISetBkColor(0xFF0000)
$Input1 = GUICtrlCreateInput("", 64, 8, 353, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Http://", 8, 8, 53, 23, -1, BitOR($WS_EX_STATICEDGE,$GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Edit1 = GUICtrlCreateEdit("", 8, 40, 409, 393)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("View Source", 8, 440, 91, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("About", 120, 440, 91, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Info", 240, 440, 91, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Exit", 344, 440, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   $sStr = BinaryToString(InetRead($Input1, 1))
   FileWrite(@DesktopDir &"\source.txt", $sStr)


  Case $Button2
   MsgBox(4096, "Credit", "Created by C0dex \ Email = Hellshare60@gmail.com", 10)

  Case $Button3
   MsgBox(4096, "Info", "Hellshare60@gmail.com| PM", 10)
  Case $Button4
   Exit(-1)

EndSwitch
WEnd

[font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]

Share this post


Link to post
Share on other sites



Not know how to activate $Button1 Help pls ..


[font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]

Share this post


Link to post
Share on other sites

When I give the $ Button1 and write in $ INPUT1 www.google.es to protect my source in $ edit1


[font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]

Share this post


Link to post
Share on other sites

@OP - Try incorporating this function into your code - _INetGetSource


- Bruce /*somdcomputerguy */  If you change the way you look at things, the things you look at change.

Share this post


Link to post
Share on other sites

@OP - Try incorporating this function into your code - _INetGetSource

man...When I give the $ Button1 and write in $ INPUT1 www.google.es to protect my source in $ edit1


[font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]

Share this post


Link to post
Share on other sites

Whatever you're doing, it's probably not the best idea.

#include <windowsconstants.au3>
#include <guiconstants.au3>
#include <EditConstants.au3>

Opt("MustDeclareVars", 1)

Global $Form1 = GUICreate("Viewe Source", 425, 476, 192, 124)
GUISetBkColor(0xFF0000)
GUISetFont( 8, 800, 0, "MS Sans Serif")

Global $URL, $sStr; strings

Global $Input1 = GUICtrlCreateInput("", 64, 8, 353, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))

Global $Label1 = GUICtrlCreateLabel("Http://", 8, 8, 53, 23, -1, BitOR($WS_EX_STATICEDGE, $GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

Global $Edit1 = GUICtrlCreateEdit("", 8, 40, 409, 393)

Global $ViewSourc = GUICtrlCreateButton("View Source", 8, 440, 91, 25, -1, $WS_EX_STATICEDGE)
Global $About = GUICtrlCreateButton("About", 120, 440, 91, 25, -1, $WS_EX_STATICEDGE)
Global $Info = GUICtrlCreateButton("Info", 240, 440, 91, 25, -1, $WS_EX_STATICEDGE)
Global $Exit = GUICtrlCreateButton("Exit", 344, 440, 75, 25, -1, $WS_EX_STATICEDGE)

GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()    
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ViewSourc
            $URL = GUICtrlRead($Input1)
            If Not StringInStr($URL,"http",2) Then $URL = "http://" & $URL
            $sStr = BinaryToString(InetRead($URL, 8))
            GUICtrlSetData($Edit1, $sStr)


        Case $About
            MsgBox(4096, "Credit", "Created by C0dex \ Email = Hellshare60@gmail.com", 10)

        Case $Info
            MsgBox(4096, "Info", "Hellshare60@gmail.com| PM", 10)
        Case $Exit
            Exit

    EndSwitch
WEnd

Share this post


Link to post
Share on other sites

Whatever you're doing, it's probably not the best idea.

#include <windowsconstants.au3>
#include <guiconstants.au3>
#include <EditConstants.au3>

Opt("MustDeclareVars", 1)

Global $Form1 = GUICreate("Viewe Source", 425, 476, 192, 124)
GUISetBkColor(0xFF0000)
GUISetFont( 8, 800, 0, "MS Sans Serif")

Global $URL, $sStr; strings

Global $Input1 = GUICtrlCreateInput("", 64, 8, 353, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))

Global $Label1 = GUICtrlCreateLabel("Http://", 8, 8, 53, 23, -1, BitOR($WS_EX_STATICEDGE, $GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

Global $Edit1 = GUICtrlCreateEdit("", 8, 40, 409, 393)

Global $ViewSourc = GUICtrlCreateButton("View Source", 8, 440, 91, 25, -1, $WS_EX_STATICEDGE)
Global $About = GUICtrlCreateButton("About", 120, 440, 91, 25, -1, $WS_EX_STATICEDGE)
Global $Info = GUICtrlCreateButton("Info", 240, 440, 91, 25, -1, $WS_EX_STATICEDGE)
Global $Exit = GUICtrlCreateButton("Exit", 344, 440, 75, 25, -1, $WS_EX_STATICEDGE)

GUISetState(@SW_SHOW)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $ViewSourc
$URL = GUICtrlRead($Input1)
If Not StringInStr($URL,"http",2) Then $URL = "http://" & $URL
$sStr = BinaryToString(InetRead($URL, 8))
GUICtrlSetData($Edit1, $sStr)


Case $About
MsgBox(4096, "Credit", "Created by C0dex \ Email = Hellshare60@gmail.com", 10)

Case $Info
MsgBox(4096, "Info", "Hellshare60@gmail.com| PM", 10)
Case $Exit
Exit

EndSwitch
WEnd

YES MAS !!! TANKSSSSSSSSSSSS !!! Y LOVE YOU AutoiT !


[font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]

Share this post


Link to post
Share on other sites

man...When I give the $ Button1 and write in $ INPUT1 www.google.es to protect my source in $ edit1

I have no idea what you're trying to say, but good luck with your project.

- Bruce /*somdcomputerguy */  If you change the way you look at things, the things you look at change.

Share this post


Link to post
Share on other sites

YES MAS !!! TANKSSSSSSSSSSSS !!! Y LOVE YOU AutoiT !

So, what are you trying to do :P

Just like, read the html from web sites or what?

Reading the html from sites in that little text box is going to make you blind!

I think it's gonna give me nightmares after I ran it.

Share this post


Link to post
Share on other sites

Tanks ! :D:bye: :bye: :bye: :bye: :bye: :bye:


[font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]

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