youtuber Posted May 11, 2016 Posted May 11, 2016 expandcollapse popup#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <Inet.au3> #include <String.au3> #include <WinHttp.au3> Global $baselink = "http://www.ip.biz.tr" $Form1_1 = GUICreate("Form1", 450, 280) $KQ = GUICtrlCreateEdit("", 32, 32, 185, 241) GUICtrlSetData(-1, "") $Run = GUICtrlCreateButton("Run", 320, 16, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Run Get() EndSwitch WEnd Func Get() $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1") $oHTTP.open("GET", $baselink, False) $oHttp.SetProxy(2,"189.28.166.79:80") $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10 (.NET CLR 4.0.20506)") $oHTTP.SetRequestHeader("Referrer", $baselink) $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") $search = "/" $results = "" for $i=0 to 2 step 2 $currentlink = $baselink $source = _InetGetSource($currentlink) $eachlink = _StringBetween($source,'class="fg','</span') if isArray($eachlink) then for $z=0 to ubound($eachlink)-1 If StringInStr($eachlink[$z], "-blue") Then $Link = $eachlink[$z] $results &= $Link&@CRLF GUICtrlSetData ($KQ, $results) EndIf next endif Sleep(100) next EndFunc
Trong Posted May 11, 2016 Posted May 11, 2016 Try: #include <Inet.au3> #include <String.au3> Global $baselink = "http://www.ip.biz.tr" HttpSetProxy(2, "189.28.166.79:80") $source = _INetGetSource($baselink) $eachlink = _StringBetween($source, '<span class="fg-blue">', '</span>') If IsArray($eachlink) Then MsgBox(32, "Check IP", "CurrenIP: " & $eachlink[0] & @CRLF) ;~ MsgBox(32, "Check IP", "CurrenIP: " & _GetIP() & @CRLF) Regards,
youtuber Posted May 11, 2016 Author Posted May 11, 2016 Thank youIs this code written right? #include <Inet.au3> #include <String.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $baselink = "http://www.ip.biz.tr" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 452, 282, 33, 105) $Edit1 = GUICtrlCreateEdit("", 32, 32, 185, 241) GUICtrlSetData(-1, "") $Button1 = GUICtrlCreateButton("Run", 320, 16, 75, 25) $Edit2 = GUICtrlCreateEdit("", 232, 88, 169, 177) GUICtrlSetData(-1, "") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $aproxyread = StringSplit(GUICtrlRead($Edit1), @CR) For $aproxyadd = 1 To UBound($aproxyread) - 1 Sleep(100) HttpSetProxy(2, $aproxyread[$aproxyadd]) $source = _INetGetSource($baselink) $eachlink = _StringBetween($source, '<span class="fg-blue">', '</span>') If IsArray($eachlink) Then GUICtrlSetData ($Edit2, $aproxyadd & @CRLF & $aproxyread[$aproxyadd]& @CRLF & $eachlink[0]) Next EndSwitch WEnd
Trong Posted May 11, 2016 Posted May 11, 2016 Your script run good ! You get ip with AutoIt functions will be faster: expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Run_Au3Stripper=y #Au3Stripper_Parameters=/so /pe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Inet.au3> #include <String.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $baselink = "http://www.ip.biz.tr" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 452, 282, 33, 105) $Edit1 = GUICtrlCreateEdit("", 32, 32, 185, 241) GUICtrlSetData(-1, "") $Button1 = GUICtrlCreateButton("Run", 320, 16, 75, 25) $Edit2 = GUICtrlCreateEdit("", 232, 88, 169, 177) GUICtrlSetData(-1, "") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $aproxyread = StringSplit(GUICtrlRead($Edit1), @CR) For $aproxyadd = 1 To UBound($aproxyread) - 1 Sleep(100) HttpSetProxy(2, $aproxyread[$aproxyadd]) ;~ $source = _INetGetSource($baselink) ;~ $eachlink = _StringBetween($source, '<span class="fg-blue">', '</span>') ;~ If IsArray($eachlink) Then GUICtrlSetData($Edit2, $aproxyadd & @CRLF & $aproxyread[$aproxyadd] & @CRLF & $eachlink[0]) GUICtrlSetData($Edit2, "Proxy: " & $aproxyread[$aproxyadd] & @CRLF & "CurIP: " & _IPGet()) Next EndSwitch WEnd Func _IPGet() Local Const $GETIP_TIMER = 3000 Local Static $hTimer = 0 Local Static $sLastIP = 0 If TimerDiff($hTimer) < $GETIP_TIMER And Not $sLastIP Then Return SetExtended(1, $sLastIP) EndIf Local $aGetIPURL[] = ["http://bot.whatismyipaddress.com", "http://www.myexternalip.com/raw", "http://checkip.dyndns.org"], $aReturn = 0, $sReturn = "" For $i = 0 To UBound($aGetIPURL) - 1 $sReturn = InetRead($aGetIPURL[$i]) If @error Or $sReturn == "" Then ContinueLoop $aReturn = StringRegExp(BinaryToString($sReturn), "((?:\d{1,3}\.){3}\d{1,3})", 3) If Not @error Then $sReturn = $aReturn[0] ExitLoop EndIf $sReturn = "" Next $hTimer = TimerInit() $sLastIP = $sReturn If $sReturn == "" Then Return SetError(1, 0, -1) Return $sReturn EndFunc ;==>_IPGet Regards,
youtuber Posted May 11, 2016 Author Posted May 11, 2016 Okay, I want good results this code, but at the same time? For $aproxyadd = 1 To UBound($aproxyread & _IPGet) - 1 @CRLF & "CurIP: " & _IPGet()
youtuber Posted May 12, 2016 Author Posted May 12, 2016 (edited) guıctrlsetdat to ($ Edit2 I want _GET with the for loop Please help how to do expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Run_Au3Stripper=y #Au3Stripper_Parameters=/so /pe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Inet.au3> #include <String.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $baselink = "http://www.ip.biz.tr" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 452, 282, 33, 105) $Edit1 = GUICtrlCreateEdit("", 32, 32, 185, 241) GUICtrlSetData(-1, "") $Button1 = GUICtrlCreateButton("Run", 320, 16, 75, 25) $Edit2 = GUICtrlCreateEdit("", 232, 88, 169, 177) GUICtrlSetData(-1, "") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $aproxyread = StringSplit(GUICtrlRead($Edit1), @CR) For $aproxyadd = 1 To UBound($aproxyread) - 1 Sleep(100) HttpSetProxy(2, $aproxyread[$aproxyadd]) ;~ $source = _INetGetSource($baselink) ;~ $eachlink = _StringBetween($source, '<span class="fg-blue">', '</span>') ;~ If IsArray($eachlink) Then GUICtrlSetData($Edit2, $aproxyadd & @CRLF & $aproxyread[$aproxyadd] & @CRLF & $eachlink[0]) For $ipget = 0 To UBound(_IPGet) - 1 GUICtrlSetData($Edit2, "Proxy: " & $aproxyread[$aproxyadd] & @CRLF & "CurIP: " & $ipget[_IPGet()]) Next Sleep(100) Next EndSwitch WEnd Func _IPGet() Local Const $GETIP_TIMER = 3000 Local Static $hTimer = 0 Local Static $sLastIP = 0 If TimerDiff($hTimer) < $GETIP_TIMER And Not $sLastIP Then Return SetExtended(1, $sLastIP) EndIf Local $aGetIPURL[] = ["http://bot.whatismyipaddress.com", "http://www.myexternalip.com/raw", "http://checkip.dyndns.org"], $aReturn = 0, $sReturn = "" For $i = 0 To UBound($aGetIPURL) - 1 $sReturn = InetRead($aGetIPURL[$i]) If @error Or $sReturn == "" Then ContinueLoop $aReturn = StringRegExp(BinaryToString($sReturn), "((?:\d{1,3}\.){3}\d{1,3})", 3) If Not @error Then $sReturn = $aReturn[0] ExitLoop EndIf $sReturn = "" Next $hTimer = TimerInit() $sLastIP = $sReturn If $sReturn == "" Then Return SetError(1, 0, -1) Return $sReturn EndFunc ;==>_IPGet or should be like this Line :48 For $i = 1 To UBound($aGetIPURL) - 1 Edited May 12, 2016 by youtuber
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