Code: Select all

#warn
;urlx:="https://en.wikipedia.org/wiki/Special:Contributions/%CE%9F%CE%A5%CE%A4%CE%99%CE%A3"  ;- correct
;urlx:="https://en.wikipedia.org/wiki/Special:Contributions/%CE%9F%CE%A5%CE%A4%CE%99%CE%A1"  ;- nicht correct aber umgeleitet d.h URL exist
urlx:="https://en.wikipediax.org/wiki/Special:Contributions/%CE%9F%CE%A5%CE%A4%CE%99%CE%A1"  ;- URL falsch not exist
;- case-1 INTERNETCONNECTED  ( modem / wlan )
aaa:= InternetConnected()
if aaa=0
  {
  msgbox, 262208,InternetCheck,Internet NOT connected
  exitapp
  }
msgbox, 262208,InternetCheck ,Internet OK
;----------------------------------------------
;- continue here to check if URL exist
;----------------------------------------------
xx:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
gosub,a1
;------------
if (result=1)
   {
   msgbox, 262208,SUCCESS,URL=%urlx%=`nURL exists
   ;- continue here if OK
   }
if (result=0)
   {
   msgbox, 262208,NO SUCCESS,URL=%urlx%=`nURL NOT exists
   exitapp
   }
return
;--------- gosub check URL -------------------
a1:
try {
    xx.Open("GET",urlx)
    xx.Send()
    result=1
} catch e {
    result=0
    }
return
;==================================================================
internetConnected(){ ;https://autohotkey.com/boards/viewtopic.php?f=5&t=23127
    static url:="http://google.com"                         ;-user masonjar13
    if(!dllCall("Wininet.dll\InternetGetConnectedState","Str","","Int",0))
        return 0
    if(!dllCall("Wininet.dll\InternetCheckConnection","Str",url,"Uint",1,"Uint",0))
        return 0
    return 1
}
;==================================================================

Code: Select all

;-------- saved at Montag, 7. Juli 2014 08:15:52 --------------
;-------- https://autohotkey.com/board/topic/112151-checking-network-status/
;- CHECK internet connection & URL ------------------------------------------------

;urlx:="https://en.wikipedia.org/wiki/User:%CE%9F%CE%A5%CE%A4%CE%99%CE%A3"                    ;- correct
urlx:="https://en.wikipedia.org/wiki/Special:Contributions/%CE%9F%CE%A5%CE%A4%CE%99%CE%A3"  ;- correct
;urlx:="https://en.wikipedia.org/wiki/Special:Contributions/%CE%9F%CE%A5%CE%A4%CE%99%CE%A1"  ;- nicht correct aber umgeleitet
;urlx:="https://en.wikipediax.org/wiki/Special:Contributions/%CE%9F%CE%A5%CE%A4%CE%99%CE%A1"  ;- URL falsch not exist
;----
;urlx:="https://www.radio.de/s/hpr1classiccountry"
;urlx:="http://87.98.130.255:8188/stream"          ;- HPR1 classic country
;urlx:="http://87.98.130.255:8188/played.html"
goto,example1

example1:
FLAG_ICC_FORCE_CONNECTION=1
if !DllCall("Wininet.dll\InternetGetConnectedState", "UInt*", flag, "UInt", 0)
       {
	aa1:= % "InternetGetConnectedState() failed " flag " " A_LastError
        msgbox, 262208,NO SUCCES,AA1=%aa1%
	return
        }
flagstr =
if (flag & 0x01)
	flagstr .= "INTERNET_CONNECTION_MODEM`n"
if (flag & 0x02)
	flagstr .= "INTERNET_CONNECTION_LAN`n"
if (flag & 0x04)
	flagstr .= "INTERNET_CONNECTION_PROXY`n"
if (flag & 0x10)
	flagstr .= "INTERNET_RAS_INSTALLED`n"
if (flag & 0x20)
	flagstr .= "INTERNET_CONNECTION_OFFLINE`n"
if (flag & 0x40)
	flagstr .= "INTERNET_CONNECTION_CONFUGURED`n"
