denysrom Posted January 6, 2013 Posted January 6, 2013 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 [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]
JohnOne Posted January 6, 2013 Posted January 6, 2013 What's your problem? Do yourself a favour and don't reply "I doesn't work" AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans.
JohnOne Posted January 6, 2013 Posted January 6, 2013 Never mind, I spotted something at a quick glance. $sStr = BinaryToString(InetRead(GUICtrlRead($Input1), 1)) AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans.
denysrom Posted January 6, 2013 Author Posted January 6, 2013 Not know how to activate $Button1 Help pls .. [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]
denysrom Posted January 6, 2013 Author Posted January 6, 2013 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]
somdcomputerguy Posted January 6, 2013 Posted January 6, 2013 @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.
denysrom Posted January 6, 2013 Author Posted January 6, 2013 @OP - Try incorporating this function into your code - _INetGetSourceman...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]
Chance Posted January 6, 2013 Posted January 6, 2013 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 Posted January 6, 2013 Author Posted January 6, 2013 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 ! [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]
somdcomputerguy Posted January 6, 2013 Posted January 6, 2013 man...When I give the $ Button1 and write in $ INPUT1 www.google.es to protect my source in $ edit1I 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.
Chance Posted January 6, 2013 Posted January 6, 2013 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 Posted January 6, 2013 Author Posted January 6, 2013 Tanks ! :bye: :bye: :bye: [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font]
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now