HELP PLS !!

[denysrom 1]

I want to make a View Source pls help

expandcollapse popup

#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

[JohnOne 1,590]

What's your problem?

Do yourself a favour and don't reply "I doesn't work"

[JohnOne 1,590]

Never mind, I spotted something at a quick glance.

$sStr = BinaryToString(InetRead(GUICtrlRead($Input1), 1))

[denysrom 1]

Not know how to activate $Button1 Help pls ..

[denysrom 1]

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

[somdcomputerguy 101]

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

[denysrom 1]

@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

[Chance 15]

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

expandcollapse popup

#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

[denysrom 1]

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

expandcollapse popup

#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 !

[somdcomputerguy 101]

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.

[Chance 15]

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

So, what are you trying to do

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.

[denysrom 1]

Tanks ! :bye: :bye: :bye: