denysrom 1 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 Hide denysrom's signature Hide all signatures [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Share this post Link to post Share on other sites
JohnOne 1,598 Posted January 6, 2013 What's your problem? Do yourself a favour and don't reply "I doesn't work" Hide JohnOne's signature Hide all signatures AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Share this post Link to post Share on other sites
JohnOne 1,598 Posted January 6, 2013 Never mind, I spotted something at a quick glance. $sStr = BinaryToString(InetRead(GUICtrlRead($Input1), 1)) Hide JohnOne's signature Hide all signatures AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Share this post Link to post Share on other sites
denysrom 1 Posted January 6, 2013 Not know how to activate $Button1 Help pls .. Hide denysrom's signature Hide all signatures [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Share this post Link to post Share on other sites
denysrom 1 Posted January 6, 2013 When I give the $ Button1 and write in $ INPUT1 www.google.es to protect my source in $ edit1 Hide denysrom's signature Hide all signatures [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Share this post Link to post Share on other sites
somdcomputerguy 101 Posted January 6, 2013 @OP - Try incorporating this function into your code - _INetGetSource Hide somdcomputerguy's signature Hide all signatures - 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
denysrom 1 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 Hide denysrom's signature Hide all signatures [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Share this post Link to post Share on other sites
Chance 15 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 Share this post Link to post Share on other sites
denysrom 1 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 ! Hide denysrom's signature Hide all signatures [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Share this post Link to post Share on other sites
somdcomputerguy 101 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. Hide somdcomputerguy's signature Hide all signatures - 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
Chance 15 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. Share this post Link to post Share on other sites
denysrom 1 Posted January 6, 2013 Tanks ! :bye: :bye: :bye: Hide denysrom's signature Hide all signatures [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Share this post Link to post Share on other sites
