Autoit to Ahk (InetRead) Topic is solved

[tm6464]

hi all
can anyone help me make my autoit script to ahk
thx so much

Code: Select all

$sInput = InputBox("User", "Gib einen Usernamen ein:")
MsgBox(64, "Ausgabe", "Der User """ & $sInput & """ ist " & (_IsOnline($sInput) ? "nouser" : "ok") & ".")
Func _IsOnline($sChannelName)
	Return Not StringRegExp(BinaryToString(InetRead("http://api..com/php/getInfo/user=" & $sInput, 1)), _
				"(101|No users found|Invalid user Id|Invalid channel ID)")
EndFunc

[Sir Teddy the First]

Hi,
here you go. This should be what you wanted:

Code: Select all

URL := "http://api..com/php/getInfo/user="
InputBox, sInput, User, Gib einen Usernamen ein:
MsgBox, 64, Ausgabe, % "Der User '" sInput "' ist " . Text := IsOnline(sInput) = 0 ? "nouser" : "ok" . "."
return

IsOnline(sInput)
{
	global URL
	
	UserRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	UserRequest.Open("GET", URL  sInput , true)
	UserRequest.Send()
	UserRequest.WaitForResponse()
	Response := UserRequest.ResponseText
	
	If !RegExMatch("101|No users found|Invalid user Id|Invalid channel ID", Response)
		return 1
	else
		return 0
}

[tm6464]

thx a lot teddy
your code reads the http without problem the Response variabe have the right text but
" !RegExMatch " do not find it idk why, it always give back 1 no matter if the word is inside Response or not

[teadrinker]

Try:

Code: Select all

URL := "http://api..com/php/getInfo/user="
InputBox, sInput, User, Gib einen Usernamen ein:
MsgBox, 64, Ausgabe, % "Der User '" sInput "' ist " . IsOnline(URL, sInput) ? "ok" : "nouser"
return

IsOnline(URL, sInput)
{
   whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   whr.Open("GET", URL  sInput , true)
   whr.Send()
   whr.WaitForResponse()
   Response := whr.ResponseText
   ; MsgBox, % Response
   Return !RegExMatch(Response, "i)\D101\D|No users found|Invalid user Id|Invalid channel ID")
}

[tm6464]

thx for help guys