aa3:= % flagstr "InternetGetConnectedState() succeed " flag
if !DllCall("Wininet.dll\InternetCheckConnection", "Str",urlx,"UInt", FLAG_ICC_FORCE_CONNECTION, "UInt", 0)
        {
	aa2:= % "InternetCheckConnection() failed " A_LastError
        msgbox, 262208,NO SUCCES,AA2=%aa2%
	return
        }
;msgbox,aa3=%aa3%
;return


example2:
;--- example for try/catch/error CHECK URL ------------------
xx:=ComObjCreate("WinHttp.WinHttpRequest.5.1")   ;-Create the Object
;-- catch get error but don't show failure
;ComObjError(false)
;xx.Silent := True    ;- script failure = off
xx.SetTimeouts(500,500,500,500)
try {
    xx.Open("GET",urlx)                           ;-Open communication
    xx.Send()                                   ;-Send the "get" request
    aac=
    aac:=xx.ResponseText                        ;-Set the "aac" variable to the response
    ;msgbox, 262208,%urlx% exists,%aa4%`n`n%urlx%`n-----------------`n %aac%
} catch e {
    xxx:=e.Message
    msgbox, 262208,NO SUCCESS ERROR ,AA3=%aa3%`n------------`nError=Catch`n%urlx%`n NOT exists`n------------------------------------------`n%xxx%`n------------------------------------------,
    return
    }
msgbox, 262208,SUCCESS,AA3=%aa3%`n------------`nURL EXISTS=`n%urlx%
return
;==================================================================

Code: Select all

MsgBox % IsUrl2("https://en.wikipedia.org/wiki/User:%CE%9F%CE%A5%CE%A4%CE%99%CE%A3")
MsgBox % IsUrl2("https://en.wikipedia.org/wiki/Special:Contributions/%CE%9F%CE%A5%CE%A4%CE%99%CE%A3")


IsURL2(sURL) {
   Return RegExMatch(sURL, "iO)^(?<Protocol>https?|ftp)://(?<Domain>(?:[\w-]+\.)+\w\w+)(?::(?<Port>\d+)(?CCallout))?/?(?!.*:.*/)(?<Path1>(?:[^:/?# ]*/?))/?(?<Path2>(?:[^/?# ]*/?)+)(?:\?(?<Query>[^#]+)?)?(?:\#(?<Hash>.+)?)?$")
}

Callout(m) {
  if ((m.port<=65535) and (m.port>0))
    return 0
  return -1 ;the complete regexp fails
}

Code: Select all

;- URL encode-decode    user 'teadrinker'
;- https://www.autohotkey.com/boards/viewtopic.php?f=76&t=84825&p=372265#p372265

;url2:="https%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D%E6%9D%8E%E9%A6%99%E8%98%AD"
;url2:="https%3A%2F%2F%D0%BF%D1%80%D0%B8%D0%B2%D0%B5%D1%82_%D0%A1%D0%BF%D0%B0%D1%81%D0%B8%D0%B1%D0%BE_%D0%B1%D0%BE%D0%BB%D1%8C%D1%88%D0%BE%D0%B5_stackoverflow.com%2F"
url2:="https://en.wikipedia.org/wiki/User:%CE%9F%CE%A5%CE%A4%CE%99%CE%A3"
decoded := EncodeDecodeURI(url2, false)
encoded := EncodeDecodeURI(decoded)
isurl:=IsUrl2(decoded)
msgbox,ORIG=`n%url2%`n-------------------------------------------------`nDECODED=`n%decoded%`n-------------------------------------------------`nENCODED=`n%encoded%`n-------------------------------------------------`nISURL=%isurl%
return
;---------------
;- from user 'teadrinker'
EncodeDecodeURI(str, encode := true, component := true) {
   static Doc, JS
   if !Doc {
      Doc := ComObjCreate("htmlfile")
      Doc.write("<meta http-equiv=""X-UA-Compatible"" content=""IE=9"">")
      JS := Doc.parentWindow
      ( Doc.documentMode < 9 && JS.execScript() )
   }
   Return JS[ (encode ? "en" : "de") . "codeURI" . (component ? "Component" : "") ](str)
}
;=============================================================================
;- https://www.autohotkey.com/boards/viewtopic.php?f=9&t=70336&start=20     user 'haichen'
IsURL2(sURL) {
   Return RegExMatch(sURL, "iO)^(?<Protocol>https?|ftp)://(?<Domain>(?:[\w-]+\.)+\w\w+)(?::(?<Port>\d+)(?CCallout))?/?(?!.*:.*/)(?<Path1>(?:[^:/?# ]*/?))/?(?<Path2>(?:[^/?# ]*/?)+)(?:\?(?<Query>[^#]+)?)?(?:\#(?<Hash>.+)?)?$") 
}

Callout(m) {
  if ((m.port<=65535) and (m.port>0))
    return 0
  return -1 ;the complete regexp fails
}
;=============================================================================

Code: Select all

IsURL2(sURL) {
   Return RegExMatch(sURL, "iO)^(?<Protocol>https?|ftp)://(?<Domain>(?:[\w-]+\.)+\w\w+)(?::(?<Port>\d+)(?CCallout))?/?(?!.*:.*/)(?<Path1>(?:[^:/?# ]*/?))/?(?<Path2>(?:[^/?# ]*/?)+)(?:\?(?<Query>[^#]+)?)?(?:\#(?<Hash>.+)?)?$") 
}

Callout(m) {
  if ((m.port<=65535) and (m.port>0))
    return 0
  return -1 ;the complete regexp fails
}

Code: Select all

*((SubPat.port<=65535) and (SubPat.port>0) or (SubPat.port=""))

Code: Select all

url1=https://de.wikipedia.org:0/wiki/Wikipedia:Hauptfenster         ;0
url2=https://de.wikipedia.org:1/wiki/Wikipedia:Hauptfenster         ;1
url3=https://de.wikipedia.org:65536/wiki/Wikipedia:Hauptfenster     ;0
url4=https://de.wikipedia.org:65535/wiki/Wikipedia:Hauptfenster     ;1
url5=https://de.wikipedia.org:65535                                 ;1
url6=https://de.wikipedia.org:65535/wiki:test/                      ;0
url7=https://de.wikipedia.org/wiki/Wikipedia:Hauptfenster           ;1
url8=https://de.wikipedia.org                                       ;1
msgbox, % IsURL(URL1) IsURL(URL2) IsURL(URL3) IsURL(URL4) IsURL(URL5) IsURL(URL6) IsURL(URL7) IsURL(URL8) ;Resultat 01011011

return

IsURL(sURL) {
   Return RegExMatch(sURL, "iO)^(?<Protocol>https?|ftp)://(?<Domain>(?:[\w-]+\.)+\w\w+)(?::(?<Port>\d{1,5})(?!\d+/))?/?(?!.*:.*/)(?<Path1>(?:[^:/?# ]*/?))/?(?<Path2>(?:[^/?# ]*/?)+)(?:\?(?<Query>[^#]+)?)?(?:\#(?<Hash>.+)?)?$",SubPat)*((SubPat.port<=65535) and (SubPat.port>0) or (SubPat.port=""))
}

Code: Select all

*(SubPat.port<=65535)and(SubPat.port>0)

Code: Select all

---------------------------
ShortCut.ahk
---------------------------
Error in #include file "A:\System\AHK\ACC.ahk":
     0x800706B5 - Die Schnittstelle ist unbekannt.
Source:		(null)
Description:	(null)
HelpFile:		(null)
HelpContext:	0

Specifically: accChildCount

	Line#
	110: Return,p=""?setting:setting:=p
	111: }
	112: {
	113: if ComObjType(Acc,"Name") != "IAccessible"  
	114: ErrorLevel := "Invalid IAccessible Object"
	115: Else
	115: {
--->	116: Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]  
	117: if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0  
	117: {
	118: Loop,%cChildren%
	119: i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i), Children.Insert(NumGet(varChildren,i-8)=9?Acc_Query(child):child), NumGet(varChildren,i-8)=9?ObjRelease(child):  
	120: Return,Children.MaxIndex()?Children:
	121: }
	121: Else

Continue running the script?
---------------------------
Ja   Nein   
---------------------------