denysrom 1 Report post 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] Share this post Link to post Share on other sites
JohnOne 1,587 Report post 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. Share this post Link to post Share on other sites
JohnOne 1,587 Report post 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. Share this post Link to post Share on other sites
denysrom 1 Report post Posted January 6, 2013 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
denysrom 1 Report post 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] Share this post Link to post Share on other sites
somdcomputerguy 101 Report post 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. Share this post Link to post Share on other sites
denysrom 1 Report post 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] Share this post Link to post Share on other sites
Chance 15 Report post 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 Report post 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] Share this post Link to post Share on other sites
somdcomputerguy 101 Report post 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. Share this post Link to post Share on other sites
Chance 15 Report post 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 Report post Posted January 6, 2013 Tanks ! :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
