InputBox, input, GetSkypeStatus, Введите логин скайпа  
  If input=  
  ExitApp  
  Msgbox, % GetSkypeStatus(input)  
  ExitApp  

  GetSkypeStatus(login) {  
  c_temp=%a_temp%\Skype_tmp  
  FileCreateDir, %c_temp%  
  URLDownloadToFile, http://mystatus.skype.com/%login%.num, %c_temp%\%login%.num  
  FileRead, c_status, %c_temp%\%login%.num  
  If c_status=1  
  c_result=Не в сети  
  If c_status=2  
  c_result=В сети  
  If c_status=3  
  c_result=Нет на месте  
  If c_status=5  
  c_result=Не беспокоить  
  FileRemoveDir, %c_temp%, 1  
  return c_result  
  }

InputBox, input, GetSkypeStatus, Введите логин скайпа ; Вывод окна с полем ввода  
  If input= ; Если ничего не было введено в поле, то...  
  ExitApp ; Закрытие скрипта  
  Msgbox, % GetSkypeStatus(input) ; Вызов функции GetSkypeStatus и вывод возвращенной строки  
  ExitApp ; Закрытие скрипта  

  GetSkypeStatus(login) {  
  c_temp=%a_temp%\Skype_tmp ; Установка переменной c_temp (в дальнейшем "временная папка") новое значение  
  FileCreateDir, %c_temp% ; Создание временной папки  
  URLDownloadToFile, http://mystatus.skype.com/%login%.num,  
%c_temp%\%login%.num ; Скачивание файла с номером статуса скайп-аккаунта
  во временную папку  
  FileRead, c_status, %c_temp%\%login%.num ; Считывание скачанного файла в переменную c_status  
  If c_status=1 ; Если содержимое файла равно 1  
  c_result=Не в сети ; Установка переменной c_result новое значение  
  If c_status=2 ; Если содержимое файла равно 2  
  c_result=В сети ; Установка переменной c_result новое значение  
  If c_status=3 ; Если содержимое файла равно 3  
  c_result=Нет на месте ; Установка переменной c_result новое значение  
  If c_status=5 ; Если содержимое файла равно 5  
  c_result=Не беспокоить ; Установка переменной c_result новое значение  
  FileRemoveDir, %c_temp%, 1 ; Удаление папки, указанной в переменной c_temp  
  return c_result ; Возвращаем значение переменной c_result  
  }