denysrom Posted January 6, 2013 Share 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] Link to comment Share on other sites More sharing options...
JohnOne Posted January 6, 2013 Share 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. Link to comment Share on other sites More sharing options...
JohnOne Posted January 6, 2013 Share 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. Link to comment Share on other sites More sharing options...
denysrom Posted January 6, 2013 Author Share Posted January 6, 2013 Not know how to activate $Button1 Help pls .. [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Link to comment Share on other sites More sharing options...
denysrom Posted January 6, 2013 Author Share 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] Link to comment Share on other sites More sharing options...
somdcomputerguy Posted January 6, 2013 Share 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. Link to comment Share on other sites More sharing options...
denysrom Posted January 6, 2013 Author Share 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] Link to comment Share on other sites More sharing options...
Chance Posted January 6, 2013 Share 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 Link to comment Share on other sites More sharing options...
denysrom Posted January 6, 2013 Author Share 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] Link to comment Share on other sites More sharing options...
somdcomputerguy Posted January 6, 2013 Share 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. Link to comment Share on other sites More sharing options...
Chance Posted January 6, 2013 Share 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. Link to comment Share on other sites More sharing options...
denysrom Posted January 6, 2013 Author Share Posted January 6, 2013 Tanks ! :bye: :bye: :bye: [font=courier new,courier,monospace][u]Y Love You AutoiT[/u][/font] Link to comment Share on other sites More sharing options...
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